Produced by Araxis Merge on 2/19/2019 12:21:20 PM 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 | C:\AraxisMergeCompare\Pri_un\EPIP combined\PSO_7.0_503_PSX_2.0_82\PSO_7.0_503 Routines | PSO_7.0_503 - Routine VEXRX.docx | Fri Feb 1 12:28:11 2019 UTC |
2 | C:\AraxisMergeCompare\Pri_re\EPIP combined\PSO_7.0_503_PSX_2.0_82\PSO_7.0_503 Routines | PSO_7.0_503 - Routine VEXRX.docx | Tue Feb 12 19:54:56 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 572 |
Changed | 0 | 0 |
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 | VEXRX | |
2 | Before: | |
3 | VEXRX ; MUSKOGEE V AMC/GLD - AUDIOFAX S UBROUTINE - 6-21-94 ; 2/29/16 2:15pm | |
4 | ; ;7.0;OUTPA TIENT PHAR MACY;**197 ,328,313** ;JUN 1994; Build 1 | |
5 | ; | |
6 | ; Reference to ^ORAREN supported by IA #54 98 | |
7 | ; ;PERFORM M UMPS AUDIO FAX REFILL S BY CALLI NG ^PSOBBC | |
8 | ; | |
9 | ; THIS IS C OPY OF HOP 'S VEXRX P LUS MY TWO SETS | |
10 | ; | |
11 | ; This routi ne is for Outpatient version 7 only | |
12 | ; Modify Hi story: | |
13 | ; 06Jan200 4; IHS; @1 ; Add Rene wal Proces sing | |
14 | ; 30Apr200 4; IHS; @2 ; Add N fl ag for not renewable | |
15 | ; Feb 2004 ; BFD/PVAM C ; Add RE NFLG (used in later chk of glo bal) | |
16 | ; 25Jun200 4; BFD/PVA MC ; Add ' pass' of p rovider pa rameter & generic us | |
17 | er DUZ | |
18 | ; 09July20 04; BFD/PV AMC; Add c all to sen d mail mes sage to re newal mail | |
19 | group | |
20 | ; 03Aug200 4; BFD/PVA MC ; Add R ENFLG=0 to START bec ause no da ta in glob | |
21 | al cause c rash | |
22 | ; 10Aug 20 04; BFD/PV AMC; Add C N1T=0 to S TART & put in END+1 because ma | |
23 | il message not being sent | |
24 | ; 26Aug200 4; BFD/PVA MC; Add kt rs for msg to 'mgr' mail group | |
25 | ; 29Aug200 4; BFD/PVA MC; Add or der prob k t | |
26 | ; 27Jan200 6; @3; IHS ; Merge Ba y Pines ch anges with Portland Renewal co | |
27 | de | |
28 | ; Feb-May 2006 ; BFD /PVAMC; Ne w checks i n VEX3 and VEX4 caus es to skip | |
29 | renewal. Had to ad d new code to have r ecognized | |
30 | ; Apr-May 2006; BFD/ PVAMC; New code in V EX3 to hav e program recognize | |
31 | renewal re quest and not skip | |
32 | ; 24-July 2006; BFD/ PVAMC; Rep lace APUVE X call wit h APUVEX1 or APUVEX2 | |
33 | , as appro pirate. H ad to spli t APUVEX d ue to size problem f or SACC | |
34 | ; 05Dec 20 06; BFD/PV AMC; Repla ce APUVEX1 call with APUVEX be cause repo | |
35 | rts that r andom requ ests not b eing handl ed correct ly | |
36 | ; HA D TO REPLA CE APUVEX1 AND APUVE X2 CALLS B ECAUSE OF AN ERROR | |
37 | ; March, 2 009; JLC/V M replace APU calls with call to CPRS AP I | |
38 | ; Dec-2015 ; PBM/RMS; Set PSOBB C("DFLG")= 1 for Titr ation Rx's ($$TITRX^ | |
39 | PSOUTL(Rx) ="t") so u sers get t he prompt to continu e or stop processing . | |
40 | ; --------- ---------- ---------- ---------- ---------- ---------- ------- | |
41 | ---------- ------- | |
42 | START S PSOVEX=1 | |
43 | ; BFD/PVMAC 2-8-06 A dd renewal variable Set (2 lin es) | |
44 | N PATIEN,PR OVP,RENFLG ,RESULT,US R,TOTREN,R XNUM,TOTF, EMCNT,INCN T | |
45 | S RENFLG=0, CNT1=0,FBK TRDN=0,FBK TR=0,PTERM DN=0,PTERM =0,NPCPDN= 0,NPCP=0,U | |
46 | NSKTR=0,IN FPKTR=0,IN FPDNKTR=0, NRF=0,RFY= 0,MMCONT=0 ,PCONT=0,N RFLG=0,ORD P=0,ORDPDN | |
47 | =0 | |
48 | S HACT=0,HA CTDN=0,NPC PADN=0,NPC PA=0,NDINA CT=0,DINAC T=0,MMDAT= 0,DISDT=0, | |
49 | NDISDT=0 | |
50 | K ^TMP($J," ORAREN E") ,^TMP($J," ORAREN OC" ) S (EMCNT ,INCNT)=5, (TOTF,TOTR | |
51 | EN)=0 | |
52 | ; | |
53 | K PSOVEXI,P SOISITE,PS OVEXFL | |
54 | F PSOVX=0:0 S PSOVX=$ O(^PS(59,P SOVX)) Q:' PSOVX I $ P($G(^PS(5 9,PSOVX,"I | |
55 | ")),"^"),D T>$P($G(^( "I")),"^") S PSOVEXI (PSOVX)="" | |
56 | I $O(PSOVEX I(0)) W !, "Looking f or refill requests f or inactiv e Outpatie | |
57 | nt divisio ns..." F P SOVIN=0:0 S PSOVIN=$ O(^VEXHRX( 19080,PSOV IN)) Q:'PS OVIN S PS | |
58 | OVXLP="" F S PSOVXL P=$O(^VEXH RX(19080,P SOVIN,PSOV XLP)) Q:PS OVXLP="" D | |
59 | . S PSOISITE =$P($G(^PS RX(+$P(PSO VXLP,"-",2 ),2)),"^", 9) Q:$G(PS OVEXI(+$G( | |
60 | PSOISITE)) ) | |
61 | . I PSOISITE ,$D(PSOVEX I(PSOISITE )),$G(^VEX HRX(19080, PSOVIN,PSO VXLP))="" | |
62 | S PSOVEXI( PSOISITE)= 1,PSOVEXFL =1 | |
63 | I '$G(PSOVE XFL),$O(PS OVEXI(0)) W ".none f ound.",! | |
64 | I $G(PSOVEX FL) W !!," The follow ing Inacti ve Outpati ent sites have refil | |
65 | l requests :",! F PSO VX=0:0 S P SOVX=$O(PS OVEXI(PSOV X)) Q:'PSO VX I $G(P SOVEXI(PSO | |
66 | VX)) W !?5 ,$P($G(^PS (59,+$G(PS OVX),0))," ^") | |
67 | I $G(PSOVEX FL) K DIR W ! S DIR( 0)="E",DIR ("A")="Pre ss Return to Continu | |
68 | e, '^' to exit" D ^D IR W ! I Y '=1 G END | |
69 | D :'$D(PSOPA R) ^PSOLSE T G:'$D(PS OPAR) END | |
70 | W !!!?20,"D ivision: " _$P(^PS(59 ,PSOSITE,0 ),"^"),!! | |
71 | S PSOBBC1(" FROM")="RE FILL",PSOB BC("QFLG") =0,PSOBBC( "DFLG")=0 | |
72 | I '$D(^VEXH RX(19080,P SOINST)) S VEXANS="N " W !!?7,$ C(7),"Ther e are no t | |
73 | elephone r efills to process." G END | |
74 | D ASK^PSOBB C W:PSOBBC ("QFLG")=1 !?7,$C(7) ,"No telep hone refil ls were pr | |
75 | ocessed." G:PSOBBC(" QFLG")=1 E ND | |
76 | VEX W ! S DIR(" B")="YES", DIR("A")=" Process te lephone re fill reque sts at thi | |
77 | s time",DI R(0)="Y" D ^DIR K DI R S VEXANS ="N" I $G( DIRUT) S V EXPTRX="" G END | |
78 | G :Y=0 END S VEXPTRX=" " I Y=1 S VEXANS="Y" | |
79 | I VEXANS["Y " S DIR("B ")="YES",D IR("A")="P rocess tel ephone ref ills for a | |
80 | ll divisio ns",DIR(0) ="Y" D ^DI R K DIR S VEXANS2="S " S:Y=1 VE XANS2="M" I $G(DIRUT | |
81 | ) S VEXANS ="N" G END | |
82 | ; @3; Added Portland code to Ba y Pines | |
83 | S CNT1=10 ; BF D/PVMAC 7- 9-04 use t o indicate first tim e through | |
84 | for mail m sg build | |
85 | VEX6 I VEXANS["Y ",$G(VEXPT RX) D VEX5 ;MARK PRO CESSED NOD ES | |
86 | D VEX3 I $G (VEXANS)=" N" D ULK G END | |
87 | I $P(X,"-") '=PSOINST W !?7,$C(7 ),$C(7),$C (7),"Not f rom this i nstitution | |
88 | .",! D ULK G VEX6 | |
89 | ; @3; Add P ortland co de to Bay Pines | |
90 | I $L(RENEW) S RENEW=" " G VEX6 | |
91 | S (PSOBBC(" IRXN"),PSO BBC("OIRXN "))=$P(X," -",2) | |
92 | I $D(^PSRX( PSOBBC("IR XN"),0))'] "" W !,$C( 7),"Rx dat a is not o n file!",! | |
93 | D ULK G VEX6 | |
94 | I $P($G(^PS RX(PSOBBC( "IRXN"),"S TA")),"^") =13 W !,$C (7),"Rx ha s already | |
95 | been delet ed." D ULK G VEX6 | |
96 | I $G(PSOBBC ("DONE"))[ PSOBBC("IR XN")_"," W !,$C(7)," Rx has alr eady been | |
97 | entered." D ULK G VE X6 | |
98 | K X,Y D:PSO BBC("QFLG" ) PROCESSX ^PSOBBC | |
99 | S PSOSELSE= 0 I $G(PSO DFN)'=$P(^ PSRX(PSOBB C("IRXN"), 0),"^",2) S PSOSELSE | |
100 | =1 D PT^PS OBBC I $G( PSOBBC("DF LG")) K PS OSELSE D U LK G VEX6 | |
101 | I '$G(PSOSE LSE) D PTC ^PSOBBC I $G(PSOBBC( "DFLG")) K PSOSELSE D ULK G VE | |
102 | X6 | |
103 | K PSOSELSE D PROFILE^ PSORX1 ;S X="PPPPDA1 " X ^%ZOSF ("TEST") I S X=$$PD | |
104 | A^PPPPDA1( PSODFN) W !! ;;Refer ence to PP PPDA1 remo ved since PPP packag e has been | |
105 | retired. PBM/RMS 1 2-30-15 | |
106 | S PSOBBC("D ONE")=PSOB BC("IRXN") _"," D REF ILL^PSOBBC | |
107 | ; Titration Prescript ion - Not Processed (PSO*7*313 ) added 12 -30-15 PBM | |
108 | /RMS | |
109 | I $$TITRX^P SOUTL(PSOB BC("IRXN") )="t" S PS OBBC("DFLG ")=1 | |
110 | D ULK G VEX 6 | |
111 | ; | |
112 | ; BFD/648 4 -27-06 Ad d VEX3+3 a nd chk of vex648, VE X4+0 so no t skip ren | |
113 | ewal reque sts | |
114 | VEX3 K PSOBBC("I RXN"),VEXX FLAG F S VEXPTRX=$O (^VEXHRX(1 9080,PSOIN ST,VEXPTRX | |
115 | )) D Q:V EXANS="N"! ($G(VEXXFL AG)) | |
116 | . I VEXPTRX ="" S VEXA NS="N" Q | |
117 | . S VEXREN= 0,VEX648=0 ,VEXREN=$G (^VEXHRX(1 9080,PSOIN ST,VEXPTRX )) I VEXRE | |
118 | N]"" D BFD RNCHK | |
119 | . I '$D(^PS RX(+$P(VEX PTRX,"-",2 ),0)),VEX6 48=1 D VEX 5 Q ;SKIP S ERRONEOU | |
120 | S ENTRIES | |
121 | . ;I '$D(^P SRX(+$P(VE XPTRX,"-", 2),0)),^VE XHRX(19080 ,PSOINST,V EXPTRX)="" | |
122 | D VEX5,VE X12 Q ;SK IPS ERRONE OUS ENTRIE S | |
123 | VEX4 . I VEXANS[" Y" Q:VEX64 8=1 S X=P SOINST_"-" _$P(VEXPTR X,"-",2) ;SKIPS ENT | |
124 | RIES ALREA DY PROCESS ED AND FOR MATS VARIA BLE X (BFD /648 LINE) | |
125 | . ;I VEXANS[ "Y" Q:^VEX HRX(19080, PSOINST,VE XPTRX)'="" S X=PSOI NST_"-"_$P | |
126 | (VEXPTRX," -",2) ;SK IPS ENTRIE S ALREADY PROCESSED AND FORMAT S VARIABLE X (ORIG L | |
127 | INE) | |
128 | VEX10 . I VEXANS2[ "S",$D(^PS RX(+$P(VEX PTRX,"-",2 ),0)),PSOS ITE'=$P($G (^PSRX(+$P | |
129 | (VEXPTRX," -",2),2)), "^",9) Q | |
130 | . ;@3; Chec k at this point if t his is a r enewal req uest | |
131 | . D RENEWCH K I RENEW] "" S VEXXF LAG=1 Q | |
132 | . S VEXPSOR X=+$P($G(V EXPTRX),"- ",2) I VEX PSORX D PS OL^PSSLOCK (VEXPSORX) | |
133 | I '$G(PSO MSG) K VEX PSORX,PSOM SG Q | |
134 | . K PSOMSG S VEXXFLAG =1 | |
135 | Q | |
136 | ; --------- ---------- ---------- ---------- ---------- ---------- ------- | |
137 | ---------- ---- | |
138 | ; @3; Added Portland code to Ba y Pines | |
139 | ; LINES CALL ED TO MARK PROCESSED NODES | |
140 | ; LINES CALL ED TO MARK PROCESSED NODES | |
141 | ; PVMAC/BFD 2/04 Add RENFLG chk , If 1 the n renewal & global a lready set | |
142 | so skip | |
143 | ; PVMAC/BFD 8-26-04 Ad d RFY and NRF ktrs t o VEX5 and VEX12 | |
144 | ; PVMAC/BFD 8-26-04 Ad d NRFLG | |
145 | VEX5 ; | |
146 | ; Next stat ement is u sed by BFD /648 CHK P ROGRESS TH RU PROGRAM | |
147 | ; W !,"AT VE X5 and VEX XFLAG is " _VEXXFLAG | |
148 | I RENFLG=0 S ^VEXHRX( 19080,PSOI NST,VEXPTR X)=DT D ; MARKS NODE AS PROCES | |
149 | SED | |
150 | . I $G(PSOB BC("DFLG") ) D VEX12 ;FLAGS UNS UCCESSFUL ATTEMPTS T O REFILL. | |
151 | ; @3 | |
152 | I NRFLG=0,( RENFLG=0) S RFY=RFY+ 1 | |
153 | S NRFLG=0 | |
154 | Q | |
155 | VEX12 ; | |
156 | ; @3 | |
157 | S NRF=NRF+1 ,NRFLG=1 | |
158 | S $P(^VEXHR X(19080,PS OINST,VEXP TRX),U,2)= "NOT FILLE D" | |
159 | W !!,$C(7), "REFILL WA S NOT PROC ESSED! PL EASE TAKE APPROPRIAT E ACTION." | |
160 | ; PBM/RMS 12 -30-15 hel p text add ed and que stion phra sing updat ed | |
161 | S DIR("?",1 )="Answeri ng NO will abort the request a nd the rem aining ref | |
162 | ills will not be" | |
163 | S DIR("?",2 )="process ed. Answer ing YES wi ll continu e to proce ss the rem | |
164 | aining Tel ephone" | |
165 | S DIR("?")= "Refill Re quests. Th e option w ill need t o be run a gain to co | |
166 | ntinue pro cessing." | |
167 | W ! S DIR(" A")="Do yo u wish to continue p rocessing the remain ing refill | |
168 | requests" ,DIR(0)="Y " D ^DIR K DIR I Y'= 1 S VEXANS ="N" Q | |
169 | Q | |
170 | END D PROCESSX^ PSOBBC | |
171 | ; bfd/648 1 2-5-06 ; o ut all APU VEX1 and A PUVEX2 cal ls & un ; out all A | |
172 | PUVEX call s | |
173 | ; @3 | |
174 | ; SMT If VE XANS2="S" then we ar e only loo king at a single div ision and | |
175 | we add the division to the mai l subject. | |
176 | K XMY N XMD UZ,XMSUB,X MTEXT,XMT | |
177 | S XMDUZ="AU TO,RENEWAL ",XMY(DUZ) ="",XMY("G .AUTORENEW AL")="",XM SUB=$S($G( | |
178 | VEXANS2)[" S":$$GET1^ DIQ(59,PSO SITE,.06)_ " ",1:"")_ "REFILL TO TALS",XMTE XT="XMT(" | |
179 | S XMT(1,0)= "Refills P rocessed: "_RFY,XMT( 2,0)="Refi lls 'Not P rocessed': | |
180 | "_NRF | |
181 | S XMT(3,0)= " ",XMT(4, 0)="Renewa ls sent to provider: "_TOTREN | |
182 | S XMT(5,0)= "Renewals not sent t o provider : "_TOTF | |
183 | D ^XMD | |
184 | I $D(^TMP($ J)) K XMY N XMDUZ,XM SUB,XMTEXT D | |
185 | . S XMY(DUZ )="" | |
186 | . I $D(^TMP ($J,"ORARE N E")) S X MDUZ="AUTO ,RENEWAL", XMY("G.AUT ORENEWAL") | |
187 | ="",XMSUB= $S($G(VEXA NS2)["S":$ $GET1^DIQ( 59,PSOSITE ,.06)_" ", 1:"")_"REN EWAL REQUE | |
188 | STS NOT SE NT TO PROV IDERS",XMT EXT="^TMP( "_$J_",""O RAREN E"", " D ^XMD | |
189 | . I $D(^TMP ($J,"ORARE N OC")) S XMDUZ="AUT O,RENEWAL" ,XMY("G.AU TORENEWAL" | |
190 | )="",XMSUB =$S($G(VEX ANS2)["S": $$GET1^DIQ (59,PSOSIT E,.06)_" " ,1:"")_"RE NEWAL REQU | |
191 | ESTS WITH ORDER CHEC KS",XMTEXT ="^TMP("_$ J_",""ORAR EN OC""," D ^XMD | |
192 | K CNT1,GCNT ,MAFBFD,OR DP,ORDPDN, HACT,NDINA CT,DINACT, MMDAT,NDIS DT,DISDT | |
193 | ; PVMA C/BFD 7-9- 04 kill va riables us ed for mai l message AUDIORENEW AL, 8-29-0 | |
194 | 4 Add orde r ktr | |
195 | K MAFBKT,FB KTRDN,FBKT R,PTERMDN, PTERM,NPCP DN,NPCP,UN SKTR,INFPK TR,INFPDNK | |
196 | TR,NRF,RFY ,MMCONT,PC ONT,NRFLG ; PVMAC/BF D 8-26-04 variables used for m ail messag | |
197 | e AUDIOCRM GR | |
198 | K HACTDN,NP CPADN,NPCP A,VEX648,V EXREN | |
199 | I $P($G(^PS (59,+$G(PS OSITE),"I" )),"^"),DT >$P($G(^(" I")),"^") D FINAL^PS | |
200 | OLSET W !! ,"Your Out patient Si te paramet ers have b een delete d because you select | |
201 | ed an",!," inactive O utpatient Site!",! | |
202 | ; VMP OIFO B AY PINES;P SO*7*197 | |
203 | K DIR,PSOBB C,PSOBBC1, PSOVIN,PSO ISITE,PSOV EXFL,PSOVX LP,PSOVEX, PSOVX,PSOV | |
204 | EXI,VEXANS ,VEXANS2,V EXPTRX,VEX XFLAG,VEXP SORX,X,Y,P SORX | |
205 | Q | |
206 | VEXALT ; Menu actio n entry po int to ale rt user | |
207 | S VEXCNT=0, VEXPTRN="" | |
208 | I '$G(PSOIN ST) S PSOI NST="000" I $D(^DD(" SITE",1)) S PSOINST= ^(1) | |
209 | G :'$D(^VEXH RX(19080,P SOINST)) V EXEND | |
210 | F S VEXPTR N=$O(^VEXH RX(19080,P SOINST,VEX PTRN)) Q:V EXPTRN="" D | |
211 | . I ^VEXHRX( 19080,PSOI NST,VEXPTR N)="" S VE XCNT=VEXCN T+1 | |
212 | W :VEXCNT !! ,$C(7),VEX CNT_" Tele phone Refi lls To Pro cess" | |
213 | I $G(VEXDIV ) D VEXDIV | |
214 | VEXEND K VEXCNT,VE XPTRN | |
215 | Q | |
216 | VEXDIV ; | |
217 | N VEXLIST,V EXRX1,VEXR X2,VEXD1,V EXD2,VEXSI TE,VEXVIST A | |
218 | S VEXVISTA= +$$SITE^VA SITE | |
219 | K VEXLIST S VEXLIST(" NULL")=0,V EXRX1=0 | |
220 | F S VEXRX1 =$O(^VEXHR X(19080,VE XVISTA,VEX RX1)) Q:VE XRX1="" D | |
221 | . Q:^VEXHRX( 19080,VEXV ISTA,VEXRX 1)'="" | |
222 | . S VEXRX2=$ P(VEXRX1," -",2),VEXD 1=$P($G(^P SRX(VEXRX2 ,2)),U,9) | |
223 | . I $D(^PS(5 9,VEXD1,0) ) D Q | |
224 | . .S VEXD2=$ P(^PS(59,V EXD1,0),U, 1) | |
225 | . .S:'$D(VEX LIST(VEXD2 )) VEXLIST (VEXD2)=0 | |
226 | . .S VEXLIST (VEXD2)=VE XLIST(VEXD 2)+1 | |
227 | . S VEXLIST( "NULL")=VE XLIST("NUL L")+1 | |
228 | I $D(VEXLIS T) S VEXSI TE=0 F S VEXSITE=$O (VEXLIST(V EXSITE)) Q :VEXSITE=" | |
229 | " I VEXSI TE'="NULL" W !,?5,VE XSITE_": " ,?30,VEXLI ST(VEXSITE ) | |
230 | I $D(VEXLIS T("NULL")) ,VEXLIST(" NULL")>0 W !,?5,"NUL L"_":",?30 ,VEXLIST(" | |
231 | NULL") | |
232 | K VEXLIST | |
233 | Q | |
234 | ULK ; | |
235 | I '$G(VEXPS ORX) Q | |
236 | D PSOUL^PSS LOCK(VEXPS ORX) | |
237 | K VEXPSORX | |
238 | Q | |
239 | ; --------- ---------- ---------- ---------- ---------- ---------- ------- | |
240 | ---------- ---- | |
241 | RENEWCHK ; Checks ^V EXHRX node for renew al informa tion | |
242 | ; Renewal c heck | |
243 | ; @1 | |
244 | ; PVMAC/BFD 2/04 Add RENFLG (us ed in late r chk of g lobal) | |
245 | ; PVMAC/BFD 6-25-04 A dd 'pass' of provide r paramete r & generi c user DUZ | |
246 | ; PVMAC/BFD 7-9-04 Add changes s o can send mail mess age to ren ewal mail | |
247 | group | |
248 | ; PVMAC/BFD 8-10-04 Re move REN s et because changing to 0 every time thro | |
249 | ugh | |
250 | ; PVMAC/BFD 8-27-04 Se t REN beca use that d etermines if set DT (now use | |
251 | CNT1 for m m) | |
252 | ; PVMAC/BFD 9-10-04 Ad just CNT1 ktr for ei ther 0 or 1 result s o can send | |
253 | mm from A PUVEX | |
254 | S RENFLG=0 | |
255 | S RENEW=$P( ^VEXHRX(19 080,PSOINS T,VEXPTRX) ,"^",5),PR OVP=$P(^VE XHRX(19080 | |
256 | ,PSOINST,V EXPTRX),"^ ",8),USR=$ P(^VEXHRX( 19080,PSOI NST,VEXPTR X),"^",7) | |
257 | ; @2 | |
258 | I RENEW="U" !(RENEW="I ")!(RENEW= "N") D | |
259 | . N RESULT | |
260 | . S RXNUM=+ $P(VEXPTRX ,"-",2),PA TIEN=+$P(V EXPTRX,"-" ) | |
261 | . D RENEW^O RAREN(.RES ULT,PATIEN ,RXNUM,PRO VP,RENEW) | |
262 | . S RENFLG= 1 | |
263 | . S $P(^VEX HRX(19080, PSOINST,VE XPTRX),"^" )=DT | |
264 | . S $P(^VEX HRX(19080, PSOINST,VE XPTRX),"^" ,6)=RESULT | |
265 | . I RESULT= 0 S CNT1=C NT1+1 | |
266 | . I RESULT= 1 S CNT1=C NT1+1,TOTR EN=TOTREN+ 1 | |
267 | . I RESULT' =1 S TOTF= TOTF+1 | |
268 | . Q | |
269 | Q | |
270 | BFDRNCHK ; 648/BFD 4 -27-06 The re is data in global - is it d ate or ren ewal reque | |
271 | st | |
272 | ; Troublesh ooting - p ut this on next line after =1 | |
273 | ; W !,"ther e is no ^ in VEXREN "_VEXREN_" so must j ust be a d ate. Set | |
274 | Vex648 to 0" | |
275 | I VEXREN'[" ^" S VEX64 8=1 | |
276 | ; Troublesh ooting - p ut on next line afte r =1 | |
277 | ; W !,"VEXR EN is "_VE XREN_" thi s check is for somet hing in pi ece 1 of ] | |
278 | and sets VEX648=1" | |
279 | I VEXREN["^ " I $P(VEX REN,"^",1) ]"" S VEX6 48=1 | |
280 | ; Troublesh ooting - p ut on next line afte r =0 | |
281 | ; W !,"VEXR EN is "_VE XREN_" thi s check is for nothi ng in piec e 1 of '] | |
282 | and set VE X648 to 0" | |
283 | I VEXREN["^ " I $P(VEX REN,"^",1) ']"" S VEX 648=0 | |
284 | ; W !,"in BF DRNCHK and set VEX64 8 = "_VEX6 48 | |
285 | ; W !,"if ve x648 is 0 then no da te but ren ewal" | |
286 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.