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 |  Local Variables |  All
Print Page as PDF
Routine: ADGING21

Package: IHS Changes To ADT

Routine: ADGING21


Information

ADGING21 ; IHS/ADC/PDW/ENM - INPATIENT > 21 DAYS ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGING21.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 (,C,NOW)^%DTC  ^DIR  
IHS Changes To ADT 1 PRTOPT^ADGVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS INPAT UR21  

Entry Points

Name Comments DBIA/ICR reference
A ; -- entry point
ZIS ; -- device selection
Q ; -- cleanup
WRT ; -- print patient info
TM ; -- tasked output
QUE ; -- queued entry point
LP ; -- loop inpatient by ward
NEWPG ; -- end of page control
DT ; -- date (today - 21 days)
HDH ; -- heading

External References

Name Field # of Occurrence
^%DTC WRT+5, WRT+10
C^%DTC DT+2
NOW^%DTC HDH+5
^%ZIS ZIS+2
HOME^%ZIS Q+2
^%ZISC Q+2
^%ZTLOAD TM+2
PRTOPT^ADGVAR Q+1
^DIR A+3, NEWPG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Total: ",TOT,!!
  • Line Location: LP+9
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,25)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?27,$J($P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2),9)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?37,$J(X,3)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?42,$E(WRD,1,5)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?48,$P(Y,",",1)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?57,X
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?63,$E($P(^AUPNPAT(DFN,11),U,18),1,12)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?76,$E($P(^DIC(45.7,^DPT(DFN,.103),0),U),1,3)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDH+2
Function Call: WRITE
  • Prompt: !,"PATIENTS WITH ",DGND," INPATIENT DAYS OR MORE"
  • Line Location: HDH+4
Function Call: WRITE
  • Prompt: ?65,Y
  • Line Location: HDH+6
Function Call: WRITE
  • Prompt: !?5,"NAME",?31,"HRCN",?37,"AGE",?42,"WARD",?48,"ADM DT"
  • Line Location: HDH+7
Function Call: WRITE
  • Prompt: ?57,"LOS",?63,"COMMUNITY",?76,"SRV"
  • Line Location: HDH+8
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDH+10
Routine Call
  • %ZIS
  • Line Location:
    • Q+2
Routine Call
  • DIR
  • Line Location:
    • A+3
    • NEWPG+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] WRT+4, WRT+11
^DD("DD" WRT+8, HDH+5
^DGPM - [#405] LP+7, WRT+8, WRT+10
^DIC(45.7 - [#45.7] WRT+12
^DPT - [#2] WRT+3, WRT+5, WRT+12
^DPT("CN" LP+4, LP+5, LP+6

Label References

Name Line Occurrences
A A+7
DT A+9, QUE+1
HDH LP+3, NEWPG+2
LP A+9, QUE+1
NEWPG WRT+2
Q A+3, A+5, A+6, A+8, A+9, QUE+1
TM ZIS+3
WRT LP+7
ZIS A+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ZIS+1*
ADM LP+1~, LP+3*, LP+6*, LP+7, WRT+8, WRT+10
DFN LP+1~, LP+3*, LP+5*, LP+6, WRT+3, WRT+4, WRT+5, WRT+11, WRT+12
DGND A+4*, A+5, A+6, A+7, DT+2, HDH+4, Q+3!
DGPG LP+2*, HDH+2, HDH+3*, Q+3!
DGSTOP LP+2*, LP+4, LP+5, LP+8, WRT+2, NEWPG+1*, Q+1, Q+3!
DGZDT DT+2*, LP+7, Q+3!
DIR A+1~, NEWPG+1!
DIR("?" A+2*
DIR("A" A+1*
DIR(0 A+1*, NEWPG+1*
DIRUT A+3, Q+3!
DT DT+2, WRT+5, WRT+10
DUZ(2 WRT+4
IO LP+2
IO("Q" A+8, ZIS+3
IOF HDH+2
IOM HDH+9
ION TM+1
IOSL WRT+2
IOST HDH+2, NEWPG+1, Q+1
>> POP A+8, ZIS+2
TOT LP+1~, LP+3*, LP+7*, LP+9
U A+5, LP+4, LP+5, LP+8, WRT+2, WRT+3, WRT+4, WRT+5, WRT+11, WRT+12
, NEWPG+1
WRD LP+1~, LP+3*, LP+4*, LP+5, LP+6, WRT+7
X DT+1~, DT+2, WRT+1~, WRT+5*, WRT+6, WRT+10, HDH+1~, HDH+5, HDH+9*, HDH+10
, NEWPG+1
X1 DT+1~, DT+2*, WRT+1~, WRT+5*, WRT+10*
X2 DT+1~, DT+2*, WRT+1~, WRT+5*, WRT+10*
Y A+4, WRT+1~, WRT+8*, WRT+9, HDH+1~, HDH+5*, HDH+6
>> ZTDESC TM+1*
>> ZTIO TM+1*
>> ZTRTN TM+1*
>> ZTSAVE("DGND" TM+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All