Routine: AMEREDPC

Package	Total	Call Graph
Emergency Room	3	SYNCHPCC^AMERPCC $$TCOMP^AMERTIME $$AICD^AMERUTIL
VA Fileman	3	(,NOW)^%DTC EN^DDIOL $$GET1^DIQ
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX

Package

Total

Call Graph

Emergency Room

SYNCHPCC^AMERPCC $$TCOMP^AMERTIME $$AICD^AMERUTIL

VA Fileman

(,NOW)^%DTC EN^DDIOL $$GET1^DIQ

DRG Grouper

$$ICDDX^ICDCODE $$ICDDX^ICDEX

Package	Total	Caller Graph
Emergency Room	1	AMEREDIT

Package

Total

Caller Graph

Emergency Room

AMEREDIT

Entry Points

Name	Comments	DBIA/ICR reference
CHKVSIT(AMERDA,AMERAIEN)	; EP FROM AMEREDIT to validate and save PCC information ; AMERDA - IEN OF ER VISIT ; AMERAIEN - IEN OF AUDIT RECORD - IF "", NOT IN EDIT MODE ; CHECK for required elements of a PCC Visit ; 1. Primary Provider is in Provider file ; 2. Primary DX and Narrative exist as valid codes/strings ; 3. Valid patient IEN ; 4. Dates make sense and are not in the future
PCCERROR(PROVIDER,PRIMNAR,PRIMDIAG,PATIENT,AMERDATE,AMERDSCH)

External References

Name	Field # of Occurrence
^%DTC	CHKVSIT+43
NOW^%DTC	CHKVSIT+41
SYNCHPCC^AMERPCC	CHKVSIT+67
$$TCOMP^AMERTIME	CHKVSIT+51
$$AICD^AMERUTIL	CHKVSIT+26
EN^DDIOL	CHKVSIT+54, CHKVSIT+61, CHKVSIT+62, CHKVSIT+63, CHKVSIT+64, CHKVSIT+65
$$GET1^DIQ	CHKVSIT+25
$$ICDDX^ICDCODE	CHKVSIT+27
$$ICDDX^ICDEX	CHKVSIT+26

FileNo	Call Tags
^AMERVSIT - [#9009080]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AMERVSIT - [#9009080]	CHKVSIT+14, CHKVSIT+20, CHKVSIT+21, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+48, CHKVSIT+49, CHKVSIT+53
^DPT - [#2]	CHKVSIT+37
^VA(200 - [#200]	CHKVSIT+16

Name	Line Occurrences
$$PCCERROR	CHKVSIT+58

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHKVSIT+42
AMERAIEN	CHKVSIT~
AMERDA	CHKVSIT~, CHKVSIT+14, CHKVSIT+20, CHKVSIT+21, CHKVSIT+25, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+48 , CHKVSIT+49, CHKVSIT+53, CHKVSIT+67
AMERDATE	CHKVSIT+10~, CHKVSIT+44*, CHKVSIT+58, CHKVSIT+70!, PCCERROR~, PCCERROR+6
AMERDEPT	CHKVSIT+10~, CHKVSIT+49*, CHKVSIT+51, CHKVSIT+70!
AMERDSCH	CHKVSIT+10~, CHKVSIT+11, CHKVSIT+51, CHKVSIT+55*, CHKVSIT+58, CHKVSIT+70!, PCCERROR~, PCCERROR+7
AMERDX	CHKVSIT+10~, CHKVSIT+21*, CHKVSIT+26, CHKVSIT+27, CHKVSIT+28, CHKVSIT+70!
AMERERR	CHKVSIT+10~, CHKVSIT+58, CHKVSIT+59, CHKVSIT+63, PCCERROR+1, PCCERROR+2, PCCERROR+3, PCCERROR+4, PCCERROR+5, PCCERROR+6* , PCCERROR+7*, PCCERROR+8
>> AMERI	CHKVSIT+63*
AMERNAR	CHKVSIT+9~, CHKVSIT+11, CHKVSIT+21, CHKVSIT+31, CHKVSIT+69!
AMERPAT	CHKVSIT+10~, CHKVSIT+36*, CHKVSIT+37, CHKVSIT+70!
AMERPRIM	CHKVSIT+9~, CHKVSIT+69!
AMERPROV	CHKVSIT+10~, CHKVSIT+13, CHKVSIT+14, CHKVSIT+15, CHKVSIT+16, CHKVSIT+18, CHKVSIT+70!
AMERQUIT	CHKVSIT+9~, CHKVSIT+11, CHKVSIT+60, CHKVSIT+68, CHKVSIT+69!
AMERTIME	CHKVSIT+9~, CHKVSIT+10~, CHKVSIT+11, CHKVSIT+40, CHKVSIT+42, CHKVSIT+44, CHKVSIT+51, CHKVSIT+69!, CHKVSIT+70!
>> AMERWRIT	CHKVSIT+63*
APCDTNQ	CHKVSIT+9~, CHKVSIT+11, CHKVSIT+31, CHKVSIT+33*, CHKVSIT+58, CHKVSIT+69!
>> APCDTPAT	CHKVSIT+11, CHKVSIT+37, CHKVSIT+58
APCDTPOV	CHKVSIT+9~, CHKVSIT+11, CHKVSIT+28, CHKVSIT+29, CHKVSIT+33, CHKVSIT+58, CHKVSIT+69!
APCDTPRO	CHKVSIT+9~, CHKVSIT+11, CHKVSIT+16, CHKVSIT+18*, CHKVSIT+58, CHKVSIT+69!
APCTPAT	CHKVSIT+9~, CHKVSIT+69!
ICDINFO	CHKVSIT+24~, CHKVSIT+26, CHKVSIT+27, CHKVSIT+28
PATIENT	PCCERROR~, PCCERROR+5
PRIMDIAG	PCCERROR~, PCCERROR+4
PRIMNAR	PCCERROR~, PCCERROR+3
PROVIDER	PCCERROR~, PCCERROR+2
U	CHKVSIT+14, CHKVSIT+16, CHKVSIT+20, CHKVSIT+21, CHKVSIT+28, CHKVSIT+33, CHKVSIT+35, CHKVSIT+36, CHKVSIT+40, CHKVSIT+49 , CHKVSIT+63
VDATE	CHKVSIT+24~, CHKVSIT+25*, CHKVSIT+26, CHKVSIT+27
>> X	CHKVSIT+44
>> X1	CHKVSIT+42*
>> X2	CHKVSIT+42*

Customize PDF page

Package: Emergency Room

Routine: AMEREDPC

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: