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

Package: IHS Changes To ADT

Routine: ADGSIL1


Information

ADGSIL1 ; IHS/ADC/PDW/ENM - SI/DNR LISTING ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGSIL1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Changes To ADT 2 $$HRCN^ADGF  PRTOPT^ADGVAR  
VA Fileman 2 EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS SI/DNR LIST  

Entry Points

Name Comments DBIA/ICR reference
A ; -- main
Q ; -- cleanup
ZIS ; -- device selection
LW ; -- loop inpatients
NPG ; -- end of page
1
START ; -- queued output driver
WRT ; -- loop utl
QUE ; -- queued output
AGE() ; -- age
VAR ;
HD1() ; -- heading
HD ; -- heading

External References

Name Field # of Occurrence
^%ZIS ZIS+1
HOME^%ZIS Q+2
^%ZISC Q+2
^%ZTLOAD QUE+1
$$HRCN^ADGF VAR+4
PRTOPT^ADGVAR Q+1
EN^DIQ1 AGE+2
^DIR NPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: ADGSIL1+3
Function Call: WRITE
  • Prompt: ?10,"PATIENTS CURRENTLY ON SERIOUSLY ILL/DO NOT RESUSCITATE LIST",!!
  • Line Location: ADGSIL1+4
Function Call: WRITE
  • Prompt: !!?28,$$HD1,!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,$E(NAME,1,20),?23,$P(N,U,4)
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: ?32,$E($P($G(^VA(200,+$P(N,U,3),0)),U),1,12)
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: ?48,$P(N,U),?57,$P(N,U,5),?63,$E($G(^DIC(45.7,+$P(N,U,2),0)),1,3)
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: ?69,$E($P(N,U,6),4,5)_"/"_$E($P(N,U,6),6,7)_"/"_$E($P(N,U,6),2,3)
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!?22,"SERIOUSLY ILL/DO NOT RESUSCITATE LIST",!
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?34,"for ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),!!
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Chart #",?32,"Provider",?48,"Age"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?57,"WD",?63,"SRV",?69,"Entered"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+2
Routine Call
  • %ZIS
  • Line Location:
    • Q+2
Routine Call
  • DIR
  • Line Location:
    • NPG+2
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] VAR+3
^DIC(45.7 - [#45.7] 1+3
^DPT - [#2] VAR+1, VAR+2
^DPT("CN" LW+2, LW+3
^TMP("DGZSIL" ADGSIL1+3!, START+1!, VAR+5*, VAR+6*, WRT+2, WRT+4, WRT+5, 1
^UTILITY("DIQ1" AGE+2!, AGE+3!
^VA(200 - [#200] 1+2

Label References

Name Line Occurrences
$$AGE VAR+4
$$HD1 WRT+3
1 WRT+5
HD WRT+2, NPG+1, NPG+2
LW A+3, START+2
NPG 1+5
Q A+1, A+2, A+3, START+2
QUE A+2
VAR LW+3
WRT A+3, START+2
ZIS A+1

Naked Globals

Name Field # of Occurrence
^( VAR+2
^("DAC" VAR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ZIS+1*
CDT LW+1~, VAR+3*, VAR+4, WRT+1~
CON LW+1~, VAR+3*, VAR+5, VAR+6, WRT+1~
DA AGE+1~, AGE+2*
DFN LW+1~, LW+3*, VAR+1, VAR+2, VAR+5, VAR+6, WRT+1~, WRT+5*, 1, AGE+2
, AGE+3
DIC AGE+1~, AGE+2*
DIR NPG+2!
DIR(0 NPG+2*
>> DIRUT WRT+5, NPG+2
DR AGE+1~, AGE+2*
DT HD+4
IO WRT+2
IO("Q" A+2, Q+2!
IOF ADGSIL1+3, HD+1, Q+2
IOSL 1+5
IOST HD+1, NPG+1, Q+1
N LW+1~, VAR+1*, VAR+3, WRT+1~, 1*, 1+1, 1+2, 1+3, 1+4
NAME LW+1~, VAR+2*, VAR+5, VAR+6, WRT+1~, WRT+4*, WRT+5, 1, 1+1
>> POP A+1
PR LW+1~, VAR+2*, VAR+4, WRT+1~
>> SI WRT+2*, WRT+4, WRT+5, 1, HD1+1
TS LW+1~, VAR+2*, VAR+4, WRT+1~
U VAR+1, VAR+2, VAR+3, VAR+4, 1+1, 1+2, 1+3, 1+4
UTL LW+1~, VAR+4*, VAR+5, VAR+6, WRT+1~
WARD LW+1~, LW+2*, LW+3, VAR+3, VAR+4, WRT+1~
WD LW+1~, VAR+3*, WRT+1~
X LW+1~, WRT+1~, AGE+1~, AGE+3*, AGE+4
>> ZTDESC QUE+1*
>> ZTRTN QUE+1*
ZTSK Q+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All