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. ;7 Jan 2020 16:58:09

Source Information

Source file <PSODIR1.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 10 EXPDT^PSOCLO1  RFRSET^PSODIR2  REFOR^PSODIR3  JUMP^PSONEW1  JUMP^PSONEW3  JUMP^PSOREF1  JUMP^PSORENW3  QTY^PSOSIG  
$$CSDS^PSOSIGDS  $$MAXNUMRF^PSOUTIL  
VA FileMan 4 (,$$FIND1)^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$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: 14

Package Total Caller Graph
Outpatient Pharmacy 14 PSOBKDED  PSODDPR5  PSODRG  PSODRGN  PSOERXU4  PSONEW1  PSONEW3  PSOORCPY  
PSOORED7  PSOOREDT  PSOORNW1  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
$$FIND1^DIC DAYSEN+18
^DIE TPBSC+3
$$GET1^DIQ DAYSEN+8, DAYSEN+11, DAYSEN+14, DAYSEN+17, DAYSEN+18
^DIR PTSTATEN+5, QTYA+21, DAYSEN+32, DIR+3, SIGOK+4
$$ISCLOZ^PSJCLOZ DAYSEN+11, DAYSEN+55
EXPDT^PSOCLO1 DAYSEN+55
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+52
$$CSDS^PSOSIGDS DAYSEN+6
$$MAXNUMRF^PSOUTIL DAYSEN+41, REFILL+22
$$MXDAYSUP^PSSUTIL1 DAYSEN+5
ELIG^VADPT TPBB+1
$$DT^XLFDT DAYSEN+18
$$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+18
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - QTY cannot be increased",!
  • Line Location: QTYA+20
Function Call: WRITE
  • Prompt: !
  • Line Location: QTYA+21
Function Call: WRITE
  • Prompt: !!,"Digitally Signed Order - Days Supply cannot be increased",!
  • Line Location: DAYSEN+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DAYSEN+32
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid number of REFILLS for amount of DAYS SUPPLY.",!,"REFILL EDIT FORCED."
  • Line Location: DAYSEN+42
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
  • DIC
  • Line Location:
    • DAYSEN+18
Routine Call
  • DIE
  • Line Location:
    • TPBSC+3
Routine Call
  • DIR
  • Line Location:
    • PTSTATEN+5
    • QTYA+21
    • DAYSEN+32
    • DIR+3
    • SIGOK+4

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
COPIESX COPIES+4
DAYSEN QTYA+18, DAYSEN+28
DAYSX DAYSEN+27, DAYSEN+30
DIR SIG+6, QTYA+13, COPIES+4, DAYSEN+27, REFILL+43
DIRX DIR+2, DIR+4, DIR+5, DIR+6
JUMP TPBB+10, DIR+7
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+17
QTYX QTYA+16, QTYA+17, QTYA+19
REFILL DAYSEN+42
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, QTYA+11, DAYSEN+13, DAYSEN+22, DAYSEN+41, DAYSEN+44, DAYSEN+45, DAYSEN+49, DAYSEN+55
, 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+22*, DAYSEN+23*, DAYSEN+24, DAYSEN+25
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+21~, COPIES+1!, DAYSEN!, DAYSEN+32~, REFILL+15!, DIR+3!, SIGOK+4!
DIR("?" DAYSEN+26*, REFILL+41*, REFILL+42*
DIR("A" PTSTATEN+5*, QTYA+1*, QTYA+2*, QTYA+3*, QTYA+11!, QTYA+21*, DAYSEN+26*, DAYSEN+32*, REFILL+38*, SIGOK+4*
DIR("B" SIG+4*, SIG+5*, QTYA+9*, COPIES+3*, DAYSEN+25*, REFILL+40*, SIGOK+4*
DIR(0 PTSTATEN+5*, SIG+3*, QTYA+3*, QTYA+21*, COPIES+2*, DAYSEN+21*, DAYSEN+32*, 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+23, DAYSEN+24
>> N TPBB+2*
NEWTOTDS DAYSEN+2~
>> OR0 TPBSC+1, QTYA+19, DAYSEN+30, REFILL+14, JUMP+1
PSDAYSUP DAYSEN+2~, DAYSEN+13*, DAYSEN+20*, DAYSEN+21, DAYSEN+26
PSOCLODT DAYSEN+17~, DAYSEN+18*
PSOCLZN DAYSEN+17~*, DAYSEN+18
PSOCS REFILLX+2!
PSODAYS REFILL+1~, REFILL+2*, REFILL+22
>> PSODFN PTSTATEN+8, TPBSC+2, TPBSC+3, TPBSC+4, QTYA+11, DAYSEN+11, DAYSEN+13, DAYSEN+15, DAYSEN+17, DAYSEN+40
PSODIR PTSTAT~, SIG~, QTY~, QTYA+5, COPIES~, DAYS~, DAYSEN+42, DAYSEN+52, DAYSEN+55, REFILL~
PSODIR("# OF REFILLS" , DAYSEN+7, DAYSEN+43, DAYSEN+44*, DAYSEN+46*, DAYSEN+47*, DAYSEN+48*, DAYSEN+50*, DAYSEN+51*, 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 OLD" , DAYSEN+34*, SUPPLY" , QTYA+17, DAYSEN+22, DAYSEN+24, DAYSEN+30, DAYSEN+33, DAYSEN+34, DAYSEN+35*
, DAYSEN+46, DAYSEN+47, DAYSEN+48, DAYSEN+50, DAYSEN+51, REFILL+2, REFILL+34
PSODIR("DFLG" PTSTATEN+4*, TPBB+5*, TPBB+11*, SIG+1, SIG+6, QTYA+16, QTYA+17, COPIES+4, DAYSEN+27, REFILL+43
, DIR+1*, DIR+4*, DIR+5*, DIR+6*, JUMP+1*, SIGOK+4*
PSODIR("FIELD" PTSTATEN*, SIG+6, QTYA+16, COPIES+4, DAYSEN+27, REFILL+27*, REFILL+31*, REFILL+43, DIR+1*, JUMP+3*
PSODIR("FLD" DAYSEN+43*, JUMP+3
PSODIR("IRXN" REFILL+25
PSODIR("N# RE F" , DAYSEN+44*, DAYSEN+46*, DAYSEN+47*, DAYSEN+48*, DAYSEN+50*, DAYSEN+51*, REFILL+40, REFILL+44*, REFILLX+1
PSODIR("PATIE NT STATUS" , PTSTATEN+1!, PTSTATEN+9, TPBB+7*, TPBB+8!, TPBB+18*, DAYSEN+39, REFILL+9, REFILL+12*, REFILL+22
PSODIR("PTST NODE" , TPBB+7*, TPBB+8!, TPBB+19*, DAYSEN+6, DAYSEN+22, REFILL+7, REFILL+11*, REFILL+13*
PSODIR("QTY" QTYA+4!, QTYA+6*, QTYA+7!, QTYA+8*, QTYA+9, QTYA+19, QTYA+22*, DAYSEN+28, DAYSEN+52, DAYSEN+53*
, DAYSEN+54!
PSODIR("RX0" DAYSEN+7, DAYSEN+39
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+37, DAYSEN+41, DAYSEN+55
, REFILL+22
>> PSODRUG("MAXDOSE" QTYA+17, QTYA+18, DAYSEN+28, DAYSEN+29
>> PSODRUG("SIG" SIG+4
>> PSODRUG("UNIT" QTYA+3
>> PSOEDIT TPBB+10, JUMP+1
>> PSOFDR TPBSC+1, SIG+1, QTYA+19, DAYSEN+30
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+33
>> 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+37, DAYSEN+41
>> 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!
PSOYSIEN DAYSEN+17~, DAYSEN+18*
PTST DAYSEN+38~, DAYSEN+39*, DAYSEN+40*, DAYSEN+41
QTYHLD QTYA+4!*, QTYA+6, QTYA+7!, DAYSEN+52!*, DAYSEN+53, DAYSEN+54!
RFL QTYA~
RFTT REFILL+5*, REFILL+38, REFILL+40, REFILLX+2!
>> RX0 REFILL+9
RXIEN QTYA~
S2DS DAYSEN+2~*, DAYSEN+6*, DAYSEN+22
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, DIR+7
>> 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, DIR+7, 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+15*, QTYA+17, QTYA+19, QTYA+22, QTYX+1!, COPIES+5, COPIESX+1!, DAYSEN+28
, DAYSEN+30, DAYSEN+33, DAYSEN+35, DAYSEN+37, DAYSEN+41, 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