Routine: ACDPCCL6

Information

ACDPCCL6 ;IHS/ADC/EDE/KML - PCC LINK;

Source Information

Source file <ACDPCCL6.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Alcohol Chemical Dependency	2	PAUSE^ACDDEU FILE^ACDFMC
Patient Care Component	1	^APCDALVR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDPCCL5

Entry Points

Name	Comments	DBIA/ICR reference
VE42	;;Could NOT convert 200 Pointer to 6 pointer.
VE2	;;invalid values being passed to V file.
CSCPTS	; v cpt
CSPROCS	; v procedures *** NO LONGER USED ***
PRIPROV	; v provider (primary provider)
POV	;create V POVS
PROV	; v provider
VE1	;;incorrect template specification
CSPROVS	; v providers (CS visits) ; acdcsdte and acdloc are set prior to getting here
VFERROR	; WRITE ERROR MESSAGE
VFILES	;EP Create v file entries
KILL	;
AT	;create v activity time record
VE41	;;No PROVIDER ENTRY PASSED from CDMIS SYSTEM.
EOJ	;
VE43	;;Could not find ICD9 code in ICD Diagnosis file.
VE3	;;invalid visit parameters (date, location etc.)
APCDALVR	; GENERATE V FILE ENTRY

External References

Name	Field # of Occurrence
PAUSE^ACDDEU	VFERROR+4
FILE^ACDFMC	APCDALVR+6
^APCDALVR	APCDALVR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Notify your supervisor that the PCC LINK failed with the following error:",!,ACDFILE,"-",ACDERR_$G(IORVOFF),!! Line Location: VFERROR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	PROV+8
^DD(9002172.121	APCDALVR+4
^DIC(16 - [#16]	PROV+12
^DIC(3 - [#3]	PROV+10
^VA(200 - [#200]	PROV+12

Label References

Name	Line Occurrences
APCDALVR	PROV+17, CSCPTS+13, CSPROCS+11, POV+12, AT+8
AT	VFILES+4
CSCPTS	VFILES+2
CSPROVS	VFILES+2
EOJ	VFILES+5
KILL	PROV+2, CSCPTS+4, CSPROCS+4, POV+4, AT+3, EOJ+1
POV	VFILES+3
PRIPROV	VFILES+1
PROV	PRIPROV+3, CSPROVS+4
VFERROR	PRIPROV+4, CSPROVS+4, CSCPTS+6, CSPROCS+5, POV+5, APCDALVR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PROV+9~, PROV+10*, PROV+11, PROV+12, PROV+13
ACD21IEN	APCDALVR+4, EOJ+2!
>> ACDCSDTE	CSPROVS+4, CSCPTS+3, CSCPTS+6, CSCPTS+10, CSPROCS+3, CSPROCS+5, CSPROCS+9, APCDALVR+5
ACDCSPRC	CSCPTS+2, CSCPTS+3, CSCPTS+6, CSCPTS+10, CSPROCS+2, CSPROCS+3, CSPROCS+5, CSPROCS+9, APCDALVR+5, EOJ+2!
ACDERR	EOJ+2!, VFERROR+2*, VFERROR+3
>> ACDEV("PAT"	PROV+5, CSCPTS+9, CSPROCS+8, POV+9, AT+7
>> ACDEV("POV"	POV+3, POV+5, POV+10
>> ACDEV("PRI PR	OV" , PRIPROV+1
>> ACDEV("PROC"	CSPROVS+4, CSCPTS+3, CSCPTS+6, CSCPTS+10, CSPROCS+3, CSPROCS+5, CSPROCS+9, APCDALVR+5
>> ACDEV("TC"	VFILES+1, APCDALVR+5
>> ACDEV("TIME"	AT+1, AT+4
>> ACDEV("VISIT"	APCDALVR+4, VFERROR+1
ACDFILE	PROV+1, CSCPTS+1, CSPROCS+1, POV+1, AT+2*, EOJ+2!, VFERROR+3
ACDFILEN	PROV+1, CSCPTS+1, CSPROCS+1, POV+1, AT+2*, APCDALVR+4, APCDALVR+5, EOJ+2!
ACDIEN	EOJ+2!, VFERROR+1*
>> ACDLOC	CSPROVS+4, CSCPTS+3, CSCPTS+6, CSCPTS+10, CSPROCS+3, CSPROCS+5, CSPROCS+9, APCDALVR+5
ACDPRVDR	PRIPROV+1, CSPROVS+3, CSPROVS+4*, PROV+7, EOJ+2!
ACDPRVPS	PRIPROV+2, CSPROVS+2, EOJ+2!
ACDQUIT	PRIPROV+4, CSPROVS+4, PROV+11, PROV+12, PROV+15, CSCPTS+6, CSPROCS+5, POV+5, APCDALVR+2*, EOJ+2! , VFERROR+2, VFERROR+5!
ACDVFIEN	APCDALVR+3*, APCDALVR+4, EOJ+2!
ACDY	POV+2, POV+3, POV+5, POV+6, POV+10, EOJ+2!
APCDAFLG	KILL+1!
APCDALVR	KILL+1!
APCDALVR("APCDADFN"	APCDALVR+3
APCDALVR("APCDADIE"	VFERROR+2
APCDALVR("APCDAFLG"	APCDALVR+2
APCDALVR("APCDATMP"	PROV+4, CSCPTS+8, CSPROCS+7, POV+8, AT+6*
APCDALVR("APCDOVRR"	CSCPTS+12, CSPROCS+10, POV+11*
APCDALVR("APCDPAT"	PROV+5, CSCPTS+9, CSPROCS+8, POV+9, AT+7*
APCDALVR("APCDTACT"	AT+4*
APCDALVR("APCDTCPT"	CSCPTS+6*
APCDALVR("APCDTNQ"	CSPROCS+9, POV+10
APCDALVR("APCDTPN"	CSCPTS+10*
APCDALVR("APCDTPOV"	POV+5*
APCDALVR("APCDTPP"	CSCPTS+11*
APCDALVR("APCDTPRC"	CSPROCS+5*
APCDALVR("APCDTPRO"	PROV+16*
APCDALVR("APCDTPS"	PROV+6, POV+6
APCDALVR("APCDVSIT"	PROV+3, CSCPTS+7, CSPROCS+6, POV+7, AT+5*
APCDANE	KILL+1!
APCDAPPT	KILL+1!
APCDATMP	KILL+1!
APCDAUTO	KILL+1!
APCDCAT	KILL+2!
APCDCLN	KILL+2!
APCDLOC	KILL+3!
APCDOLOC	KILL+4!
APCDPAT	KILL+5!
APCDTAT	KILL+6!
APCDTLOU	KILL+6!
APCDTNQ	KILL+6!
APCDTPOV	KILL+6!
APCDTPRO	KILL+6!
APCDTPRV	KILL+6!
APCDTPS	KILL+6!
APCDTTOP	KILL+6!
APCDTYPE	KILL+6!
>> APCDVSIT	PROV+3, CSCPTS+7, CSPROCS+6, POV+7, AT+5
AUPNTALK	KILL+7!
>> DA(1	APCDALVR+4*
>> DA(2	APCDALVR+4*
>> DIC	APCDALVR+4*
>> DIC("DR"	APCDALVR+4, APCDALVR+5
>> DIC("P"	APCDALVR+4*
>> DIC(0	APCDALVR+4*
>> IORVOFF	VFERROR+3
>> IORVON	VFERROR+3
P	PROV+9~, PROV+10*, PROV+12
U	PROV+8, PROV+10, PROV+12, APCDALVR+4
>> X	PROV+7, PROV+10, PROV+11, PROV+12, PROV+13, PROV+15, PROV+16, APCDALVR+4*

Marked Items

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

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPCCL6

Call Graph Total: 3

Caller Graph Total: 1