Routine: ORY218

Information

ORY218 ;SLC/JLC-Update PKI user flag for DEA ;01/16/2013 06:25

Source file <ORY218.m>

Package	Total	Call Graph
VA FileMan	5	$$FIND1^DIC FILE^DID UPDATE^DIE GETS^DIQ EN^DIU2
Kernel	3	$$ADD^XPDMENU (BMES,MES)^XPDUTL ($$ACTIVE,$$DEA)^XUSER
Registration	1	$$SITE^VASITE

Name	Comments	DBIA/ICR reference
PRE	;Pre-install
POST	;Post-install
ERROR(MESSAGE)	;HANDLE AN ERROR MESSAGE FROM FILEMAN

Name	Field # of Occurrence
$$FIND1^DIC	POST+4
FILE^DID	PRE+4
UPDATE^DIE	POST+28, POST+43
GETS^DIQ	POST+10, POST+37
EN^DIU2	PRE+8
$$SITE^VASITE	POST+23
$$ADD^XPDMENU	POST+18
BMES^XPDUTL	PRE+5, POST+2, POST+24
MES^XPDUTL	PRE+9, POST+6, POST+17, POST+19, POST+20, POST+22, POST+31, POST+32, POST+46, ERROR+3 , ERROR+4
$$ACTIVE^XUSER	POST+35
$$DEA^XUSER	POST+35

Name	Line Occurrences (* Changed, ! Killed)
^DIC(100.7	PRE+2
^ORD(100.7 - [#100.7]	POST+25, POST+26
^XUSEC("ORES"	POST+34

Name	Line Occurrences
ERROR	POST+11, POST+29, POST+38, POST+44

Name	Field # of Occurrence
ADD	POST+7~, POST+8, POST+15, POST+16, POST+22
DATA	POST+36~
DATA(200	POST+39, POST+41
DATE	POST+40~, POST+41*, POST+42
DIU	PRE+6~, PRE+7*
DIU(0	PRE+7*
DT	POST+42
ERROR	POST+1~, POST+11, POST+18*, POST+19, POST+20, POST+21!, POST+29, POST+38, POST+44
EXIT	POST+1~, POST+23, POST+25, POST+34, POST+38, POST+44, POST+46
FDA	POST+1~, POST+28!, POST+45!
FDA(	POST+27, POST+43
FILE	PRE+3~
FILE("NAME"	PRE+5
IDX	POST+13~, POST+14, POST+15, ERROR+1~, ERROR+2, ERROR+3, ERROR+4
IEN	POST+1~, POST+4*, POST+5, POST+10, POST+21!
IEN(1	POST+30, POST+33
IENS	POST+1~, POST+27, POST+33, POST+43
MESSAGE	ERROR~
MESSAGE("DIERR"	ERROR+2, ERROR+3, ERROR+4
RETURN	POST+7~, POST+12
RETURN(	POST+14, POST+15
SITE	POST+1~, POST+23*, POST+24, POST+27
U	POST+23, POST+46
Y	POST+1~, POST+33, POST+34, POST+35, POST+37, POST+39, POST+41, POST+43