Routine: APCDGHVD

Information

APCDGHVD ; IHS/CMI/LAB - GET HISTORICAL VISIT DATE ;

Package	Total	Call Graph
Patient Care Component	1	^APCDVLK
VA Fileman	1	^%DT

Name	Field # of Occurrence
^%DT	EDIT+1
^APCDVLK	EDIT+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter Date of Historical ",APCDTHT,": " Line Location: READ+0
Function Call: WRITE	Prompt: !,APCDTPRM Line Location: READ+1
Function Call: WRITE	Prompt: !,APCDBEEP,APCDTMG1,!,APCDTMG2 Line Location: READ+3
Function Call: WRITE	Prompt: !!,APCDBEEP,APCDTMG1,!,APCDTMG2,! Line Location: EDIT+1
Function Call: WRITE	Prompt: !!,APCDBEEP,APCDTMG1,!,APCDTMG2,! Line Location: EDIT+7
Function Call: READ	Timeout: DTIME Variable: Y Line Location: SBRS+2
Function Call: READ	Timeout: 5 Variable: Y Line Location: SBRS+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010	EDIT+7

Name	Field # of Occurrence
>> %DT	EDIT+1*
>> APCDBEEP	READ+3, EDIT+1, EDIT+7
>> APCDCAT	EDIT+9
APCDCLN	EDIT+11!
>> APCDDATE	EDIT+9
APCDGHVD	APCDGHVD+5*, EDIT+12, XIT+1!
>> APCDLOC	EDIT+9
>> APCDLOOK	EDIT+8, EDIT+13
>> APCDPAT	EDIT+9
>> APCDTCAT	EDIT+9*
>> APCDTDAT	EDIT+9*
>> APCDTERR	APCDGHVD+5, READ+2, EDIT+12*
>> APCDTFA	EDIT+13*
>> APCDTHT	READ
>> APCDTLOC	EDIT+9*
APCDTMG1	APCDGHVD+5*, READ+3, EDIT+1, EDIT+7, XIT+1!
APCDTMG2	APCDGHVD+5*, READ+3, EDIT+1, EDIT+7, XIT+1!
>> APCDTPAT	EDIT+9*
>> APCDTPRM	READ, READ+1
>> APCDTTYP	EDIT+9*
>> APCDTVST	EDIT+9*
>> APCDTX	READ+4, EDIT+1, EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+13
>> APCDTYPE	EDIT+9
APCDVLDT	EDIT+8*, XIT+1!
>> APCDVSIT	EDIT+9
DFOUT	SBRS+1!, SBRS+2*
DLOUT	READ+2, SBRS+1!, SBRS+3*
DQOUT	READ+3, SBRS+1!, SBRS+4*
DTIME	SBRS+2
DTOUT	READ+2, SBRS+1!, SBRS+2*
DUOUT	READ+2, SBRS+1!, SBRS+3*
X	EDIT+1, EDIT+6, EDIT+7, XIT+1!
Y	READ+4, EDIT+1, XIT+1!, SBRS+2, SBRS+3, SBRS+4*