Routine: ADGPCAC

Information

ADGPCAC ; IHS/ADC/PDW/ENM - ADT/PCC DATA ENTRY ; [ 03/25/1999 11:48 AM ]

Source file <ADGPCAC.m>

Package	Total	Call Graph
VA Fileman	4	^%DTC ^DIC ^DIE ^DIR
IHS Changes To ADT	3	(APCDEIN,APCDEKL)^ADGCALLS ^ADGPCAC0 PRTOPT^ADGVAR

Package	Total	Caller Graph
Registration	1	DG IHS IC EDIT

Name	Comments	DBIA/ICR reference
A	; -- main
Q	; -- cleanup all
VR1	;
VH	; -- inpatient visit? ;ihs or 638? ;v hosp?
SP	; -- select patient
SV	; -- select visit
LV	; -- admissions?
VR	; -- pcc variables & mark visit as being edited
Q1	; -- cleanup rtn

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"No admissions on file." Line Location: LV+1
Function Call: WRITE	Prompt: !!,"Select from these UNEXPORTED ADMISSIONS: ",! Line Location: LV+3
Function Call: WRITE	Prompt: !?15,I,". ",Y Line Location: VH+7
Function Call: WRITE	Prompt: !?5,"No visits" Line Location: SV+1
Routine Call	DIE Line Location: VR1+4
Routine Call	DIC Line Location: SP+2
Routine Call	DIR Line Location: SV+3

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP("AD"	VH+5
^AUPNVSIT - [#9000010]	VH+1, VR1+1, VR1+3, VR1+4
^AUPNVSIT("AA"	LV+4, LV+5
^AUPNVSIT("APCIS"	VR1+2
^DD("DD"	VH+7
^DGPM("APTT1"	LV+1, VH+5

Name	Field # of Occurrence
^(0	VH+1

Name	Field # of Occurrence
DA	VR1+4*, Q1+1!
DFN	SP+2*, LV+1, LV+4, LV+5, VH+5, Q+1!
DGVI	A+3, LV+5, VH+1, VH+5, VH+7, SV+1, SV+2, SV+4, SV+5*, VR1+1 , VR1+2, VR1+3, VR1+4, Q+1!
DIC	SP+1*, SP+2!, Q1+1!
DIC("A"	SP+1*
DIC(0	SP+1*
DIE	VR1+4*, Q1+1!
DIR	SV+3!, Q1+1!
DIR("A"	SV+3*
DIR(0	SV+3*
DIRUT	SV+4, Q1+1!
DR	VR1+4*, Q1+1!
DT	VH+4, VR1+4
DUZ(2	VH+2
I	A+1~, LV+1, VH+7, SV+1, SV+2, SV+3
ID	A+1~, LV+4*, LV+5
J	A+1~
J(	VH+7*, SV+2, SV+5
N	A+1~, VH+1, VH+2, VH+3, VH+4, VH+5, VH+7, VR1+1, VR1+2
U	VH+2, VH+3, VR1+2
>> X	VH+4, SV+5
>> X1	VH+4*
>> X2	VH+4*
Y	A+1~, A+2, SP+2, VH+7*, SV+4