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. ;3 June 2019 10:45:03

Source Information

Source file <PSODIR1.m>

Call Graph

Call Graph

Call Graph Total: 18

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 2 $$HTFM^XLFDT  $$UP^XLFSTR  
Inpatient Medications 1 $$ISCLOZ^PSJCLOZ  
Pharmacy Data Management 1 $$MXDAYSUP^PSSUTIL1  
Registration 1 ELIG^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

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
PTSTAT(PSODIR) ;
PTSTATEN
TPBB ;
TPBSC ;
PTSTATX ;
SIG(PSODIR) ;
SIGX ;
QTY(PSODIR) ;
QTYA
QTYX ;
COPIES(PSODIR) ;
COPIESX ;
DAYS(PSODIR) ;
DAYSEN
DAYSX ;
REFILL(PSODIR) ;
REFILLX ;
REFOR ;
DIR ;
DIRX ;
JUMP ;
JUMPX ;
SIGOK ;review and decide on oerr sig
PSTPB

External References

Name Field # of Occurrence
^DIC TPBB+4, REFILL+10, JUMP+2
^DIE TPBSC+3
$$GET1^DIQ DAYSEN+8, DAYSEN+11, DAYSEN+14
^DIR PTSTATEN+5, QTYA+18, DAYSEN+28, DIR+3, SIGOK+4
$$ISCLOZ^PSJCLOZ DAYSEN+11
RFRSET^PSODIR2 REFILL+29
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+48
$$CSDS^PSOSIGDS DAYSEN+6
$$MAXNUMRF^PSOUTIL DAYSEN+37, REFILL+22
$$MXDAYSUP^PSSUTIL1 DAYSEN+5
ELIG^VADPT TPBB+1
$$HTFM^XLFDT DAYSEN+15
$$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: !,$C(7)," Greater than Maximum dose of "_PSODRUG("MAXDOSE")_" per day"
  • Line Location: QTYA+15
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - QTY cannot be increased",!
  • Line Location: QTYA+17
Function Call: WRITE
  • Prompt: !
  • Line Location: QTYA+18
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Days Supply cannot be increased",!
  • Line Location: DAYSEN+27
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYSEN+28
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid number of REFILLS for amount of DAYS SUPPLY.",!,"REFILL EDIT FORCED."
  • Line Location: DAYSEN+38
Function Call: WRITE
  • Prompt: !,VALMSG,!
  • Line Location: REFILL+26
Function Call: WRITE
  • Prompt: !,"No refills allowed on Schedule 2 drugs...",!
  • Line Location: REFILL+31
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
  • DIC
  • Line Location:
    • TPBB+4
    • REFILL+10
    • JUMP+2
Routine Call
  • DIE
  • Line Location:
    • TPBSC+3
Routine Call
  • DIR
  • Line Location:
    • PTSTATEN+5
    • QTYA+18
    • DAYSEN+28
    • DIR+3
    • SIGOK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(55 - [#55] 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+36
^PSDRUG - [#50] QTYA+3
^PSRX - [#52] QTYA+8, REFILL+5, REFILL+25
^TMP($J DAYSEN+13
^XTMP("PSO4D-" DAYSEN+15

Label References

Name Line Occurrences
COPIESX COPIES+4
DAYSEN QTYA+15, DAYSEN+24
DAYSX DAYSEN+23, DAYSEN+26
DIR SIG+6, QTYA+10, COPIES+4, DAYSEN+23, REFILL+43
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+38
REFILLX REFILL+24, REFILL+31, REFILL+43, 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+13, DAYSEN+18, DAYSEN+37, DAYSEN+40, DAYSEN+41, DAYSEN+45, REFILL+22, REFILL+24
, REFILL+34
>> COPY REFILL+40
CSDRUG DAYSEN+2~, DAYSEN+3*, DAYSEN+9*
D0 TPBSC+3!
DA TPBSC+3*!, PTSTATX+1!, DIR+3!
DEA REFILLX+2!
DFDAYSUP DAYSEN+2~, DAYSEN+18*, DAYSEN+19*, DAYSEN+20, DAYSEN+21
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+28~, REFILL+15!, DIR+3!, SIGOK+4!
DIR("?" DAYSEN+22*, REFILL+41*, REFILL+42*
DIR("A" PTSTATEN+5*, QTYA+1*, QTYA+2*, QTYA+3*, QTYA+18*, DAYSEN+22*, DAYSEN+28*, REFILL+38*, SIGOK+4*
DIR("B" SIG+4*, SIG+5*, QTYA+9*, COPIES+3*, DAYSEN+21*, REFILL+40*, SIGOK+4*
DIR(0 PTSTATEN+5*, SIG+3*, QTYA+3*, QTYA+18*, COPIES+2*, DAYSEN+17*, DAYSEN+28*, REFILL+38*, DIR+2, SIGOK+4*
DIROUT DIR+4, DIR+5, DIRX+1!
DIRUT DIR+5, DIRX+1!, SIGOK+4!
DR PTSTATEN!, TPBSC+3*
DTOUT TPBB+6, TPBB+11, PTSTATX+1!, DIR+4, DIRX+1!, SIGOK+4!
DUOUT TPBB+6, TPBB+11, PTSTATX+1!, DIR+4, DIRX+1!, SIGOK+4!
I REFILL+5~*
MXDAYSUP DAYSEN+2~, DAYSEN+3*, DAYSEN+5*, DAYSEN+13, DAYSEN+19, DAYSEN+20
>> N TPBB+2*
NEWTOTDS DAYSEN+2~
>> OR0 TPBSC+1, QTYA+16, DAYSEN+26, REFILL+14, JUMP+1
PSDAYSUP DAYSEN+2~, DAYSEN+13*, DAYSEN+16*, DAYSEN+17, DAYSEN+22
PSOCS REFILLX+2!
PSODAYS REFILL+1~, REFILL+2*, REFILL+22
>> PSODFN PTSTATEN+8, TPBSC+2, TPBSC+3, TPBSC+4, DAYSEN+11, DAYSEN+13, DAYSEN+15, DAYSEN+36
PSODIR PTSTAT~, SIG~, QTY~, QTYA+5, COPIES~, DAYS~, DAYSEN+38, DAYSEN+48, REFILL~
PSODIR("# OF REFILLS" , DAYSEN+7, DAYSEN+39, DAYSEN+40*, DAYSEN+42*, DAYSEN+43*, DAYSEN+44*, DAYSEN+46*, DAYSEN+47*, REFILL+27*
, REFILL+31*, REFILL+40, REFILL+44*, REFILLX+1*
PSODIR("COPIES" COPIES+3, COPIES+5*
PSODIR("CS" REFILL+17*, REFILL+19*, REFILL+31
PSODIR("DAYS SUPPLY" , QTYA+14, DAYSEN+18, DAYSEN+20, DAYSEN+26, DAYSEN+29, DAYSEN+30, DAYSEN+31*, DAYSEN+42, DAYSEN+43
DAYSEN+44, DAYSEN+46, DAYSEN+47, REFILL+2, REFILL+34
PSODIR("DFLG" PTSTATEN+4*, TPBB+5*, TPBB+11*, SIG+1, SIG+6, QTYA+13, QTYA+14, COPIES+4, DAYSEN+23, REFILL+43
DIR+1*, DIR+4*, DIR+5*, JUMP+1*, SIGOK+4*
PSODIR("FIELD" PTSTATEN*, SIG+6, QTYA+13, COPIES+4, DAYSEN+23, REFILL+27*, REFILL+31*, REFILL+43, DIR+1*, JUMP+3*
PSODIR("FLD" DAYSEN+39*, JUMP+3
PSODIR("IRXN" REFILL+25
PSODIR("N# RE F" , DAYSEN+40*, DAYSEN+42*, DAYSEN+43*, DAYSEN+44*, DAYSEN+46*, DAYSEN+47*, REFILL+40, REFILL+44*, REFILLX+1
PSODIR("OLD D AYS SUPPLY" , DAYSEN+30*
PSODIR("PATIE NT STATUS" , PTSTATEN+1!, PTSTATEN+9, TPBB+7*, TPBB+8!, TPBB+18*, DAYSEN+35, REFILL+9, REFILL+12*, REFILL+22
PSODIR("PTST NODE" , TPBB+7*, TPBB+8!, TPBB+19*, DAYSEN+6, DAYSEN+18, REFILL+7, REFILL+11*, REFILL+13*
PSODIR("QTY" QTYA+4!, QTYA+6*, QTYA+7!, QTYA+8*, QTYA+9, QTYA+16, QTYA+19*, DAYSEN+24, DAYSEN+48, DAYSEN+49*
DAYSEN+50!
PSODIR("RX0" DAYSEN+7, DAYSEN+35
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+11, DAYSEN+14, DAYSEN+33, DAYSEN+37, REFILL+22
>> PSODRUG("MAXDOSE" QTYA+14, QTYA+15, DAYSEN+24, DAYSEN+25
>> PSODRUG("SIG" SIG+4
>> PSODRUG("UNIT" QTYA+3
>> PSOEDIT TPBB+10, JUMP+1
>> PSOFDR TPBSC+1, SIG+1, QTYA+16, DAYSEN+26
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+29
>> PSONEW1 JUMP+4
>> PSONEW3 JUMP+6
PSOPSDIR TPBB+5~*, TPBB+6*, TPBB+8*
PSOPSUPA TPBB+5~*, TPBB+6*
>> PSOQTY QTYA+5
>> PSOREF1 JUMP+5
PSOREGN DAYSEN+2~, DAYSEN+10*, DAYSEN+11*, DAYSEN+13, DAYSEN+14
>> PSORENW("OIRXN" QTYA+8
>> PSORENW3 JUMP+7
PSORFLS DAYSEN~, DAYSEN+7*, DAYSEN+33, DAYSEN+37
>> PSORX("PATIEN T STATUS" , PTSTATEN+1!, PTSTATEN+3*, PTSTATEN+4, PTSTATEN+8*, TPBB+7*, TPBB+8!, TPBB+18*
>> PSORXED("IRXN" REFILL+5
>> PSOTITRX REFILL+40
>> 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+38, REFILL+40, REFILLX+1, REFILLX+2!
PTST DAYSEN+34~, DAYSEN+35*, DAYSEN+36*, DAYSEN+37
QTYHLD QTYA+4!*, QTYA+6, QTYA+7!, DAYSEN+48!*, DAYSEN+49, DAYSEN+50!
RFL QTYA~
RFTT REFILL+5*, REFILL+38, REFILL+40, REFILLX+2!
>> RX0 REFILL+9
RXIEN QTYA~
S2DS DAYSEN+2~*, DAYSEN+6*, DAYSEN+18
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+1!, SIGX+1!, QTYX+1!, COPIESX+1!, DAYSX+1!, REFILL+8~, REFILL+9*, REFILLX+2!, DIR+4
DIR+6, JUMP+2*, JUMPX+1*
Y TPBB+6, TPBB+7, TPBB+8, TPBB+12, TPBB+14, TPBB+15!, TPBB+16*, TPBB+18, TPBSC+3, PTSTATX+1!
, SIG+7, SIGX+1!, QTYA+12*, QTYA+14, QTYA+16, QTYA+19, QTYX+1!, COPIES+5, COPIESX+1!, DAYSEN+24
DAYSEN+26, DAYSEN+29, DAYSEN+31, DAYSEN+33, DAYSEN+37, DAYSX+1!, REFILL+8~, REFILL+11, REFILL+12, REFILL+44
REFILLX+2!, 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