Routine: ADGFTRP

Information

ADGFTRP ; IHS/ADC/PDW/ENM - TRANSFERS BETWEEN FACILITIES(PRINT) ; [ 03/25/1999 11:48 AM ]

Package	Total	Call Graph
IHS Changes To ADT	2	(,END)^ADGFTRP1 TIME^ADGUTIL
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGFTRC

Name	Comments	DBIA/ICR reference
STAT	;***> print stats by facility
END
STAT2
STAT1
HEAD	;***> subrtn to print heading
NEWPG	;***> subrtn for end of page control
TOTAL	;***> print transfer totals

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(DGF,1,24) Line Location: STAT1+1
Function Call: WRITE	Prompt: ?26,DGSV Line Location: STAT2+1
Function Call: WRITE	Prompt: ?55,$P(DGCT(DGF,DGSV),U) Line Location: STAT2+3
Function Call: WRITE	Prompt: ?70,$P(DGCT(DGF,DGSV),U,2) Line Location: STAT2+4
Function Call: WRITE	Prompt: ! Line Location: STAT2+5
Function Call: WRITE	Prompt: !,DGLINE,!?30,"TOTALS:",?55,DGTI,?70,DGTO,! Line Location: TOTAL+1
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 Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGX)/2,DGX Line Location: HEAD+7
Function Call: WRITE	Prompt: !,DGLINE,!,"Facility Name",?26,"Admit/Dsch Service" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?50,"Transfers In",?65,"Transfers Out" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,DGLINE2,! Line Location: HEAD+10
Routine Call	DIR Line Location: NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+6
^DIC(4 - [#4]	ADGFTRP+5
^VA(200 - [#200]	ADGFTRP+4

Name	Field # of Occurrence
>> DGCT(	STAT1, STAT2, STAT2+3, STAT2+4
>> DGDUZ	ADGFTRP+4*, HEAD+4
>> DGF	STAT+1, STAT1, STAT1+1, STAT2, STAT2+3, STAT2+4
>> DGFAC	ADGFTRP+5*, HEAD+4
>> DGLINE	ADGFTRP+6*, TOTAL+1, HEAD+2, HEAD+8
>> DGLINE2	ADGFTRP+7*, HEAD+10
>> DGPAGE	ADGFTRP+4, HEAD+1, HEAD+2, HEAD+5
>> DGSTOP	ADGFTRP+4, STAT2+5, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSV	STAT1, STAT2, STAT2+1, STAT2+3, STAT2+4
>> DGTI	ADGFTRP+8, STAT2+3, TOTAL+1
>> DGTO	ADGFTRP+8, STAT2+4, TOTAL+1
>> DGTY	HEAD+4*, HEAD+5
>> DGTYP	ADGFTRP+11, TOTAL+2
>> DGX	HEAD+7*
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	HEAD+6
DUZ	ADGFTRP+4
DUZ(2	ADGFTRP+5
IOF	HEAD+1
IOSL	STAT2+5
IOST	NEWPG+1, HEAD+1
U	ADGFTRP+4, ADGFTRP+5, STAT2+3, STAT2+4, STAT2+5, NEWPG+3
>> X	NEWPG+2
>> Y	HEAD+6*