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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGDS0

Package: Inpatient Medications

Routine: PSGDS0


Information

PSGDS0 ;BIR/CML3-GATHER INFO FOR DISCHARGE SUMMARY ;25 Feb 99 / 9:30 AM

Source Information

Source file <PSGDS0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 7 DTM^PSGDS  ^PSGDSP  EN^PSGDSP1  ($$ENDTC,$$ENMRN,$$ENPDN,$$ENSTN)^PSGMI  $$ENSET^PSGSICHK  ENDEV^PSGTI  (,PSJAC2)^PSJAC  
VA FileMan 2 ^%DT  NOW^%DTC  
Kernel 1 ^%ZISC  
Registration 1 (ELIG,SDA)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGDS  

Entry Points

Name Comments DBIA/ICR reference
PP ;
EN ; entry point
GDT ;
PW ;
GOD ; gather order data
ENQ ; queued entry point
SET ;
PG ;
PAT ;

External References

Name Field # of Occurrence
^%DT GDT+1
NOW^%DTC PAT+1, EN+1
^%ZISC ENQ+1
DTM^PSGDS GDT+1
^PSGDSP ENQ+1
EN^PSGDSP1 PW+4
$$ENDTC^PSGMI GOD+4, PAT+3
$$ENMRN^PSGMI GOD+3
$$ENPDN^PSGMI GOD+14
$$ENSTN^PSGMI GOD+4
$$ENSET^PSGSICHK GOD+19
ENDEV^PSGTI EN+4
^PSJAC SET+2
PSJAC2^PSJAC PAT+1
ELIG^VADPT PAT+4
SDA^VADPT PAT+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",N," date: "
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: GDT+1
Function Call: WRITE
  • Prompt: !,"...this may take a few minutes...(you should QUEUE this report)..."
  • Line Location: EN+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] PG+1
^DPT - [#2] PW+6
^DPT("CN" PW+3
^PS(55 - [#55] GOD+1, GOD+6, GOD+7, GOD+11, GOD+16, PAT+2, PW+5, PW+6
^PS(57.5 - [#57.5] PG+1
^PS(57.7 - [#57.7] PW+8, SET+1
^PSDRUG - [#50] GOD+10, GOD+14, GOD+15, GOD+16
^TMP("PSG" GOD+19*, PAT+3, PAT+5*, ENQ+1!, ENQ+2!
^TMP("PSGDS" PW+9, SET+2*, SET+3*
^UTILITY("VASD" PAT+3!, ENQ+2!

Label References

Name Line Occurrences
@( ENQ+1, PP+1
GDT EN+1
GOD PAT+2
PAT PW+9
PW PG+1
SET PW+7, PW+8

Naked Globals

Name Field # of Occurrence
^( GOD+1, GOD+16, GOD+19*, PAT+5*
^("E" PAT+3
^("I" PAT+3
^(0 PG+1
^(2 GOD+1
^(6 GOD+1
^(8 GOD+14, GOD+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+1, EN+1
%DT GDT+1!*, GDT+3!, ENQ+2!
%DT(0 GDT+1*
AM ENQ+2!
>> CNT GOD+5*, GOD+9*, GOD+11
>> DD GOD+16*
>> DDRG GOD+5*, GOD+9*, GOD+11*, GOD+14, GOD+15, GOD+19
>> DFN PAT+3*
>> DO GOD+1*, GOD+19
>> DRG GOD+1*, GOD+14
DRGN GOD+5*, GOD+14*, GOD+19, ENQ+2!
DT GOD+16
DTIME GDT+1
>> ELIG PAT+4*, PAT+5
>> FD GOD+3*, GOD+19
IO("Q" EN+4
>> JJ GOD+6*, GOD+7, GOD+9
LQ ENQ+2!, PW+5*, PW+6*
N GOD+1*, GOD+19, GDT+1, GDT+2, EN+1*, ENQ+2!
>> ND GOD+1*, GOD+3, GOD+4*, GOD+19
>> ND2 GOD+1*, GOD+3*, GOD+19
>> NF GOD+3*, GOD+19
>> NP PG+1, PW+3, PP+1
PAT PP+1~*
>> PN GOD+19, PAT+1*, PAT+3, PAT+5
>> POP EN+4
>> PSGAPWD PG+1*, PW+8, SET+1
>> PSGAPWDN GOD+19, PAT+1*, PAT+3, PAT+5, PG+1*, PW+3
>> PSGAPWG PG+1
>> PSGATM PW+7
>> PSGBLANK PAT+2, EN+1, ENQ+1, PW+4, PP+1
>> PSGDT GOD+8, PAT+1*, PAT+2, GDT+1, GDT+2, EN+1*
>> PSGOD PAT+3*, PAT+5
>> PSGP GOD+1, GOD+6, GOD+7, GOD+11, GOD+16, PAT+1, PAT+2, PAT+3, PW+2*, PW+3*
, PW+5, PW+6, PW+9*, SET+2, SET+3, PP+1*
>> PSGP(0 PAT+1, SET+2
>> PSGPAT( PP+1
>> PSGPATM( PW+1*, PW+8
>> PSGPATM("ALL" PW+8
>> PSGTIR EN+4*
PSGX PW+9~*
>> PSJACNWP ENQ+1*
>> PSJJORD GOD+1, GOD+6, GOD+7, GOD+11, GOD+16, GOD+19, PAT+2*
>> PSJPAD PAT+5
>> PSJPAGE PAT+5
>> PSJPDOB PAT+5
>> PSJPDX PAT+5
>> PSJPRB PAT+5
>> PSJPSEX PAT+5
>> PSJPSSN PAT+5
>> PSJPTD PAT+5
>> PSJPWDN PAT+1
>> PSJPWT PAT+5
>> PSJSEL("RBP" ENQ+1
>> PSJSEL("SELECT" PAT+1, EN+1, EN+2, ENQ+1
>> PSJSEL("TM" PW+1
>> Q GOD+16*, PW+5*, PW+6
>> QQ PW+6*
>> RB PW+6*, PW+8, SET+1*, SET+3
RBP ENQ+1~*, SET+2, SET+3
>> RTE GOD+3*, GOD+19
SC PAT+3*, PAT+5, ENQ+2!
>> SD GOD+3*, GOD+19
>> SI GOD+1*, GOD+19
SPH GOD+3*, GOD+10*, GOD+15*, GOD+19, ENQ+2!
>> ST GOD+3*, GOD+19
>> STP GDT+2*, PW+6
>> STRT PAT+2*
>> STT GDT+1, GDT+2*, PW+5
>> TM PW+1*, PW+6*, PW+8*, SET+1*, SET+2, SET+3
U GOD+8, GOD+10, PAT+5
UC GOD+16*, GOD+19, ENQ+2!
VAEL PAT+4!
VAEL(3 PAT+4
VAEL(4 PAT+4
VAEL(6 PAT+4
VASD PAT+3!, ENQ+2!
>> X GOD+4*, GOD+7*, GOD+8, GOD+10, GDT+1*, GDT+2, EN+1*, EN+2*, PW+9
>> Y GOD+19*, GDT+1*, GDT+2
>> ZTDESC EN+4*
ZTSAVE EN+2!
ZTSAVE( EN+2*
ZTSAVE("STP" EN+2*
ZTSAVE("STT" EN+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All