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

Package: Drug Accountability

Routine: PSAOP


Information

PSAOP ;BIR/LTL-Outpatient Dispensing (Single Drug) ;7/23/97

Source Information

Source file <PSAOP.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^%DT  (COMMA,NOW)^%DTC  ^DIC  ^DIE  ^DIR  
Drug Accountability 4 OP^PSADA  ^PSAOP1  AM^PSAOP4  PSAWARN^PSAPSI  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSA OP SINGLE  

Entry Points

Name Comments DBIA/ICR reference
LUP
QUIT
LOOK
STOP
TR
DEV
HEADER
LOOP

External References

Name Field # of Occurrence
^%DT LOOK+5
COMMA^%DTC LUP+1, LUP+4, LUP+6, LUP+7, LUP+8
NOW^%DTC LOOK+5
^%ZIS DEV
HOME^%ZIS DEV+2, TR
^%ZISC STOP+2
^%ZTLOAD DEV+2, TR
$$S^%ZTLOAD HEADER+1
^DIC LOOK+8
^DIE LOOP+7
^DIR LOOK+3, LOOK+11, LOOK+31, STOP+1, HEADER
OP^PSADA LOOK, LOOK+3
^PSAOP1 LOOP+4
AM^PSAOP4 LOOK+29
PSAWARN^PSAPSI PSAOP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOK+25
Function Call: WRITE
  • Prompt: !!,"Sorry, no dispensing for this drug has occurred since "
  • Line Location: LOOK+30
Function Call: WRITE
  • Prompt: Y,".",!
  • Line Location: LOOK+30
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: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63
  • Line Location: LUP+4
Function Call: WRITE
  • Prompt: ?40,X
  • Line Location: LUP+6
Function Call: WRITE
  • Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: "
  • Line Location: LUP+7
Function Call: WRITE
  • Prompt: ?5,X,PSADRUG(2)
  • Line Location: LUP+7
Function Call: WRITE
  • Prompt: ?63,X
  • Line Location: LUP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!,"Updating history and dispensing totals."
  • Line Location: STOP+3
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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • TR
Routine Call
  • DIE
  • Line Location:
    • LOOP+7
Routine Call
  • DIC
  • Line Location:
    • LOOK+8
Routine Call
  • DIR
  • Line Location:
    • LOOK+3
    • LOOK+11
    • LOOK+31
    • STOP+1
    • HEADER
Routine Call
  • %ZIS
  • Line Location:
    • DEV

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" LOOK+30, LUP+3
^PSD(58.8 - [#58.8] LOOK+2, LOOK+4, LOOK+7, LOOK+9, LOOK+12, LOOP+2
^PSDRUG - [#50] LUP, HEADER+2
^PSRX - [#52] LOOK+17, LOOK+22, LOOK+25, LOOK+27
^PSRX("AJ" LOOK+24, LOOK+25, LOOK+26
^PSRX("AL" LOOK+17, LOOK+18
^PSRX("AM" LOOK+29
^PSRX("AN" LOOK+29
^PSRX("AR" LOOK+21
^TMP("PSA" LOOK+22*, LOOK+27*, LOOK+28*, LOOK+30, LUP+3, LUP+4, LUP+5, LUP+6, TR+1!, LOOP
, LOOP+2
^XTMP("PSA" LOOP+3!

Label References

Name Line Occurrences
DEV LOOK+8
HEADER LUP+2
QUIT LOOK+1, LOOK+3, LOOK+4, LOOK+8, DEV+1, DEV+2
TR LOOK+8

Naked Globals

Name Field # of Occurrence
^( LOOK+28*
^(660 LUP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV~*
D0 PSAOP+9~
D1 PSAOP+9~
DA PSAOP+9~, LOOP+5*, LOOP+7!
DA(1 LOOK+8*, LOOP+5*
DIC PSAOP+9~, LOOK+6*
DIC("A" LOOK+6*
DIC("S" LOOK+6*
DIC(0 LOOK+6*
DIE PSAOP+9~, LOOP+5*, LOOP+7!
DINUM PSAOP+9~
DIR PSAOP+9~, LOOK+3!, LOOK+11!, LOOK+31!, STOP+1!, HEADER!
DIR("?" LOOK+3*
DIR("A" LOOK+3*, LOOK+11*, LOOK+31*, STOP+1*
DIR("B" LOOK+3*, LOOK+11*, LOOK+31*
DIR(0 LOOK+3*, LOOK+11*, LOOK+31*, STOP+1*, HEADER*
DIRUT PSAOP+9~, LOOK+3, LOOK+31
DLAYGO PSAOP+9~
DR PSAOP+9~, LOOP+6*, LOOP+7!
DTOUT PSAOP+9~
DUOUT PSAOP+9~
IO("Q" DEV!, DEV+2, STOP+2!
IOF STOP, HEADER+2
IOP DEV~
IOST STOP, STOP+1, HEADER
POP DEV~, DEV+1
PSA PSAOP+9~, TR+1!, LOOP+2*, LOOP+6
PSA(2 LOOP*, LOOP+2
PSA(3 LOOP*
PSA(4 LUP+3*, LUP+4, LUP+5, LUP+6
PSA(5 LOOK+8, LOOK+31*
PSA(6 LUP+3*, LUP+7
PSA(7 LOOK+13*
PSA(9 LOOK+22*
PSADR PSAOP+9~
PSADREC PSAOP+9~
PSADRUG PSAOP+9~, LOOK+8*, LOOK+9, LOOK+12, LOOK+17, LOOK+22, LOOK+25, LOOK+27, LOOK+28, LOOK+30
, LUP, LUP+3, LUP+4, LUP+5, LUP+6, TR+1!, HEADER+2, LOOP, LOOP+2, LOOP+3
, LOOP+5
PSADRUG(1 LUP*, LUP+1, LUP+6
PSADRUG(2 LUP*, LUP+4, LUP+7
PSADRUG(3 LUP+1*, LUP+4
PSADRUG(4 LUP+5*, LUP+7
PSADRUG(5 LUP+6*, LUP+8
PSADRUGN PSAOP+9~
PSADT PSAOP+9~, LOOK+5*, LOOK+11
PSADT(1 LOOK+5*, LOOK+11
PSADT(2 LOOK+11*, LOOK+13*, LOOK+17*, LOOK+18, LOOK+21, LOOK+22
PSADT(3 LOOK+7*, LOOK+11*, LOOK+17*, LOOK+18, LOOK+21, LOOK+22
PSADT(4 LOOK+11*, LOOK+18*, LOOK+21, LOOK+22, LOOK+30
>> PSAG LOOK+12*, LOOK+13, LOOK+15, LOOK+16, LOOK+30
PSALN PSAOP+9~, LUP+7, HEADER+2*, HEADER+4
PSALOC LOOK, LOOK+1!, LOOK+2, LOOK+3!, LOOK+4, LOOK+7, LOOK+8, LOOK+9, LOOK+12, LOOP+2
, LOOP+5
>> PSALOCN LOOK+2*, LOOK+4, LOOK+6
PSAN PSAOP+9~, LOOK+11*, LOOK+16*, LOOK+29
PSAN(1 LOOK+11*, LOOK+16*
>> PSAOP LOOP+2*, LOOP+3
PSAOUT PSAOP+9~, LOOK+3*, LOOK+8, LOOK+9, LOOK+11*, LOOK+30*, LOOK+31*, DEV+1*, LUP*, STOP+1
, HEADER*, HEADER+1*
PSAP PSAOP+9~, LOOK+11*, LOOK+15*, LOOK+29
PSAP(1 LOOK+11*, LOOK+16*
PSAPG PSAOP+9~, LUP*, HEADER, HEADER+2*
PSAQ PSAOP+9~
PSAQUIT PSAOP+7!
PSAR PSAOP+9~, LOOK+11*, LOOK+15*, LOOK+24, LOOK+25*, LOOK+26, LOOK+27, LOOK+28
PSAR(1 LOOK+11*, LOOK+16*, LOOK+25*, LOOK+26, LOOK+27, LOOK+28
PSAR(2 LOOK+28*
PSAR(3 LOOK+26*, LOOK+27
PSARELDT PSAOP+9~, LOOP+2*, LOOP+3
PSAS PSAOP+9~, LOOK+7*, LOOK+17, LOOK+25
U LOOK+2, LOOK+7, LOOK+13, LOOK+15, LOOK+16, LOOK+17, LOOK+22, LOOK+25, LOOK+27, LOOK+28
, LOOK+30, LUP, LUP+4, LUP+5, LUP+6, HEADER+2, LOOP+6
X PSAOP+9~, LOOK+5*, LUP+1*, LUP+4*, LUP+6*, LUP+7*, LUP+8*
X2 PSAOP+9~, LUP+1*, LUP+4*, LUP+6*, LUP+7*, LUP+8*
Y PSAOP+9~, LOOK+3, LOOK+5, LOOK+8, LOOK+11, LOOK+30*, LOOK+31, DEV, LUP+3*, LUP+4
, HEADER
ZTDESC DEV+2~*, TR*
ZTDTH DEV+2~, TR*
ZTIO DEV+2~, TR*
>> ZTQUEUED STOP+2
>> ZTREQ STOP+2*
ZTRTN DEV+2~*, TR*
ZTSAVE DEV+2~
ZTSAVE("PSA*" DEV+2*, TR*
ZTSAVE("^TMP(""PSA"",$J,+PSADRUG," DEV+2*, TR*
ZTSK DEV+2~
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