Routine: LRACS3

Package	Total	Call Graph
Lab Service	2	SORT^LRACS2 ($$Y2K,DASH,EQUALS,PT)^LRX

Package	Total	Caller Graph
Lab Service	2	LRACS LRACS2

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
END	;K LRAG,LRCL,LRDFN,LRDT,LRHEAD2,LRIDT,LRIFN,LRIL,LRLDT,LRLLOC,LRLOG,LRMIC,LRMISC,LRNAME,LRNM,LRPG,LRPNM,LRSORT,LRSPM,LRTST,LRVAL,LRVDT,LRVIDT,LRXLR,LRYESCOM,SSN,X1,Y,Z,ZTRTN
HEAD1
LRHEAD2	;D DASH^LRX W !!,PNM," ",?25,SSN_" ",?40,AGE,!
LRNM
WRITE	;;W:$X>(IOM-19) !?LRCL S LRCL=LRCL+19 W " ",$J(LRTST,7),": ",LRVAL," ",?LRCL S LRCL=$S(LRCL>(IOM-19):2,1:LRCL) ;;Horizontal mess
LRLLOC
ENT
LRIDT
LRDFN
LRIFN

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENT+1
Function Call: WRITE	Prompt: !,Y,?18,LRLOG," ",LRSPM," ",!?LRCL Line Location: LRIFN+2
Function Call: WRITE	Prompt: !?2,^(K,0) Line Location: LRIFN+4
Function Call: WRITE	Prompt: ! Line Location: LRIFN+5
Function Call: WRITE	Prompt: " ",$J(LRTST,7),": ",LRVAL," ",?LRCL Line Location: WRITE+0
Function Call: WRITE	Prompt: ?15,$J(LRTST,7),": ",LRVAL,! Line Location: WRITE+1
Function Call: WRITE	Prompt: @IOF,!!,"SUPERVISOR'S SUMMARY REPORT ... MISCELLANEOUS TESTS" Line Location: HEAD+0
Function Call: WRITE	Prompt: !!?15,"* "_LRLLOC_" *" Line Location: HEAD1+0
Function Call: WRITE	Prompt: !!,PNM," ",?25,SSN_" ",?40,AGE,! Line Location: LRHEAD2+0
Function Call: WRITE	Prompt: !!,PNM," ",?25,HRCN_" ",?40,DOB,! Line Location: LRHEAD2+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LRIFN+3
^LAB(61 - [#61]	LRIFN
^LAB(64.5 - [#64.5]	ENT
^LAC(	LRDFN, LRIDT+1, LRIDT+2, LRIFN+3, LRIFN+4
^LR - [#63]	LRIDT
^LRO(69 - [#69]	LRLLOC, LRNM, LRDFN
^TMP($J	ENT!, LRDFN

Name	Field # of Occurrence
>> DFN	LRIDT*
>> DOB	LRHEAD2+2
HRCN	LRHEAD2+2, END+2!
>> I	LRLLOC*
IOF	ENT+1, HEAD
IOSL	LRLLOC, LRIFN+2
>> J	LRNM*
>> K	LRIFN+4*
LRAG	END+2!
LRCL	LRIFN+2*, END+2!
LRDFN	LRDFN*, LRIDT, LRIDT+1, LRIDT+2, LRIFN+3, LRIFN+4, END+2!
>> LRDPF	LRIDT*
LRDT	ENT, LRLLOC, LRNM, LRDFN, LRIFN, END+2!
LRHEAD2	ENT, LRDFN, LRIFN+1*, END+2!
LRIDT	LRIDT+2*, LRIFN+3, LRIFN+4, END+2!
LRIFN	LRIFN+3*, END+2!
LRIL	END+2!
LRLDT	LRIFN, END+2!
LRLLOC	ENT, LRLLOC, LRNM, LRDFN, HEAD1, END+2!
LRLOG	LRIFN*, LRIFN+2, END+2!
LRMIC	ENT*, END+2!
LRMISC	END+2!
LRNAME	END+2!
LRNM	LRLLOC, LRNM, LRDFN, END+2!
LRPG	END+2!
LRPNM	END+2!
LRSORT	ENT*, ENT+1, LRDFN, HEAD1, END+2!
LRSPM	LRIFN*, LRIFN+2, END+2!
LRTST	LRIFN+3*, WRITE+1, END+2!
LRVAL	LRIFN+3*, WRITE+1, END+2!
LRVDT	LRIFN*, END+2!
LRVIDT	LRIFN*, LRIFN+2, END+2!
LRXLR	ENT*, LRDFN, LRIDT+1, LRIDT+2, LRIFN+3, LRIFN+4, END+2!
LRYESCOM	END+2!
>> PNM	LRHEAD2+2
SSN	END+2!
U	ENT, LRIFN, LRIFN+3
X1	LRIFN+3*, END+2!
Y	LRIFN+2*, END+2!
Z	LRIDT+1, LRIDT+2, LRIFN, LRIFN+3*, END+2!
ZTRTN	END+2!