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

Package: IHS Changes To ADT

Routine: ADGLADP


Information

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

Source Information

Source file <ADGLADP.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 ADGLADC  

Entry Points

Name Comments DBIA/ICR reference
SERV ;***> admit service order
END1
LINE ;***> 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 ;***> admit 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(DGSITE)/2,DGSITE
  • 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+7
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?32,"Admit"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Patient Name",?24,"HRCN"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?32,"Time",?41,"Srv",?47,"Ward",?57,"Admitting Diagnosis"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?33,"Admit Date",?48,"Srv",?57,"Admitting Diagnosis"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?33,"Admit Date",?47,"Ward",?58,"Admitting Diagnosis"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,DGLINE2
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !!?25,"** Admitted on ",$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)," **",!
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !!?80-$L(DGX)/2,DGX
  • Line Location: HEAD+15
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] ADGLADP+5
^DPT - [#2] DT3+3
^TMP("DGZLAD" DT1, DT2, DT3, DT3+1, WD1, WD2, WD3, WD4, WD4+1, SV1
, SV2, SV3, SV4, SV4+1, END1+1!
^VA(200 - [#200] ADGLADP+4

Label References

Name Line Occurrences
DATE ADGLADP+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 ADGLADP+11
SV1 SV2
SV2 SV3
SV3 SV4
SV4 SV4+3
WARD ADGLADP+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 ADGLADP+6, WD1+1, WD1+2, SV1+1, SV1+2, HEAD+15
>> DGDT DATE+1*, DT1*, DT2, DT3, DT3+1, WD1*, WD2*, WD3, WD4, WD4+1
, SV1*, SV2*, SV3, SV4, SV4+1, LINE+4, HEAD+14
>> DGDUZ ADGLADP+4*, HEAD+4
>> DGDX DT3+2*, WD4+2*, SV4+2*, LINE+6
>> DGEDT ADGLADP+7, WD1+1, WD1+2, SV1+1, SV1+2, HEAD+15
>> DGLINE ADGLADP+8*, HEAD+2, HEAD+8
>> DGLINE2 ADGLADP+9*, HEAD+13
>> DGNM DT3+3*, WD2*, WD3*, WD4, WD4+1, SV2*, SV3*, SV4, SV4+1, LINE+1
>> DGPAGE ADGLADP+4*, WD1+1, WD1+2, SV1+1, SV1+2, NEWPG+2, HEAD+1, HEAD+2*, HEAD+5
>> DGRANGE ADGLADP+6*, ADGLADP+7*, HEAD+6
>> DGS DT3+1*, DT3+2, WD4+1*, WD4+2, SV4+1*, SV4+2
>> DGSITE ADGLADP+5*, HEAD+4
>> DGSTOP ADGLADP+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+15
>> DGTIM DT3+3*, LINE+3
>> DGTM DT1*, DT2*, DT3, DT3+1, DT3+3
>> DGTY HEAD+4*, HEAD+5
>> DGTYP ADGLADP+11, LINE+3, LINE+4, LINE+5, HEAD+7, HEAD+8, HEAD+10, HEAD+11, HEAD+12, HEAD+14
, HEAD+15
>> DGW DT3+2*, WARD+1*, WD1*, WD1+2, WD2, WD3, WD4, WD4+1, SV4+2*, LINE+3
, LINE+5, HEAD+15
>> DGX LINE+2*, HEAD+7*, HEAD+15*
DIR END+1!, NEWPG+2!
DIR(0 END+1*, NEWPG+2*
DT HEAD+6
DUZ ADGLADP+4
DUZ(2 ADGLADP+5, LINE+2
IOF END1, HEAD+1
IOSL LINE+7
IOST END+1, NEWPG+1, HEAD+1
U ADGLADP+4, ADGLADP+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