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

Package: Inpatient Medications

Routine: PSGPLG


Information

PSGPLG ;BIR/CML3-CHOOSE A PICK LIST ;09 JUL 94 / 11:08 AM

Source Information

Source file <PSGPLG.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 NOW^%DTC  YN^DICN  
Inpatient Medications 1 $$ENDTC^PSGMI  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSGPLDP  PSGPLRP  PSGPLUP  PSGTAP  

Entry Points

Name Comments DBIA/ICR reference
RUN
CHW
FA ; find and show pick list(s) already started for this ward group
WRT ;
M1
M2

External References

Name Field # of Occurrence
NOW^%DTC RUN
YN^DICN CHW+3
$$ENDTC^PSGMI WRT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: S
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: F
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: !," - - - - - - - - - - - - - - - - - FILED AWAY - - - - - - - - - - - - - - - - - "
  • Line Location: FA+2
Function Call: WRITE
  • Prompt: !,"NO MORE PICK LISTS CURRENTLY FOR THIS WARD GROUP."
  • Line Location: CHW+0
Function Call: READ
  • Timeout: DTIME
  • Variable: PSGPLG
  • Line Location: CHW+1
Function Call: WRITE
  • Prompt: !!,"THIS IS THE ONLY PICK LIST FOR THIS WARD GROUP. OK"
  • Line Location: CHW+3
Function Call: WRITE
  • Prompt: !!,"Choose the number (1-",W,") that corresponds to the PICK LIST that you want to",!,$S(PSGPLGF="U":"UPDATE.",PSGPLGF="D":"enter UNITS DISPENSED.",1:"REPRINT.")
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: !!,"Enter a 'Y' (or press the RETURN key) to ",$S(PSGPLGF="U":"UPDATE",PSGPLGF="D":"enter UNITS DISPENSED into",1:"PRINT")," this PICK ",$S(PSGPLGF="D":" ",1:"")
  • Line Location: M2+0
Function Call: WRITE
  • Prompt: "LIST. Enter an 'N' ",$S(PSGPLGF="U":" ",PSGPLGF="P":" ",1:""),"(or '^') to quit now."
  • Line Location: M2+1
Function Call: READ
  • Timeout: DTIME
  • Variable: NP
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: " (NO data)"
  • Condition for execution: Y=""
  • Line Location: WRT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] FA+1, FA+2, FA+3, WRT+2

Label References

Name Line Occurrences
CHW FA+1, FA+3
FA RUN
M1 CHW+1
M2 CHW+3
WRT FA+1, FA+3

Naked Globals

Name Field # of Occurrence
^(0 WRT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RUN, CHW+3*, CHW+4
DTIME CHW+1, WRT+1
NP RUN!, FA+1*, FA+3, WRT+1*
>> PSGDT RUN*, FA+1
PSGID RUN!, WRT+2*, WRT+3
PSGOD RUN!, WRT+2*, WRT+3
>> PSGPLG RUN*, CHW+1*, CHW+2*, CHW+4*
>> PSGPLGF FA+1, FA+2, M1, M2, M2+1
>> PSGPLWG FA+1, FA+2, FA+3
S1 RUN!, FA+1*, FA+3*, WRT+2
S2 RUN!, FA+1*, FA+3*, WRT+2
W RUN!, FA+1!*, CHW, CHW+1, CHW+2, M1, WRT+1, WRT+2*, WRT+3
W( CHW+1, CHW+2, WRT+2*
W(1 CHW+4
>> X WRT+2*, WRT+3
>> Y WRT+2*, WRT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All