Routine: APCDAAC1

Information

APCDAAC1 ; IHS/CMI/LAB - CDMIS PCC LINK ;

Source file <APCDAAC1.m>

Package	Total	Call Graph
Patient Care Component	2	LBULL^APCDALD ^APCDALVR

Package	Total	Caller Graph
Patient Care Component	2	APCDAAC2 APCDAACD

Name	Comments	DBIA/ICR reference
VE42	;;Could NOT convert 200 Pointer to 6 pointer.
VE2	;;invalid values being passed to V file.
VE3	;;invalid visit parameters (date, location etc.)
VE1	;;incorrect template specification
POV	;create V POVS
PROV	; v provider ; *************** MULTIPLE PROVIDERS *****************
VFERROR	;EP
VFILES	;EP Create v file entries
KILL	;
APCDALVR	;D APCDALVR
VE41	;;No PROVIDER ENTRY PASSED from CDMIS SYSTEM.
EOJ	;
VE43	;;Could not find ICD9 code in ICD Diagnosis file.
AT	;create v activity time record

Name	Field # of Occurrence
LBULL^APCDALD	VFERROR+3
^APCDALVR	APCDALVR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010.06	PROV+8
^DIC(16 - [#16]	PROV+10
^DIC(3 - [#3]	PROV+8
^VA(200 - [#200]	PROV+10

Name	Field # of Occurrence
A	PROV+8*!, PROV+9, PROV+10, PROV+11
>> ACDEV("PAT"	PROV+6, POV+8, AT+7
>> ACDEV("POV"	POV+3, POV+5, POV+11
>> ACDEV("PRI PR	OV" , PROV+8
>> ACDEV("TIME"	AT+1, AT+4
>> ACDEV("VISIT"	VFERROR+1
APCDACTL	EOJ+2!
APCDAFLG	KILL+1!
APCDALVR	KILL+1!
APCDALVR("APCDADFN"	APCDALVR+3
APCDALVR("APCDAFLG"	APCDALVR+2
APCDALVR("APCDATMP"	PROV+5, POV+7, AT+6*
APCDALVR("APCDAVF"	APCDALVR+3
APCDALVR("APCDOVRR"	POV+9*
APCDALVR("APCDPAT"	PROV+6, POV+8, AT+7*
APCDALVR("APCDTACT"	AT+4*
APCDALVR("APCDTNQ"	POV+11*
APCDALVR("APCDTPOV"	POV+5*
APCDALVR("APCDTPRO"	PROV+14*
APCDALVR("APCDTPS"	PROV+7*
APCDALVR("APCDTTM"	AT+8*
APCDALVR("APCDVSIT"	PROV+4, POV+6, AT+5*
APCDANE	KILL+1!
APCDAPPT	KILL+1!
APCDATMP	KILL+1!
APCDAUTO	KILL+1!
APCDCAT	KILL+1!
APCDCLN	KILL+1!
APCDDATK	EOJ+2!
APCDERR	VFERROR+2*, VFERROR+4!
>> APCDFILE	PROV+2, POV+1, AT+2*
>> APCDGOT	POV+2*
>> APCDIEN	VFERROR+1*
APCDLOC	KILL+1!, EOJ+2!
APCDPAT	KILL+1!, EOJ+2!
APCDQUIT	VFILES+2, VFILES+5, PROV+9, PROV+10, PROV+13, POV+5, APCDALVR+2*, VFERROR+2, VFERROR+4!
APCDTAT	KILL+1!
APCDTLOU	KILL+1!
APCDTNQ	KILL+1!
APCDTPOV	KILL+1!
APCDTPRO	KILL+1!
APCDTPRV	KILL+1!
APCDTPS	KILL+1!
APCDTTOP	KILL+1!
APCDTYPE	KILL+1!
>> APCDV("VFILES"	APCDALVR+3*
>> APCDVSIT	PROV+4, POV+6, AT+5
APCDX	EOJ+2!
>> APCDY	POV+2, POV+3, POV+5, POV+11
AUPNTALK	KILL+1!
P	PROV+8*!, PROV+10
U	PROV+8, PROV+10, POV+11
>> X	PROV+8, PROV+9, PROV+10, PROV+11, PROV+13, PROV+14

Name	Field # of Occurrence
$T(@APCDERR	VFERROR+2