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

Package: IHS Changes To ADT

Routine: ADGADPL


Information

ADGADPL ; IHS/ADC/PDW/ENM - AVERAGE DAILY PATIENT LOAD BY WARD ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGADPL.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$HTFM)^XLFDT  
VA Fileman 3 ^%DT  ^%DTC  ^DIR  
IHS Changes To ADT 2 KILL^ADGUTIL  PRTOPT^ADGVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS CEN ADPL  

Entry Points

Name Comments DBIA/ICR reference
END1
HEAD ;***> print heading
BDATE ; -- ask users for beginning date
END
DEV ; -- ask user for printing device
NEWPG ;***> end of page control
END2
QUE
TIME ; -- SUBRTN to print time
PRINT ;***> Print report
CALC ;EP; -- calculate of ADPL
EDATE ; -- ask user for ending date
SELECT ; -- have user select report by ward or by service

External References

Name Field # of Occurrence
^%DT BDATE+1, EDATE+1
^%DTC PRINT+8
^%ZIS DEV+1
HOME^%ZIS END
^%ZISC QUE+2, END2
^%ZTLOAD QUE+2
KILL^ADGUTIL END2
PRTOPT^ADGVAR END1
^DIR SELECT+2, NEWPG+2
$$FMTE^XLFDT TIME+2
$$HTFM^XLFDT TIME+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!?18,"AVERAGE DAILY PATIENT LOAD BY WARD OR SERVICE",!!
  • Line Location: ADGADPL+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BDATE+1
Function Call: WRITE
  • Prompt: !!?5,DGW
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?45,$J(DGA(DGW),3),?60,$J(DGAV,5,2),!
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,DGLIN1,!?10,"TOTAL:",?45,$J(DGT,3),?60,$J(DGAT,5,2),!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: DGDUZ,?80-$L(DGFAC)\2,DGFAC
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?70,"Page ",DGPAGE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?80-$L(X)/2,X
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?25,DGDTLIN,!!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: ?5,$S(DGFORM=1:"WARD",1:"SERVICE"),?40,"INPATIENT DAYS",?60,"ADPL"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,DGLIN
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: $P($$FMTE^XLFDT(X,"2P")," ",2,3)
  • Line Location: TIME+2
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • SELECT+2
    • NEWPG+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGTX - [#9009011.5] CALC+12, CALC+16, CALC+17
^ADGWD - [#9009011] CALC+3, CALC+7, CALC+8
^DIC(4 - [#4] PRINT+4
^DIC(42 - [#42] CALC+4, CALC+5
^DIC(45.7 - [#45.7] CALC+13, CALC+14
^VA(200 - [#200] PRINT+3

Label References

Name Line Occurrences
BDATE EDATE+2
CALC DEV+1
END SELECT+3, DEV+1
END2 PRINT+17
HEAD PRINT+9, NEWPG+1, NEWPG+3
NEWPG PRINT+11
PRINT CALC+1
QUE DEV+1
SELECT BDATE+2
TIME HEAD+4

Naked Globals

Name Field # of Occurrence
^(0 CALC+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT BDATE+1*, EDATE+1*
>> %DT("A" BDATE+1*, EDATE+1*
>> %ZIS DEV+1*
>> DGA( CALC+9*, CALC+18*, PRINT+10, PRINT+12, PRINT+14, PRINT+15, PRINT+16
>> DGAT PRINT+9*, PRINT+15*, PRINT+18
>> DGAV PRINT+14*, PRINT+15, PRINT+16
DGBDT BDATE+2*, END!, CALC+6, CALC+15, PRINT+6, PRINT+8
>> DGD CALC+6*, CALC+7*, CALC+8, CALC+15*, CALC+16*, CALC+17
>> DGDTLIN PRINT+6*, HEAD+7
>> DGDUZ PRINT+3*, HEAD+2
DGEDT EDATE+2*, END!, CALC+7, CALC+16, PRINT+6, PRINT+8
>> DGFAC PRINT+4*, HEAD+2
DGFORM SELECT+3*, END!, CALC+1, HEAD+5, HEAD+8
>> DGL PRINT+8*, PRINT+14
>> DGLIN PRINT+5*, HEAD+9
>> DGLIN1 PRINT+5*, PRINT+18
>> DGPAGE PRINT+3*, NEWPG+2, HEAD+1, HEAD+3*
>> DGSTOP PRINT+4*, PRINT+10, PRINT+11, PRINT+17, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGT PRINT+9*, PRINT+15*, PRINT+18
>> DGW CALC+2*, CALC+3*, CALC+4, CALC+5, CALC+7, CALC+8, CALC+11*, CALC+12*, CALC+13, CALC+14
, CALC+16, CALC+17, PRINT+9*, PRINT+10*, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16
>> DGWN CALC+4*, CALC+5*, CALC+9, CALC+13*, CALC+14*, CALC+18
DIR SELECT+1!, NEWPG+2!
DIR("A" SELECT+2*
DIR(0 SELECT+1*, NEWPG+2*
DT HEAD+7
DUZ PRINT+3
DUZ(2 PRINT+4
>> I QUE+1*
IO DEV+1
IO("Q" DEV+1, QUE!
IOF ADGADPL+4, END2, HEAD+1
IOSL PRINT+11
IOST END1, NEWPG+1, HEAD+1
>> POP DEV+1
U CALC+4, CALC+8, CALC+13, CALC+14, CALC+17, PRINT+3, PRINT+4, PRINT+10, PRINT+11, PRINT+17
, NEWPG+3
X BDATE+1*, EDATE+1*, CALC+8*, CALC+9, CALC+17*, CALC+18, PRINT+8, NEWPG+2, HEAD+5*, HEAD+6
, TIME+1~*, TIME+2
>> X1 PRINT+8*
>> X2 PRINT+8*
Y SELECT+3, BDATE+2, EDATE+2, END!, CALC+17*, CALC+18
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All