Routine: APCDEAPC

Package	Total	Call Graph
Patient Care Component	11	^APCDALV ^APCDALVR ^APCDEA3 ^APCDECC CHECK^APCDEGP0 ^APCDEIN ^APCDEKL ^APCDEMDI ^APCDEQX CHKEHR2^APCDVCHK ^APCDVDLT
VA Fileman	4	^%DT ^DIC YN^DICN ^DIR
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$PRIMPOV,$$PRIMPROV)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Write Header
GETLOC	; GET LOCATION OF ENCOUNTER
EOJ	; END OF JOB
GETMNEK	; KILL GETMNE SPECIFIC VARIABLES
PROV11	;
MNEPROC	; PROCESS MNEMONICS UNTIL DONE
CAUSEDX	;
TEXT	;
GETDATE	; GET DATE OF ENCOUNTER
GETMNE	; GET MNEMONIC
TIME	;
VISIT	; create visit
GETPAT	; GET PATIENT
APCPOV	;get APC RECODES AND FILE
CLINIC	;
PLACE	;
CAUSE	;
PROCESS	; PROCESS PATIENT
ICDPOV	;
INJ	;
PROVIDER	;
PROC	;
DELETE	;

External References

Name	Field # of Occurrence
^%DT	GETDATE+4
^APCDALV	VISIT+5
^APCDALVR	APCPOV+10, PROV11+4
^APCDEA3	GETMNE+6, ICDPOV+5
^APCDECC	GETPAT+8
CHECK^APCDEGP0	GETMNE+3
^APCDEIN	HDR+5
^APCDEKL	EOJ+3
^APCDEMDI	GETPAT+8
^APCDEQX	GETMNE+7
CHKEHR2^APCDVCHK	MNEPROC+3
^APCDVDLT	DELETE+1
$$PRIMPOV^APCLV	VISIT+14, APCPOV+3
$$PRIMPROV^APCLV	VISIT+12, PROVIDER+2, PROV11+3
KILL^AUPNPAT	EOJ+1
^DIC	GETLOC+5, GETPAT+4, CLINIC+1, GETMNE+2, APCPOV+2, ICDPOV+2, PROVIDER+2, CAUSE+1
YN^DICN	GETPAT+6
^DIR	TIME+1, PLACE+1, CAUSEDX+1
$$FMTE^XLFDT	GETPAT+2, VISIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Default TYPE FOF VISIT NOT in Site Parameter File",$C(7),$C(7) Line Location: GETLOC+2
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300) Variable: X Line Location: GETDATE+2
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: GETPAT+2
Function Call: WRITE	Prompt: !!,"Entering forms for ",$P(^DIC(4,APCDLOC,0),U)," for visit date ",$$FMTE^XLFDT(APCDDATE,1) Line Location: GETPAT+2
Function Call: WRITE	Prompt: !,"Time is required",!! Line Location: TIME+2
Function Call: WRITE	Prompt: !!,"Clinic is required",!! Line Location: CLINIC+2
Function Call: WRITE	Prompt: !!,"Clinic is required",!! Line Location: CLINIC+4
Function Call: WRITE	Prompt: !!,"Visit information NOT correct for this patient.",!,$C(7),$C(7) Line Location: VISIT+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Visit creation failed!!",! Line Location: VISIT+6
Function Call: WRITE	Prompt: !!,"No visit selected!!" Line Location: VISIT+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Primary Provider Not Entered correctly. Deleting incomplete visit.",! Line Location: VISIT+12
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Purpose of Visit Not Entered correctly. Deleting incomplete visit.",! Line Location: VISIT+14
Function Call: WRITE	Prompt: !!,"You may now enter any other information using the PCC mnemonics.",! Line Location: MNEPROC+1
Function Call: WRITE	Prompt: ! Line Location: GETMNE+1
Function Call: WRITE	Prompt: !!,"Switching to Modify Mode for ONE Mnemonic ONLY!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !!,"Switching back to ENTER Mode!" Line Location: GETMNE+8
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"NO ICD CODE ASSOCIATED WITH APC CODE ",APCDAPCC Line Location: APCPOV+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Creating V Provider failed..." Line Location: APCPOV+11
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Can't find IPV mnemonic!!",! Line Location: ICDPOV+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Creating V Provider failed..." Line Location: PROV11+5
Function Call: WRITE	Prompt: !,"NO External Cause entered.",! Line Location: CAUSE+2
Function Call: WRITE	Prompt: ! Line Location: CAUSEDX+2
Function Call: WRITE	Prompt: !!,"Deleted.",! Line Location: DELETE+2
Routine Call	DIC Line Location: GETLOC+5 GETPAT+4 CLINIC+1 GETMNE+2 APCPOV+2 ICDPOV+2 PROVIDER+2 CAUSE+1
Routine Call	DIR Line Location: TIME+1 PLACE+1 CAUSEDX+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^APCDTKW - [#9001001]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTRCD - [#9999999.08]	Classic Fileman Calls
^AUTTRIJ - [#9999999.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	GETPAT+8
^AUTTRCD - [#9999999.08]	APCPOV+6, APCPOV+9
^AUTTRIJ - [#9999999.12]	CAUSE+3
^DD(9000010	VISIT+2
^DD(9000010.06	PROVIDER+1, PROVIDER+2
^DIC(4 - [#4]	GETLOC+4, GETPAT+2

Label References

Name	Line Occurrences
APCPOV	VISIT+13, APCPOV+12
CAUSEDX	PLACE+2, PLACE+3
DELETE	VISIT+12, VISIT+14
EOJ	PROC+2, PROC+4
GETDATE	PROC+3, GETDATE+4, GETDATE+5
GETLOC	PROC+1
GETMNE	MNEPROC+3, GETMNE+8
GETMNEK	MNEPROC+4
GETPAT	PROC+3
ICDPOV	APCPOV+3
INJ	APCPOV+5
MNEPROC	VISIT+15
PLACE	CAUSE+2
PROCESS	PROC+3
PROVIDER	VISIT+11, PROV11+6
VISIT	CLINIC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GETPAT+6*
>> %DT	GETDATE+4*
APCDALVR	VISIT+4!, VISIT+10!, APCPOV+1!, ICDPOV+1!, EOJ+2!
APCDALVR("APCDAFLG"	VISIT+6, APCPOV+11, PROV11+5
APCDALVR("APCDATMP"	APCPOV+8, PROV11+2
APCDALVR("APCDPAT"	APCPOV+8, PROV11+2
APCDALVR("APCDTCD"	CAUSEDX+5*
APCDALVR("APCDTCI"	CAUSE+3*
APCDALVR("APCDTFR"	CAUSE+4*
APCDALVR("APCDTNQ"	APCPOV+9*
APCDALVR("APCDTPA"	PLACE+4*
APCDALVR("APCDTPOV"	APCPOV+7*
APCDALVR("APCDTPRO"	PROV11+1*
APCDALVR("APCDTPS"	PROV11+3*
APCDALVR("APCDVSIT"	APCPOV+8, PROV11+2
APCDAPC	APCPOV+5*, APCPOV+6, APCPOV+9, EOJ+2!
APCDAPCC	APCPOV+5*, APCPOV+6, EOJ+2!
APCDCAT	GETLOC+1, GETLOC+3, EOJ+2!
>> APCDCLN	CLINIC+5*
APCDDATE	PROC+3, GETDATE+1, GETDATE+6, GETPAT+1, GETPAT+2, TIME+3*, VISIT+2, EOJ+2!
>> APCDDEFL	GETLOC+4
APCDEGX	GETMNEK+1!
APCDEQX	MNEPROC+3, GETMNE+7, GETMNEK+1!
>> APCDFLG	HDR+6
APCDHDAT	GETDATE+6*, GETPAT+1, EOJ+2!
APCDICD	APCPOV+6*, APCPOV+7, EOJ+2!
APCDJ	HDR+2*, HDR+3!
APCDLOC	PROC+2, GETLOC+1, GETLOC+4, GETLOC+7*, GETPAT+2, EOJ+2!
APCDMNE	GETMNE+4, ICDPOV+4, EOJ+2!
APCDMNE("NAME"	GETMNE+4, ICDPOV+4
APCDMOD	GETMNE+5!, GETMNE+8!
>> APCDMODE	GETMNE+8*
APCDMPQ	MNEPROC+2, MNEPROC+3, MNEPROC+5!, GETMNE+7
>> APCDPARM	GETLOC+2, GETPAT+6
>> APCDPAT	PROC+3, GETPAT+3, GETPAT+7*, APCPOV+8, PROV11+2
APCDRV	EOJ+2!
APCDTCB	EOJ+2!
APCDTCM	EOJ+2!
APCDTORH	EOJ+2!
>> APCDTPLT	HDR+5*
APCDTYPE	GETLOC+1, GETLOC+2, EOJ+2!
>> APCDVDLT	DELETE+1*
APCDVLK	GETMNE+8*!
APCDVSIT	VISIT+7, VISIT+12, VISIT+14, GETMNE+8, GETMNEK+1!, APCPOV+3, APCPOV+8, PROVIDER+2, PROV11+2, PROV11+3 , DELETE+1, EOJ+2!
APCDX	HDR+2*, HDR+3!
DA	TIME+1!, APCPOV+2!, ICDPOV+2!, CAUSE+1!, PLACE+1!, CAUSEDX+1!
DIC	GETLOC+5!, GETPAT+4!, CLINIC+1!, GETMNE+2, APCPOV+2!, ICDPOV+2!, PROVIDER+2!, CAUSE+1!
DIC("A"	GETLOC+5, GETPAT+4, CLINIC+1, GETMNE+2!, APCPOV+2, PROVIDER+2, CAUSE+1*
DIC("B"	GETLOC+4*
DIC("S"	GETMNE+2*!
DIC(0	GETLOC+5, GETPAT+4, CLINIC+1, GETMNE+2, APCPOV+2, ICDPOV+2, PROVIDER+2, CAUSE+1
DIR	TIME+1!, PLACE+1!, CAUSEDX+1!
DIR("A"	TIME+1, PLACE+1, CAUSEDX+1*
DIR(0	TIME+1, PLACE+1, CAUSEDX+1*
>> DIRUT	TIME+2, PLACE+2, CAUSEDX+3
DT	GETDATE+5
DTIME	GETDATE+2
DUZ("AG"	GETPAT+8
DUZ(2	GETPAT+8
IOF	HDR+1, GETPAT+2
U	GETLOC+2, GETLOC+4, GETPAT+2, GETPAT+6, VISIT+2, GETMNE+4, APCPOV+5, APCPOV+6, APCPOV+9, ICDPOV+4 , PROVIDER+2, CAUSE+3
X	GETDATE+2, GETDATE+3, GETDATE+5!, VISIT+2, VISIT+3, APCPOV+3, ICDPOV+2*
>> Y	GETLOC+6, GETLOC+7, GETDATE+4, GETDATE+5, GETDATE+6, GETPAT+5, GETPAT+7, TIME+3, CLINIC+2, CLINIC+5 , GETMNE+3, GETMNE+4, APCPOV+3, APCPOV+4, APCPOV+5, ICDPOV+3, ICDPOV+4, PROVIDER+3, PROV11+1, CAUSE+2 , CAUSE+3, PLACE+3, PLACE+4, CAUSEDX+4, CAUSEDX+5

Marked Items

Name	Field # of Occurrence
$T(TEXT+APCDJ	HDR+2

Customize PDF page

Package: Patient Care Component

Routine: APCDEAPC

Information

Source Information

Call Graph

Call Graph Total: 18

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items