32. EPMO Open Source Coordination Office Redaction File Detail Report

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.

32.1 Files compared

# 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

32.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 572
Changed 0 0
Inserted 0 0
Removed 0 0

32.3 Comparison options

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

32.4 Active regular expressions

No regular expressions were active.

32.5 Comparison detail

  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