Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
  • Variable: PSGPLG
  • Timeout: DTIME
  • 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
  • Variable: NP
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls