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

Package: Drug Accountability

Routine: PSAPSI2


Information

PSAPSI2 ;BIR/LTL-IV Dispensing (All Drugs) ;7/23/97

Source Information

Source file <PSAPSI2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA Fileman 3 ^%DT  (COMMA,NOW)^%DTC  ^DIR  
Drug Accountability 2 ^PSADA  PSAWARN^PSAPSI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA IV ALL DRUGS  

Entry Points

Name Comments DBIA/ICR reference
LUP
QUIT
TASK
LOOK
STOP
SOL
DEV
HEADER

External References

Name Field # of Occurrence
^%DT LOOK+2
COMMA^%DTC LUP+17, LUP+22, LUP+24, LUP+25
NOW^%DTC LOOK+2
^%ZIS DEV
HOME^%ZIS LOOK+6, DEV+2, TASK
^%ZISC STOP+2
^%ZTLOAD LOOK+6, DEV+2, TASK
$$S^%ZTLOAD HEADER+1
^DIR LOOK+3, LOOK+5, STOP+1, HEADER
^PSADA LOOK
PSAWARN^PSAPSI PSAPSI2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN,!!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LUP+3
Function Call: WRITE
  • Prompt: !!,Y
  • Line Location: LUP+19
Function Call: WRITE
  • Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63
  • Line Location: LUP+22
Function Call: WRITE
  • Prompt: ?40,X
  • Line Location: LUP+24
Function Call: WRITE
  • Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: "
  • Line Location: LUP+25
Function Call: WRITE
  • Prompt: ?5,X,PSADRUG(2)
  • Line Location: LUP+25
Function Call: WRITE
  • Prompt: ?5,X,PSADRUG(2)
  • Line Location: LUP+25
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?2,"DAILY DISPENSING TOTALS FOR ",$E($G(PSALOCN),1,30),?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " DATE",?23,"TOTAL",?45,"$/DISP",?67,"TOTAL",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN
  • Line Location: HEADER+4
Routine Call
  • %ZIS
  • Line Location:
    • LOOK+6
    • DEV+2
    • TASK
Routine Call
  • DIR
  • Line Location:
    • LOOK+3
    • LOOK+5
    • STOP+1
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LUP+18
^PS(50.8 - [#50.8] LUP+9, LUP+10, LUP+11, LUP+12, LUP+13, SOL, SOL+1, SOL+2
^PS(52.6 - [#52.6] LUP+5, LUP+6
^PS(52.7 - [#52.7] LUP+5, LUP+7
^PSD(58.8 - [#58.8] LOOK+1, LUP, LUP+1, LUP+12, LUP+21, SOL+1
^PSDRUG - [#50] LUP+2, LUP+16
^TMP("PSA" LUP, LUP+14*, LUP+18, LUP+20, STOP+3!, SOL+3*
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
HEADER LUP, LUP+3, LUP+18
QUIT LOOK, LOOK+1, DEV+1
SOL LUP+9
STOP LOOK+5, LOOK+6, DEV+2, LUP
TASK LUP

Naked Globals

Name Field # of Occurrence
^(0 LUP, LUP+13, SOL+2
^(6 LUP+21
^(660 LUP+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV~*
D0 PSAPSI2+10~
D1 PSAPSI2+10~
DA PSAPSI2+10~
DIC PSAPSI2+10~
DIE PSAPSI2+10~
DINUM PSAPSI2+10~
DIR PSAPSI2+10~, LOOK+3!, LOOK+5!, STOP+1!, HEADER!
DIR("A" LOOK+3*, LOOK+5*, STOP+1*
DIR("B" LOOK+3*, LOOK+5*
DIR(0 LOOK+3*, LOOK+5*, STOP+1*, HEADER*
DIRUT PSAPSI2+10~, LOOK+5
DLAYGO PSAPSI2+10~
DR PSAPSI2+10~
DT LUP
DTOUT PSAPSI2+10~
DUOUT PSAPSI2+10~
DUZ HEADER+1
IO("Q" DEV!, DEV+2, STOP+2!
IOF LUP+3, STOP, HEADER+2
IOP DEV~
IOSL LUP, LUP+18
IOST STOP, STOP+1, HEADER
POP DEV~, DEV+1
PSA PSAPSI2+10~, STOP+3!
PSA(4 LUP+18*, LUP+20
PSA(5 LOOK+6*, LUP, LUP+3, LUP+5, LUP+15, LUP+26, TASK+1
PSA(6 LUP+18*, LUP+19, LUP+25
PSA(7 LUP+4*
PSADRUG PSAPSI2+10~, LOOK+2*, LUP*, LUP+1, LUP+2, LUP+5, LUP+6, LUP+7, LUP+14, LUP+16
, LUP+18, LUP+20, LUP+21, LUP+26, SOL+3
PSADRUG(1 LUP+6*, LUP+10, LUP+11, LUP+16*, LUP+17, LUP+24
PSADRUG(2 LUP+7*, LUP+9, LUP+16*, LUP+22, LUP+25, SOL
PSADRUG(3 LUP+11*, LUP+12, LUP+13, LUP+17*, LUP+22, SOL*, SOL+1, SOL+2
PSADRUG(4 LUP+23*, LUP+25*
PSADRUG(5 LUP+24*, LUP+25*
PSADRUG(6 LUP+20*
PSADRUGN PSAPSI2+10~, LUP+2*, LUP+19
PSADT PSAPSI2+10~, LOOK+2*, LOOK+3
PSADT(1 LOOK+2*, LOOK+3
PSADT(2 LOOK+3*, LUP+9
PSADT(22 LOOK+4*
PSADT(23 LOOK+4*
PSADT(3 LOOK+3*, LUP+4*, LUP+8, SOL
PSADT(4 LUP+9*, LUP+10, LUP+11, LUP+12, LUP+13, LUP+14, SOL, SOL+1, SOL+2, SOL+3
PSAIV PSAPSI2+10~, LOOK+4*, LUP+2*, LUP+9*, LUP+10, LUP+11, LUP+12, LUP+13, SOL, SOL+1
, SOL+2
PSALN PSAPSI2+10~, LUP+25, HEADER+2*, HEADER+4
>> PSALOC LOOK, LOOK+1, LUP, LUP+1, LUP+12, LUP+21, SOL+1
PSALOCN PSAPSI2+10~, LOOK+1, HEADER+2
PSAOUT PSAPSI2+10~, LOOK+2*, LOOK+3*, LOOK+5*, LOOK+6*, DEV+1*, DEV+2*, LUP, LUP+18, LUP+26*
, STOP+1, HEADER*, HEADER+1*
PSAPG PSAPSI2+10~, LOOK+2*, LUP+3, HEADER, HEADER+2*
PSAQ PSAPSI2+10~, LUP+13*, LUP+14*, SOL+2*, SOL+3*
PSAQUIT PSAPSI2+9!
>> PSAR LOOK+3*
>> PSAR(1 LOOK+3*
PSAS PSAPSI2+10~
PSAW PSAPSI2+10~, LUP+8*, LUP+12*, LUP+13, LUP+14*, SOL*, SOL+1*, SOL+2, SOL+3*
PSAW(1 LUP+12*, SOL+1*
U LUP, LUP+1, LUP+2, LUP+13, LUP+16, LUP+21, HEADER+1, SOL+2
X PSAPSI2+10~, LOOK+2*, LUP+17*, LUP+20*, LUP+21*, LUP+22, LUP+23, LUP+24*, LUP+25*
X2 PSAPSI2+10~, LUP+17*, LUP+20*, LUP+24*, LUP+25*
Y PSAPSI2+10~, LOOK+2, LOOK+3, LOOK+6, DEV, LUP+18*, LUP+19, HEADER
ZTDESC LOOK+6*, DEV+2~*, HEADER+1, TASK*
ZTDTH LOOK+6*, DEV+2~, TASK*
ZTIO LOOK+6*, DEV+2~, TASK*
>> ZTQUEUED STOP+2
>> ZTREQ STOP+2*
ZTRTN LOOK+6*, DEV+2~*, TASK*
ZTSAVE DEV+2~
ZTSAVE("PSA*" LOOK+6*, DEV+2*, TASK*
ZTSAVE("^TMP(""PSA"",$J,+PSADRUG," TASK*
ZTSK PSAPSI2+10~, HEADER+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All