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

Package: Inpatient Medications

Routine: PSGL0


Information

PSGL0 ;BIR/CML3-ACTUAL LABEL PRINT ; 26 Jun 98 / 8:30 AM

Source Information

Source file <PSGL0.m>

Entry Points

Name Comments DBIA/ICR reference
ENACL ;
ENAC ; select ward
ENNL ; new labels, other than auto discontinue
SC ; selection validation
DEV1 ; device ask for auto discontinue or new labels
ENACP ; auto label print
AC ;
DEV2 ; device for new labels
ENNLP ; new label print
NP ;
DONE ;
ENKL ;
ENKL1
ENCU ; clean-up

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are unprinted new labels from AUTO ",$S(PSGTOL=3:"REINSTATED",1:"DISCONTINUED")," orders."
  • Line Location: ENACL+1
Function Call: WRITE
  • Prompt: !,"Do you want any of them now"
  • Line Location: ENACL+1
Function Call: WRITE
  • Prompt: !!,"Will you want these labels at a later date"
  • Line Location: ENACL+3
Function Call: WRITE
  • Prompt: !!,"Wards: "
  • Line Location: ENAC+1
Function Call: WRITE
  • Prompt: S
  • Line Location: ENAC+1
Function Call: WRITE
  • Prompt: !,$J(W,3),". ",$S($D(^DIC(42,QQ,0)):$P(^(0),"^"),1:QQ)
  • Line Location: ENAC+1
Function Call: WRITE
  • Prompt: !!?3,"Sorry, no labels were found after all. (The problem has been corrected.)",!
  • Line Location: ENAC+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENAC+3
Function Call: WRITE
  • Prompt: !!,"Select 1 - ",W,": "
  • Line Location: ENAC+3
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: ENAC+3
Function Call: WRITE
  • Prompt: !!," Select (1-",W,") the ward(s) you wish to print labels for. Enter an '^',",!,"or press the RETURN key, to quit now."
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: !,"No device selected. Option terminated."
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV1+2
Function Call: WRITE
  • Prompt: !?3,"Labels queued!"
  • Condition for execution: $D(ZTSK)
  • Line Location: DEV1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV2+1
Function Call: WRITE
  • Prompt: !,"No device selected. Option terminated."
  • Line Location: DEV2+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: NP+1

FileMan Files Accessed Via FileMan Db Call

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