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

Package: IHS Changes To ADT

Routine: ADGRALP


Information

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

Source Information

Source file <ADGRALP.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To ADT 2 ADGRALC  ADGRALP1  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP;
HEAD ;***> subrtn to print heading
END ;***> eoj
NEWPG ;EP;***> subrtn for end of page control
TS() ; -- treating specialty ifn
DT3
DATE ;***> admit date order
DT2
DT1
LINE ;***> subrtn to print patient data

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+1
Function Call: WRITE
  • Prompt: !!,$E(DGNM,1,20)
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: ?27,$E(DGTM,4,5)_"/"_$E(DGTM,6,7)_"/"_$E(DGTM,2,3)
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: "@"_$E($P(DGTM,".",2)_"000",1,4)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?41,$E(DGSV,1,3),?48,$E(DGW,1,3)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?53,$E(DGDX,1,25)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: !,"[#",$J(DGX,6),"]"
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?53,$E(DGDX,1,25)
  • Line Location: LINE+14
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+8
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !?32,"Admit",?57,"Admitting Diagnosis /"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !?54,"Admitting Diagnosis /",!,"Patient Name"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?29,"Date/Time",?41,"Srv",?47,"Ward"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?33,"Admit Date",?48,"Srv"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: ?33,"Admit Date",?47,"Ward"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: ?58,"Day Surg Procedure"
  • Condition for execution: $O(^ADGDS(0))
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,DGLINE2
  • 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)
^ADGDS - [#9009012] LINE+20
^ADGDS(0 HEAD+14
^AUPNPAT - [#9000001] LINE+6
^DD("DD" HEAD+6
^DGPM - [#405] LINE+12, LINE+14, TS+1
^DGPM("APHY" TS+1
^DIC(4 - [#4] ADGRALP+5
^DIC(42 - [#42] LINE+12
^DIC(45.7 - [#45.7] LINE+11, LINE+21
^DPT - [#2] DT3+3
^TMP("DGZRAL" DT1, DT2, DT3, DT3+1, END1+2!
^VA(200 - [#200] ADGRALP+4

Label References

Name Line Occurrences
$$TS LINE+11
DATE ADGRALP+11
DT1 DT2
DT2 DT3
DT3 DT3+6
END DT1
END1 DT1+1, DT3+6
HEAD NEWPG+1, NEWPG+3
LINE DT3+6
NEWPG DT1+1, LINE+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DT2*, DT3*, DT3+1, DT3+3, LINE+6, LINE+20
>> DGA DT3+5*, LINE+12, LINE+14, TS+1
>> DGBDT ADGRALP+6
>> DGDS DT3+4*, LINE+18, LINE+19
>> DGDSA DT3+4*, LINE+20
>> DGDSTR LINE+20*, LINE+21, LINE+22
>> DGDT DATE+1*, DT1*, DT2, DT3, DT3+1
>> DGDUZ ADGRALP+4*, HEAD+4
>> DGDX DT3+2*, LINE+5, LINE+14*
>> DGEDT ADGRALP+7
>> DGLINE ADGRALP+8*, HEAD+2, HEAD+9
>> DGLINE2 ADGRALP+9*, HEAD+14
>> DGLST DT3+5*, LINE+9, LINE+10
>> DGNM DT3+3*, LINE+1
>> DGPAGE ADGRALP+4*, DT1+1, NEWPG+2, HEAD+1, HEAD+2*, HEAD+5
>> DGPROC LINE+22*, LINE+23
>> DGRANGE ADGRALP+6*, ADGRALP+7*, HEAD+6
>> DGRE DT3+4*, LINE+7, LINE+16, LINE+17
>> DGS DT3+1*, DT3+2, DT3+4, DT3+5
>> DGSITE ADGRALP+5*, HEAD+4
>> DGSRVL LINE+21*, LINE+23
>> DGSTOP ADGRALP+4*, DT1+1, DT3+6, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSV DT3+2*, LINE+4, HEAD+15
>> DGSVL LINE+11*, LINE+13
>> DGTIM DT3+3*
>> DGTM DT1*, DT2*, DT3, DT3+1, DT3+3, LINE+2, LINE+3
>> DGTY HEAD+4*, HEAD+5
>> DGTYP ADGRALP+11, HEAD+7, HEAD+9, HEAD+11, HEAD+12, HEAD+13, HEAD+15
>> DGW DT3+2*, LINE+4, HEAD+15
>> DGWRD LINE+12*, LINE+13
>> DGX LINE+6*, HEAD+7*, HEAD+8, HEAD+15*
DIR END+1!, NEWPG+2!
DIR(0 END+1*, NEWPG+2*
DT HEAD+6
DUZ ADGRALP+4
DUZ(2 ADGRALP+5, LINE+6
IOF END1+1, HEAD+1
IOSL LINE+24
IOST END+1, NEWPG+1, HEAD+1
U ADGRALP+4, ADGRALP+5, DT1+1, DT3+2, DT3+3, DT3+4, DT3+5, DT3+6, LINE+6, LINE+11
, LINE+12, LINE+14, LINE+21, LINE+22, NEWPG+3, TS+1
>> 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