Routine: ACDPCCL5

Information

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

Source Information

Source file <ACDPCCL5.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Alcohol Chemical Dependency	4	PAUSE^ACDDEU FILE^ACDFMC ERROR^ACDPCCL VFILES^ACDPCCL6
Patient Care Component	1	^APCDALV

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Alcohol Chemical Dependency	1	ACDPCCL

Entry Points

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.
VE28	;;Error attempting to modify visit
VSERROR	;
KILL	;
VE6	;;Required variable is null
GENLINK	; EP-GENERATE PCC LINK
VE4	;;ACDEV array not passed
VE5	;;Required variable not passed
VE2	;;inability to create visit
VE3	;;invalid visit parameters (date, location etc.)
EOJ	;
A	; ADD LOGIC
E	; EDIT LOGIC
VE7	;;No appropriate type (i.e., A,E,D)
ECHK	;ERROR CHECK
VISIT	;
ADDVISIT	; ADD ONE PCC VISIT
GENLCS	; ADD CS VISITS

External References

Name	Field # of Occurrence
PAUSE^ACDDEU	VSERROR+5, E+2
FILE^ACDFMC	ADDVISIT+8
ERROR^ACDPCCL	ADDVISIT+9
VFILES^ACDPCCL6	ADDVISIT+11
^APCDALV	ADDVISIT+3

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: VSERROR+4
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Logic error at E^ACDPCCL5 - Notify programmer!"_$G(IORVOFF),!! Line Location: E+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(9002172.1	ADDVISIT+7

Label References

Name	Line Occurrences
@(	GENLINK+4
ADDVISIT	A+3, GENLCS+10
ECHK	GENLINK+2
EOJ	GENLINK+5
GENLCS	A+1
KILL	VISIT+1, EOJ+1
VISIT	ADDVISIT+1
VSERROR	GENLINK+3, ADDVISIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACD21IEN	ADDVISIT+10*, EOJ+2!
ACDCSDTE	GENLCS+1, GENLCS+2, GENLCS+3, GENLCS+5, GENLCS+6, GENLCS+7, GENLCS+9, EOJ+2!
ACDDAY	A+2, GENLCS+9, ADDVISIT+7, EOJ+2!
ACDERR	VSERROR+3*, VSERROR+4, EOJ+2!
>> ACDEV	ECHK+2
>> ACDEV("CLINIC"	VISIT+11
>> ACDEV("CS LOC	" , GENLCS+6*
>> ACDEV("LOCATION"	GENLCS+8*, ADDVISIT+7, VISIT+8
>> ACDEV("PAT"	VISIT+6
>> ACDEV("PROC"	GENLCS+2, GENLCS+5, GENLCS+6, GENLCS+7
>> ACDEV("SITE T	YPE" , VISIT+9
>> ACDEV("SVC CA	T" , VISIT+10
>> ACDEV("TC"	A+1
>> ACDEV("TYPE"	GENLINK+4, ECHK+10, VISIT+4
>> ACDEV("V DATE	" , GENLCS+3*, VISIT+7
>> ACDEV("VISIT"	VSERROR+2, ADDVISIT+7
ACDFILE	VSERROR+1*, VSERROR+4, EOJ+2!
ACDIEN	VSERROR+2*, EOJ+2!
ACDLOC	GENLCS+4, GENLCS+5, GENLCS+6, GENLCS+7, EOJ+2!
ACDQUIT	GENLINK+3, ECHK+1, ECHK+2, ECHK+3, ECHK+6, ECHK+7, ECHK+9, ECHK+10, VSERROR+3, ADDVISIT+2 , ADDVISIT+4, EOJ+2!
ACDTPRO	KILL+6!
ACDTPRV	KILL+6!
APCDAFLG	KILL+1!
APCDALVR	KILL+1!
APCDALVR("ACDAFLG"	ADDVISIT+4
APCDALVR("APCDADD"	VISIT+4*
APCDALVR("APCDANE"	VISIT+5*
APCDALVR("APCDAPPT"	VISIT+12*
APCDALVR("APCDAUTO"	VISIT+3*
APCDALVR("APCDCAT"	VISIT+10*
APCDALVR("APCDCLN"	VISIT+11*
APCDALVR("APCDDATE"	VISIT+7*
APCDALVR("APCDLOC"	VISIT+8*
APCDALVR("APCDPAT"	VISIT+6*
APCDALVR("APCDTYPE"	VISIT+9*
APCDALVR("APCDVSIT"	ADDVISIT+5
APCDALVR("AUPNTALK"	VISIT+2*
APCDANE	KILL+1!
APCDAPPT	KILL+1!
APCDATMP	KILL+1!
APCDAUTO	KILL+1!
APCDCAT	KILL+2!
APCDCLN	KILL+2!
>> APCDDATK	VISIT+7*
APCDLOC	KILL+3!
APCDOLOC	KILL+4!
APCDPAT	KILL+5!
APCDTAT	KILL+6!
APCDTLOU	KILL+6!
APCDTNQ	KILL+6!
APCDTPOV	KILL+6!
APCDTPS	KILL+6!
APCDTTOP	KILL+6!
APCDTYPE	KILL+6!
>> APCDVSIT	ADDVISIT+5*, ADDVISIT+7
AUPNTALK	KILL+7!
>> DA(1	ADDVISIT+7*
>> DIC	ADDVISIT+7*
>> DIC("DR"	ADDVISIT+7*
>> DIC("P"	ADDVISIT+7*
>> DIC(0	ADDVISIT+7*
>> IORVOFF	VSERROR+4, E+1
>> IORVON	VSERROR+4, E+1
U	ADDVISIT+7
>> X	ECHK+3, ECHK+4, ECHK+5, ECHK+6, ECHK+7, GENLCS+7, GENLCS+8, ADDVISIT+7*
>> Y	ADDVISIT+9, ADDVISIT+10

Marked Items

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

Customize PDF page

Package: Alcohol Chemical Dependency

Routine: ACDPCCL5

Call Graph Total: 5

Caller Graph Total: 1