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 |  Local Variables |  All
Print Page as PDF
Routine: PSODIR1

Package: Outpatient Pharmacy

Routine: PSODIR1


Information

PSODIR1 ;IHS/DSD - ASKS DATA FOR RX ORDER ENTRY CONT. ;5/18/10 2:28pm

Source Information

Source file <PSODIR1.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 9 RFRSET^PSODIR2  REFOR^PSODIR3  JUMP^PSONEW1  JUMP^PSONEW3  JUMP^PSOREF1  JUMP^PSORENW3  QTY^PSOSIG  $$CSDS^PSOSIGDS  
$$MAXNUMRF^PSOUTIL  
VA FileMan 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$UP^XLFSTR  
Pharmacy Data Management 1 $$MXDAYSUP^PSSUTIL1  
Registration 1 ELIG^VADPT  

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: 13

Package Total Caller Graph
Outpatient Pharmacy 13 PSOBKDED  PSODDPR5  PSODRG  PSODRGN  PSOERXU4  PSONEW1  PSONEW3  PSOORCPY  
PSOORED7  PSOOREDT  PSOORNW2  PSORENW3  PSORENW4  

Entry Points

Name Comments DBIA/ICR reference
TPBSC ;
SIGOK ;review and decide on oerr sig
TPBB ;
DIR ;
REFOR ;
DAYSX
REFILL(PSODIR) ;
PSTPB ;
SIG(PSODIR) ;
COPIES(PSODIR) ;
PTSTAT(PSODIR) ;
QTYA
REFILLX
PTSTATEN
DIRX
JUMP ;
QTYX
SIGX
COPIESX
QTY(PSODIR) ;
DAYS(PSODIR) ;
JUMPX
PTSTATX
DAYSEN

External References

Name Field # of Occurrence
^DIC TPBB+4, REFILL+10, JUMP+2
^DIE TPBSC+3
$$GET1^DIQ DAYSEN+8
^DIR PTSTATEN+5, QTYA+18, DAYSEN+21, DIR+3, SIGOK+4
RFRSET^PSODIR2 REFILL+30
REFOR^PSODIR3 REFOR+1
JUMP^PSONEW1 JUMP+4
JUMP^PSONEW3 JUMP+6
JUMP^PSOREF1 JUMP+5
JUMP^PSORENW3 JUMP+7
QTY^PSOSIG QTYA+5, DAYSEN+41
$$CSDS^PSOSIGDS DAYSEN+6
$$MAXNUMRF^PSOUTIL DAYSEN+30, REFILL+22
$$MXDAYSUP^PSSUTIL1 DAYSEN+5
ELIG^VADPT TPBB+1
$$UP^XLFSTR PTSTATEN+3, TPBB+8, TPBB+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Could not find a 'NON-VA' Patient Status in the RX PATIENT STATUS file (#53)!"
  • Line Location: PTSTATEN+4
Function Call: WRITE
  • Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"")
  • Line Location: TPBB+1
Function Call: WRITE
  • Prompt: !,?10,$P(VAEL(1,N),"^",2)
  • Line Location: TPBB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TPBB+5
Function Call: WRITE
  • Prompt: $C(7)," Required"
  • Line Location: TPBB+12
Function Call: WRITE
  • Prompt: !!,"Cannot select 'NON-VA' Rx Patient Status!",!
  • Line Location: TPBB+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QTYA+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYSEN+21
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid number of REFILLS for amount of DAYS SUPPLY.",!,"REFILL EDIT FORCED."
  • Line Location: DAYSEN+31
Function Call: WRITE
  • Prompt: !,VALMSG,!
  • Line Location: REFILL+26
Function Call: WRITE
  • Prompt: !,"No refills allowed on Schedule 2 drugs...",!
  • Line Location: REFILL+32
Function Call: WRITE
  • Prompt: !,"SIG: "
  • Line Location: SIGOK+2
Function Call: WRITE
  • Prompt: !,"New orders entered through this option must have a Patient Status of 'NON-VA'!",!
  • Line Location: PSTPB+1
Routine Call
  • DIE
  • Line Location:
    • TPBSC+3
Routine Call
  • DIC
  • Line Location:
    • TPBB+4
    • REFILL+10
    • JUMP+2
Routine Call
  • DIR
  • Line Location:
    • PTSTATEN+5
    • QTYA+18
    • DAYSEN+21
    • DIR+3
    • SIGOK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" TPBSC+2
^PS(53 - [#53] PTSTATEN+2, PTSTATEN+3, PTSTATEN+8, TPBB+8, TPBB+15
^PS(55 - [#55] PTSTATEN+8, TPBSC+2, TPBSC+4, DAYSEN+29
^PSDRUG - [#50] QTYA+3
^PSRX - [#52] QTYA+8, REFILL+5, REFILL+25

Label References

Name Line Occurrences
COPIESX COPIES+4
DAYSEN QTYA+15, DAYSEN+17
DAYSX DAYSEN+16, DAYSEN+19
DIR SIG+6, QTYA+10, COPIES+4, DAYSEN+16, REFILL+39
DIRX DIR+2, DIR+4, DIR+5
JUMP TPBB+10, DIR+6
JUMPX JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
PSTPB PTSTATEN+4, TPBB+5
PTSTATEN TPBB+5, TPBB+12, TPBB+15
PTSTATX PTSTATEN+4, TPBB+5, TPBB+10, TPBB+11, TPBSC+1, TPBSC+2
QTYA QTYA+14
QTYX QTYA+13, QTYA+14, QTYA+16
REFILL DAYSEN+31
REFILLX REFILL+24, REFILL+32, REFILL+39, REFOR+2
REFOR REFILL+14
SIGOK SIG+1
SIGX SIG+1, SIG+6
TPBB PTSTATEN+6
TPBSC TPBB+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLOZPAT QTYA+1, QTYA+2, DAYSEN+10, DAYSEN+11, DAYSEN+15, DAYSEN+30, DAYSEN+33, DAYSEN+34, DAYSEN+38, REFILL+22
, REFILL+24
>> COPY REFILL+36
CSDRUG DAYSEN+2~, DAYSEN+3*, DAYSEN+9*
D0 TPBSC+3!
DA TPBSC+3*!, PTSTATX!, DIR+3!
DEA REFILLX+1!
DFDAYSUP DAYSEN+2~, DAYSEN+11*, DAYSEN+12*, DAYSEN+13, DAYSEN+14
DIC PTSTATEN!, TPBB+4*!, SIG+2!, QTYA!, COPIES+1!, DAYSEN!, REFILL+10*!, REFILL+15!, DIR+3!, JUMP+2*!
DIC("A" TPBB+3*
DIC("B" PTSTATEN+3*, PTSTATEN+8*, PTSTATEN+9*
DIC(0 TPBB+4*, REFILL+10*, JUMP+2*
DIE PTSTATEN!, TPBSC+3*!, DIR+3!
DIR PTSTATEN+5!, SIG+2!, QTYA!, QTYA+18~, COPIES+1!, DAYSEN!, DAYSEN+21~, REFILL+15!, DIR+3!, SIGOK+4!
DIR("?" DAYSEN+15*, REFILL+37*, REFILL+38*
DIR("A" PTSTATEN+5*, QTYA+1*, QTYA+2*, QTYA+3*, QTYA+18*, DAYSEN+15*, DAYSEN+21*, REFILL+34*, SIGOK+4*
DIR("B" SIG+4*, SIG+5*, QTYA+9*, COPIES+3*, DAYSEN+14*, REFILL+36*, SIGOK+4*
DIR(0 PTSTATEN+5*, SIG+3*, QTYA+3*, QTYA+18*, COPIES+2*, DAYSEN+10*, DAYSEN+21*, REFILL+34*, DIR+2, SIGOK+4*
DIROUT DIR+4, DIR+5, DIRX!
DIRUT DIR+5, DIRX!, SIGOK+4!
DR PTSTATEN!, TPBSC+3*
DTOUT TPBB+6, TPBB+11, PTSTATX!, DIR+4, DIRX!, SIGOK+4!
DUOUT TPBB+6, TPBB+11, PTSTATX!, DIR+4, DIRX!, SIGOK+4!
I REFILL+5~*
MXDAYSUP DAYSEN+2~, DAYSEN+3*, DAYSEN+5*, DAYSEN+10, DAYSEN+12, DAYSEN+13, DAYSEN+15
>> N TPBB+2*
NEWTOTDS DAYSEN+2~
>> OR0 TPBSC+1, QTYA+16, DAYSEN+19, REFILL+14, JUMP+1
PSOCS REFILLX+1!
PSODAYS REFILL+1~, REFILL+2*, REFILL+22
>> PSODFN PTSTATEN+8, TPBSC+2, TPBSC+3, TPBSC+4, DAYSEN+29
PSODIR PTSTAT~, SIG~, QTY~, QTYA+5, COPIES~, DAYS~, DAYSEN+31, DAYSEN+41, REFILL~
PSODIR("# OF REFILLS" , DAYSEN+7, DAYSEN+32, DAYSEN+33*, DAYSEN+35*, DAYSEN+36*, DAYSEN+37*, DAYSEN+39*, DAYSEN+40*, REFILL+27*
, REFILL+32*, REFILL+36, REFILL+40*, REFILLX*
PSODIR("COPIES" COPIES+3, COPIES+5*
PSODIR("CS" REFILL+17*, REFILL+19*, REFILL+32
PSODIR("DAYS SUPPLY" , QTYA+14, DAYSEN+11, DAYSEN+13, DAYSEN+19, DAYSEN+22, DAYSEN+23, DAYSEN+24*, DAYSEN+35, DAYSEN+36
, DAYSEN+37, DAYSEN+39, DAYSEN+40, REFILL+2
PSODIR("DFLG" PTSTATEN+4*, TPBB+5*, TPBB+11*, SIG+1, SIG+6, QTYA+13, QTYA+14, COPIES+4, DAYSEN+16, REFILL+39
, DIR+1*, DIR+4*, DIR+5*, JUMP+1*, SIGOK+4*
PSODIR("FIELD" PTSTATEN*, SIG+6, QTYA+13, COPIES+4, DAYSEN+16, REFILL+27*, REFILL+32*, REFILL+39, DIR+1*, JUMP+3*
PSODIR("FLD" DAYSEN+32*, JUMP+3
PSODIR("IRXN" REFILL+25
PSODIR("N# RE F" , DAYSEN+33*, DAYSEN+35*, DAYSEN+36*, DAYSEN+37*, DAYSEN+39*, DAYSEN+40*, REFILL+36, REFILL+40*, REFILLX
PSODIR("OLD D AYS SUPPLY" , DAYSEN+23*
PSODIR("PATIE NT STATUS" , PTSTATEN+1!, PTSTATEN+9, TPBB+7*, TPBB+8!, TPBB+18*, DAYSEN+28, REFILL+9, REFILL+12*, REFILL+22
PSODIR("PTST NODE" , TPBB+7*, TPBB+8!, TPBB+19*, DAYSEN+6, DAYSEN+11, REFILL+7, REFILL+11*, REFILL+13*
PSODIR("QTY" QTYA+4!, QTYA+6*, QTYA+7!, QTYA+8*, QTYA+9, QTYA+16, QTYA+19*, DAYSEN+17, DAYSEN+41, DAYSEN+42*
, DAYSEN+43!
PSODIR("RX0" DAYSEN+7, DAYSEN+28
PSODIR("SIG" SIG+1, SIG+5, SIG+7*, SIGOK+5!
>> PSODRUG("DEA" DAYSEN+8*, DAYSEN+9, REFILL+18, REFILL+19, REFILL+24, REFILL+25, REFILL+26
>> PSODRUG("IEN" QTYA+3, DAYSEN+4, DAYSEN+5, DAYSEN+6, DAYSEN+8, DAYSEN+26, DAYSEN+30, REFILL+22
>> PSODRUG("MAXDOSE" QTYA+14, QTYA+15, DAYSEN+17, DAYSEN+18
>> PSODRUG("SIG" SIG+4
>> PSODRUG("UNIT" QTYA+3
>> PSOEDIT TPBB+10, JUMP+1
>> PSOFDR TPBSC+1, SIG+1, QTYA+16, DAYSEN+19
PSOFNDFL PTSTATEN+1~, PTSTATEN+2*, PTSTATEN+3*
PSOFNDPS PTSTATEN+1~, PTSTATEN+2*, PTSTATEN+3
PSOFNDRX PTSTATEN+1~, PTSTATEN+3*
PSOFNDX TPBB+13~, TPBB+15*!, TPBB+17!
PSOFNDXX TPBB+13~, TPBB+15*!, TPBB+17!
PSOFNDXY TPBB+13~, TPBB+14*, TPBB+15!, TPBB+16, TPBB+17!
PSOFNDYY TPBB+13~, TPBB+14*, TPBB+15!, TPBB+16, TPBB+17!
PSOFNDZZ TPBB+5~, TPBB+8*
>> PSOFROM PTSTATEN+1, PTSTATEN+4, PTSTATEN+6, TPBB+5, TPBB+9, TPBB+15
>> PSOLOKED REFILL+25
>> PSONEW REFILL+4
>> PSONEW("FLD" DAYSEN+22
>> PSONEW1 JUMP+4
>> PSONEW3 JUMP+6
PSOPSDIR TPBB+5~*, TPBB+6*, TPBB+8*
PSOPSUPA TPBB+5~*, TPBB+6*
>> PSOQTY QTYA+5
>> PSOREF1 JUMP+5
>> PSORENW("OIRXN" QTYA+8
>> PSORENW3 JUMP+7
PSORFLS DAYSEN~, DAYSEN+7*, DAYSEN+30
>> PSORX("PATIEN T STATUS" , PTSTATEN+1!, PTSTATEN+3*, PTSTATEN+4, PTSTATEN+8*, TPBB+7*, TPBB+8!, TPBB+18*
>> PSORXED("IRXN" REFILL+5
>> PSOTITRX REFILL+36
>> PSOTPBFG PTSTATEN+1, PTSTATEN+4, PTSTATEN+6, TPBB+5, TPBB+9, TPBB+15
PSOX PTSTATEN+7~, PTSTATEN+8*, REFILL+1~, REFILL+15!, REFILL+22*, REFILL+34, REFILL+36, REFILLX, REFILLX+1!
PTST DAYSEN+27~, DAYSEN+28*, DAYSEN+29*, DAYSEN+30
QTYHLD QTYA+4!*, QTYA+6, QTYA+7!, DAYSEN+41!*, DAYSEN+42, DAYSEN+43!
RFL QTYA~
RFTT REFILL+5*, REFILL+34, REFILL+36, REFILLX+1!
>> RX0 REFILL+9
RXIEN QTYA~
S2DS DAYSEN+2~*, DAYSEN+6*, DAYSEN+11
SIG SIG+7!, SIGOK+3*
SIG( SIGOK+3
SIG(0 SIGOK+1
SIGOK SIG+1, SIG+7*, SIGOK+1*, SIGOK+2!, SIGOK+5*
>> SPEED QTYA+6, QTYA+8, DIR+5
U TPBB+10, DIR+6
>> VAEL(1 TPBB+1, TPBB+2
>> VAEL(3 TPBB+1
>> VALMSG REFILL+26*
X TPBB+10, PTSTATX!, SIGX!, QTYX!, COPIESX!, DAYSX!, REFILL+8~, REFILL+9*, REFILLX+1!, DIR+4
, DIR+6, JUMP+2*, JUMPX*
Y TPBB+6, TPBB+7, TPBB+8, TPBB+12, TPBB+14, TPBB+15!, TPBB+16*, TPBB+18, TPBSC+3, PTSTATX!
, SIG+7, SIGX!, QTYA+12*, QTYA+14, QTYA+16, QTYA+19, QTYX!, COPIES+5, COPIESX!, DAYSEN+17
, DAYSEN+19, DAYSEN+22, DAYSEN+24, DAYSEN+26, DAYSEN+30, DAYSX!, REFILL+8~, REFILL+11, REFILL+12, REFILL+40
, REFILLX+1!, DIR+4, JUMP+3, SIGOK+5
Y(0 TPBB+7, TPBB+14, TPBB+16*, TPBB+19, REFILL+11
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 |  Local Variables |  All