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

Package: IHS Changes To ADT

Routine: ADGLDCP


Information

ADGLDCP ; IHS/ADC/PDW/ENM - DISCHARGES LISTING (PRINT) ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGLDCP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Changes To ADT 1 (KILL,TIME)^ADGUTIL  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGLDCC  

Entry Points

Name Comments DBIA/ICR reference
SERV ;***> admit service order
END1
LINE ;***> subrtn to print patient data
SV4
END ;***> eoj
NEWPG ;***> subrtn for end of page control
WD1
HEAD ;***> subrtn to print heading
SV3
DT3
WD2
WD3
WD4
DATE ;***> discharge date order
DT2
DT1
SV2
WARD ;***> in order by ward
SV1

External References

Name Field # of Occurrence
^%ZISC END1+1
KILL^ADGUTIL END1
TIME^ADGUTIL HEAD+5
^DIR END+1, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?35,"** ",$E(DGW,1,3)," **"
  • Line Location: WD1+2
Function Call: WRITE
  • Prompt: !!?35,"** ",$E(DGSV,1,3)," **"
  • Line Location: SV1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+0
Function Call: WRITE
  • Prompt: !,$E(DGNM,1,20)
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: ?23,$J(DGX,6)
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: ?32,DGTIM,?41,$E(DGSV,1,3),?48,$E(DGW,1,3)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?32,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)_"@"_$E($P(DGDT,".",2)_"000",1,4)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?48,$S(DGTYP=2:$E(DGSV,1,3),DGTYP=3:$E(DGW,1,3),1:"")
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: ?55,$E(DGDX,1,25)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?11,"*******Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGFAC)/2,DGFAC
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y,?30,DGRANGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?80-$L(DGX)/2,DGX
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !?32,"Dsch"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"Patient Name",?24,"HRCN"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?32,"Time",?41,"Srv",?47,"Ward",?57,"Admitting Diagnosis"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?33,"Dsch Date",?48,"Srv",?57,"Admitting Diagnosis"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: ?33,"Dsch Date",?47,"Ward",?58,"Admitting Diagnosis"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,DGLINE2
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !!?25,"** Discharged on ",$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)," **",!
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !!?80-$L(DGX)/2,DGX
  • Line Location: HEAD+16
Routine Call
  • DIR
  • Line Location:
    • END+1
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LINE+2
^DD("DD" HEAD+6
^DIC(4 - [#4] ADGLDCP+5
^DPT - [#2] DT3+3
^TMP("DGZLDC" DT1, DT2, DT3, DT3+1, WD1, WD2, WD3, WD4, WD4+1, SV1
, SV2, SV3, SV4, SV4+1, END1+1!
^VA(200 - [#200] ADGLDCP+4

Label References

Name Line Occurrences
DATE ADGLDCP+11
DT1 DT2
DT2 DT3
DT3 DT3+4
END DT1, WD1, SV1
END1 DT1+1, DT3+4, WD1+1, WD4+3, SV1+1, SV4+3
HEAD NEWPG+1, NEWPG+3
LINE DT3+4, WD4+3, SV4+3
NEWPG DT1+1, WD1+1, SV1+1, LINE+7
SERV ADGLDCP+11
SV1 SV2
SV2 SV3
SV3 SV4
SV4 SV4+3
WARD ADGLDCP+11
WD1 WD2
WD2 WD3
WD3 WD4
WD4 WD4+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DT2*, DT3*, DT3+1, DT3+3, WD3*, WD4*, WD4+1, SV3*, SV4*, SV4+1
, LINE+2
>> DGBDT ADGLDCP+6, WD1+1, WD1+2, SV1+1, SV1+2, HEAD+16
>> DGDT DATE+1*, DT1*, DT2, DT3, DT3+1, WD1*, WD2*, WD3, WD4, WD4+1
, SV1*, SV2*, SV3, SV4, SV4+1, LINE+4, HEAD+15
>> DGDUZ ADGLDCP+4*, HEAD+4
>> DGDX DT3+2*, WD4+2*, SV4+2*, LINE+6
>> DGEDT ADGLDCP+7, WD1+1, WD1+2, SV1+1, SV1+2, HEAD+16
>> DGFAC ADGLDCP+5*, HEAD+4
>> DGLINE ADGLDCP+8*, HEAD+2, HEAD+9
>> DGLINE2 ADGLDCP+9*, HEAD+14
>> DGNM DT3+3*, WD2*, WD3*, WD4, WD4+1, SV2*, SV3*, SV4, SV4+1, LINE+1
>> DGPAGE ADGLDCP+4*, WD1+1, WD1+2, SV1+1, SV1+2, NEWPG+2, HEAD+1, HEAD+2*, HEAD+5
>> DGRANGE ADGLDCP+6*, ADGLDCP+7*, HEAD+6
>> DGS DT3+1*, DT3+2, WD4+1*, WD4+2, SV4+1*, SV4+2
>> DGSTOP ADGLDCP+4*, DT1+1, DT3+4, WD1+1, WD4+3, SV1+1, SV4+3, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSV DT3+2*, WD4+2*, SERV+1*, SV1*, SV1+2, SV2, SV3, SV4, SV4+1, LINE+3
, LINE+5, HEAD+16
>> DGTIM DT3+3*, LINE+3
>> DGTM DT1*, DT2*, DT3, DT3+1, DT3+3
>> DGTY HEAD+4*, HEAD+5
>> DGTYP ADGLDCP+11, LINE+3, LINE+4, LINE+5, HEAD+7, HEAD+9, HEAD+11, HEAD+12, HEAD+13, HEAD+15
, HEAD+16
>> DGW DT3+2*, WARD+1*, WD1*, WD1+2, WD2, WD3, WD4, WD4+1, SV4+2*, LINE+3
, LINE+5, HEAD+16
>> DGX LINE+2*, HEAD+7*, HEAD+8, HEAD+16*
DIR END+1!, NEWPG+2!
DIR(0 END+1*, NEWPG+2*
DT HEAD+6
DUZ ADGLDCP+4
DUZ(2 ADGLDCP+5, LINE+2
IOF END1, HEAD+1
IOSL LINE+7
IOST END+1, NEWPG+1, HEAD+1
U ADGLDCP+4, ADGLDCP+5, DT1+1, DT3+2, DT3+3, DT3+4, WD1+1, WD4+2, WD4+3, SV1+1
, SV4+2, SV4+3, LINE+2, NEWPG+3
>> X NEWPG+2
>> Y HEAD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All