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

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 7 EN2^PSGLBA  (CHKM,LM)^PSGLH  ^PSGLOI  (,ENHEDER)^PSGLPI  ^PSGON  ENTSK^PSGTI  EN^PSIVUDL  
VA Fileman 3 NOW^%DTC  YN^DICN  ^DIK  
Kernel 2 ^%ZIS  ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGL  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC ENACP+1, ENNLP+1
^%ZIS DEV1+1, DEV2+1
^%ZISC DONE+1
YN^DICN ENACL+1, ENACL+3
^DIK ENACL+4, AC+8, AC+9, ENNLP+8
EN2^PSGLBA DEV1+2
CHKM^PSGLH ENACL+1
LM^PSGLH ENACL+3
^PSGLOI AC+7, ENNLP+6
^PSGLPI AC+3, ENNLP+3
ENHEDER^PSGLPI AC+4, ENNLP+4
^PSGON SC+3
ENTSK^PSGTI DEV1+2, DEV2+2
EN^PSIVUDL AC+6, ENNLP+7

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+1
    • DEV2+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.41 - [#53.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ENAC+1, ENACP+2
^PS(53.1 - [#53.1] AC+5, ENNLP+5
^PS(53.41 - [#53.41] ENAC+1, ENAC+2!, ENACP+2, AC+2, AC+3, AC+9, ENNLP+3, ENNLP+8, ENKL+1!, ENKL1!
, ENCU+1
^PS(59.6 - [#59.6] ENNLP+4

Label References

Name Line Occurrences
AC ENACP+2
DEV1 ENAC+5, ENNL+1
DONE ENAC+4, ENAC+6, ENNL+1
ENAC ENACL+2
ENACP ENAC+5
ENKL1 ENCU+1
ENNLP ENNL+1
NP ENAC+1
SC ENAC+3

Naked Globals

Name Field # of Occurrence
^(0 ENAC+1, ENACP+2, AC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENACL+1*, ENACL+2*, ENACL+3*, ENACL+4*, ENACP+1, ENNLP+2
%ZIS DEV1+1!*, DEV2+1!*
%ZIS("A" DEV1+1*, DEV2+1*
%ZIS("B" DEV1+1*, DEV2+1*
DA ENACL+4*, AC+8!*, AC+9!*, ENNLP+8!*
DA(1 AC+8*, ENNLP+8*
DIK ENACL+4*, AC+8!*, AC+9!*, ENNLP+8!*
DTIME ENAC+3, NP+1
DUZ ENNLP+2, ENNLP+3, ENNLP+8
IO ENACP+1, ENNLP+2
IO("Q" ENAC+5, ENNL+1, DEV1+1!, DEV1+2, DEV2+1!, DEV2+2
ION DEV1+1, DEV2+1
IOP DEV1+1!*, DEV2+1!*
NP ENAC+1*, NP+1*, DONE+1!
>> POP ENAC+5, ENNL+1, DEV1+1*, DEV1+2*, DEV2+1*
>> PSGDT ENACP+1*, ENNLP+2*
PSGION DEV1+1*, DEV2+1*, DONE+1!
PSGLDESC ENAC+5*, ENNL+1*, DEV1+2!
>> PSGLMT SC+3*
>> PSGLRB AC+6, ENNLP+7
PSGLRTN ENAC+5*, ENNL+1*, DEV1+2!
>> PSGLWARD ENAC+4*, ENACP+2
>> PSGLWARD( ENAC+4*, ENACP+2
>> PSGLWC ENACP+2*
>> PSGLWC1 ENACP+2*
>> PSGLWC2 AC+2*, AC+3, AC+5, AC+6, AC+7
>> PSGLWC3 AC+2*, AC+3
>> PSGLWD ENACP+2*, AC+2, AC+3, AC+6, AC+8, ENNLP+4, ENNLP+7
>> PSGLWDN ENACP+2*, AC+6, ENNLP+7
>> PSGODDD ENAC+4
>> PSGODDD( ENAC+4
PSGOP ENACP+2*, AC+2, AC+3, AC+6, ENNLP+3*, ENNLP+7, DONE+1!, ENKL+1, ENKL1, ENCU+1*
, ENCU+2!
>> PSGORD AC+2*, AC+5*, AC+6, ENNLP+5*, ENNLP+7
>> PSGTIR DEV1+2*, DEV2+2*
>> PSGTOL ENACL+1, ENACL+4, ENAC+1, ENAC+2, ENACP+2, AC+2, AC+3, AC+8, AC+9
>> PSJACNWP ENNLP+2*
PSJFIRST AC+1~*, AC+4*, ENNLP+1~, ENNLP+2*, ENNLP+4*
PSJFLUID AC+5~*, AC+6, ENNLP+1~, ENNLP+5*, ENNLP+6, ENNLP+7
>> PSJSYSL DEV1+1, DEV2+1
>> Q ENAC+4*
>> Q1 ENAC+4*
>> Q2 ENAC+4*
QD DONE+1!
QL ENNLP+2*, ENKL+1, ENKL1, ENCU+1*, ENCU+2!
>> QO ENNLP+3*, ENNLP+5, ENKL+1
>> QQ ENAC+1*
QS ENNLP+3*, ENNLP+5, ENNLP+6, ENNLP+7, DONE+1!, ENKL+1, ENKL1, ENCU+1*, ENCU+2!
QT ENNLP+2*, ENKL+1, ENKL1, ENCU+1*, ENCU+2!
SAVE DONE+1!
U AC+3, AC+5, AC+6, ENNLP+4, ENNLP+5, ENNLP+7
VAINDT AC+1~, AC+3*
W ENAC+1*, ENAC+2*, ENAC+3, SC+1, SC+2, SC+3, DONE+1!
W( ENAC+1*, ENAC+4
X ENAC+3*, ENAC+4, SC+1!, SC+3, ENNLP+5*
X1 DONE+1!
X2 DONE+1!
Z DONE+1!
>> ZTDESC DEV1+2*, DEV2+2*
ZTOUT DONE+1!
ZTSAVE ENAC+5!, ENNL+1!, DEV2+2!
ZTSAVE("PSGLWARD" ENAC+5*, DEV1+2*
ZTSAVE("PSGLWARD(" ENAC+5*, DEV1+2*
ZTSAVE("PSGTOL" ENAC+5*, DEV1+2*
>> ZTSK DEV1+2, DEV2+2
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