Routine: APCDAACD

Information

APCDAACD ; IHS/CMI/LAB - CDMIS TO PCC LINK ;

Source file <APCDAACD.m>

Package	Total	Call Graph
Patient Care Component	4	VFILES^APCDAAC1 (D,E)^APCDAAC2 (COMPLETE,LBULL)^APCDALD ^APCDALV

Package	Total	Caller Graph
Patient Care Component	1	APCDAAC2

Name	Comments	DBIA/ICR reference
VE21	;;No activity location passed. No Location determined.
VE23	;;No IHS Location for OTHER in CDMIS SITE PARAMETER File.
VE22	;;No IHS Location for HOME in CDMIS SITE PARAMETER File.
VE24	;;No Location of Encounter when Activity location is Hospital/Clinic.
VE27	;;No Location of Encounter for OFFICE in CDMIS SITE PARAMETER file.
GETLOC	;get location of encounter
EOJ	;
VSERROR	;EP
VE6	;;Required variable is null
VE7	;;No appropriate type (i.e., A,E,D)
VE4	;;ACDEV array not passed
VE5	;;Required variable not passed
VE2	;;inability to create visit
VE3	;;invalid visit parameters (date, location etc.)
VE28	;;Error attempting to modify visit
CHECK	; SEE IF PCC WANTS VISIT
A	;EP-added a record
ECHK	;ERROR CHECK
E	;edited a cdmis record
D	;deleted a cdmis record
GETTYPE	;get type of visit
VISIT	;EP
DEBUG	;ZW APCDALVR D PAUSE^ACDDEU
EP	;EP - call from APCDALD DRIVER
MAIN	;

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	GETTYPE+7
^AUTTLOC - [#9999999.06]	GETTYPE+4, GETTYPE+6

Name	Field # of Occurrence
ACDEV	ECHK+1, EOJ+2!
ACDEV("ACTLOC"	GETLOC+4, GETLOC+5
ACDEV("CLINIC"	VISIT+10
ACDEV("DATA0"	GETLOC+6
ACDEV("LOCATION"	GETLOC+1
ACDEV("PAT"	VISIT+3
ACDEV("SITE T	YPE" , GETTYPE+1
ACDEV("SITE"	GETLOC+10, GETLOC+11, GETLOC+12, GETTYPE+5
ACDEV("SVC CA	T" , VISIT+9
ACDEV("TYPE"	MAIN+5, ECHK+9, VISIT+2
ACDEV("V DATE	" , VISIT+4
ACDEV("VISIT"	VSERROR+2
APCDACTL	GETLOC+5*, GETLOC+8, GETLOC+10, GETLOC+11, EOJ+1!
APCDALVR	MAIN+2!, EOJ+1!
APCDALVR("APCDADD"	VISIT+2*
APCDALVR("APCDAFLG"	A+7
APCDALVR("APCDAPPT"	VISIT+11*
APCDALVR("APCDAUTO"	VISIT+2*
APCDALVR("APCDCAT"	VISIT+9*
APCDALVR("APCDCLN"	VISIT+10*
APCDALVR("APCDDATE"	VISIT+4*
APCDALVR("APCDLOC"	GETLOC+1, GETLOC+7, GETLOC+13*, GETTYPE+4, GETTYPE+6
APCDALVR("APCDPAT"	VISIT+3*
APCDALVR("APCDTYPE"	GETTYPE+1, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETTYPE+7, GETTYPE+8
APCDALVR("APCDVSIT"	A+8
APCDDATK	VISIT+4*, EOJ+1!
APCDERR	EOJ+1!, VSERROR+3*
APCDFILE	EOJ+1!, VSERROR+1*
APCDGOT	EOJ+1!
APCDIEN	EOJ+1!, VSERROR+2*
APCDLINK	EOJ+1!
APCDLOC	GETLOC+6, GETLOC+7, GETLOC+10, GETLOC+11, GETLOC+12, GETLOC+13, GETTYPE+4*, EOJ+1!
APCDQUIT	MAIN+2!, MAIN+4, ECHK+1, ECHK+2, ECHK+5, ECHK+6, ECHK+8, ECHK+9, A+3, A+5 , A+7, VISIT+6, VISIT+8, GETLOC+4, GETLOC+8, GETLOC+10, GETLOC+11, GETLOC+12, EOJ+1!, VSERROR+3
APCDTYPE	EOJ+1!
>> APCDV("9000010"	A+11*
APCDVSIT	A+8*, A+11, EOJ+1!
APCDX	EOJ+1!
DUZ(2	GETTYPE+7
U	GETLOC+5, GETLOC+6, GETLOC+10, GETLOC+11, GETLOC+12, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETTYPE+7
>> X	ECHK+2, ECHK+3, ECHK+4, ECHK+5, ECHK+6, GETTYPE+6, GETTYPE+7*
>> ZTQUEUED	MAIN+1

Name	Field # of Occurrence
$T(@APCDERR	VSERROR+3