Routine: LRVER5

Information

LRVER5 ;DALOI/CJS/DALOI/FHS - LAB ROUTINE DATA VERIFICATION ; 17-Oct-2014 09:22 ; MKK

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Lab Service	6	$$TMPSB^LRVER1 RONLT^LRVER3 (COM,RANGE)^LRVER4 ($$PLOK,$$RFLAG)^LRVERA ZAPALL^LRVR3 (LRSBCOM,PLNR)^LRVR4
VA Fileman	4	^DIC CHK^DIE ^DIM ^DIR
IHS Changes To Lab	1	ENTRYAUD^BLRUTIL

Package	Total	Caller Graph
Lab Service	6	LRGV2 LRSTUF2 LRVER4 LRVR5 LRVRPOC SITE/SPECIMEN
Automated Lab Instruments	5	LA7VCIN5 LA7VIN5 LA7VLIN5 LA7VQIN5 LA7VRIN5
iCare	1	BQIVFTRL

Entry Points

Name	Comments	DBIA/ICR reference
HELP
NORM	;
CH
Q42	;
Q43
V25	; From LRVER4	ICR #5492 Status: Withdrawn Usage: Private
TRAP	;
AMEND	; Process amended results and prompt user
COMP	; from LRVR5
LROUT	;
RANGE	;
V40
V43
V42	;
V45	;
V44
V46	;
ASKPLNR	; Ask user for performing lab normal ranges and units when entering ; manually and not using values from file #60.
LRSET	; from above and LRVR5
LRSUBS	; From LRVR5

External References

Name	Field # of Occurrence
ENTRYAUD^BLRUTIL	LRSET+1
^DIC	V43
CHK^DIE	LRSET+11
^DIM	COMP+4
^DIR	AMEND+20, ASKPLNR+9, ASKPLNR+23
$$TMPSB^LRVER1	V46+13
RONLT^LRVER3	V46+16
COM^LRVER4	V44+1
RANGE^LRVER4	V46+8, RANGE+7
$$PLOK^LRVERA	V40+3
$$RFLAG^LRVERA	ASKPLNR+28
ZAPALL^LRVR3	AMEND+31
LRSBCOM^LRVR4	AMEND+28
PLNR^LRVR4	RANGE+5, RANGE+6, V25+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Current Ref Range: ",LRNG2,"-",LRNG3," Units: ",$P(LRNG,"^",7) Line Location: Q42+15
Function Call: WRITE	Prompt: !," Critical Low: ",LRNG4," Critical High: ",LRNG5 Line Location: Q42+17
Function Call: WRITE	Prompt: $C(7)," No Control Characters allowed." Line Location: Q42+26
Function Call: WRITE	Prompt: !,"Not in this group" Line Location: V43+2
Function Call: WRITE	Prompt: !,"Not in this group" Line Location: V43+3
Function Call: WRITE	Prompt: " ",RESULT(0) Line Location: LRSET+13
Function Call: WRITE	Prompt: !,LRERR("DIHELP",I) Line Location: LRSET+16
Function Call: WRITE	Prompt: !,"Something's wrong with the syntax." Line Location: COMP+5
Function Call: WRITE	Prompt: !," equals ",@C Line Location: COMP+7
Function Call: WRITE	Prompt: !!,"Error in your mathematical formular ",! Line Location: TRAP+1
Function Call: WRITE	Prompt: !,"Enter for example: 52/4+1 and 3.5 will be returned [i.e. ((52)/4)+1=3.5]" Line Location: CH+0
Function Call: WRITE	Prompt: !," ??",$C(7) Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Enter * to report ""canc"" for canceled." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Enter # to report ""comment""." Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"For test ",LRTEST Line Location: ASKPLNR+6
Routine Call	DIE Line Location: LRSET+11
Routine Call	DIC Line Location: V43
Routine Call	DIR Line Location: AMEND+20 ASKPLNR+9 ASKPLNR+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
63.04	CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	COMP+1, COMP+4
^LAB(60 - [#60]	V42+4, Q42+13, V45+7, LRSET+7, V25+3, V25+4, V25+5, V25+6, V25+10, V25+11 , V25+18
^LAB(62.1 - [#62.1]	V25+12, V25+13
^LAH(	AMEND+11, AMEND+13, AMEND+29!, AMEND+31
^LAH("LA7 AMENDED RESULTS"	LRVER5+10, LRVER5+12, LRVER5+14, Q42+4, AMEND+6, AMEND+30!
^LR - [#63]	V45+3!, V46+3
^LRO(68.2 - [#68.2]	AMEND+10
^TMP("LR"	V43+3, LRSUBS+1

Label References

Name	Line Occurrences
AMEND	Q42+6
ASKPLNR	Q42+19
CH	COMP+3, COMP+5, COMP+7
COMP	V45+12, COMP+7, CH+1
HELP	V45+9, V45+10
LROUT	Q43, V43+2, V43+3
LRSET	V45+11
LRSUBS	V40, V43+6
NORM	Q42+19
Q42	V43
Q43	V46+24
V25	V40+5, Q42+14, V43+6
V40	V40+3, Q43, V46+24
V42	Q42+26, V43+6, V45+9, V45+10, V45+11, V45+12, V46+1
V44	V40, Q43, V46+24
V45	Q42+4, Q42+28, Q43
V46	V45+2

Naked Globals

Name	Field # of Occurrence
^(	V46+3, LRSUBS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	NORM+2*
>> C	COMP+2, COMP+3, COMP+4, COMP+6, COMP+7
DA	ASKPLNR+2~
DA(1	LRSET+7
>> DIC	V43*
>> DIC(0	V43*
DIR	AMEND+12~, ASKPLNR+2~, ASKPLNR+15!, ASKPLNR+17!
DIR("?"	AMEND+19*
DIR("A"	AMEND+15, AMEND+16, AMEND+17, AMEND+18
DIR("B"	AMEND+14, ASKPLNR+8, ASKPLNR+20, ASKPLNR+21, ASKPLNR+22
DIR(0	AMEND+14, ASKPLNR+7, ASKPLNR+18*
DIROUT	ASKPLNR+2~, ASKPLNR+15!
DIRUT	AMEND+12~, AMEND+21, ASKPLNR+2~, ASKPLNR+15!
DTIME	Q42+25, COMP+2
DTOUT	AMEND+12~, ASKPLNR+2~, ASKPLNR+10, ASKPLNR+15!, ASKPLNR+16, ASKPLNR+24
DUOUT	AMEND+12~, ASKPLNR+2~, ASKPLNR+10, ASKPLNR+15!, ASKPLNR+16, ASKPLNR+24
DUZ	V46+19, V46+21
DUZ(2	V40+3, Q42+12, V46+20, V46+23, RANGE+5, RANGE+6, V25+18
I	V46+14, LRSET+10~, LRSET+16, COMP+6*, COMP+7
>> LRAMEND	AMEND+3, AMEND+27
>> LRAMEND(	Q42+4, Q42+6, V46+6, V46+8, AMEND+27*
LRANS	AMEND+1~, AMEND+22*, AMEND+23, AMEND+24
>> LRD	Q42+28*
>> LRDEL	V46+7, V25+2, V25+12
>> LRDEL(1	V25+13*
>> LRDFN	V45+3, V46+3
>> LRDL	V42+2, Q42+28
>> LRDUZ	V46+19, V46+21
>> LRDUZ(2	V40+3, Q42+12, V46+20, V46+23, RANGE+5, V25+18
>> LRDV	V42+3, Q42+28, V25+2, V25+15
>> LRDVF	V42+2, V42+3, Q42+27*, Q42+28
>> LREDIT	V42+2*
LRERR	LRSET+10~
LRERR("DIHELP"	LRSET+16
>> LRFLG	V46+6, V46+12, AMEND+25
>> LRFP	Q42+5, Q42+7, Q42+24, V25+6, V25+7
LRI	AMEND+26, ASKPLNR+2~, ASKPLNR+18, ASKPLNR+19, ASKPLNR+20, ASKPLNR+25, ASKPLNR+32*
>> LRIDT	V45+3
LRJ	AMEND+12~, AMEND+25, AMEND+26, ASKPLNR+2~, ASKPLNR+16, ASKPLNR+18
>> LRLDT	V46+3
LRLL	AMEND+1~, AMEND+9*, AMEND+10, AMEND+11, AMEND+13, AMEND+29, AMEND+30, AMEND+31
>> LRM(	V45+4
>> LRNDISP	LRVER5+3
>> LRNG	Q42+15, V25+2, V25+11, V25+12, V25+13, V25+14, V25+15, NORM+3, NORM+6, NORM+10* , AMEND+26, AMEND+27, ASKPLNR+32
>> LRNG2	Q42+15
>> LRNG3	Q42+15
>> LRNG4	Q42+16, Q42+17
>> LRNG5	Q42+16, Q42+17
>> LRNGS	Q42+20, V46+22, V25+2, NORM+3, NORM+10, AMEND+27
>> LRNOVER(	V42+5!
LRNUF	V44+2*, V46+24!
>> LRNX	LRVER5+4, LRVER5+5, LRVER5+11, LRVER5+12, LRVER5+13, LRVER5+14, LRVER5+16, V40, V43+4, V43+5 , V43+6, LRSUBS+1
>> LRORD(	LRVER5+5, LRVER5+12!, V40, V43+5, V43+6, LRSUBS+1
>> LROUT	LROUT+2*
>> LRPLOC	V43+1*
>> LRPROF	AMEND+10*
>> LRRFLAG(	ASKPLNR+28*
LRROOT	AMEND+1~, AMEND+6*, AMEND+7, AMEND+8, AMEND+9
>> LRSA	V44+2*
>> LRSA(	LRVER5+6!, LRVER5+14!, V45+4, V46+2*, V46+18
LRSB	V40+3, V42+2, V42+5, Q42+4, Q42+6, Q42+21, Q42+22, V43+1, V43+3, V43+5 , V43+6, V45+3, V45+4, V45+5, V46+2, V46+3, V46+6, V46+8, V46+10, V46+12 , V46+13, V46+15, V46+16, V46+18, V46+19, V46+20, V46+21, V46+22, V46+23, RANGE+1 , RANGE+6, LRSUBS+1, LRSET+7~*, LRSET+11, AMEND+6, AMEND+8, AMEND+11, AMEND+13, AMEND+25, AMEND+27 , AMEND+29, AMEND+30, ASKPLNR+4, ASKPLNR+12, ASKPLNR+28
LRSB(	LRVER5+6!, LRVER5+14!, V40+3, V42+2, Q42+21, Q42+22, V45+4, V45+5, V46+2, V46+10* , V46+12, V46+13, V46+15, V46+16, V46+19, V46+20, V46+21, V46+22, V46+23, RANGE+1 , RANGE+6, V25+15, AMEND+25, ASKPLNR+4, ASKPLNR+12, ASKPLNR+28
LRSKIP	V45+1!, V46+24
>> LRSPEC	Q42+13, V25+10, V25+11, V25+18, ASKPLNR+31
LRSQ	AMEND+1~, AMEND+9*, AMEND+11, AMEND+13, AMEND+29, AMEND+30, AMEND+31
>> LRSS	V43+3, V45+3, V46+3
>> LRSSQ	V43+1*, V43+2, V43+3
>> LRTEST	V42+4*, Q42+5, Q42+7, Q42+24, V46+2, ASKPLNR+6
>> LRTS	V40+3, V42+4, Q42+13, V43+1, V45+7, LRSUBS+1, V25+3, V25+4, V25+5
LRTX	V25+1~, V25+5*, V25+6, V25+10, V25+11, V25+18
>> LRUID	LRVER5+10, LRVER5+12, LRVER5+14, Q42+4, AMEND+6, AMEND+8, AMEND+30
>> LRVF	V44+2, V45+3, V45+4, V46+2
>> LRVRM	LRVER5+16*
LRX	LRVER5+5~, LRVER5+6, Q42+18~, Q42+20, Q42+21, V46+13, V46+14, V25+1~, V25+4, V25+15 , NORM+4, NORM+6, NORM+10, AMEND+1~, AMEND+5, AMEND+25, AMEND+32, ASKPLNR+2~, ASKPLNR+4, ASKPLNR+8 , ASKPLNR+12, ASKPLNR+19, ASKPLNR+20, ASKPLNR+25, ASKPLNR+31*, ASKPLNR+32
LRX(	LRVER5+5*, LRVER5+6
>> LRXD	V45+7*, HELP
>> LRXDH	HELP*, HELP+1
>> LRXDP	V45+7*, V45+8, V45+10, V45+11, V45+12, HELP+4
LRY	Q42+18~, Q42+21, Q42+22, V46+13, V46+14, V46+15, NORM+5~, NORM+6, NORM+8, NORM+9 , NORM+10, AMEND+12~, AMEND+13, AMEND+15, AMEND+16, AMEND+17, AMEND+25, ASKPLNR+2~
RESULT	LRSET+10~, LRSET+11, LRSET+13, LRSET+15
RESULT(0	LRSET+13
>> SEX	NORM+1*
SX	V42+2*, Q42+4, Q42+7, Q42+27, V44!, LROUT+1!
U	V42+2, V42+4, V43, V43+1, V45+7, V45+8, V45+10, V45+11, V45+12, V46+3 , V46+10, V46+11, V46+12, V46+13, V46+15, V46+16, V46+19, V46+20, V46+21, V46+22 , V46+23, V25+4, V25+5, V25+6, V25+12, V25+13, V25+14, V25+15, HELP+4
X	V42+2, V42+3, Q42+4, Q42+5, Q42+7, Q42+24, Q42+25, Q42+26, Q42+27, Q42+28* , Q43, V43, V45+2, V45+4, V45+5, V45+8, V45+9, V45+10, V45+11, V45+12 , V46+1, V46+4, V46+10, V46+11, V46+12, V46+24, RANGE+1, LRSET+11, LRSET+13, LRSET+17! , COMP+1, COMP+4, COMP+5, AMEND+5, AMEND+12~, AMEND+32, ASKPLNR+2~, ASKPLNR+15!
>> X1	V46+3*
>> X2	V25+14*
Y	V43, V43+1, V46+7*, AMEND+12~, AMEND+22, ASKPLNR+2~, ASKPLNR+12, ASKPLNR+15!, ASKPLNR+25
Y(0	V43+1

Customize PDF page

Package: Lab Service

Routine: LRVER5

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: