Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSORENW0

Package: Outpatient Pharmacy

Routine: PSORENW0


Information

PSORENW0 ;IHS/DSD/JCM-renew main driver continuation ;2/8/06 8:40am

Source Information

Source file <PSORENW0.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Outpatient Pharmacy 15 CAN^PSOCAN  NOOR^PSOCAN4  DOSCK^PSODOSUT  (POST,SET)^PSODRG  DCORD^PSONEW2  DE^PSOORFI2  (EN,VER1)^PSOORNE4  ^PSOPTPST  
PROFILE^PSOREF1  INST2^PSORENW  (,KLIB,OERR,STOP)^PSORENW1  (DSPLY,INIT)^PSORENW3  EN^PSORN52  (CHKPRV,NEXT,RENFDT,RNPSOSD,STATUS,SUSDATEK)^PSOUTIL  CLEAN^PSOVER1  
VA FileMan 5 NOW^%DTC  FILE^DICN  ^DIE  ^DIK  ^DIR  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSOBBC  PSOORCPY  PSOORRNW  PSORENW  PSORENW4  

Entry Points

Name Comments DBIA/ICR reference
RETRY
NEWPT ;
RXNX
CAN ;
EDITX
DIR ;
RXN ;
DRUG ;
FILDATE ;
CHECK ;
CDOSE ;Validate Dosage field on Renewal, Copy, Edit
CHKDIV ;
DIRX
CHKDIVX
PROCESSX
PROCESS ;
EN(PSORENW)
DSPL
EDIT ;
NEWPTX
ANQ
CHECKX
DELETE ;

External References

Name Field # of Occurrence
NOW^%DTC ANQ
FILE^DICN ANQ+2
^DIE ANQ+4
^DIK DELETE+3
^DIR PROCESSX+2, CHECK+10, CHECK+22, CHECK+37, RETRY+6, EDIT+4, DIR+3, EN+2
CAN^PSOCAN CAN+5
NOOR^PSOCAN4 CHECK+23, CHECK+38
DOSCK^PSODOSUT DRUG+7
POST^PSODRG DRUG+7
SET^PSODRG DRUG+6
DCORD^PSONEW2 DSPL+8
DE^PSOORFI2 CHECK+23, CHECK+38
EN^PSOORNE4 EDIT+6
VER1^PSOORNE4 DSPL+4
^PSOPTPST NEWPT+3
PROFILE^PSOREF1 NEWPT+4
INST2^PSORENW PROCESS+2
^PSORENW1 PROCESS+1
KLIB^PSORENW1 EN+6
OERR^PSORENW1 PROCESS+11
STOP^PSORENW1 PROCESS+11
DSPLY^PSORENW3 DSPL
INIT^PSORENW3 EDIT+6
EN^PSORN52 DSPL+6
CHKPRV^PSOUTIL CHECK+42
NEXT^PSOUTIL FILDATE+2
RENFDT^PSOUTIL FILDATE+4
RNPSOSD^PSOUTIL DSPL+7
STATUS^PSOUTIL CHECK+18
SUSDATEK^PSOUTIL PROCESSX+3
CLEAN^PSOVER1 PROCESSX+1, PROCESSX+6
PSOL^PSSLOCK EN+2
PSOUL^PSSLOCK PROCESSX+1, EN+7
FULL^VALM1 EDIT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot renew Rx # ",$P(PSORENW("RX0"),"^")
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot renew Rx # "_PSORENW("ORX #")_", Max number of renewals reached."
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !?5,$C(7),"RX # ",$P(PSORENW("RX0"),"^")," is for (",$P(^PS(59,$P(PSORENW("RX2"),"^",9),0),"^"),") division."
  • Line Location: CHKDIV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(PSOMSG,"^",2)
  • Line Location: EN+3
Routine Call
  • DIE
  • Line Location:
    • ANQ+4
Routine Call
  • DIR
  • Line Location:
    • PROCESSX+2
    • CHECK+10
    • CHECK+22
    • CHECK+37
    • RETRY+6
    • EDIT+4
    • DIR+3
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.5 - [#52.5] Classic Fileman Calls
^PS(52.52 - [#52.52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" FILDATE+5
^PS(50.7 - [#50.7] DRUG+4
^PS(52.5 - [#52.5] DELETE+2
^PS(52.52 - [#52.52] ANQ, ANQ+5*
^PS(59 - [#59] CHKDIV+2
^PSDRUG - [#50] PROCESS+6, CHECK+20, CHECK+35, DRUG+2, DRUG+3
^PSRX - [#52] DSPL+9, CHECK+20, CHECK+35, DRUG+4, EN+4, CDOSE+4, CDOSE+7, CDOSE+8
^PSRX("B" DSPL+9, RETRY
^XUSEC("PSORPH" DSPL+4

Label References

Name Line Occurrences
ANQ ANQ
CAN DSPL+8
CDOSE CHECK+5
CHECK PROCESS+7
CHECKX CHECK+1, CHECK+6, CHECK+28, CHECK+40
CHKDIV CHECK+40
CHKDIVX CHKDIV+1, CHKDIV+3
DIR CHKDIV+4
DRUG PROCESS+9
DSPL DSPL+3, DSPL+5
EDIT DSPL+1
EDITX EDIT+5
FILDATE PROCESS+8
NEWPT PROCESS+3
NEWPTX NEWPT+3
PROCESS EN+5
PROCESSX PROCESS+7, PROCESS+9, PROCESS+10, DSPL, DSPL+2, DSPL+4
RETRY RETRY
RXN PROCESS+10

Naked Globals

Name Field # of Occurrence
^("OR1" DRUG+4
^("SIG" CDOSE+8
^(0 CDOSE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ANQ, ANQ+1, ANQ+6!
ACOM CHECK+13!, CHECK+14!, CHECK+19, CHECK+32*, CHECK+39!
ANQDATA ANQ, ANQ+5, ANQ+6!
ANQREM ANQ+6!
BBRN DSPL+9*, PROCESSX+4!
BBRN1 DSPL+9*, PROCESSX+4!
>> BINGCRT DSPL+9*
>> BINGRTE DSPL+9*
DA ANQ+2!, ANQ+3*, ANQ+4!, DELETE+1!, DELETE+2*, CAN+1!, CAN+2*, CAN+4, CAN+6!
DD ANQ+1!, ANQ+2!
DIC ANQ+1*, ANQ+2!, DELETE+3!
DIC(0 ANQ+1*
DIE ANQ+3*, ANQ+4!
DIK DELETE+1!, DELETE+2*, DELETE+3!
DIR PROCESSX+2!, CHECK+10!, CHECK+13!, CHECK+14!, RETRY+6!, EDIT+1!, EDIT+4!, DIR+3!, EN+2!
DIR("?" PROCESSX+2*, CHECK+10*, RETRY+6*, EDIT+3*, DIR+2*, EN+2*
DIR("A" PROCESSX+2*, CHECK+10*, CHECK+21*, CHECK+36*, RETRY+6*, EDIT+3*, DIR+1*, EN+2*
DIR("B" CHECK+21*, CHECK+36*, EDIT+2*, DIR+1*
DIR(0 PROCESSX+2*, CHECK+10*, CHECK+21*, CHECK+36*, RETRY+6*, EDIT+2*, DIR+1*, EN+2*
DIRUT CHECK+13!, CHECK+14!, CHECK+22, CHECK+23, CHECK+37, CHECK+38, EDIT+4, EDITX!, DIR+4, DIRX!
DLAYGO ANQ+1*, ANQ+2!
DO ANQ+1!, ANQ+2!
DR ANQ+2!, ANQ+3*, ANQ+4!
DRG CHECK+13~, CHECK+20*, CHECK+21, CHECK+35*, CHECK+36
DT FILDATE+5
DTOUT PROCESSX+2!, EDITX!, DIRX!
DUOUT PROCESSX+2!, CHECK+13!, CHECK+14!, EDITX!, DIRX!
DUZ DSPL+4
DUZ("AG" EDIT+2
MSG CAN+1!, CAN+3*, CAN+6!
NEWDOSE DSPL+5!
>> OR0 CHECK+34
>> ORN PROCESSX+1
PHI PROCESSX+4!
>> POERR PROCESSX, CHECK+3, CHECK+9, CHECK+27, CHECK+32, RETRY+7
>> POERR("DFLG" PROCESSX+1*
PRC PROCESSX+4!
PS52 ANQ+3~*, ANQ+5
PSCAN CAN+6!
PSCAN( CAN+4*
>> PSEXDT EDIT+2
PSOBARCD EN+5*!
>> PSOBBC("OIRXN" EN+1
PSOBBCLK PROCESSX*, EN+5!, EN+7, EN+8!
PSODFN PROCESS+3, CHECK+1, NEWPT+1~, NEWPT+2*
PSODRUG PROCESSX+4!
PSODRUG("OI" DRUG+4*
PSODRUG("OIN" DRUG+4*
PSOEDT DSPL!, PROCESSX+5!, EDITX*
>> PSOFDR PROCESS+11, DSPL+1, RETRY+2, RETRY+5, RETRY+7, CAN+3
PSOLM DSPL!, PROCESSX+5!
>> PSOLST( PROCESSX+1
PSOMSG EN+2!, EN+3, EN+5!
>> PSONEW("STATUS" DRUG+10, DRUG+11!
>> PSONOOR DRUG+8*
PSONOSIG CHECK+5~, CHECK+6, CDOSE+4*, CDOSE+9*
PSOOCPRX CHECK+5~*, CDOSE+2, CDOSE+4, CDOSE+7, CDOSE+8
PSOOKZ CDOSE+3~, CDOSE+6*, CDOSE+7*, CDOSE+8*, CDOSE+9
PSOOLP CDOSE+3~, CDOSE+4*, CDOSE+7*
PSOOLPD CHECK+5~, CHECK+8, CHECK+9, CDOSE+4*
PSOOLPF CHECK+5~, CHECK+6, CHECK+8, CHECK+9, CDOSE+4*, CDOSE+5
>> PSOORRNW CHECK+25
>> PSOPAR DSPL+4
>> PSOQFLG NEWPT+1*, NEWPT+3*
PSOQUIT PROCESSX+4!, EDIT+6!
PSOREA CHECK+17*, CHECK+18!
PSORENRX EN+1*, EN+2, EN+4, EN+7, EN+8!
PSORENW DSPL+4, DSPL+6, PROCESSX+3, PROCESSX+4!, FILDATE+2, FILDATE+4, EDIT+6, EN~
PSORENW("DFLG" PROCESS+4*, PROCESS+7, PROCESS+9, PROCESS+10, DSPL, DSPL+2, DSPL+4, PROCESSX, PROCESSX+5*, CHECK+2*
, CHECK+7*, CHECK+14, CHECK+15*, CHECK+26*, CHECK+28, CHECK+33*, CHECK+40, CHKDIV+3*, DRUG+7*, RETRY
, RETRY+7*, EDIT+4*, EDIT+5, EDIT+6*, DIR+4*, NEWPT+3*
PSORENW("DRUG IEN" , PROCESS+6, DRUG+2
PSORENW("ENT" DSPL+5
PSORENW("FILL DATE" , PROCESS+4*, FILDATE+3, FILDATE+5*
PSORENW("FROM" PROCESSX+5
PSORENW("IRXN" ANQ+3, FILDATE+1*, FILDATE+6!
PSORENW("MAIL/WINDOW" PROCESS+5*
PSORENW("NOO" DRUG+8
PSORENW("NRX #" , DSPL+9, RXN+3*, RETRY, RETRY+1, RETRY+2, RETRY+3, RETRY+4, RETRY+5, RETRY+8
, RETRY+9*
PSORENW("OIRXN" CHECK+5, CHECK+14, CHECK+20, CHECK+35, DRUG+4, FILDATE+1, DELETE+2, CAN+2
PSORENW("OLD FILL DATE" , PROCESSX+3
PSORENW("ORX #" , PROCESS+6, CHECK+30, CHECK+31, CHECK+32, RXN+2, RXN+3, RETRY+1, RETRY+3, RETRY+4
, RETRY+5, RETRY+7, CAN+4
PSORENW("PSODFN" PROCESS+3, CHECK+1, NEWPT+2
PSORENW("QFLG" DSPL+1*, DSPL+3, PROCESSX+5*, EDITX*
PSORENW("RX0" CHECK+2, CHECK+3, CHECK+8, CHECK+9, CHECK+16, CHECK+26, CHECK+27, CHKDIV+2
PSORENW("RX2" CHKDIV+1, CHKDIV+2
PSORENW("RX3" FILDATE+3
PSORENW("STA" CHECK+17
PSORENW("STATUS" DRUG+10*
PSORENWD DRUG+2*, DRUG+11!
>> PSORERR PROCESSX*
PSORNALL EDIT+6*!
>> PSORNSPD CHECK+10, CHECK+11
>> PSORNW("FILL DATE" , PROCESS+4, FILDATE+5
>> PSORNW("MAIL/WINDOW" PROCESS+5
PSORWRIT PROCESSX~
>> PSORX("BAR CO DE" , PROCESS+3, CHECK+1
>> PSORX("CLINIC" PROCESSX+4!
>> PSORX("DFLG" PROCESS+9, PROCESSX, DRUG+3, DRUG+5*, DRUG+7
>> PSORX("FILL D ATE" , FILDATE+5*
>> PSORX("FN" DSPL+2, DSPL+3, PROCESSX+4!, EDIT+6!, EDIT+7
>> PSORX("INTERVENE" DRUG+9!
>> PSORX("PROVID ER NAME" , PROCESSX+4!
PSOS CHECK+13~*, CHECK+14*
>> PSOSD CHECK+14
>> PSOSD( CHECK+14
>> PSOSITE CHKDIV+1
PSOSTAT CHECK+17*, CHECK+18!
>> PSOSYS CHKDIV+3, CHKDIV+4
>> PSOWRIT PROCESSX*
PSOX CHECK+13*, CHECK+14*, CHECK+28!, RXN+1!, RXN+2*, RXN+3, RETRY+8*, RETRY+9, RXNX!
PSOY CHECK+13*, CHECK+14*, CHECK+17, CHECK+25, CHECK+28!, DRUG+1!, DRUG+2*, DRUG+3, DRUG+11!
PSOY(0 DRUG+2*
REA CAN+1!, CAN+2*, CAN+6!
>> SPEED CHECK+32
>> VALMBCK PROCESSX+2*, CHECK+3*, CHECK+9*, CHECK+27*, CHECK+32*, RETRY+7*, EDITX*
>> VALMSG CHECK+3*, CHECK+9*, CHECK+27*, CHECK+32*, DRUG+5*, RETRY+2*, RETRY+5*, RETRY+7*
X ANQ+1*, ANQ+6!, EDIT+1!, EDITX!, DIRX!
Y ANQ+3, ANQ+6!, CHECK+22, CHECK+37, FILDATE+5*!, EDIT+1!, EDIT+6, EDITX!, DIR+4, DIRX!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All