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

Package: Inpatient Medications

Routine: PSGL


Information

PSGL ;BIR/CML3-LABEL PRINT/REPRINT ;25 SEP 97 / 7:41 AM

Source Information

Source file <PSGL.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Inpatient Medications 15 (ENACL,ENNL)^PSGL0  EN2^PSGLBA  (CHKM,DTM,LM)^PSGLH  ^PSGLOI  (ENHEDER,ENPVSET)^PSGLPI  (,H2)^PSGON  ^PSGSEL  (ENCV,ENKV)^PSGSETU  
ENTSK^PSGTI  EN^PSIVUDL  ^PSJAC  ^PSJO  ENL^PSJO3  ^PSJP  AADR^PSJUTL  
VA FileMan 6 ^%DT  NOW^%DTC  ^DIC  YN^DICN  ^DIK  ^DIR  
Kernel 2 ^%ZIS  ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 2 PSJU LABEL  PSJU LM LABEL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CHK ;
ASK ;
DONE ;
DEV ;
G ;
W ;
P ;
C ;
CDIC ;
L ;
LDIC ;
ENG ;
ENW ;
ENW1 ;
IWP ;
ENL
ENC ;
ENP ;
ENPLP ;
DT ;
KL ; kill other label records for the same order

External References

Name Field # of Occurrence
^%DT DT+1
NOW^%DTC ENW1+1, ENPLP+1
^%ZIS DEV+1
^%ZISC ASK+1
^DIC G+1, W+1, CDIC+1, LDIC+1
YN^DICN CHK+2, CHK+4
^DIK CHK+5
^DIR C+2, L+2
ENACL^PSGL0 PSGL+6
ENNL^PSGL0 CHK+3
EN2^PSGLBA DEV+2
CHKM^PSGLH CHK+2
DTM^PSGLH DT+1
LM^PSGLH CHK+4
^PSGLOI IWP+4, IWP+7, ENPLP+5, ENPLP+7
ENHEDER^PSGLPI IWP+3, IWP+6, ENPLP+3
ENPVSET^PSGLPI IWP+1, ENPLP+1
^PSGON ENP+7
H2^PSGON ENP+4
^PSGSEL ASK+1
ENCV^PSGSETU PSGL+6
ENKV^PSGSETU DONE+1
ENTSK^PSGTI DEV+6
EN^PSIVUDL ENPLP+4, ENPLP+6
^PSJAC IWP+1, ENPLP+1
^PSJO ENP+2
ENL^PSJO3 ENP+2
^PSJP P+1
AADR^PSJUTL ENP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have unprinted new labels. Do you want them now"
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!,"Will you want them later"
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?3,"(No device chosen for label print.)"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !,"Labels ",$S($D(ZTSK):"",1:"NOT "),"queued!"
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Select orders for labels: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENP+3
Function Call: WRITE
  • Prompt: !!?2,"Select the orders for which you want labels printed."
  • Line Location: ENP+5
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter label start date: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+1
Routine Call
  • DIC
  • Line Location:
    • G+1
    • W+1
    • CDIC+1
    • LDIC+1
Routine Call
  • DIR
  • Line Location:
    • C+2
    • L+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^PS(53.41 - [#53.41] Classic Fileman Calls
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(57.8 - [#57.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ENG+1
^DPT("CN" ENW1+1
^PS(53.1 - [#53.1] IWP+5, IWP+7, ENPLP+6
^PS(53.41 - [#53.41] PSGL+6, CHK+1, KL+1!
^PS(55 - [#55] IWP+2, IWP+4, ENC+2, ENC+3
^PS(57.5 - [#57.5] ENG+1, ENW+1
^PS(57.8 - [#57.8] ENL
^TMP("PSJCI" ENC+1!, ENC+3*, ENC+4
^TMP("PSJON" ENP+8!, ENP+9!, ENPLP+2

Label References

Name Line Occurrences
@( ASK+1
ASK CHK+1, CHK+3
DEV ASK+1, ENP+9
DONE PSGL+7, CHK+3, CHK+5
DT ASK+1
ENC ENL
ENW1 ENG+1
IWP ENW1+1, ENC+4
KL IWP+4, IWP+7, ENPLP+4, ENPLP+5, ENPLP+6, ENPLP+7

Naked Globals

Name Field # of Occurrence
^(0 ENW+1
^(7 IWP+4, IWP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSGL+6*, PSGL+7, CHK+2*, CHK+3, CHK+4*, CHK+5, ENW1+1, ENPLP+1
%DT DT+1!*
%DT(0 DT+1*
%ZIS DEV+1!*
%ZIS("A" DEV+1*
%ZIS("B" DEV+1*
CF DONE+1!
>> CG LDIC+1*, ENL
>> CL CDIC+1*, ENL*
>> CLINIC ENC+2*, ENC+3
>> DA CHK+5*
>> DA(1 CHK+5*
DFN DONE+1!, ENW1+1*, ENC+4*, ENPLP+1*, ENPLP+4, ENPLP+6
DIC G+1!*, W+1!*, CDIC+1!*, LDIC+1!*
DIC("A" G+1*, W+1*
DIC(0 G+1*, W+1*, CDIC+1*, LDIC+1*
>> DIK CHK+5*
DIR C+1!, L+1!
DIR("?" C+2*, L+2*
DIR("A" C+1*, L+1*
DIR(0 C+1*, L+1*
DTIME ENP+3, DT+1
DUZ CHK+1, CHK+5, KL+1
IO ENW1+1, ENPLP+1
IO("Q" ASK+1!, DEV+1!, DEV+2, ENP+9
ION DEV+1
IOP DEV+1!*
>> JDFN ENC+3*
NG DONE+1!
OD DONE+1!
ON DONE+1!, IWP+2*, IWP+4, IWP+5*, IWP+7
ORPV DONE+2!
ORSTOP DONE+2!
ORSTRT DONE+2!
ORSTS DONE+2!
P17 DONE+2!
>> POP ASK+1*, DEV+1*, DEV+2*, ENP+9
PPAGE PSGL+5~, ASK+1*
PSGCNT DONE+1!
>> PSGDT ENW1+1*, ENPLP+1*
PSGEFN PSGL+5~
>> PSGION DEV+1*
>> PSGLAD IWP+2
>> PSGLBLD IWP+4, IWP+7, DT+1*
PSGLMT DONE+1!, ENP+2*
PSGLPF ENP+2!
>> PSGLRB ENPLP+4, ENPLP+6
PSGLSTOP PSGL+6!
PSGLWD ASK+1!, W+1*, ENG+1*, ENW+1, ENPLP+4, ENPLP+6
>> PSGLWDN W+1*, ENG+1*, ENW1+1, ENPLP+4, ENPLP+6
PSGLWG ASK+1!, G+2*, G+3*, ENG+1, ENW+1*
>> PSGLWGN G+2*, G+3*, ENW+1*
PSGODDD DONE+1!, ENPLP+2
PSGODDD( ENPLP+2
PSGODT DONE+1!
PSGOL DONE+1!
PSGON DONE+1!
PSGOP DONE+1!, ENW1+1*, IWP+2, IWP+4, IWP+5, ENC+4*, ENPLP+1*, KL+1
PSGORD DONE+1!, IWP+4*, IWP+7*, ENPLP+2*, ENPLP+4, ENPLP+5, ENPLP+6, KL+1
>> PSGP P+1, ENW1+1*, ENC+4*, ENPLP+1
PSGPL1 DONE+1!, ENPLP+2*
PSGPL2 DONE+1!, ENPLP+2*
PSGPL3 DONE+1!, ENPLP+2*
PSGPTMP PSGL+5~, ASK+1*
PSGSS ASK+1, DONE+1!, DEV+3, DEV+4, DEV+5
PSGSSH ASK+1*, DONE+1!
>> PSGTIR DEV+3*
>> PSGTOL PSGL+6*
PSIVREA DONE+1!
PSJACND IWP+1~*
PSJACNWP IWP+1!
PSJFIRST IWP+1~*, IWP+3*, IWP+6*, ENPLP+2~*, ENPLP+3*
PSJIVOF DONE+1!
PSJNEW PSGL+5~*
PSJOCNT DONE+1!
PSJOL DONE+1!, ENP+2
PSJON DONE+1!, ENP+2
PSJORD DONE+1!, ENPLP+2*
>> PSJOS ENP+2*
PSJPR P+1!
>> PSJSYSL DEV+1
>> PSJSYSP0 ENP+2
>> PSJSYSW0 IWP+3, IWP+6, ENPLP+3
Q1 DONE+1!
Q2 DONE+1!
QO DONE+1!
QS DONE+1!, KL+1*
QSD DONE+1!, IWP+2*
RF DONE+1!
>> STDTE ENC+2*, ENC+3
U IWP+3, IWP+6, ENPLP+3, ENPLP+4, ENPLP+6
WG DONE+1!
X DEV+3*, DEV+4*, DEV+5*, G+2, CDIC+2, LDIC+2, ENP+3*, ENP+4!, ENP+5!, ENP+6!
, ENP+7, ENP+8, ENPLP+6*, DT+1*
>> XQUIT PSGL+6
>> Y ASK+1*, G+2*, G+3, W+1, P+1*, CDIC+1, LDIC+1, DT+1, DT+2
>> Y(0 G+3, W+1
>> ZTDESC DEV+3*
ZTSAVE ASK+1!, DONE+1!
ZTSAVE( DEV+3*, DEV+4*, DEV+5*
ZTSAVE("PSGLBLD" DT+1*
ZTSK DEV+1!, DEV+6, ENPLP+1
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