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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSODSPL

Package: Outpatient Pharmacy

Routine: PSODSPL


Information

PSODSPL ;IHS/DSD/JCM - DISPLAY RX PROFILE TO SCREEN ;03/07/93 18:11

Source Information

Source file <PSODSPL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
CMOP 1 ^PSXOPUTL  
Outpatient Pharmacy 1 HD^PSODDPR2  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSOBUILD  PSOCAN1  PSODGDG1  PSONRXN  PSORXL  PSOVER  PSOVER1  

Entry Points

Name Comments DBIA/ICR reference
START ;
END
SHOW ;
SHOWX
HD ;
DISPL
EOF
STA ;
EOJ ;
PEN ;

External References

Name Field # of Occurrence
^DIR START+1, SHOW+13, EOF
HD^PSODDPR2 SHOW+4, SHOW+14
^PSXOPUTL DISPL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient has no prescriptions",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: !!,?61,"ISSUE",?68,"LAST",?73,"REF DAY",!,?4,"RX #",?17,"DRUG",?54,"QTY",?58,"ST",?62,"DATE",?68,"FILL",?73,"REM",?77,"SUP"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPL+0
Function Call: WRITE
  • Prompt: $J(PSOCNT,2)
  • Line Location: DISPL+0
Function Call: WRITE
  • Prompt: ?3,$P(^PSRX(+PSODATA,0),"^")_$S($G(^PSRX(+PSODATA,"IB")):"$",1:"")
  • Line Location: DISPL+2
Function Call: WRITE
  • Prompt: ?17,$P(PSODRUG,"^"),?PSOQTLZ,$P(^PSRX(+PSODATA,0),"^",7)
  • Line Location: DISPL+3
Function Call: WRITE
  • Prompt: ?17,$P(PSODRUG,"^")
  • Line Location: DISPL+4
Function Call: WRITE
  • Prompt: ?58,STATL
  • Line Location: DISPL+16
Function Call: WRITE
  • Prompt: $G(PSOCMOP)
  • Line Location: DISPL+16
Function Call: WRITE
  • Prompt: ?61,$E(PSOID,4,5)_"-"_$E(PSOID,6,7)
  • Line Location: DISPL+17
Function Call: WRITE
  • Prompt: ?67,$S(+PSOLF:$E(PSOLF,4,5)_"-"_$E(PSOLF,6,7),1:" - "),$P(PSOLF,"^",2)
  • Line Location: DISPL+20
Function Call: WRITE
  • Prompt: ?74,$J($P(PSODATA,"^",6),2)
  • Line Location: DISPL+21
Function Call: WRITE
  • Prompt: ?78,$J($P(PSODATA,"^",8),2)
  • Line Location: DISPL+22
Function Call: WRITE
  • Prompt: !?PSOQTLZ,"Qty: ",$P(^PSRX(+PSODATA,0),"^",7)
  • Line Location: DISPL+23
Function Call: WRITE
  • Prompt: !
  • Line Location: STA+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+3
Function Call: WRITE
  • Prompt: PSOSTA
  • Line Location: STA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: STA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PEN+2
Function Call: WRITE
  • Prompt: $J(PSOCNT,2)
  • Line Location: PEN+2
Function Call: WRITE
  • Prompt: ?3,$P(PSODRUG,"^")
  • Line Location: PEN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PEN+5
Routine Call
  • DIR
  • Line Location:
    • START+1
    • SHOW+13
    • EOF

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" DISPL+7
^%ZOSF("XY" HD+2
^PSDRUG("AQ" DISPL+6, PEN+1
^PSRX - [#52] SHOW+11, DISPL+1, DISPL+2, DISPL+3, DISPL+6, DISPL+13, DISPL+14, DISPL+15, DISPL+17, DISPL+18
, DISPL+19, DISPL+23

Label References

Name Line Occurrences
DISPL SHOW+11
END START+1
EOF PEN+8
EOJ START+2, END
HD SHOW+5, EOF
PEN SHOW+6
SHOW START+2
SHOWX SHOW+13
STA SHOW+5, EOF

Naked Globals

Name Field # of Occurrence
^(0 SHOW+11
^(3 DISPL+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DISPL+8~*!
DIR START+1!, SHOW+13!, EOF!
DIR("A" START+1*, SHOW+13*
DIR(0 START+1*, SHOW+13*, EOF*
DIROUT SHOWX!, EOF!
DIRUT SHOWX!, EOF!
DTOUT SHOWX!, EOF!
DUOUT SHOWX!, EOF!
DX HD+2*!
DY HD+2*!
>> I STA+3*, STA+4*
>> INPAT SHOW+13
IOM STA+3
IOSL HD+2, EOF
LINE HD+3!, HD+4*!
PSCMOPR PEN+1~*, PEN+7
>> PSCNT SHOW+5*
PSOCMOP DISPL+5~, DISPL+6*, DISPL+9*, DISPL+16
PSOCNT SHOW+1~, SHOW+3*, SHOW+5, SHOW+6*, SHOW+11*, SHOWX*, DISPL, EOF, EOJ+1!, PEN+2
PSOCT SHOW+1~, SHOW+5*
PSODATA SHOW+1~, SHOW+6*, SHOW+8, SHOW+9, SHOW+10, SHOW+11, DISPL+1, DISPL+2, DISPL+3, DISPL+6
, DISPL+8, DISPL+12, DISPL+13, DISPL+14, DISPL+15, DISPL+17, DISPL+18, DISPL+19, DISPL+21, DISPL+22
, DISPL+23, DISPL+24!, EOJ+1!, PEN+1, PEN+4, PEN+7, PEN+8!
PSODLQT SHOW+1~, SHOW+4, SHOW+11, SHOW+13, HD+1, EOF*, STA+1
PSODQLZ DISPL+1*, DISPL+3, DISPL+23, DISPL+24!, PEN+4*, PEN+5, PEN+8!
PSODRUG SHOW+1~, SHOW+3*, SHOW+5*, SHOW+6, SHOW+8, SHOW+9, DISPL+1, DISPL+3, DISPL+4, EOF
, PEN+4, PEN+5
PSOHI EOF*, EOJ+1!
PSOID DISPL+17*, DISPL+24!, EOJ+1!, PEN+8!
PSOLF DISPL+17*, DISPL+18*, DISPL+19*, DISPL+20, DISPL+24!, EOJ+1!, PEN+8!
PSOLO1 EOJ+1!
>> PSOOPT DISPL, PEN+2
PSOPENFL SHOW+2*, HD+3, EOJ+1!, PEN+3*
PSOQFLG SHOW+1~, SHOW+3*, SHOW+5, EOF*, STA+1, EOJ+1!
PSOQTLZ DISPL+3*, DISPL+23*, DISPL+24!, PEN+4*, PEN+8!
>> PSOSD START+1
>> PSOSD( SHOW+5, SHOW+6, EOF
PSOSTA SHOW+1~, SHOW+3*, SHOW+5*, SHOW+6, SHOW+7, EOF, STA+2*, STA+3, STA+4, STA+5*
PSOX DISPL+18*, DISPL+24!
PSXZ DISPL+10!
PSXZ( DISPL+9
PSXZ("L" DISPL+9
STA DISPL+11*, DISPL+12, DISPL+16!
STATL DISPL+5~, DISPL+12*, DISPL+13*, DISPL+14*, DISPL+15*, DISPL+16
>> STP STA+3*, STA+4
>> STR STA+3*
X DISPL+7~*!
ZSTA STA+2*, STA+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All