Routine: APCD3ME

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
DRG Grouper	2	($$CODEN,$$ICDDX,$$ICDOP)^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	2	^XBFMK EN^XBNEW
Patient Care Component	1	OUT^APCD3M
Patient Care Component Reports	1	$$VD^APCLV

Package	Total	Caller Graph
Patient Care Component	1	APCD3MT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP - called from input templates
FILEPROC	;
FILEPOV	;
PROCESS	;-- lets process
ERR	;
FILEDRG	;
EN1	;EP - called from XBNEW
XIT	;-- exit the routine
FILE	;file pov's
PASS	;
CPTCLEAN	;-- cleanup cpt multiple before calling the 3mcpe mneumonic
ECDCLEAN	;-- cleanup ecodes from the dx multiple
FILECPT	;-- lets file from the APCD 3MCPE MNEMONIC
DELETE	;

External References

Name	Field # of Occurrence
OUT^APCD3M	PROCESS+8
$$VD^APCLV	FILEPOV+9, FILEPROC+5, FILECPT+6, FILECPT+10
^DIC	FILEPOV+12, FILEPROC+8, FILECPT+13
^DIE	FILEDRG+4, FILEPOV+16, FILEPROC+11, FILEPROC+12, FILECPT+16, FILECPT+17, ECDCLEAN+3, CPTCLEAN+3, ERR+2
^DIK	DELETE+2, FILEPOV+18
^DIR	PROCESS+4, PASS+2, FILE+8
$$CODEN^ICDEX	FILEPOV+5, FILEPROC+3
$$ICDDX^ICDEX	FILEPOV+9
$$ICDOP^ICDEX	FILEPROC+5
$$CPT^ICPTCOD	FILECPT+6, FILECPT+10
^XBFMK	XIT+3, FILEDRG+6, FILEPOV+16, FILEPOV+20, FILEPROC+12, FILEPROC+14, FILECPT+17, FILECPT+19, ECDCLEAN+3, CPTCLEAN+3 , ERR+3
EN^XBNEW	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Valid visit missing!",! Line Location: PROCESS+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"This visit has already been sent to 3M and coded. I will",!,"file the POV's and Procedures now.",! Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Fix error and then come back into this visit and use the 3M mnemonic",!," to code the POV's." Line Location: PROCESS+9
Function Call: WRITE	Prompt: !!,"Visit information has been passed to 3M, switch screens, code the visit and",!,"then press enter below when you are finished coding.",! Line Location: PASS+1
Function Call: WRITE	Prompt: " Timed out" Line Location: PASS+2
Function Call: WRITE	Prompt: !!,"You are exiting without filing the POV's. You must come back into this",!,"visit and use the 3M mnemonic to code the POV's.",! Line Location: PASS+3
Function Call: WRITE	Prompt: !!,"The information has not come back from 3M yet.",!! Line Location: FILE+1
Function Call: WRITE	Prompt: !!,"The POV's and Procedures will now be filed into PCC. You will be prompted to ",!,"complete each entry.",! Line Location: FILE+4
Function Call: WRITE	Prompt: !,"I can't seem to figure out for 3M Workstation ID !!" Line Location: FILE+6
Function Call: WRITE	Prompt: !,"All done with 3M coding.",! Line Location: FILE+21
Function Call: WRITE	Prompt: !,"Filing POV (Diagnosis) ",$P($$ICDDX^ICDEX(X,$$VD^APCLV(APCDVSIT)),U,2)," - ",$P(^APCD3MV(APCDVSIT,11,APCDX,0),U,2) Line Location: FILEPOV+9
Function Call: WRITE	Prompt: ! Line Location: FILEPOV+19
Function Call: WRITE	Prompt: !,"Filing Procedure ",$P($$ICDOP^ICDEX(X,$$VD^APCLV(APCDVSIT),,"I"),U,2)," - ",$P(^APCD3MV(APCDVSIT,12,APCDX,0),U,2) Line Location: FILEPROC+5
Function Call: WRITE	Prompt: ! Line Location: FILEPROC+13
Function Call: WRITE	Prompt: !,"Filing CPT ",$P($$CPT^ICPTCOD(X,$$VD^APCLV(APCDVSIT)),U,2)," - "_$P($$CPT^ICPTCOD(X,$$VD^APCLV(APCDVSIT)),U,3)_" Modifier: ",$P(^APCD3MV(APCDVSIT,13,APCDX,0),U,2) Line Location: FILECPT+10
Function Call: WRITE	Prompt: ! Line Location: FILECPT+18
Function Call: WRITE	Prompt: !!,APCDTERM Line Location: ERR+1
Routine Call	DIE Line Location: FILEDRG+4 FILEPOV+16 FILEPROC+11 FILEPROC+12 FILECPT+16 FILECPT+17 ECDCLEAN+3 CPTCLEAN+3 ERR+2
Routine Call	DIC Line Location: FILEPOV+12 FILEPROC+8 FILECPT+13
Routine Call	DIR Line Location: PROCESS+4 PASS+2 FILE+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^ICD0 - [#80.1]	Classic Fileman Calls
^ICPT - [#81]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCD3MV - [#9001001.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCD3MV - [#9001001.9]	FILE+15, FILE+17, FILE+19, FILEDRG+2, FILEPOV+3, FILEPOV+7, FILEPOV+9, FILEPROC+3, FILEPROC+4, FILEPROC+5 , FILECPT+3, FILECPT+7, FILECPT+8, FILECPT+10, ECDCLEAN+1, ECDCLEAN+2
^APCD3MV("B"	PROCESS+7, FILE+1
^AUPNVSIT - [#9000010]	FILEDRG+1
^DD(9000010.07	FILEPOV+12
^DD(9000010.08	FILEPROC+8
^DD(9000010.18	FILECPT+13
^INRHB("RUN"	FILE+12, FILE+13!, FILE+14
^INTHPC("B"	FILE+11

Label References

Name	Line Occurrences
CPTCLEAN	FILE+18
DELETE	FILE+22
ECDCLEAN	FILE+16
ERR	FILEDRG+5, FILEPOV+7, FILEPOV+13, FILEPROC+4, FILEPROC+9, FILECPT+7, FILECPT+14
FILE	PROCESS+7
FILECPT	FILE+19
FILEDRG	FILE+20
FILEPOV	FILE+15
FILEPROC	FILE+17
PASS	FILE+1
PROCESS	EN1+1
XIT	EN1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD3MER	PROCESS+2!, PROCESS+9, DELETE+1, ERR+1*
>> APCD3MVM	FILEPOV+2, FILEPROC+2, FILECPT+2*
>> APCDBP	FILE+11*, FILE+12, FILE+13, FILE+14
>> APCDCMOD	FILECPT+8*
>> APCDCPDA	CPTCLEAN+1*, CPTCLEAN+2, CPTCLEAN+3
APCDCPT	FILECPT+1~
APCDCPTP	FILECPT+1~
>> APCDCPTU(	CPTCLEAN+1, CPTCLEAN+2
>> APCDECDA	ECDCLEAN+1*, ECDCLEAN+2, ECDCLEAN+3
APCDICD	FILEPOV+1~, FILEPROC+1~
APCDICDP	FILEPOV+1~, FILEPROC+1~
>> APCDLOOK	FILEPOV+14, FILEPROC+10, FILECPT+15*
>> APCDOVRR	PROCESS+1*
>> APCDTERM	FILEDRG+5, FILEPOV+7, FILEPOV+13, FILEPROC+4, FILEPROC+9, FILECPT+7, FILECPT+14*, ERR+1, ERR+2
>> APCDTPCC	FILEPOV+11, FILEPROC+7, FILECPT+12*
>> APCDVSIT	PROCESS+3, PROCESS+7, PROCESS+8, FILE+1, FILE+15, FILE+17, FILE+19, DELETE+2, FILEDRG+1, FILEDRG+2 , FILEDRG+4, FILEPOV+3, FILEPOV+7, FILEPOV+9, FILEPOV+16, FILEPOV+18, FILEPROC+3, FILEPROC+4, FILEPROC+5, FILEPROC+11 , FILEPROC+12, FILECPT+3, FILECPT+6, FILECPT+7, FILECPT+8, FILECPT+10, FILECPT+16, FILECPT+17, ECDCLEAN+1, ECDCLEAN+2 , ECDCLEAN+3, CPTCLEAN+2*, CPTCLEAN+3, ERR+2
APCDX	XIT+1!, FILE+15, FILE+17, FILE+19, FILEDRG+2~, FILEDRG+4, FILEDRG+7!, FILEPOV+3, FILEPOV+7, FILEPOV+9 , FILEPOV+18, FILEPROC+3, FILEPROC+4, FILEPROC+5, FILEPROC+12, FILECPT+3, FILECPT+7, FILECPT+8, FILECPT+10, FILECPT+17 , ERR+2
APCDY	FILEDRG+2~
>> BHLIP	FILE+5, FILE+9*, FILE+11
DA	PROCESS+4!, PASS+2!, FILE+8!, DELETE+2!, FILEDRG+4, FILEPOV+16, FILEPOV+18!, FILEPROC+11, FILEPROC+12, FILECPT+16* , FILECPT+17, ECDCLEAN+3, CPTCLEAN+3, ERR+2
DA(1	FILEPOV+18, FILEPROC+12, FILECPT+17, ECDCLEAN+3, CPTCLEAN+3, ERR+2
DIC	FILEPOV+12!, FILEPROC+8!, FILECPT+13*!
DIC(0	FILEPOV+12, FILEPROC+8, FILECPT+13*
>> DIE	FILEDRG+4, FILEPOV+16, FILEPROC+11, FILEPROC+12, FILECPT+16, FILECPT+17, ECDCLEAN+3, CPTCLEAN+3, ERR+2*
>> DIE("NO^"	FILEPOV+16, FILEPROC+11, FILECPT+16*
DIK	DELETE+2!, FILEPOV+18!
DIR	PROCESS+4!, PASS+2!, FILE+8!
DIR("A"	PROCESS+4, PASS+2, FILE+7*
DIR("B"	PROCESS+4, PASS+2
DIR(0	PROCESS+4, PASS+2, FILE+7*
>> DIRUT	PROCESS+5, PASS+3
>> DR	FILEDRG+4, FILEPOV+16, FILEPROC+11, FILEPROC+12, FILECPT+16, FILECPT+17, ECDCLEAN+3, CPTCLEAN+3, ERR+2*
>> DTOUT	PASS+2
>> I	FILE+13*
U	FILEDRG+1, FILEDRG+2, FILEPOV+3, FILEPOV+7, FILEPOV+9, FILEPROC+3, FILEPROC+4, FILEPROC+5, FILECPT+3, FILECPT+6 , FILECPT+7, FILECPT+8, FILECPT+10
X	XIT+2!, FILE+9, FILEPOV+3, FILEPOV+4, FILEPOV+5, FILEPOV+6, FILEPOV+7, FILEPOV+9, FILEPOV+10, FILEPROC+3* , FILEPROC+4, FILEPROC+5, FILEPROC+6, FILECPT+3, FILECPT+4, FILECPT+6, FILECPT+7, FILECPT+10, FILECPT+11*
Y	XIT+2!, PROCESS+6, PASS+3, FILEDRG+5, FILEPOV+13, FILEPOV+14, FILEPROC+9, FILEPROC+10, FILECPT+14, FILECPT+15

Customize PDF page

Package: Patient Care Component

Routine: APCD3ME

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: