Routine: DIK

Information

DIK ;SFISC/GFT,YJK,XAK-GATHER A FILE'S XREFS TO EXECUTE ;8NOV2014

Source file <DIK.m>

action

^A

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

^O

limited protocol

^LP

run routine

^RR

broker

^B

edit

^E

server

^Se

print

^P

screenman

^SM

inquire

^I

Package	Total	Caller Graph
Electronic Health Modernization	2	EHM014PR EHMHL7

Name	Comments	DBIA/ICR reference
DD1
DISKIPIN(DISKIPIN)	;ALSO CALLED FROM DIU1
DD	;CALLED FROM DIKZ0
DDGO
E
DH
DV
DW
D
I
INX
CHK(F,DU,DIKCHK)	;Set DIKCHK(f) for file F and its parents
A
A1
0	;REMEMBER HOW TO GRAB THE FIELD'S VALUE
IX	;One entry, all fields, KILL then SET	ICR #10013 Status: Active Usage: Supported
IX1	;One entry, all fields, SET (X=1)	ICR #10013 Status: Active Usage: Supported
IX2	;One entry, all fields, KILL (X=2)	ICR #10013 Status: Active Usage: Supported
IXALL	;All entries, SET (X=1)	ICR #10013 Status: Active Usage: Supported
IXALL2	;All entries, KILL (X=2)	ICR #10013 Status: Active Usage: Supported
EN	;One entry, KILL then SET	ICR #10013 Status: Active Usage: Supported
EN1	;One entry, SET (X=1)	ICR #10013 Status: Active Usage: Supported
EN2	;One entry, KILL (X=2)	ICR #10013 Status: Active Usage: Supported
ENALL	;All entries, SET (X=1)	ICR #10013 Status: Active Usage: Supported
ENALL2	;All entries, KILL (X=2)	ICR #10013 Status: Active Usage: Supported
N(REINDOK)
PR
CK
FREE(X)
DIKJ
INT
CHKS	;
DIK0
Q