Routine: ADGVHF

Package	Total	Call Graph
IHS Changes To ADT	3	(APCDALV,APCDEKL)^ADGCALLS $$HRC^ADGF TIME^ADGUTIL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT C^%DTC ^DIR
Patient Care Component	2	^APCDALVR ^APCDEIN

Package

Total

Call Graph

IHS Changes To ADT

(APCDALV,APCDEKL)^ADGCALLS $$HRC^ADGF TIME^ADGUTIL

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT C^%DTC ^DIR

Patient Care Component

^APCDALVR ^APCDEIN

Package	Total	Caller Graph
Registration	1	DG IHS VHOSP FIX

Package

Total

Caller Graph

Registration

DG IHS VHOSP FIX

Entry Points

Name	Comments	DBIA/ICR reference
DATE2
END
MSG(DGN)	; -- prints message
TFAC()	; -- transfer facility
HED	; -- heading
NEWPG	; -- end of page control
ADD	; -- SUBRTN to set variables to call apcdalvr
DSRV()	; -- discharge service
QUE
DATE
KILL	; -- kill apcd variables
LINE	;;
LOOP	;EP; loop thru discharges to check for missing vhosps

Name	Field # of Occurrence
^%DT	DATE, DATE2
C^%DTC	DATE2+2
^%ZIS	DATE2+5
HOME^%ZIS	END
^%ZISC	QUE+2, LOOP+17
^%ZTLOAD	QUE+2
APCDALV^ADGCALLS	ADD+4
APCDEKL^ADGCALLS	KILL+1
$$HRC^ADGF	MSG+2
TIME^ADGUTIL	HED+5
^APCDALVR	ADD+15
^APCDEIN	ADD+1
^DIR	NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",! Line Location: DATE2+1
Function Call: WRITE	Prompt: @IOF Line Location: HED+1
Function Call: WRITE	Prompt: !,DGLIN Line Location: HED+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HED+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HED+4
Function Call: WRITE	Prompt: ! Line Location: HED+5
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPG Line Location: HED+5
Function Call: WRITE	Prompt: !,Y Line Location: HED+6
Function Call: WRITE	Prompt: !,DGLIN2,! Line Location: HED+7
Function Call: WRITE	Prompt: !!,$P(^DPT(DFN,0),U),?25,$$HRC^ADGF(DFN),?35,$P($T(LINE+DGN),";;",2) Line Location: MSG+2
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: NEWPG+2
Routine Call	%ZIS Line Location: DATE2+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	LOOP+13
^DD("DD"	HED+6
^DGPM - [#405]	LOOP+9, LOOP+10, LOOP+11, LOOP+12, ADD+5, ADD+12, DSRV+2, DSRV+4
^DGPM("APHY"	ADD+12
^DGPM("ATID6"	DSRV+3
^DGPM("ATT3"	LOOP+6, LOOP+8
^DIC(4 - [#4]	LOOP+1
^DPT - [#2]	MSG+2
^VA(200 - [#200]	LOOP+1

Name	Line Occurrences
$$DSRV	ADD+11
$$TFAC	ADD+9
ADD	LOOP+14
DATE	DATE2
DATE2	DATE2+1
END	DATE+1, DATE2+5
HED	LOOP+3, NEWPG+1, NEWPG+3
KILL	ADD+16, ADD+17
LOOP	DATE2+5
MSG	ADD+16, ADD+17
NEWPG	ADD+16, MSG+1
QUE	DATE2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE*
>> %DT("A"	DATE, DATE2
>> %ZIS	DATE2+5*
>> APCDALVR("APCDAFLG"	ADD+16
>> APCDALVR("APCDATMP"	ADD+8*
>> APCDALVR("APCDLOOK"	ADD+10*
>> APCDALVR("APCDPAT"	ADD+6*
>> APCDALVR("APCDTADS"	ADD+12*
>> APCDALVR("APCDTAT"	ADD+13*
>> APCDALVR("APCDTDCS"	ADD+11*
>> APCDALVR("APCDTDT"	ADD+7*
>> APCDALVR("APCDTTT"	ADD+9*
>> APCDALVR("APCDVSIT"	ADD+14*
DFN	LOOP+16!, ADD+1*, ADD+6, DSRV+3, MSG+2
DGA	LOOP+11*, LOOP+17!, ADD+1, ADD+4, ADD+9, ADD+13
DGADM	LOOP+10*, LOOP+11, LOOP+12, LOOP+17!, ADD+4, ADD+5, ADD+12, DSRV+2
DGBDT	DATE+1*, DATE2+1, END!, LOOP+5, LOOP+17!
DGD	LOOP+9*, LOOP+16!, ADD+7, ADD+10, TFAC+1
DGDSC	LOOP+7, LOOP+8, LOOP+9, LOOP+10, LOOP+17!
DGDT	LOOP+5, LOOP+6, LOOP+8, LOOP+17!
DGDUZ	LOOP+1*, LOOP+16!, HED+4
DGEDT	DATE2, DATE2+1, DATE2+2, END!, LOOP+5, LOOP+17!
DGEND	LOOP+5*, LOOP+6, LOOP+17!
DGLIN	LOOP+2*, LOOP+16!, HED+2
DGLIN2	LOOP+2*, LOOP+16!, HED+7
DGN	MSG~
DGPG	LOOP+1, LOOP+16!, HED+1, HED+2, HED+5
DGPMA	ADD+3~, ADD+4*
DGPMCA	ADD+3~, ADD+4*
DGPMDA	ADD+3~, ADD+4*
DGQ	LOOP+3, LOOP+6, LOOP+8, LOOP+17!, NEWPG+2, NEWPG+3, MSG+1
DGSITE	LOOP+1*, LOOP+16!, HED+4
DGTY	LOOP+16!, HED+4*, HED+5
DGV	LOOP+12, LOOP+13, LOOP+17!, ADD+2, ADD+5, ADD+14
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	DATE2+2, HED+6
DUZ	LOOP+1
DUZ(2	LOOP+1
>> I	QUE+1*
IO	DATE2+5
IO("Q"	DATE2+5, QUE!
IOF	HED+1
IOSL	MSG+1
IOST	NEWPG+1, HED+1
>> POP	DATE2+5
U	LOOP+1, LOOP+6, LOOP+8, LOOP+10, LOOP+12, ADD+1, ADD+5, ADD+7, ADD+9, ADD+12 , ADD+13, TFAC+1, DSRV+2, DSRV+4, NEWPG+3, MSG+1, MSG+2
X	DATE, DATE2, DATE2+2, TFAC+1~, TFAC+2, DSRV+1~, DSRV+3, DSRV+4, NEWPG+2
>> X1	DATE2+2*
>> X2	DATE2+2*
Y	DATE+1, DATE2, END!, DSRV+1~, DSRV+2, DSRV+3, HED+6
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGVHF

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items