Routine: SR81UTL

Entry Points

Name	Comments	DBIA/ICR reference
EN1
RAMG	; send list of assessments changed to incomplete
END
OBS	; check for admission for observation following surgery
NA
SPEC
INC	; make completed/transmitted assessment incomplete
POST	; post-install action for SR381 ; task retransmission message

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	OBS+2
^SRF - [#130]	EN1+1, EN1+3, EN1+4, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, OBS+2, NA* , INC+2
^SRF("AC"	EN1+1
^TMP("SRA"	EN1!, EN1+12*, END!
^TMP("SRAINC"	EN1!, RAMG+2, RAMG+3, END!, INC+4*
^XMB("NETNAME"	EN1+13

Name	Field # of Occurrence
>> %	POST+2
DA	SPEC!, INC+1!, INC+2*!
>> DFN	EN1+3*, OBS+2
DIC	SPEC!*
DIE	INC+1!, INC+2!
DIQ	SPEC!*
DIQ(0	SPEC*
DR	SPEC!, INC+1!, INC+2*!
DUZ	EN1+14, RAMG+4
I	EN1+2, EN1+7, EN1+9, EN1+11, EN1+16~, RAMG+6~, NA*
>> J	EN1+9*
>> SITE	EN1*, EN1+3, EN1+14
>> SR235	EN1+1*, EN1+5, INC+1, INC+2
>> SR24	OBS+2*
>> SRA	EN1+1, EN1+3, EN1+7, EN1+8, EN1+9*
>> SRADT	INC+3*, INC+4
>> SRAINC	EN1, RAMG+1, INC+4
SRD	EN1+13~*
>> SRDT	OBS+2*
>> SRI	EN1, EN1+12
>> SROPD	EN1, EN1+1
SRP	EN1+2!
SRP(	EN1+2, EN1+7, EN1+9*, EN1+11
SRP(1	EN1+3*, EN1+11
SRP(10	EN1+8*
SRP(11	EN1+8*
SRP(12	EN1+9*
SRP(16	EN1+10*
SRP(2	EN1+3*
SRP(3	EN1+6*
SRP(4	EN1+3*
SRP(5	EN1+3*, OBS+1, OBS+2, INC+3
>> SRSDATE	OBS+1*
>> SRSOUT	EN1+4, OBS+1, OBS+3
>> SRSP	OBS+3, SPEC*
>> SRTMP	EN1+11*, EN1+12
>> SRTN	EN1+1*, EN1+3, EN1+4, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, OBS+2, NA , INC+1, INC+2, INC+4
>> SRX	OBS+3*, SPEC
SRY	SPEC!
SRY(	SPEC
>> VA("PID"	EN1+3
>> VADM(1	INC+4
>> VAIP("D"	OBS+1, OBS+2
>> VAIP(13	OBS+1, OBS+2, OBS+3
>> X	OBS+2, INC+3*
>> X1	OBS+2*
>> X2	OBS+2*
XMDUZ	EN1+14, RAMG+1!, RAMG+4
XMSUB	EN1+14, RAMG+1!, RAMG+4
XMTEXT	EN1+16, RAMG+1!, RAMG+6
>> XMY("G.RISK A	SSESSMENT" , RAMG+5*
>> XMY("G.SRCOSERV@ISC-CHICAGO.DOMAIN.EXT"	EN1+15*
>> Y	OBS+3*
>> ZTDESC	POST+2*
>> ZTDTH	POST+2*
>> ZTIO	POST+2*
>> ZTREQ	END*
>> ZTRTN	POST+2*