Produced by Araxis Merge on 11/9/2018 12:33:53 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMCRZ07.m | Mon Nov 5 16:40:49 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMCRZ07.m | Mon Nov 5 17:43:12 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 366 |
Changed | 3 | 6 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMCRZ07 ; HAC/JAH-CR M Project; 3/1/2018 | |
2 | ;;1.0;ZZJ AH;**1 doN otDistribu te TO prod uction**; | |
3 | Q | |
4 | ; UTILITY ROUTINE T O SUPPORT DESIGN, DE VELOPMENT AND TESTIN G OF CRM 3 .0 | |
5 | ; | |
6 | ; | |
7 | ACAREP ; R EPORT on A CA transac tion log. | |
8 | ; | |
9 | ;ASK DEVI CE | |
10 | ; | |
11 | N PG,LC | |
12 | S (DONE,P G,LC)=0 | |
13 | S TITLE=" ACA TRANSA CTION LOG REPORT" | |
14 | S SPEC="" | |
15 | D ^%ZIS | |
16 | Q:$G(POP) | |
17 | U IO | |
18 | D HDR1(TI TLE,SPEC,. PG,.LC) | |
19 | ; | |
20 | ;start lo op at bott om (last c laim filed ) and work towards o ldest clai ms (top of file) | |
21 | S TXIEN=$ P($G(^CHMA CA(741411, 0)),U,3) | |
22 | ; | |
23 | F S TXIE N=$O(^CHMA CA(741411, TXIEN),-1) Q:TXIEN'> 0!DONE D | |
24 | . S DFN= $G(^CHMACA (741411,TX IEN,1,1,0) ) | |
25 | . S BFN= $G(^CHMACA (741411,TX IEN,1,2,0) ) | |
26 | . W !,"D ATE: ",$$B ULLETDT^CH MCRUT2($P( $G(^CHMACA (741411,TX IEN,0)),U, 2)) | |
27 | . W ?32, $P(DFN,U), "-",$P(BFN ,U),": ",$ P(DFN,U,2) ,"-",$P(BF N,U,2)," D UZ: ",DUZ | |
28 | . S LC=L C+1 | |
29 | . I LC>( IOSL-7) S DONE=$$ASK ^PRSLIB00( 1) I 'DONE D HDR1(TI TLE,SPEC,. PG,.LC) | |
30 | D ^%ZISC | |
31 | Q | |
32 | HDR1(TOCEX T,SPECIAL, PAGE,CNT) ; | |
33 | S PAGE=PA GE+1 | |
34 | W @IOF,!! ,$G(TOCEXT ),$G(SPECI AL),?($G(I OM)-10),"P AGE ",PAGE | |
35 | W ! | |
36 | N I F I=1 :1:$G(IOM) W "=" | |
37 | S CNT=0 | |
38 | Q | |
39 | ACCGROUP ; | |
40 | ; | |
41 | ; D ACCGR OUP^CHMCRZ 07 | |
42 | N CHNAMES | |
43 | S CHNAMES =$NA(^TMP( "ACCESS NA MES",$J)) | |
44 | K @CHNAME S | |
45 | ;pick a d irectory J ohn or Cha d or enter one | |
46 | N HFSDIR, FILENAME,P OP | |
47 | ;S HFSDIR =$$DEFDIR^ %ZISH() | |
48 | ; | |
49 | S HFSDIR= $$GETHFDIR () | |
50 | ; | |
51 | ;S FILENA ME="CHVAAC CESSNAMELI ST.TXT" | |
52 | S FILENAM E=$$GETFIL E() | |
53 | ; | |
54 | ; Read fi le | |
55 | ; | |
56 | K POP | |
57 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
58 | D OPEN^%Z ISH("READF ILE",HFSDI R,FILENAME ,"R") | |
59 | ; | |
60 | ;If can't open file for writi ne get xml error mes sage and q uit | |
61 | ; | |
62 | D CHKPOP^ CHMCRUT1(. ERRORS,POP ,"R") | |
63 | ; | |
64 | I +$G(ERR ORS(0))>0 D Q | |
65 | . D CLOS E^%ZISH("R EADFILE") | |
66 | . D CLEA N^CHMCRC10 (FILENAME, HFSDIR) | |
67 | ; | |
68 | N I,X | |
69 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
70 | U IO F I= 1:1 R X:DT IME Q:$$ST ATUS^%ZISH () D | |
71 | . S @CHN AMES@(I)=X | |
72 | D CLOSE^% ZISH("READ FILE") | |
73 | . | |
74 | W !!,"NAM ES LIST",! | |
75 | ZW @CHNAM ES | |
76 | W !! | |
77 | Q:$$ASK^P RSLIB00(1) | |
78 | W @IOF,!! ,"ACCESS P ROCESSING" | |
79 | S I=0 | |
80 | F S I=$O (@CHNAMES@ (I)) Q:I'> 0 D | |
81 | . S VAIE N=$$GETUSE R(@CHNAMES @(I)) | |
82 | . W !,VA IEN,": ",@ CHNAMES@(I ) | |
83 | . I VAIE N>0 D Q | |
84 | .. S $ P(@CHNAMES @(I),U,2)= VAIEN | |
85 | . S VAIE N=$$GETUSE RI(@CHNAME S@(I)) | |
86 | . W !,VA IEN,": ",@ CHNAMES@(I ) | |
87 | . I VAIE N>0 D Q | |
88 | .. S $ P(@CHNAMES @(I),U,2)= VAIEN | |
89 | ZW @CHNAM ES | |
90 | ; | |
91 | ;FINALLY AWARD THE SECONDARY MENU FOR C RM REMOTE PROCS | |
92 | ; | |
93 | ;D GIV2ND ^CHMCRZC8( VAIEN) | |
94 | ; | |
95 | ;K @CHNAM ES | |
96 | Q | |
97 | GETUSER(X) ; | |
98 | ;INPUT X : LOOKUP V ALUE IN 20 0 (MOST LI KELY NAME IN FORM LA ST,FIRST M I | |
99 | ; | |
100 | N Y,DIC | |
101 | S DIC="^V A(200," | |
102 | S DIC(0)= "MZ" | |
103 | D ^DIC | |
104 | ; | |
105 | Q Y | |
106 | GETUSERI(X ) ; | |
107 | ; | |
108 | N Y,DIC | |
109 | S DIC("A" )="Enter u ser (name) to give a ccess to: " | |
110 | S DIC="^V A(200," | |
111 | S DIC("B" )=X | |
112 | S DIC(0)= "AEQMZ" | |
113 | D ^DIC | |
114 | ; | |
115 | Q Y | |
116 | GETHFDIR() ; prompt for host f ile direct ory--eithe r John or Chad or le t user typ e in | |
117 | N DIR,X,Y ,DIRUT | |
118 | S DIR("B" )="J" | |
119 | S DIR(0)= "S^J:HAC_C ACHE$![HAC . DN S HEIGEJ.CRM 3];C:HAC_C ACHE$![HAC . DN S PETERC];E: Enter Anot her HFS Di rectory" | |
120 | S DIR("A" )="Select Host File or [E] to enter one" | |
121 | D ^DIR | |
122 | I $D(DIRU T) S RETUR N="" | |
123 | I Y="J" D | |
124 | . S RETURN=" HAC_CACHE$ :[HAC. DN S HEIGEJ.CRM 3]" | |
125 | E D | |
126 | . I Y="C " D | |
127 | .. S RETURN=" HAC_CACHE$ :[HAC. DN S PETERC]" | |
128 | . E D | |
129 | .. S R ETURN=$$TY PHFDIR() | |
130 | Q RETURN | |
131 | TYPHFDIR() | |
132 | N DIR,X,Y ,DIRUT,RET URN | |
133 | W !,"Comp lete the H FS spec wi th directo ry and sub directori es separat ed by [.]" | |
134 | S LEAD="H AC_CACHE$: [HAC." | |
135 | W !,"HFS SPEC: "_LE AD | |
136 | S DIR(0)= "FAr^10:79 ^K:'((X?.A N)!(X?.AN1 ""."".AN)) X" | |
137 | S DIR("A" )="Enter D IRs: " | |
138 | D ^DIR | |
139 | I $D(DIRU T) Q "" | |
140 | S RETURN= LEAD_Y_"]" | |
141 | Q RETURN | |
142 | GETFILE() ; | |
143 | N DIR,X,Y ,DIRUT,RET URN | |
144 | S DIR(0)= "FAr^2:79^ K:'((X?.AN )!(X?.AN1" "."".AN)) X" | |
145 | S DIR("A" )="Enter F ilename: " | |
146 | D ^DIR | |
147 | I $D(DIRU T) Q "" | |
148 | S RETURN= Y | |
149 | Q RETURN | |
150 | ; | |
151 | SPECATT ; | |
152 | N SPONATT ,OUTC,DFN | |
153 | ;p rompt wher e to start search | |
154 | ; | |
155 | D HDR | |
156 | S DONE=0 | |
157 | S DFN=+$$ GETSTART^C HMCRZ05() | |
158 | W ! ZW DF N W ! | |
159 | F S DFN= $O(^AHCHVA (DFN)) Q:D FN'>0!DONE D | |
160 | . S MATC H=0 | |
161 | . S SPON ATT="" | |
162 | . S SPON ATT=$$CDRL CK^CHTFLIB 4(DFN,"") | |
163 | . I SPON ATT D | |
164 | .. W ! !,"WHO: " ,DFN | |
165 | .. W ! ,"ATTENTIO N: ",$P(SP ONATT,U,2) | |
166 | .. S O UTC=OUTC+2 | |
167 | .; | |
168 | .; | |
169 | . I OUTC >(IOSL-4) S DONE=$$A SK^PRSLIB0 0(1) I 'DO NE D HDR | |
170 | Q | |
171 | HDR ; | |
172 | W @IOF,!! ,?10,$P($G (SBF),U,2) ," SEARCH RESULTS",! | |
173 | W ?5 F I= 1:1:($G(IO M)-10) W " =" | |
174 | S OUTC=4 | |
175 | Q | |
176 | DUPSPON ; search for benes wit h more tha n one spon sor | |
177 | N I,J | |
178 | S I=10000 0000 | |
179 | F S I=$O (^AHCHVA(" G",I)) Q:I '>0 D | |
180 | . S (JC,J )=0 | |
181 | . F S J= $O(^AHCHVA ("G",I,J)) Q:J'>0 D | |
182 | .. S JC= JC+1 | |
183 | . I JC>1 D | |
184 | .. W !," I: ",I,"-" | |
185 | .. W $O( ^AHCHVA("G ",I,0)) | |
186 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.