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

Package: Drug Accountability

Routine: PSAPSI


Information

PSAPSI ;BIR/LTL-IV Dispensing (Single Drug) ;7/23/97

Source Information

Source file <PSAPSI.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Drug Accountability 4 PSA IV SINGLE  PSAOP  PSAOP2  PSAPSI2  

Entry Points

Name Comments DBIA/ICR reference
LUP
QUIT
LOOK
STOP
PSAWARN ;DAVEB (PSA*3*3)
TR
DEV
HEADER
ASK

External References

Name Field # of Occurrence
^%DT LOOK+2
COMMA^%DTC LUP+1, LUP+8, LUP+9, LUP+10, LUP+11
NOW^%DTC LOOK+2
^%ZIS DEV+5
HOME^%ZIS DEV+7, TR
^%ZISC STOP+2
^%ZTLOAD DEV+7, TR
$$S^%ZTLOAD HEADER+1
^DIC LOOK+3
^DIR LOOK+9, DEV+4, STOP+1, HEADER, ASK
^PSADA LOOK
^PSAPSI5 LOOK+12

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: LOOK+3
Function Call: WRITE
  • Prompt: !!,"This drug is not linked to an entry in the IV ADDITIVE or SOLUTION file.",!!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !!,"Sorry, no dispensing for this drug has been compiled since "
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"ever"),".",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: $S(Y:Y,1:"*not scheduled*"),"."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!"
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63
  • Line Location: LUP+8
Function Call: WRITE
  • Prompt: ?40,X
  • Line Location: LUP+9
Function Call: WRITE
  • Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: "
  • Line Location: LUP+10
Function Call: WRITE
  • Prompt: ?5,X,PSADRUG(2)
  • Line Location: LUP+10
Function Call: WRITE
  • Prompt: ?63,X
  • Line Location: LUP+11
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($P($G(^PSDRUG(+PSADRUG,0)),U),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
Function Call: WRITE
  • Prompt: @IOF,!!,?30," ** W A R N I N G **",!!,"Execution of this option should only be done for either one of the following:",!
  • Line Location: PSAWARN+2
Function Call: WRITE
  • Prompt: !,"1. The ""All Location Dispense/Purge"", [PSA IV ALL LOCATIONS] nightly back-"
  • Line Location: PSAWARN+3
Function Call: WRITE
  • Prompt: !," ground option has failed to run.",!!,"2. New drugs have been added to a pharmacy location, and you would like to see",!," the dispensing activity that has occurred for up to the last sixty days.",!
  • Line Location: PSAWARN+4
Function Call: WRITE
  • Prompt: !!,"Each time this option is executed, the balances are updated in the MONTHLY",!,"ACTIVITY multiple within the DRUG ACCOUNTABILITY STATS file (#58.8)."
  • Line Location: PSAWARN+5
Function Call: WRITE
  • Prompt: !!,"The proram will continue to add or subtract the dispensed amount each time the ",!,"option is used.",!
  • Line Location: PSAWARN+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+7
    • TR
Routine Call
  • DIC
  • Line Location:
    • LOOK+3
Routine Call
  • DIR
  • Line Location:
    • LOOK+9
    • DEV+4
    • STOP+1
    • HEADER
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • DEV+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEV, DEV+3, LUP+3
^DIC(19 - [#19] DEV+2
^PS(50.8 - [#50.8] LOOK+12, LOOK+13, LOOK+14, LOOK+15, LOOK+16
^PS(52.6 - [#52.6] LOOK+4, LOOK+5
^PS(52.7 - [#52.7] LOOK+4, LOOK+6
^PSD(58.8 - [#58.8] LOOK+1, LOOK+7, LOOK+10, LOOK+15, LUP+6
^PSDRUG - [#50] LUP, HEADER+2
^TMP("PSA" LOOK+17*, DEV, LUP+3, LUP+5, QUIT!
^VA(200 - [#200] HEADER+1

Label References

Name Line Occurrences
DEV LOOK+3
HEADER LUP+2, LUP+3
PSAWARN PSAPSI+10
QUIT LOOK, LOOK+1, LOOK+3, DEV, DEV+4, DEV+6, DEV+7
STOP LUP+3
TR DEV+4

Naked Globals

Name Field # of Occurrence
^(0 LOOK+16
^(6 LUP+6
^(660 LUP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+5~*
D0 PSAPSI+11~
D1 PSAPSI+11~
DA PSAPSI+11~
DA(1 LOOK+3*
DIC PSAPSI+11~, LOOK+3*, DEV+5!
DIC("A" LOOK+3*
DIC(0 LOOK+3*
DIE PSAPSI+11~
DINUM PSAPSI+11~
DIR PSAPSI+11~, LOOK+9!, DEV+4!, STOP+1!, HEADER!, ASK!
DIR("A" LOOK+9*, DEV+4*, STOP+1*, ASK*
DIR("B" LOOK+9*, DEV+4*, ASK*
DIR(0 LOOK+9*, DEV+4*, STOP+1*, HEADER*, ASK*
DIRUT PSAPSI+11~, DEV+4, ASK
DLAYGO PSAPSI+11~
DR PSAPSI+11~
DTOUT PSAPSI+11~
DUOUT PSAPSI+11~
DUZ HEADER+1
IO("Q" DEV+5!, DEV+7, STOP+2!
IOF STOP, HEADER+2, PSAWARN+2
IOP DEV+5~
IOSL LUP+3
IOST STOP, STOP+1, HEADER
POP DEV+5~, DEV+6
PSA QUIT!
PSA(4 LUP+3*, LUP+5
PSA(6 LUP+3*, LUP+10
PSA(7 LOOK+10*
PSADRUG PSAPSI+11~, LOOK+3*, LOOK+4, LOOK+5, LOOK+6, LOOK+7, LOOK+10, LOOK+17, DEV, LUP
, LUP+3, LUP+5, LUP+6, QUIT!, HEADER+2
PSADRUG(1 LOOK+5*, LOOK+13, LOOK+14, LUP*, LUP+1, LUP+9
PSADRUG(2 LOOK+6*, LOOK+12, LUP*, LUP+8, LUP+10
PSADRUG(3 LOOK+14*, LOOK+15, LOOK+16, LUP+1*, LUP+8
PSADRUG(4 LUP+7*, LUP+10
PSADRUG(5 LUP+9*, LUP+11
PSADRUG(6 LUP+5*
PSADRUGN PSAPSI+11~
PSADT PSAPSI+11~, LOOK+2*, LOOK+9
PSADT(1 LOOK+2*, LOOK+9
PSADT(2 LOOK+3*, LOOK+9*, LOOK+10*, LOOK+12, DEV
PSADT(3 LOOK+9*, LOOK+10*, LOOK+11
PSADT(4 LOOK+12*, LOOK+13, LOOK+14, LOOK+15, LOOK+16, LOOK+17
PSAIV PSAPSI+11~, LOOK+3*, LOOK+12*, LOOK+13, LOOK+14, LOOK+15, LOOK+16
PSALN PSAPSI+11~, LUP+10, HEADER+2*, HEADER+4
>> PSALOC LOOK, LOOK+1, LOOK+3, LOOK+7, LOOK+10, LOOK+15, LUP+6
>> PSALOCN LOOK+1, LOOK+3
PSAOUT PSAPSI+11~, LOOK*, LOOK+3, LOOK+4*, LOOK+7, LOOK+9*, DEV+6*, LUP*, LUP+3, STOP+1
, STOP+3, TR, HEADER*, HEADER+1*
PSAPG PSAPSI+11~, LUP*, HEADER, HEADER+2*
PSAQ PSAPSI+11~, LOOK+16*, LOOK+17*
PSAQUIT PSAPSI+10!, ASK*, ASK+1*, ASK+2!
PSAR PSAPSI+11~, LOOK+9*
PSAR(1 LOOK+9*
PSAW PSAPSI+11~, LOOK+11*, LOOK+15*, LOOK+16, LOOK+17*
PSAW(1 LOOK+15*
U LOOK+7, LOOK+10, LOOK+16, DEV+2, LUP, LUP+6, HEADER+1, HEADER+2
X PSAPSI+11~, LOOK+2*, LUP+1*, LUP+5*, LUP+6*, LUP+7, LUP+8, LUP+9*, LUP+10*, LUP+11*
>> X2 LUP+1*, LUP+5*, LUP+9*, LUP+10*, LUP+11*
Y PSAPSI+11~, LOOK+2, LOOK+3, LOOK+9, DEV*, DEV+2*, DEV+3, DEV+4, DEV+5, LUP+3*
, LUP+4, HEADER, ASK+1
ZTDESC DEV+7~*, TR*, HEADER+1
ZTDTH DEV+7~, TR*
ZTIO DEV+7~, TR*
>> ZTQUEUED STOP+2
>> ZTREQ STOP+2*
ZTRTN DEV+7~*, TR*
ZTSAVE DEV+7~
ZTSAVE("PSA*" DEV+7*, TR*
ZTSAVE("^TMP(""PSA"",$J,+PSADRUG," DEV+7*, TR*
ZTSK DEV+7~, HEADER+1
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 |  Naked Globals |  Local Variables |  All