Routine: LRMIVER1

Information

LRMIVER1 ;SLC/CJS/BA- MICRO CHART COPY APPROVAL CONT. ;2/19/91 11:01 ;

Source file <LRMIVER1.m>

Package	Total	Call Graph
Lab Service	7	INFO^LRMINEW EN^LRMIPSZ1 LRAN^LRMIUT VT^LRMIUT1 UPDATE^LRPXRM IO^LRWU PT^LRX
IHS Changes To Lab	3	^BLRALAF $$ADDON^BLRUTIL $$PATCH^BLRUTIL4
VA Fileman	2	^DIC YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRMIVER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data." Line Location: APPROVE+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: APPROVE+1
Function Call: WRITE	Prompt: !!,"Do you wish to review the data as the (W)ards will see it, as the (L)ab",!,"will see it, or (N)ot review the data? N// " Line Location: APPROVE+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: APPROVE+2
Function Call: WRITE	Prompt: !!,"Do you wish to review the data as the (W)ards will see it,",!,?31,"as the (L)ab will see it, or",!?38,"(N)ot review the data? N// " Line Location: APPROVE+2
Function Call: WRITE	Prompt: !,"Do you want to queue the data to print and approve it later" Line Location: APPROVE+4
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: APPROVE+4
Function Call: WRITE	Prompt: !,"Do you want to queue the data to print and approve it later" Line Location: APPROVE+5
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: APPROVE+5
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Indicate those you wish to exclude from verification." Line Location: ACCEPT+0
Function Call: WRITE	Prompt: !,"Ready to approve" Line Location: ACCEPT+2
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ACCEPT+2
Function Call: WRITE	Prompt: ! Line Location: ACCEPT+3
Function Call: WRITE	Prompt: "." Line Location: STUFF+6
Routine Call	DIC Line Location: P3+5

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	S1+5, P3+5, STUFF+3, STUFF+4*, STUFF+7
^LRO(68 - [#68]	APPROVE, DQ+1, SORT, S1, ACCEPT+1!, ACCEPT+4, LRAD, STUFF, STUFF+3, STUFF+5 , STUFF+6*, STUFF+7!
^TMP($J	DQ+1!, S1+5, S1+6, PRINT+2, P1+1, P2+1, P3+4

Name	Field # of Occurrence
>> %	APPROVE+5, APPROVE+6, ACCEPT+2, ACCEPT+3
>> %ZIS	APPROVE+6*
>> %ZIS("B"	APPROVE+6*
>> DFN	STUFF+3*
>> DIC	P3+4*
>> DIC(0	P3+4*
DT	STUFF+3
DTIME	APPROVE+2
DUZ	STUFF+4
DUZ(2	STUFF+10
>> I	APPROVE+2, APPROVE+5, DQ+1, SORT, P1+1, P2+1, ACCEPT+1, ACCEPT+2, ACCEPT+4, LRAD , STUFF+5*
>> II	STUFF+5, STUFF+7
IO	DQ
>> IOP	APPROVE+6*
>> LRAA	APPROVE, DQ+1, SORT, S1, P3+4, P3+5*, ACCEPT+1, ACCEPT+4, LRAD, STUFF , STUFF+3, STUFF+5, STUFF+6, STUFF+7
>> LRACC	P3+4*
LRAD	DQ+1, SORT, S1, S1+6, P3+4, ACCEPT+1, ACCEPT+4, ACCEPT+5!, LRAD, STUFF , STUFF+3, STUFF+5, STUFF+6, STUFF+7
LRAN	SORT, S1, S1+5, S1+6, PRINT+2, P1+1, P2+1, P3+4, ACCEPT+1, ACCEPT+5! , LRAD, STUFF, STUFF+3, STUFF+5, STUFF+6, STUFF+7
LRAN(	ACCEPT+1
>> LRCDT	STUFF+3*
>> LRCMNT	P3+5*
>> LRDFN	S1, S1+5, S1+6, P1+1, P2+1, P3+4, P3+5, STUFF*, STUFF+2, STUFF+3 , STUFF+4, STUFF+7
>> LRDPF	STUFF+3*
>> LREND	DQ+1*, PRINT+2, P1+1, P2+1, P3+5
>> LRIDT	S1, S1+5, S1+6, P2+1, P3+4, P3+5, STUFF*, STUFF+2, STUFF+3, STUFF+4 , STUFF+7
>> LRLCNT	PRINT+2*
>> LRLLOC	STUFF+3*
>> LRLLT	P3+4*
>> LRNT	STUFF+4, STUFF+6
>> LRODT	STUFF+3*
>> LRONESPC	DQ+2*
>> LRONETST	DQ+2*
>> LRPG	P3+5*
>> LRSB	DQ+1*
>> LRSET	STUFF+5*, STUFF+6
>> LRSN	STUFF+3*
LRTK	ACCEPT+5!
>> LRVLOC	S1+5*
>> LRWLSAVE	P3+4*, P3+5
LRWRDVEW	APPROVE+5*, ACCEPT+5!
U	APPROVE+2, APPROVE+3, S1, S1+5, P3+4, STUFF, STUFF+3, STUFF+4, STUFF+5, STUFF+6 , STUFF+7
>> X	APPROVE+2, APPROVE+3, APPROVE+5, P3+4
>> Y	P3+5, STUFF+3*
Z	ACCEPT+5!
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
>> ZTRTN	APPROVE+6*

Name	Comments	DBIA/ICR reference
SORT
P2	; S LRIDT=0 F I=0:0 S LRIDT=+$O(^TMP($J,LRVLOC,LRDFN,LRIDT)) Q:LRIDT<1 D P3 Q:LREND
P1	; S LRDFN=0 F I=0:0 S LRDFN=+$O(^TMP($J,LRVLOC,LRDFN)) Q:LRDFN<1 D P2 Q:LREND
P3	; S LRWLSAVE=LRAA,LRLLT=^TMP($J,LRVLOC,LRDFN,LRIDT),LRACC=$P(LRLLT,U,6),LRAD=$E(LRLLT)_$P(LRACC," ",2)_"0000",X=$P(LRACC," "),DIC=68,DIC(0)="M" ; D ^DIC S LRAA=+Y,LRAN=$P(LRACC," ",3),LRCMNT=$S($D(^LR(LRDFN,"MI",LRIDT,99)):^(99),1:""),LRPG=0 D EN^LRMIPSZ1 S LRAA=LRWLSAVE Q:LREND ; ----- BEGIN IHS/OIT/MKK - LR5.21030 ; LRAN Sort -- and Don't reset LRAN after D ^DIC call
LRAD
S1
ACCEPT
STUFF
PRINT	; S LRVLOC="" F LRLCNT=0:0 S LRVLOC=$O(^TMP($J,LRVLOC)) Q:LRVLOC="" S LRLTR=$E(LRVLOC,1,4) W @IOF D ^LRLTR:$E(IOST,1,2)'="C-",P1 Q:LREND ; S LRAN="" F LRLCNT=0:0 S LRAN=$O(^TMP($J,LRAN)) Q:LRAN="" W @IOF D ^LRLTR:$E(IOST,1,2)'="C-",P1 Q:LREND ; IHS/OIT/MKK - LR5.21030 - LRAN Sort
APPROVE
DQ