Routine: APCD3M

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
DRG Grouper	2	($$CODEN,$$ICDDX)^ICDEX $$CPT^ICPTCOD
Kernel	2	$$VERSION^XPDUTL EN^XQOR
IHS Generic Interface System	1	$$A^INHB
IHS Support HL7 Interfaces	1	$$CHK^BHLBCK
IHS VA Utilities	1	EN^XBVK
Patient Care Component	1	GEN^APCD3MG
Patient Care Component Reports	1	$$VD^APCLV

Package	Total	Caller Graph
IHS Support HL7 Interfaces	1	BHL3MI
Patient Care Component	1	APCD3ME

Entry Points

Name	Comments	DBIA/ICR reference
CLNDST(IP)	;-- cleanout destination queue before creating message
DISPCPT	;-- display the cpt picklist for user
FILE	; CALL FILE^DICN
ERR	;-- log the error here
DISPICD	;-- display the icd code picklist for user
INMAIN	; INBOUND MAINLINE LOGIC
DISPECD	;-- display the ecode picklist for user
IPR1	; PR1 SEGMENT
IDRG	;-- get the drg
IPV1	; PV1 SEGMENT
UPDCODE	;-- add ecode to coded entry
OUTGETIP	; GET IP ADDRESS
EOJ	;-- kill variables
OUTMAIN	; OUTBOUND MAINLINE LOGIC
INSTALL	; GENERATE 9001001.9 ENTRY
IN	; EP - PROCESS HL7 MESSAGE FROM 3M CODER
ICPT	;-- file cpt codes
OUT(APCDVSIT)	; EP - SEND HL7 MESSAGE TO 3M CODER ; called by PCC Data Entry and ADT Data Entry
IDG1	; DG1 SEGMENT
OUTINIT	; OUTBOUND INITIALIZATION

External References

Name	Field # of Occurrence
GEN^APCD3MG	OUTMAIN+2
$$VD^APCLV	DISPICD+9, DISPICD+11
$$CHK^BHLBCK	OUTMAIN+11
FILE^DICN	FILE+2
^DIE	IDRG+4, UPDCODE+5
^DIR	OUTGETIP+4
$$CODEN^ICDEX	DISPICD+21, DISPECD+16
$$ICDDX^ICDEX	DISPICD+7, DISPICD+9, DISPICD+11
$$CPT^ICPTCOD	DISPCPT+17
$$A^INHB	OUTMAIN+13
EN^XBVK	EOJ+1
$$VERSION^XPDUTL	DISPCPT+21
EN^XQOR	OUTMAIN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Not a valid Selection, Try Again." Line Location: DISPCPT+11
Function Call: WRITE	Prompt: !,$G(I)_") Dx Code: "_$G(APCDDXC)_" Dx Desc: "_$G(APCDDXE) Line Location: DISPICD+12
Function Call: WRITE	Prompt: !,"Not a valid Selection, Try Again." Line Location: DISPICD+19
Function Call: WRITE	Prompt: !,$G(APCDI)_") E Code: "_$G(APCD3ECD) Line Location: DISPECD+5
Function Call: WRITE	Prompt: !,"Not a valid Selection, Try Again." Line Location: DISPECD+13
Function Call: WRITE	Prompt: !!,"Now Sending to 3M" Line Location: OUTMAIN+7
Function Call: WRITE	Prompt: ! Line Location: OUTGETIP+2
Function Call: WRITE	Prompt: !,$P($G(APCD3MER),U,2) Line Location: ERR+1
Routine Call	DIE Line Location: IDRG+4 UPDCODE+5
Routine Call	DIR Line Location: OUTGETIP+4

Used in HL7 Interface

HL7 Protocol Name	Call Tags
APCD3MI CLIENT	IN

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCD3MV - [#9001001.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCD3MV - [#9001001.9]	DISPCPT+1, DISPCPT+2, DISPCPT+3, DISPECD+2, DISPECD+3, UPDCODE+3
^AUPNVPOV - [#9000010.07]	DISPICD+2, DISPICD+3
^AUPNVPOV("AD"	DISPICD+1
^AUTTCMOD("B"	DISPCPT+22
^DD(9001001.9	IDG1+13, IPR1+11, ICPT+2
^DIC(81.3 - [#81.3]	DISPCPT+21
^INLHDEST(	CLNDST+4!
^INRHD("B"	CLNDST+2
^INTHPC("B"	OUTMAIN+8

Label References

Name	Line Occurrences
CLNDST	OUTMAIN+12
DISPCPT	DISPCPT+11
DISPECD	DISPECD+13
DISPICD	DISPICD+19
EOJ	IN+4
ERR	IPV1+2, IPV1+6, IDG1+16, IPR1+14, IDRG+5, OUT+3, OUTGETIP+7
FILE	IPV1+5, IDG1+15, IPR1+13, ICPT+4
ICPT	IPR1+6, IPR1+7, IPR1+8
IDG1	INSTALL+4
IDRG	INSTALL+6
INMAIN	IN+3
INSTALL	INMAIN+1
IPR1	INSTALL+5
IPV1	INSTALL+3
OUTGETIP	OUTINIT+2
OUTINIT	OUTMAIN+1
OUTMAIN	OUT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCD3COD	IN+2~, IDG1+1, IDG1+8, IDG1+9, IDG1+10, IDG1+11, IDG1+12, IDG1+13, IPR1+1, IPR1+5 , IPR1+8, IPR1+10*, IPR1+11, ICPT+1
>> APCD3CPT	DISPCPT+2*, DISPCPT+4, DISPCPT+5
>> APCD3DRG	IDRG+1, IDRG+2, IDRG+3
>> APCD3DTP	IDG1+3*, IDG1+4
>> APCD3ECD	DISPECD+3*, DISPECD+4, DISPECD+5, DISPECD+6
APCD3IEN	IN+2~, IPV1+7*, IDG1+13, IPR1+11, IDRG+3, ICPT+2, UPDCODE+3, UPDCODE+4
>> APCD3MER	INSTALL+1, IPV1+2, IPV1+6, IDG1+12, IDG1+16, IPR1+5, IPR1+14, IDRG+5, OUT+3, OUTMAIN+3 , OUTGETIP+7, ERR+1, ERR+3, ERR+6*, ERR+7
>> APCD3MIP	OUTMAIN+5, OUTINIT+2, OUTGETIP+1, OUTGETIP+5*, OUTGETIP+7
>> APCD3MOD	IPR1+4, ICPT+3, DISPCPT+3, DISPCPT+4, DISPCPT+5
APCD3NAR	IN+2~
>> APCD3TXT	IDG1+2, IDG1+14, IPR1+2, IPR1+12, ICPT+1
>> APCDBP	OUTMAIN+8*, OUTMAIN+9, OUTMAIN+13
>> APCDCECD	DISPECD+16*, DISPECD+17
>> APCDCPTA(	DISPCPT+5*, DISPCPT+11, DISPCPT+12, DISPCPT+14
>> APCDCPTA(""	DISPCPT+6
>> APCDCPTU(	DISPCPT+25*
>> APCDCTP	IPR1+3*, IPR1+6, IPR1+7
>> APCDDA	DISPCPT+1, DISPCPT+2, DISPCPT+3, DISPCPT+5, DISPECD+2, DISPECD+3, DISPECD+6
>> APCDDG1	IDG1+17*, UPDCODE+1, UPDCODE+2
>> APCDDXC	DISPICD+9*, DISPICD+12, DISPICD+13
>> APCDDXE	DISPICD+11*, DISPICD+12
>> APCDDXI	DISPICD+3*, DISPICD+4, DISPICD+7, DISPICD+9, DISPICD+11
>> APCDECDA(	DISPECD+6*, DISPECD+13, DISPECD+14, DISPECD+15
>> APCDECDA(""	DISPECD+8
>> APCDECOD	UPDCODE+4
>> APCDEFL	ERR+4
>> APCDERR	ERR+2*, ERR+7
>> APCDEX	DISPECD+10*, DISPECD+11, DISPECD+12, DISPECD+13, DISPECD+14, DISPECD+15
>> APCDFLD	ERR+5
>> APCDHL7M(	INSTALL+1
>> APCDI	DISPECD+1, DISPECD+5, DISPECD+6, DISPECD+7
>> APCDICDA(	DISPICD+13*, DISPICD+19, DISPICD+20
>> APCDICDA(""	DISPICD+14
>> APCDIP	OUTMAIN+5*, OUTMAIN+6
>> APCDIRX	DISPICD+16*, DISPICD+17, DISPICD+18, DISPICD+19, DISPICD+20
>> APCDJOB	OUTMAIN+10*, OUTMAIN+11
>> APCDMSG	OUTMAIN+13*
>> APCDPCPT	DISPCPT+7, DISPCPT+14, DISPCPT+17, DISPCPT+18, DISPCPT+19*
>> APCDPDA	DISPICD+1*, DISPICD+2, DISPICD+3, DISPICD+13
>> APCDPECD	DISPECD+9, DISPECD+15, DISPECD+16, DISPECD+17*
>> APCDPICD	DISPICD+15, DISPICD+20, DISPICD+21, DISPICD+22
>> APCDPMOD	DISPCPT+15, DISPCPT+20, DISPCPT+21, DISPCPT+22, DISPCPT+23
>> APCDPMOD(	DISPCPT+15
>> APCDPR1	IPR1+15*
APCDQ	IN+2~, OUTMAIN+4, OUTINIT+1, OUTINIT+3
>> APCDRX	DISPCPT+8*, DISPCPT+9, DISPCPT+10, DISPCPT+11, DISPCPT+12, DISPCPT+14, DISPCPT+15
>> APCDUCPT	DISPCPT+12*, DISPCPT+25
>> APCDUECD	DISPECD+14*
APCDVSIT	DISPCPT+1, DISPCPT+2, DISPCPT+3, DISPCPT+25, DISPICD+1, DISPICD+9, DISPICD+11, DISPECD+2, DISPECD+3, OUT~ , OUTMAIN+2
>> APCDY	OUTMAIN+11*
BHLDST	CLNDST+1~, CLNDST+2*, CLNDST+3, CLNDST+4
>> BHLEFL	ERR+4*
>> BHLERCD	ERR+7*
>> BHLFLD	ERR+5*
>> BHLIP	OUTMAIN+6*, OUTMAIN+8, OUTMAIN+12
D	FILE+3!
D0	FILE+3!
D1	FILE+3!
DA	IDRG+3, FILE+3!, UPDCODE+2, UPDCODE+3, OUTGETIP+4!
DA(1	IDG1+13, IPR1+11, ICPT+2, UPDCODE+4
DD	FILE+1!
DI	FILE+3!
DIADD	FILE+3!
DIC	IPV1+3, IDG1+13, IPR1+11, ICPT+2, FILE+3!, OUTMAIN+14*
DIC("DR"	IPV1+3, IDG1+14, IPR1+12, ICPT+3
DIC("P"	IDG1+13, IPR1+11, ICPT+2*
DIC(0	IPV1+3, IDG1+13, IPR1+11, ICPT+2
DICR	FILE+3!
DIE	IDRG+3, FILE+3!, UPDCODE+4
DINUM	IPV1+4*, FILE+3!
DIR	OUTGETIP+4!
DIR("A"	OUTGETIP+3*
DIR(0	OUTGETIP+3*
DLAYGO	IPV1+3*, FILE+3!
DO	FILE+1!
DQ	FILE+3!
DR	IDRG+3, FILE+3!, UPDCODE+4
DTIME	DISPCPT+8, DISPICD+16, DISPECD+10
I	IN+2~, DISPCPT+1, DISPCPT+4, DISPCPT+5, DISPICD+1, DISPICD+12, DISPICD+13
IP	CLNDST~, CLNDST+2
J	IN+2~, INSTALL+1*
U	IDG1+1, IDG1+2, IDG1+13, IPR1+1, IPR1+2, IPR1+3, IPR1+11, ICPT+2, DISPCPT+2, DISPCPT+3 , DISPCPT+5, DISPCPT+12, DISPCPT+14, DISPCPT+15, DISPCPT+17, DISPICD+3, DISPICD+7, DISPICD+9, DISPICD+11, DISPICD+13 , DISPICD+20, DISPICD+21, DISPECD+3, DISPECD+6, DISPECD+14, DISPECD+15, DISPECD+16, UPDCODE+3, ERR+1, ERR+6
>> UIF	IPV1+3
X	IN+2~, INSTALL+1, INSTALL+2, IPV1+1, IPV1+2, IPV1+4, IDG1+1, IDG1+2, IDG1+3, IDG1+13* , IPR1+1, IPR1+2, IPR1+3, IPR1+4, IPR1+11, IDRG+1, ICPT+1, OUTMAIN+14*, OUTGETIP+5
Y	IN+2~, INSTALL+2*, INSTALL+3, INSTALL+4, INSTALL+5, INSTALL+6, IPV1+6, IPV1+7, IDG1+16, IDG1+17 , IPR1+14, IPR1+15, IDRG+5

Customize PDF page

Package: Patient Care Component

Routine: APCD3M

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: