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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGPLDP

Package: Inpatient Medications

Routine: PSGPLDP


Information

PSGPLDP ;BIR/CML3-ENTER AND FILE UNITS DISPENSED ;15 JAN 97 / 11:13 AM

Source Information

Source file <PSGPLDP.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;
ASK
DONE ;
RUN ; choose pick list and go through it
RUN1 ;
AF ;
ENQ ; queue PSGPLF
NL ; numeric look-up
HLP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO PICK LIST AVAILABLE",$S($D(^PS(53.5,"AB")):", YET.",1:".")
  • Line Location: CHK+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Another terminal is acccessing this pick list."
  • Line Location: RUN1+1
Function Call: WRITE
  • Prompt: " (PICK LIST AUTOMATICALLY FILED AWAY)"
  • Line Location: AF+2
Function Call: WRITE
  • Prompt: " ***"
  • Line Location: AF+3
Function Call: WRITE
  • Prompt: " ",PSGPLWGN,!?$L(PSGPLWG)+21,Y," thru ",PSGOD
  • Line Location: NL+3
Function Call: WRITE
  • Prompt: !?2,"Select a Ward Group for which a pick list has run for which you wish to enter",!,"the units actually dispensed.",!?2,"You may also select a pick list by its number, which prints in the upper left",!,"corner of each pick list."
  • Line Location: HLP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.5 - [#57.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call