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

Package: Drug Accountability

Routine: PSAWARD


Information

PSAWARD ;BIR/LTL,JMB-Set Up/Edit a Pharmacy Location ;7/23/97

Source Information

Source file <PSAWARD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSAENT  

Entry Points

Name Comments DBIA/ICR reference
MUL
ALL
LOOP
QUIT

External References

Name Field # of Occurrence
^DIC MUL+9
FILE^DICN ALL, LOOP+9
^DIE QUIT
^DIK MUL+13
^DIR MUL+5, MUL+8, MUL+12, MUL+17, LOOP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?5,"For the purpose of collecting Unit Dose and IV dispensing data,",!,"any ward at which such dispensing might ever occur should be added."
  • Line Location: PSAWARD+5
Function Call: WRITE
  • Prompt: !,"The ONLY reason to NOT add a ward would be if the dispensing at that ward",!,"should NOT update ",$G(PSALOCN),"."
  • Line Location: PSAWARD+6
Function Call: WRITE
  • Prompt: !!,"There is NO harm in adding inactive wards."
  • Line Location: PSAWARD+7
Function Call: WRITE
  • Prompt: !!,PSALOCN," is linked to "
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $X+10>IOM
  • Line Location: MUL+3
Function Call: WRITE
  • Prompt: $P($G(^DIC(42,+PSA(3),0)),U),$S($O(^PSD(58.8,+PSALOC,3,+PSA(3))):", ",1:".")
  • Line Location: MUL+3
Function Call: WRITE
  • Prompt: !,$G(PSAW(1))," deleted."
  • Line Location: MUL+13
Function Call: WRITE
  • Prompt: !,PSA,?10,$P($G(^DIC(42,PSAW,0)),U)
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: ?40,"***INACTIVE***"
  • Condition for execution: $D(^DIC(42,+PSAW,"I"))
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !!,"Sorry, you've already added all the wards that you can."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Routine Call
  • DIE
  • Line Location:
    • QUIT
Routine Call
  • DIC
  • Line Location:
    • MUL+9
Routine Call
  • DIR
  • Line Location:
    • MUL+5
    • MUL+8
    • MUL+12
    • MUL+17
    • LOOP+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ALL, ALL+1, ALL+2, MUL+3, MUL+9, LOOP, LOOP+3
^PS(59.7 - [#59.7] QUIT
^PSD(58.8 - [#58.8] PSAWARD+8, ALL, MUL, MUL+3, LOOP, LOOP+3

Label References

Name Line Occurrences
ALL MUL+18
LOOP LOOP+10
MUL LOOP+11
QUIT ALL+5, MUL, LOOP+1, LOOP+4, LOOP+7

Naked Globals

Name Field # of Occurrence
^(0 PSAWARD+8*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D0 PSAWARD+4~
D1 PSAWARD+4~
DA PSAWARD+4~, ALL*, MUL+13*, MUL+14!, LOOP+9*, QUIT*!
DA(1 ALL*, MUL+9*, MUL+13*, LOOP+8*
DD ALL!, LOOP+9!
DIC PSAWARD+4~, ALL*, MUL+9*, MUL+13, MUL+14!, LOOP+8*, LOOP+11!
DIC("A" MUL+9*
DIC(0 ALL*, MUL+9*, LOOP+8*
DIE PSAWARD+4~, QUIT*!
DIK MUL+13*, MUL+14!
DINUM ALL*, ALL+4!, LOOP+9*!
DIR PSAWARD+4~, MUL+5!, MUL+8!, MUL+17!, LOOP+7!
DIR("?" MUL+4*, MUL+7*, MUL+8*, MUL+11*, MUL+16*, MUL+17*, LOOP+6*
DIR("A" MUL+4*, MUL+6*, MUL+10*, MUL+15*, LOOP+7*
DIR("B" MUL+4*, MUL+11*
DIR(0 MUL+4*, MUL+6*, MUL+10*, MUL+15*, LOOP+7*
DIRUT PSAWARD+4~, MUL+8, MUL+9, MUL+17, LOOP+7, QUIT
DLAYGO PSAWARD+4~
DO ALL!, LOOP+9!
DR PSAWARD+4~, QUIT*
DTOUT PSAWARD+4~
DUOUT PSAWARD+4~
IOF PSAWARD+5, LOOP+10
IOM ALL+3, MUL+3
PSA MUL+19*, LOOP*, LOOP+1, LOOP+2*, LOOP+4, LOOP+7, LOOP+9, LOOP+10*, LOOP+11!
PSA(1 LOOP+9!
PSA(2 ALL, ALL+5, MUL+18*, MUL+19*, LOOP, LOOP+5*
PSA(3 ALL*, ALL+1, ALL+2, MUL+1*, MUL+3*, MUL+19*, LOOP+4, LOOP+7, LOOP+10*
PSAB LOOP+9*, LOOP+10!
>> PSAC LOOP+7*, LOOP+9
PSADR PSAWARD+4~, LOOP+11!
PSADR( LOOP*, LOOP+2, LOOP+7, LOOP+9
>> PSALOC PSAWARD+8, ALL, MUL, MUL+3, MUL+9, MUL+13, LOOP+8
>> PSALOCN PSAWARD+6, ALL, MUL+2, MUL+9, MUL+11, LOOP+7
PSAOUT PSAWARD+4~, MUL, MUL+5*, MUL+8*, MUL+9*, MUL+12*, MUL+14*, MUL+17*, LOOP+9, QUIT*
PSAOUT(1 MUL+8*, MUL+14
PSAW PSAWARD+4~, MUL+9*, MUL+13, MUL+14!, MUL+19*, LOOP*, LOOP+3
PSAW(1 MUL+9*, MUL+10, MUL+13, LOOP+3*
PSAW(2 LOOP+3*, LOOP+5, LOOP+10
U ALL+1, MUL+3, MUL+9, LOOP
X PSAWARD+4~, ALL*, LOOP+9*
Y PSAWARD+4~, MUL+5, MUL+8, MUL+9, MUL+12, MUL+18, LOOP+7, QUIT
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