Routine: SR100UTL

Information

SR100UTL ;BIR/ADM - SR*3*100 INSTALL UTILITY ; [ 02/18/04 10:19 AM ]

Source file <SR100UTL.m>

Package	Total	Call Graph
Text Integration Utility	4	$$DOCCLASS^TIULC1 EXTRACT^TIULQ $$WHATITLE^TIUPUTU FILE^TIUSRVP
VA Fileman	4	NOW^%DTC $$GET1^DID ^DIK EN^DIU2
Surgery	3	(NR,OR)^SROESX ($$INUSE,AR)^SROESXA MOVE^SROHIS
Kernel	2	^%ZTLOAD MES^XPDUTL
MailMan	1	^XMD
Toolkit	1	PUT^XPAR

Name	Comments	DBIA/ICR reference
PRE	; pre-install entry ; delete ADIC, AUD, AUD1 x-refs, delete x-ref nodes
BOST	; convert Boston prototype cases
STUBS	; identify and create stub entries in TIU for reports to be signed
MOVE	; move reports for historical cases to TIU
PARAM	; set default site parameters
EN1	; queued entry point
NONOR	; if dictated summary expected field is null, set to 0
DEL
MSG	; send mail message notification that post-insatll process is completed
POST	; post-install entry ; delete file 136
SRTAB	; activate surgery tab system-wide

FileNo	Call Tags
^SRF - [#130]	GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("DEL"	DEL+2
^%ZOSF("TEST"	DEL
^SRF - [#130]	STUBS+4, STUBS+5, STUBS+6, STUBS+7, STUBS+8, BOST+6, BOST+9, NONOR+1
^SRF("AC"	STUBS+3
^SRF("ADIC"	PRE+5!
^SRF("AUD"	PRE+5!
^SRO(133 - [#133]	PARAM+3*
^SRT(0	POST+2

Name	Field # of Occurrence
>> %	POST+7
DA	PRE+2!, PRE+3!, PRE+4!*, PRE+5!, BOST+1~
DA(1	PRE+2, PRE+3, PRE+4*
DA(2	PRE+2, PRE+3, PRE+4*
DIC	BOST+1~
DIE	PRE+2!
DIK	PRE+2!, PRE+3!, PRE+4!*, PRE+5!
DIQ	BOST+1~
DIU	POST+2*!
DIU(0	POST+2*
DIV	PARAM+1~, PARAM+3*
DR	PRE+2!, BOST+1~
DUZ	MSG+1
I	POST+3~, POST+4*, MSG+4~
J	PARAM+1~
SRBOST	BOST+1~, BOST+6*, BOST+7, BOST+8, BOST+9, BOST+10
SRDT	STUBS+1~, STUBS+2, STUBS+3
SREQ	BOST+1~, BOST+10!
SREQ(	BOST+10*
SREQ(1405	BOST+10*
SRERR	SRTAB+1, BOST+1~, BOST+7, BOST+10
SRINST	MOVE+1~, MOVE+2*
SRINSTP	MOVE+1~, MOVE+2*
>> SRNOW	POST+7*
SRP	PARAM+1~, PARAM+2*, PARAM+3
SRPAR	BOST+1~, BOST+5*, BOST+10
SRPOS	POST+3~
SRPOS(	POST+4*
SRPOS(10	MOVE+2
SRPOS(11	MOVE+2
SRPOS(4	POST+5, PARAM+2
SRPOS(5	STUBS+1, STUBS+2, MOVE+1
SRPOS(6	EN1+3
SRPOS(7	MOVE+1*, MOVE+2
SRPOS(8	MOVE+2
SRPOS(9	MOVE+2
SRRPT	MOVE+1~
SRRPT(1	MOVE+2*
SRRPT(2	MOVE+2*
SRRPT(3	MOVE+2*
SRRPT(4	MOVE+2*
SRSD	MOVE+1~, MOVE+2*
SRTITL	BOST+1~, BOST+4*, BOST+5, BOST+10
SRTN	STUBS+1~, STUBS+3, STUBS+4, STUBS+5, STUBS+6, STUBS+7, STUBS+8, BOST+1~, BOST+6, BOST+8 , BOST+9, BOST+10, NONOR+1
>> SRTXT(1	MSG+2*
SRX	BOST+1~, BOST+4*
SRY	BOST+1~, BOST+8!
SRY(	BOST+8
>> X	DEL*, DEL+1
>> XMDUZ	MSG+3*
>> XMSUB	MSG+1*
>> XMTEXT	MSG+3*
>> XMY(	MSG+1*
>> XPDQUES("POS"	POST+4
Y	PARAM+1~
Z	PARAM+1~
>> ZTDESC	POST+7*
>> ZTDTH	POST+7*
>> ZTIO	POST+7*
>> ZTREQ	MSG+4*
>> ZTRTN	POST+7*
>> ZTSAVE("SRPOS*"	POST+7*