Routine: SROSRPT

Information

SROSRPT ;BIR/ADM - OPERATION REPORT ; [ 10/06/03 2:45 PM ]

Package	Total	Call Graph
Text Integration Utility	1	EXTRACT^TIULQ

Name	Comments	DBIA/ICR reference
STATUS	; check status of TIU document
OTH
PRIN	; print principal procedure information
LINE(NUM)	;create carriage returns
OTHER	; other procedures
LOOP	; break procedure if greater than 70 characters
OPTOP(SRTN,SRLAST,SRG)	; send op-top to ^TMP ; SRTN - case number in file 130 ; SRLAST - (optional) ; 0 or null : include summary status at end ; 1 : omit summary status at end ; 2 : include summary status at end plus summary in TIU ; SRG - (optional) return array	ICR #3541 Status: Active Usage: Controlled Subscription
PRIN2

Name	Field # of Occurrence
EXTRACT^TIULQ	STATUS+1

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	OPTOP+10, OPTOP+14, OPTOP+15, OPTOP+16, PRIN2, PRIN2+1, OTHER+2, OTH
^TMP("SROP"	OPTOP+12

Name	Field # of Occurrence
CNT	OTHER+1~, OTHER+2*
I	PRIN+1~, PRIN2+3*
J	OPTOP+9~, LINE+2*
LOOP	OPTOP+9~, LOOP+1*
M	PRIN+1~, PRIN2+2*, LOOP+1
MM	PRIN+1~, PRIN2+2!, LOOP+1*
MMM	PRIN+1~, PRIN2+2!, LOOP+1*
NUM	LINE~, LINE+1*, LINE+2
OTH	OTHER+1~, OTHER+2*, OTH
OTHER	OTHER+1~, OTH*, OTH+1
SR	OPTOP+9~
SR(0	OPTOP+15*
SRALL	OPTOP+9~
SRCASE	OPTOP+9~, OPTOP+12*
SRERR	OPTOP+9~, STATUS+1
SRG	OPTOP~, OPTOP+12*, OPTOP+13, OPTOP+14, PRIN+2, PRIN2+3, OTH+1, LINE+2
SRI	OPTOP+9~, OPTOP+13, OPTOP+14, PRIN+2, PRIN2+3, OTH+1, LINE+2
SRJ	PRIN+1~
SRLAST	OPTOP~, OPTOP+13*
SRLF	OPTOP+9~, LINE+1*
SROPER	PRIN+1~, PRIN2, PRIN2+1, PRIN2+2, LOOP+1
SROPS	PRIN+1~, PRIN2+2!
SROPS(	PRIN2+3, LOOP+1*
SROPS(1	PRIN2+2*
>> SROVP	OPTOP+8
SRSTAT	OPTOP+9~, OPTOP+11, STATUS+1*
SRT	OPTOP+9~
SRT(	STATUS+1
SRTIU	OPTOP+9~, OPTOP+10*, STATUS+1
SRTN	OPTOP~, OPTOP+10, OPTOP+12, OPTOP+14, OPTOP+15, OPTOP+16, PRIN2, PRIN2+1, OTHER+2, OTH