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

Package: Drug Accountability

Routine: PSADA


Information

PSADA ;BIR/LTL-Pharmacy Location Lookup Utility ;7/23/97

Source Information

Source file <PSADA.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 ^DIC  MIX^DIC1  DT^DICRW  ^DIR  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Drug Accountability 13 PSADJI  PSADRU  PSADRUG  PSANAC  PSAOP  PSAOP2  PSAPSI  PSAPSI2  
PSAREVD  PSARIN  PSAVIN1  PSAVIN2  PSAVINC  

Entry Points

Name Comments DBIA/ICR reference
COP
QUIT
SKIP
PIC
START
OP

External References

Name Field # of Occurrence
^DIC SKIP+7, OP+3
MIX^DIC1 COP+4
DT^DICRW START
^DIR PIC, QUIT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Drug Accountability location has been created yet.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"An Inpatient Site has not been identified for AR/WS.",!,"AR/WS dispensing data may not be gathered.",!
  • Line Location: SKIP+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: SKIP+12
Function Call: WRITE
  • Prompt: !!,"No Drug Accountability location has been created for ",$P($G(^PS(59,+PSAOSIT,0)),U),".",!
  • Line Location: OP+6
Function Call: WRITE
  • Prompt: !,"No site was selected.",!
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !!,PSALOCN," for "
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: $P(^(0),U)_" (IP) "
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: $P(^(0),U)_" (OP)"
  • Line Location: QUIT+3
Function Call: WRITE
  • Prompt: "...I'm not sure"
  • Line Location: QUIT+4
Function Call: WRITE
  • Prompt: !,"No outpatient sites have been set up.",!
  • Line Location: COP+0
Function Call: WRITE
  • Prompt: !!,"Because there is more than one Outpatient Site at this facility, I need you to "
  • Line Location: COP+3
Routine Call
  • DIC
  • Line Location:
    • SKIP+7
    • OP+3
Routine Call
  • DIR
  • Line Location:
    • PIC
    • QUIT+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] SKIP+12, SKIP+13
^PS(59 - [#59] OP, OP+6, QUIT+3
^PS(59.4 - [#59.4] SKIP+2, QUIT+2
^PSD(58.8 - [#58.8] START+1, START+4, START+5, SKIP+8, SKIP+10, SKIP+12, OP+5, COP, COP+1, COP+2
, COP+4

Label References

Name Line Occurrences
@( SKIP+14
PIC QUIT+5
QUIT START+2, START+5, PIC, OP

Naked Globals

Name Field # of Occurrence
^( SKIP+2
^(0 START+5, QUIT+2, QUIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D START~, COP+4*
DIC START~, SKIP+7*!, OP+3*!, COP+4*
DIC("A" SKIP+7*, OP+3*, COP+4*
DIC("S" SKIP+7*
DIC(0 SKIP+7*, OP+3*, COP+4*
DIR START~, PIC!, QUIT+5!
DIR("?" QUIT+5*
DIR("A" PIC*, QUIT+5*
DIR("B" QUIT+5*
DIR(0 PIC*, QUIT+5*
DIRUT START~, QUIT+5
DTOUT START~, SKIP+7
DUOUT START~, SKIP+7
PSA START~, OP*, OP+4
PSA(1 SKIP+2*
PSA(2 SKIP+2*, SKIP+3, SKIP+4, SKIP+5
PSAB START~, SKIP+2*, SKIP+4
PSAC START~
>> PSACNT QUIT+1*, QUIT+2*, QUIT+3*, QUIT+4
PSADRUG START~
PSAI START~
PSAII START~
PSAINV START~
PSAIPS START~
PSAISIT START~, START+5*, SKIP+4*, SKIP+7*, SKIP+8, QUIT+2, QUIT+5!
PSAIT START~
PSAITY START~, PIC+1*, SKIP, SKIP+3, SKIP+7, SKIP+9, SKIP+14
PSALOC START+4*, START+5, PIC*, SKIP+5!, SKIP+8*, SKIP+9, SKIP+10, OP+5*, OP+6, QUIT
, QUIT+1, QUIT+5!, COP+1*, COP+2, COP+4*
PSALOC(1 START+1*, START+2, START+4*, PIC*, QUIT+5
>> PSALOCN START+5*, PIC+1*, SKIP+10*, OP+5*, QUIT+1, COP+1*, COP+4*
PSAO START~, SKIP+3*, SKIP+7*, SKIP+9*, SKIP+14*
PSAOC START~
PSAOP START~
PSAOSIT START~, START+5*, OP+3*, OP+4*, OP+5, OP+6, QUIT+3, QUIT+5!
PSAOU START~, SKIP+5*, SKIP+7*, SKIP+14
>> PSAOUT PIC*
PSASTO START~
PSAWARD SKIP+12~*, SKIP+13
U START+5, SKIP+2, SKIP+10, SKIP+13, OP+5, OP+6, QUIT+2, QUIT+3, COP+1, COP+4
X START~
Y START~, PIC, PIC+1, SKIP+5, SKIP+7, OP*, OP+3, QUIT+5, COP+4
Y(0 PIC+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