Routine: ECMFECS

Information

ECMFECS ;ALB/JAM - Event Capture Management - Event Code Screen Filer ;11/6/12 09:56

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	^DIC FILE^DICN (,CHK)^DIE (,IX)^DIK $$GET1^DIQ
Event Capture	2	FILE^ECMFECS LOCARRY^ECRUTL
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Scheduling	1	$$CLNCK^SDUTL2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Event Capture	3	ECFLRPC ECMFDSSU ECMFECS

Entry Points

Name	Comments	DBIA/ICR reference
FILE	;Used by the RPC broker to file EC Code Screens in file #720.3 ; Variables passed in ; ECIEN - IEN of #720.3, if editing ; ECL - Location ; ECD - DSS Unit ; ECC - Category ; ECP - Procedure ; ECST - Event code screen status ; ECSYN - Synonym ; ECVOL - Volume ; ECAC - Associated Clinic ; ECREAS - Reason indicator ; ECRES0..n - array of reasons
VALDATA	;validate data
RECDEL	; Delete record
NEWIEN	;Create new IEN in file #720.3
CHKDT	;Required Data Check
REASON	;Used by the RPC broker to file EC Reasons in file #720.4 ; Variables passed in ; ECIEN - IEN of #720.4, if editing ; ECRES - Reason ; ECST - Reason status
MULTLOC	;Entry point for multiple locations ; Input: ; ECL0..n - locations IEN ; ECIEN - IEN for edits; "" for new records ; See FILE tag for other variables passed in
PROCERR(ECERR)	;process multiple location errors ; Input: ; ECERR - array of location errors

Name	Field # of Occurrence
^DIC	VALDATA+2, VALDATA+4, VALDATA+6
FILE^DICN	FILE+49, NEWIEN+3, REASON+23
^DIE	FILE+26, FILE+40, REASON+28
CHK^DIE	VALDATA+14, VALDATA+18, REASON+12
^DIK	FILE+54, RECDEL+1
IX^DIK	FILE+35
$$GET1^DIQ	MULTLOC+24
FILE^ECMFECS	MULTLOC+31
LOCARRY^ECRUTL	MULTLOC+21
$$CPT^ICPTCOD	VALDATA+10
$$CLNCK^SDUTL2	VALDATA+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls, GET1^DIQ
^ECJ - [#720.3]	Classic Fileman Calls, CHK^DIE
^ECR - [#720.4]	Classic Fileman Calls, CHK^DIE
^ECL - [#720.5]	Classic Fileman Calls
^ECD - [#724]	Classic Fileman Calls
^EC(726 - [#726]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^EC(725 - [#725]	VALDATA+11
^ECD - [#724]	FILE+29
^ECJ - [#720.3]	FILE+22, FILE+27, FILE+37, NEWIEN+5, NEWIEN+6
^ECJ("AP"	FILE+36*
^ECJ("APP"	FILE+36*
^ECJ("B"	FILE+32
^ECJ(0	NEWIEN+2, NEWIEN+4
^ECL("AD"	FILE+48, FILE+52, FILE+54
^ECR - [#720.4]	FILE+46, REASON+17, REASON+26
^ECR("B"	REASON+20
^ECR(0	REASON+22, REASON+24
^TMP($J	FILE+24, FILE+30, FILE+33, FILE+41, FILE+55, VALDATA+3, VALDATA+5, VALDATA+7, VALDATA+12, VALDATA+15 , VALDATA+17, VALDATA+19, VALDATA+21, NEWIEN+2, CHKDT+4, REASON+11, REASON+13, REASON+15, REASON+18, REASON+20 , REASON+22, REASON+29, MULTLOC+18, MULTLOC+32, MULTLOC+35, PROCERR+13, PROCERR+16

Label References

Name	Line Occurrences
CHKDT	FILE+20
MULTLOC	ECMFECS+3
NEWIEN	FILE+34
PROCERR	MULTLOC+36
RECDEL	FILE+41
VALDATA	FILE+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	CHKDT+1~, CHKDT+2, CHKDT+4
DA	FILE+26, FILE+35, FILE+39, FILE+40!, FILE+44!, FILE+51, FILE+54, FILE+56!, RECDEL+1!, NEWIEN+1~ , REASON+21!, REASON+28*
DD	FILE+49!, NEWIEN+1~
DIC	FILE+44!, FILE+56!, VALDATA+2, VALDATA+4, VALDATA+6, NEWIEN+1~, NEWIEN+3, REASON+9~, REASON+23
DIC("DR"	FILE+48*
DIC(0	FILE+44, VALDATA+2, VALDATA+4, VALDATA+6, NEWIEN+3, REASON+23
DIE	FILE+17~, FILE+26, FILE+39, FILE+40!, REASON+9~, REASON+21!, REASON+28*
DIK	FILE+17~, FILE+35, FILE+51!, FILE+56!, RECDEL+1*!
DLAYGO	FILE+44, FILE+49!, NEWIEN+3, REASON+23*
DO	FILE+49!, NEWIEN+1~
DR	FILE+26, FILE+38, FILE+39, FILE+40!, FILE+44!, FILE+56!, REASON+21!, REASON+28
DT	FILE+27, NEWIEN+5, NEWIEN+6
>> DTOUT	FILE+41
>> ECAC	FILE+39, VALDATA+13, VALDATA+14, VALDATA+16
>> ECC	FILE+25, FILE+28, FILE+29, FILE+36, VALDATA+6
ECCH	FILE+17~, FILE+28*, FILE+32, NEWIEN+3
ECCNT	PROCERR+11~, PROCERR+12, PROCERR+13, PROCERR+15, PROCERR+16
>> ECD	FILE+25*, FILE+28, FILE+29, FILE+36, VALDATA+4
ECERR	FILE+17~, FILE+20, FILE+21, FILE+22, FILE+24, FILE+30, FILE+31, FILE+33, VALDATA+3, VALDATA+5 , VALDATA+7, VALDATA+8, VALDATA+12, VALDATA+13, VALDATA+15, VALDATA+16, VALDATA+19, VALDATA+21, NEWIEN+2, CHKDT+4 , REASON+9~, REASON+10, REASON+11, REASON+13, REASON+17, REASON+18, REASON+19, REASON+20, REASON+22, MULTLOC+9~ , MULTLOC+35, MULTLOC+36, PROCERR~, PROCERR+9
ECERR(	MULTLOC+32*, PROCERR+15, PROCERR+16
ECFLG	FILE+17~, FILE+22, RECDEL+1, REASON+9~, REASON+16, REASON+17*
ECI	FILE+17~, FILE+45, MULTLOC+10~, MULTLOC+23, MULTLOC+25, MULTLOC+27, MULTLOC+28, MULTLOC+30, MULTLOC+32, PROCERR+11~ , PROCERR+14, PROCERR+15, PROCERR+16
ECIEN	FILE+22, FILE+26, FILE+27, FILE+31, FILE+35, FILE+36, FILE+37, FILE+39, FILE+48, FILE+52 , FILE+54, FILE+55, VALDATA+10, RECDEL+1, NEWIEN+5, NEWIEN+6, REASON+16, REASON+17, REASON+19, REASON+25* , REASON+26, REASON+28, REASON+29, MULTLOC+17, MULTLOC+29~*
ECL	FILE+25, FILE+28, FILE+36, VALDATA+2, MULTLOC+11~, MULTLOC+30
>> ECL0	ECMFECS+3, MULTLOC+17, MULTLOC+20, MULTLOC+29
>> ECL1	MULTLOC+17, MULTLOC+29
ECLARR	FILE+43~
ECLARR(	FILE+47*, FILE+53
ECLIEN	FILE+43~, FILE+54*
ECLN	MULTLOC+12~, MULTLOC+24*, MULTLOC+25
ECLOC	FILE+18~, MULTLOC+13~
ECLOC(	MULTLOC+25*, MULTLOC+28, MULTLOC+30, MULTLOC+32
ECOST	REASON+9~, REASON+26*, REASON+27
>> ECP	FILE+25*, FILE+28, FILE+36, FILE+37, VALDATA+8, VALDATA+10, VALDATA+11, NEWIEN+5
ECR	FILE+17~, FILE+44, FILE+45, FILE+46, FILE+47, FILE+48, FILE+52*, FILE+53, FILE+54
>> ECREAS	FILE+35, VALDATA+20
ECRES	FILE+19~, FILE+35, FILE+39, FILE+42, VALDATA+1~, VALDATA+16, VALDATA+17, REASON+10, REASON+12, REASON+20 , REASON+23
ECRRX	VALDATA+1~, VALDATA+10*, VALDATA+14, VALDATA+18, REASON+12
ECST	FILE+26, FILE+27, NEWIEN+6, REASON+14, REASON+15, REASON+16, REASON+17!, REASON+19!, REASON+27, REASON+28 , REASON+29!
>> ECSYN	FILE+38, VALDATA+18
>> ECVOL	FILE+38
ECX	FILE+17~, FILE+22, FILE+23, FILE+26, FILE+27, FILE+44!, FILE+45, FILE+56!, MULTLOC+14~, MULTLOC+23* , MULTLOC+24, MULTLOC+25
ECY	FILE+17~, FILE+22*, FILE+25
I	CHKDT+1~, CHKDT+3*, CHKDT+4
U	FILE+22, FILE+26, FILE+27, FILE+29, FILE+37, FILE+55, VALDATA+10, VALDATA+20, NEWIEN+5, NEWIEN+6 , REASON+15, REASON+26, REASON+29, MULTLOC+18, MULTLOC+25, MULTLOC+32, MULTLOC+35, PROCERR+13, PROCERR+16
X	FILE+17~, FILE+48, VALDATA+2, VALDATA+4, VALDATA+6, NEWIEN+3, REASON+9~, REASON+23
Y	FILE+17~, VALDATA+2, VALDATA+4, VALDATA+6, NEWIEN+5, REASON+9~, REASON+25

Customize PDF page

Package: Event Capture