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

Package: IHS Changes To ADT

Routine: ADGSIL


Information

ADGSIL ; IHS/ADC/PDW/ENM - SERIOUSLY ILL LIST ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGSIL.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS SI LIST  

Entry Points

Name Comments DBIA/ICR reference
A ; -- driver
TS() ; -- treating specialty
ZIS ; -- device selection
PR() ; -- provider
NPG
WD() ; -- ward
Q
LW ;EP; -- loop inpatients
WRT ;
QUE ; -- queued output
AGE() ; -- age
HD ;print heading

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!?31,"PATIENTS CURRENTLY ON SERIOUSLY ILL LIST",!!
  • Line Location: ADGSIL+3
Function Call: WRITE
  • Prompt: !,$E($P($G(^DPT(+DFN,0)),U),1,20),?25,$$HRCN^ADGF
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?37,$E($$PR,1,15),?55,$$AGE,?63,$$WD,?68,$E($$TS,1,3)
  • Line Location: WRT+3
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: !!?31,"SERIOUSLY ILL 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",?25,"Chart #",?37,"Provider",?55,"Age"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?63,"WD",?68,"SRV",!
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: Q+1
Routine Call
  • %ZIS
  • Line Location:
    • Q+1
Routine Call
  • DIR
  • Line Location:
    • Q
    • NPG+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WD+1
^DIC(45.7 - [#45.7] TS+1
^DPT - [#2] WRT+1, WRT+2, PR+1, TS+1, WD+1
^DPT("CN" LW+2, LW+3
^UTILITY("DIQ1" AGE+2!, AGE+3!
^VA(200 - [#200] PR+1

Label References

Name Line Occurrences
$$AGE WRT+3
$$PR WRT+3
$$TS WRT+3
$$WD WRT+3
HD LW+1, NPG, NPG+1
LW A+3
NPG WRT+4
Q A+1, A+2, A+3
QUE A+2
WRT LW+3
ZIS A+1

Naked Globals

Name Field # of Occurrence
^("DAC" WRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ZIS+1*
DA AGE+1~, AGE+2*
DFN LW+3*, WRT+1, WRT+2, Q+2!, AGE+2, AGE+3, PR+1, TS+1, WD+1
DIC AGE+1~, AGE+2*
DIR Q!, NPG+1!
DIR(0 Q*, NPG+1*
>> DIRUT NPG+1
DR AGE+1~, AGE+2*
DT HD+4
IO LW+1
IO("Q" A+2, QUE+1!
IOF ADGSIL+3, HD+1, Q+1
IOSL WRT+4
IOST HD+1, Q, NPG
>> POP A+1
U WRT+1, WRT+2, PR+1, TS+1, WD+1
WD LW+2*, LW+3, Q+2!
X NPG+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