Routine: ECMFDSSU

Information

ECMFDSSU ;ALB/JAM-Event Capture Management Filer DSS Unit ;2/6/18 14:41

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	^DIC FILE^DICN (,CHK)^DIE ^DIK $$GET1^DIQ
Event Capture	2	FILE^ECMFECS CATCHK^ECUMRPC1
Kernel	2	^%ZTLOAD $$DT^XLFDT

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: 1

Package	Total	Caller Graph
Event Capture	1	ECFLRPC

Entry Points

Name	Comments	DBIA/ICR reference
FILE	;Used by the RPC broker to file DSS Units in file #724 ; Variables passed in ; ECIEN - IEN of #724, if editing ; ECDUNM - DSS Unit Name ; ECS - Service ; ECM - Medical Speciality ; ECTR - Cost Center ; ECUN - Unit Number ; ECST - Status Flag (Active/Inactive) ; ECASC - Associated Stop Code ; ECC - Category ; ECDFDT - Default Data Entry Date ; ECPCE - Send to PCE ; ECSCN - Event Code Screens status ; ECCSC - Credit stop code, can be used when PCE status is ; no records ; ECHAR4 - CHAR4 code, can be used when PCE status is no records ; ECADUP - DSS Unit allows duplicate records during upload
END
VALDATA	;validate data
ECSCRNS	;Determine if event codes should be updated based on change of DSS Unit
RECDEL	; Delete record
NEWIEN	;Create new IEN in file #724
CHKDT	;Required Data Check
USER	;Used by the RPC broker to allocate or de-allocate users for DSS Units
DSSU	;Used by the RPC broker to allocate or de-allocate DSS Units for a user
UPDSCRN	;131 Section added to remove default associated clinic from event capture screens for a specific DSS Unit
FIXSCRNS	;131 Section added to inactivate existing event code screens

External References

Name	Field # of Occurrence
^%ZTLOAD	ECSCRNS+18
^DIC	USER+22, DSSU+14
FILE^DICN	NEWIEN+4, USER+25, DSSU+26
^DIE	FILE+36, FILE+50, UPDSCRN+6, FIXSCRNS+8
CHK^DIE	VALDATA+2, VALDATA+4, VALDATA+6, VALDATA+8, VALDATA+10, VALDATA+12, VALDATA+14, VALDATA+15
^DIK	RECDEL+1, USER+19, DSSU+20
$$GET1^DIQ	FIXSCRNS+13
FILE^ECMFECS	FIXSCRNS+14
CATCHK^ECUMRPC1	FILE+29
$$DT^XLFDT	FIXSCRNS+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECJ - [#720.3]	Classic Fileman Calls, GET1^DIQ
^ECD - [#724]	Classic Fileman Calls, CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	USER+23, DSSU+24
^ECD - [#724]	FILE+27, FILE+29, FILE+32, FILE+40, USER+13, DSSU+23
^ECD("B"	FILE+34
^ECD(0	NEWIEN+2, NEWIEN+5
^ECJ - [#720.3]	FIXSCRNS+7, FIXSCRNS+13
^ECJ("AP"	UPDSCRN+2, UPDSCRN+3, FIXSCRNS+5, FIXSCRNS+6
^ECJ("B"	FIXSCRNS+11
^TMP($J	FILE+28, FILE+31, FILE+35, FILE+39, FILE+51, FILE+53, VALDATA+3, VALDATA+5, VALDATA+7, VALDATA+9 , VALDATA+11, VALDATA+13, VALDATA+14, VALDATA+15, CHKDT+4, USER+11, USER+14, USER+26, DSSU+12, DSSU+15 , DSSU+27*
^VA(200 - [#200]	USER+16, DSSU+17

Label References

Name	Line Occurrences
@(	ECSCRNS+19
CHKDT	FILE+23
ECSCRNS	FILE+52
END	FILE+26, FILE+33, FILE+38, FILE+50
FIXSCRNS	FILE+30
NEWIEN	FILE+41
RECDEL	FILE+50
UPDSCRN	FILE+40
VALDATA	FILE+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	CHKDT+1~, CHKDT+2, CHKDT+4
CAT	UPDSCRN+1~, UPDSCRN+2, UPDSCRN+3, FIXSCRNS+4~, FIXSCRNS+5, FIXSCRNS+6
DA	FILE+36, FILE+42!, FILE+44, END!, RECDEL+1!, NEWIEN+1~, USER+9~, USER+18!, DSSU+10~, DSSU+19!* , UPDSCRN+1~, UPDSCRN+3, FIXSCRNS+4~, FIXSCRNS+6, FIXSCRNS+7, FIXSCRNS+13
DA(1	USER+18, USER+23, USER+24, DSSU+19, DSSU+24, DSSU+25
DD	NEWIEN+1~, USER+22!, USER+23!, DSSU+24!
DIC	END!, NEWIEN+1~, NEWIEN+3, USER+9~, USER+22!, USER+23!, USER+24, DSSU+10~, DSSU+14, DSSU+24! , DSSU+25*
DIC("P"	USER+23, DSSU+24
DIC(0	NEWIEN+3, USER+22, USER+23, DSSU+14, DSSU+24*
DIE	FILE+36!, FILE+42!, FILE+44, END!, UPDSCRN+1~, UPDSCRN+4, FIXSCRNS+4~, FIXSCRNS+8
DIK	RECDEL+1!, USER+9~, USER+18!, DSSU+10~, DSSU+19!*
DINUM	USER+24, USER+26!, DSSU+25
DO	END!, NEWIEN+1~, USER+22!, USER+23!, DSSU+24!
DR	FILE+36, FILE+42!, FILE+45, FILE+46, FILE+47, FILE+48, FILE+49, END!, UPDSCRN+1~, UPDSCRN+5* , FIXSCRNS+4~, FIXSCRNS+8*
DSS	FIXSCRNS+4~, FIXSCRNS+10*, FIXSCRNS+12, FIXSCRNS+15
DT	ECSCRNS+10
>> DTOUT	FILE+50
ECAC	FIXSCRNS+4~, FIXSCRNS+13*
>> ECADUP	FILE+49
>> ECASC	FILE+38, FILE+46, VALDATA+12
ECC	FILE+25, FILE+29, FILE+30, FILE+47, FIXSCRNS+4~, FIXSCRNS+12
ECCH	FIXSCRNS+4~, FIXSCRNS+10*, FIXSCRNS+11
>> ECCSC	FILE+48, VALDATA+14
ECD	ECSCRNS+7~, ECSCRNS+10, FIXSCRNS+4~, FIXSCRNS+12
>> ECDFDT	FILE+43, FILE+44, FILE+47
ECDSSU	DSSU+10~
ECDSSU(	DSSU+16*, DSSU+18!, DSSU+22
>> ECDUNM	FILE+34, FILE+36, VALDATA+2, NEWIEN+3
ECERR	FILE+22~, FILE+23, FILE+24, FILE+26, FILE+28, FILE+31, FILE+33, FILE+35, FILE+39, VALDATA+3 , VALDATA+5, VALDATA+7, VALDATA+9, VALDATA+11, VALDATA+13, VALDATA+14, VALDATA+15, CHKDT+4, USER+9~, USER+10* , USER+12, USER+14, DSSU+10~, DSSU+11, DSSU+13, DSSU+15*
ECFLG	FILE+22~, FILE+25, FILE+26, FILE+34, FILE+36, FILE+40, FILE+52, RECDEL+1
>> ECHAR4	FILE+48, VALDATA+15
ECI	USER+9~, USER+15, DSSU+10~, DSSU+16
ECIEN	FILE+25, FILE+26, FILE+27, FILE+29, FILE+32, FILE+36, FILE+40, FILE+41, FILE+44, FILE+53 , END!, ECSCRNS+10, RECDEL+1, NEWIEN+6, USER+10, USER+11, USER+13, USER+16, USER+18, USER+24 , USER+26, DSSU+11, DSSU+12, DSSU+14, DSSU+17, DSSU+19, DSSU+24, DSSU+27, UPDSCRN+2, UPDSCRN+3 , FIXSCRNS+5, FIXSCRNS+6, FIXSCRNS+10, FIXSCRNS+11, FIXSCRNS+15*
ECINC	ECSCRNS+7~, ECSCRNS+10, ECSCRNS+14
ECL	FIXSCRNS+4~, FIXSCRNS+12*
>> ECM	FILE+45, VALDATA+6
ECONAM	FILE+22~, FILE+25, FILE+32, FILE+34
ECP	FIXSCRNS+4~, FIXSCRNS+12*
>> ECPCE	FILE+37*, FILE+38, FILE+40, FILE+46, FILE+47, FILE+48
ECREAS	FIXSCRNS+4~, FIXSCRNS+13*
ECRES	FILE+22~, FILE+29
ECRRX	VALDATA+1~, VALDATA+2, VALDATA+4, VALDATA+6, VALDATA+8, VALDATA+10, VALDATA+12, VALDATA+14, VALDATA+15
>> ECS	FILE+45, VALDATA+4
ECSCN	ECSCRNS+8, ECSCRNS+9, ECSCRNS+11, ECSCRNS+13, ECSCRNS+15, ECSCRNS+16~, ECSCRNS+17*
ECST	FILE+43, FILE+46, FIXSCRNS+4~, FIXSCRNS+12
ECSYN	FIXSCRNS+4~, FIXSCRNS+13*
>> ECTR	FILE+45, VALDATA+8
>> ECUN	FILE+45, VALDATA+10
ECVOL	FIXSCRNS+4~, FIXSCRNS+13*
ECX	FILE+22~, USER+9~, USER+15, DSSU+10~, DSSU+16
EDU	DSSU+10~, DSSU+11, DSSU+17, DSSU+18, DSSU+19, DSSU+22*, DSSU+23, DSSU+25
EDUZ	USER+9~, USER+10, USER+16, USER+17, USER+18, USER+19, USER+21*, USER+22, USER+23
I	CHKDT+1~, CHKDT+3*, CHKDT+4
LOC	UPDSCRN+1~, UPDSCRN+2, UPDSCRN+3, FIXSCRNS+4~, FIXSCRNS+5, FIXSCRNS+6, FIXSCRNS+10, FIXSCRNS+12
NODE	FIXSCRNS+4~, FIXSCRNS+13*
PROC	UPDSCRN+1~, UPDSCRN+2, UPDSCRN+3, FIXSCRNS+4~, FIXSCRNS+5, FIXSCRNS+6, FIXSCRNS+10, FIXSCRNS+12
U	FILE+29, FILE+32, FILE+40, FILE+53, USER+23, USER+26, DSSU+24, DSSU+27, FIXSCRNS+7, FIXSCRNS+13
USER	USER+9~
USER(	USER+15*, USER+17!, USER+19!, USER+21
X	NEWIEN+3, USER+9~, USER+22, USER+24, DSSU+10~, DSSU+14, DSSU+25*
Y	NEWIEN+6, USER+9~, USER+22, DSSU+10~, DSSU+14
ZTDESC	ECSCRNS+7~, ECSCRNS+12, ECSCRNS+14
ZTDTH	ECSCRNS+7~, ECSCRNS+15*
ZTIO	ECSCRNS+7~, ECSCRNS+17*
ZTRTN	ECSCRNS+7~, ECSCRNS+15*, ECSCRNS+19
ZTSAVE	ECSCRNS+7~
ZTSAVE("ECD"	ECSCRNS+17*
ZTSAVE("ECINC"	ECSCRNS+17*
ZTSAVE("ECSCN"	ECSCRNS+17*
ZTSK	ECSCRNS+18!

Customize PDF page

Package: Event Capture