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

Package: IHS Changes To ADT

Routine: ADGADSP3


Information

ADGADSP3 ; IHS/ADC/PDW/ENM - A & D SHEET PRINT (SUMMARY) ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGADSP3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To ADT 2 ^ADGADSP4  KILL^ADGUTIL  
VA Fileman 2 (C,DW)^%DTC  ^DIR  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To ADT 3 ADGADSP4  ADGADSP5  ADGADSP6  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP;***> ending point for summary A&D Sheets
HEAD ;***> print heading
END
AS() ;--admitting service (yes=1,no=0)
NEXT
A1
A3
NEWPG ;EP;***> end of page control

External References

Name Field # of Occurrence
C^%DTC ADGADSP3+6
DW^%DTC HEAD+8
^%ZISC END1+2
^ADGADSP4 NEXT
KILL^ADGUTIL END1+1
^DIR END, NEWPG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(^DIC(45.7,DGZ,0),U)
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: ?20,DGX
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: ?30,DGX
  • Line Location: A1+7
Function Call: WRITE
  • Prompt: ?38,DGX
  • Line Location: A1+8
Function Call: WRITE
  • Prompt: ?47,DGX
  • Line Location: A1+9
Function Call: WRITE
  • Prompt: ?54,DGX
  • Line Location: A1+10
Function Call: WRITE
  • Prompt: ?61,DGX
  • Line Location: A1+11
Function Call: WRITE
  • Prompt: ?71,DGX
  • Line Location: A1+12
Function Call: WRITE
  • Prompt: !?17,"----------------------------------------------------------"
  • Line Location: A3+0
Function Call: WRITE
  • Prompt: !?5,"TOTALS:",?18,$J(DGCT(1),3),?28,$J(DGCT(2),3),?36,$J(DGCT(3),3)
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: ?45,$J(DGCT(4),3),?51,$J(DGCT(5),3),?59,$J(DGCT(6),3)
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: ?69,$J(DGCT(7),3)
  • Line Location: A3+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****",!
  • Line Location: NEWPG+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(80-$L(DGFAC)/2),DGFAC
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?(80-$L(DGCITY_DGSTAT)/2),DGCITY_","_DGSTAT
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !!!,"DAILY CENSUS REPORT"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?10,$E(DGDATE,4,5)_"-"_$E(DGDATE,6,7)_"-"_$E(DGDATE,2,3),!
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: DGLIN
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !!!,"SERVICE",?17,"REMAINING",?28,"ADMITS",?35,"TRANSFERS"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?45,"DEATHS",?52,"OTHER",?58,"TRANSFERS",?68,"REMAINING"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"Responsible",?17,"from the",?38,"IN",?53,"DIS-",?61,"OUT",?72,"At"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,"for Patient",?17,"Preceding",?51,"CHARGES",?69,"11:59 pm"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !?20,"Day",!!
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: DGLIN,!!
  • Line Location: HEAD+16
Routine Call
  • DIR
  • Line Location:
    • END
    • NEWPG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGTX - [#9009011.5] A1, A1+2, A1+3, A1+5, A1+6
^AUTTLOC - [#9999999.06] HEAD+1
^DIC(4 - [#4] HEAD+1
^DIC(45.7 - [#45.7] A1+1, AS+1
^DIC(5 - [#5] HEAD+5
^TMP("DGZADS" END1+2!

Label References

Name Line Occurrences
$$AS A1
A1 A1, A1+2, A1+5, A1+14
A3 A1
END1 A1+13
HEAD ADGADSP3+8
NEWPG A1+13

Naked Globals

Name Field # of Occurrence
^(1 A1+2, A1+3, A1+5, A1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGCITY HEAD+5*, HEAD+6
>> DGCT( ADGADSP3+7*
>> DGCT(1 A1+4*, A3+1
>> DGCT(2 A1+7*, A3+1
>> DGCT(3 A1+8*, A3+1
>> DGCT(4 A1+9*, A3+2
>> DGCT(5 A1+10*, A3+2
>> DGCT(6 A1+11*, A3+2
>> DGCT(7 A1+12*, A3+3
>> DGDATE ADGADSP3+6, A1+5, A1+6, HEAD+8, HEAD+9
>> DGFAC HEAD+1*, HEAD+4
>> DGLIN ADGADSP3+9*, HEAD+10*, HEAD+16
>> DGOLD ADGADSP3+6*, A1+2, A1+3
>> DGPAGE ADGADSP3+8*, HEAD+2
>> DGPSTR A1+6*, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12
>> DGSTAT HEAD+5*, HEAD+6
>> DGSTOP ADGADSP3+8*, A1+13, NEWPG+1*
>> DGSTR A1+6*, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12
>> DGX A1+3*, A1+4, A1+7*, A1+8*, A1+9*, A1+10*, A1+11*, A1+12*
>> DGY HEAD+1*, HEAD+5
>> DGZ ADGADSP3+7*, A1*, A1+1, A1+2, A1+3, A1+5, A1+6, AS+1
DIR END!, NEWPG+1!
DIR("A" END*
DIR(0 END*, NEWPG+1*
DUZ(2 HEAD+1
>> I ADGADSP3+7*
IOF END1+1, NEWPG+2, HEAD+2
IOSL A1+13
IOST END, NEWPG+1, HEAD+2
U A1+1, A1+3, A1+7, A1+8, A1+9, A1+10, A1+11, A1+12, A1+13, NEWPG+1
, HEAD+1, HEAD+5, AS+1
>> X ADGADSP3+6, NEWPG+1, HEAD+8*
>> X1 ADGADSP3+6*
>> X2 ADGADSP3+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All