Routine: TIUPS109

Package	Total	Call Graph
VA FileMan	3	^DIC UPDATE^DIE IX^DIK
Kernel	1	BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
ENREG	;Entry point to Register TIU RPCs that support Clinical Procedures
INSERT(OPTION,RPC)	; Call FM Updater with each RPC ; Input -- OPTION Option file (#19) Name field (#.01) ; RPC RPC sub-file (#19.05) RPC field (#.01) ; Output -- None
ENCP	;Entry point to Create Clinical Procedures Class ; Input -- None ; Output -- None
ENCPQ
CHKCP()	;Check for CLINICAL PROCEDURES entry in Document Definition file ; Input -- None ; Output -- Document Definition Data from the TIU Document Definition file (#8925.1) ; 1st Piece=IEN ; 2nd Piece=Type field (#.04)
CREATE(TIUFPRIV)	;Create a record for the CLINICAL PROCEDURES Document Definition ; Input -- TIUFPRIV DD Privilege Flag ; Output -- TIU Document Defintion file (#8925.1) IEN
SET(TIUDA,TIUFPRIV)	;Set the data in the new Document Definition record ; Input -- TIUDA TIU Document Definition file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None
CLPAC()	;Get pointer to CLINICAL COORDINATOR User Class ; Input -- None ; Output -- USR Class file (#8930) IEN
INDEX(DA,TIUFPRIV)	;Call IX^DIK to re-index the CLINICAL PROCEDURES entry ; Input -- DA TIU Document Defintion file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None
ATTACH(TIUDA,TIUFPRIV)	;Attach CLINICAL PROCEDURES to appropriate parent ; Input -- TIUDA TIU Document Defintion file (#8925.1) IEN ; TIUFPRIV DD Privilege Flag ; Output -- None
ATTACHQ
DONE	;Let the user know ; Input -- None ; Output -- None

Name	Field # of Occurrence
^DIC	CREATE+5, ATTACH+10
UPDATE^DIE	INSERT+7
IX^DIK	INDEX+5, ATTACH+16
BMES^XPDUTL	ENCP+6, ENCP+7, ENCP+8, ENCP+9, ENCP+12, ENCP+14, ATTACH+5, ATTACH+7, ATTACH+12, ATTACH+13 , DONE+3, DONE+4, DONE+5, DONE+6, DONE+7

FileNo	Call Tags
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(8925.1	ATTACH+9
^TIU(8925.1 - [#8925.1]	CHKCP+6, CHKCP+7, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13 , SET+14, SET+15, SET+16, SET+17, SET+18, SET+19, SET+20, SET+22, SET+23, SET+24* , SET+25, SET+26, SET+27, SET+28, SET+29, SET+30, SET+31, SET+32, SET+33, SET+34 , SET+35, SET+36, SET+38, ATTACH+7, ATTACH+12, ATTACH+15*
^USR(8930 - [#8930]	CLPAC+4

Name	Field # of Occurrence
^(0	SET+38*

Name	Field # of Occurrence
DA	INDEX~, ATTACH+14*, ATTACH+15
DA(1	ATTACH+6*, ATTACH+7, ATTACH+8, ATTACH+12, ATTACH+15
DIC	CREATE+3~, CREATE+4, ATTACH+4~, ATTACH+8, ATTACH+14!
DIC("P"	ATTACH+9*
DIC(0	CREATE+4, ATTACH+8
DIE	ATTACH+4~
DIERR	INSERT+4~
DIK	INDEX+4~, INDEX+5, ATTACH+14
DLAYGO	CREATE+3~, CREATE+4*, ATTACH+4~
DR	ATTACH+4~
ERR	INSERT+4~
FDA	INSERT+4~
FDA(	INSERT+6*
FDA(19	INSERT+5*
FDAIEN	INSERT+4~
MENU	ENREG+1~, ENREG+2*, ENREG+3
OPTION	INSERT~, INSERT+5
RPC	ENREG+1~, ENREG+3*, INSERT~, INSERT+6
TIUCLP	SET+4~, SET+5*, SET+6
TIUDA	ENCP+3~, ENCP+4, ENCP+5, ENCP+10, ENCP+11, ENCP+13*, ENCP+14, ENCP+15, ENCP+16, ENCP+17 , SET~, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+14 , SET+15, SET+16, SET+17, SET+18, SET+19, SET+20, SET+22, SET+23, SET+24, SET+25 , SET+26, SET+27, SET+28, SET+29, SET+30, SET+31, SET+32, SET+33, SET+34, SET+35 , SET+36, SET+38, ATTACH~, ATTACH+9
TIUFPRIV	ENCP+3~, ENCP+4*, ENCP+13, ENCP+15, ENCP+16, ENCP+17, CREATE~, SET~, INDEX~, ATTACH~
TIUNEW	ENCP+3~, ENCP+4, ENCP+13, ENCP+17
TIUY	CHKCP+5~, CHKCP+6, CHKCP+7, CHKCP+8, CLPAC+3~, CLPAC+4*, CLPAC+5
U	ENCP+5, CHKCP+7, SET+38, ATTACH+7, ATTACH+9, ATTACH+12
X	CREATE+3~, CREATE+4, ATTACH+4~, ATTACH+9
Y	CREATE+3~, CREATE+6, ATTACH+4~, ATTACH+11, ATTACH+14