Routine: LAMIVTL2

Information

LAMIVTL2 ;VA/DAL/HOAK - 3rd vitek literal verification routine ;1/22/96 08:30 ;

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Automated Lab Instruments	3	(CHKLAH,SET)^LAMIVTL3 ^LAMIVTL4 EDIT^LAMIVTL6
VA Fileman	3	^DIC YN^DICN ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Lab Instruments	1	LAMIVTL1

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL	;
LAH1	; Display drugs
CHK	;
LAH	;
CHKPAGE	;
LAH2	; ; Print drugs
PRESTO	; ; --- KEEP LRIFN FOR FUTURE USE---------------<<<<<<<<
PROBE	;--------------------------------------------------------------------- ; If data here it looks like ^LR(LRDFN,"MI",LRIDT,3,LRPIC,DRUGNODE) ; where LRPIC is not the IFN in etiology, that is found at ; $P(^(3,LRBUG,0),U)
INIT	;
ORGCOM	;
CALL	;
BUILD
ASK	; From LAMIAUT2 BY FHS
CHKG	;
GETBUG	;
DISPLAY	;
PAUSE	;

Name	Field # of Occurrence
^DIC	ASK+10, ORGCOM+9
YN^DICN	ASK+12, ORGCOM+11
^DIR	CHK+6, PAUSE+7, CHKPAGE+4
CHKLAH^LAMIVTL3	LAH1+15
SET^LAMIVTL3	LAH2+22
^LAMIVTL4	CONTROL+14
EDIT^LAMIVTL6	CHK+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CONTROL+11
Function Call: WRITE	Prompt: !!,"Reviewing for previously entered results:" Line Location: PROBE+4
Function Call: WRITE	Prompt: !,"NO PREVIOUS DATA FOR THIS ACCN" Line Location: PROBE+6
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"Isolate (",LRPIC," )" Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !," ",LRBUG Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,$E(LRDRUG,1,30),?32,$P(LRNTRP,U),?38,$P(LRNTRP,U,2) Line Location: DISPLAY+13
Function Call: WRITE	Prompt: !!,"Look what I found in ",PNM,"'S report.",!,"What do you want me to do with it?" Line Location: CHK+3
Function Call: WRITE	Prompt: !,"I will not overwrite verified Data!",7,7,!! Line Location: CHK+12
Function Call: WRITE	Prompt: !!,LRISO,". ENTER QUANTITY FOR ( "_LRBUG_" ) : " Line Location: ASK+4
Function Call: WRITE	Prompt: $S($D(X2):X2_" // ",1:" ") Line Location: ASK+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+6
Function Call: WRITE	Prompt: !?7,"Enter 2-68 characters or a Lab Description" Line Location: ASK+10
Function Call: WRITE	Prompt: !?7,"Enter 2-68 characters " Line Location: ASK+11
Function Call: WRITE	Prompt: !,"COMMENT: " Line Location: ORGCOM+3
Function Call: WRITE	Prompt: $S($D(X2):X2_" // ",1:" ") Line Location: ORGCOM+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: ORGCOM+5
Function Call: WRITE	Prompt: !?7,"Enter 2-68 characters or a Lab Description" Line Location: ORGCOM+9
Function Call: WRITE	Prompt: !?7,"Enter 2-68 characters " Line Location: ORGCOM+10
Function Call: WRITE	Prompt: @IOF Line Location: LAH2+8
Function Call: WRITE	Prompt: !,"Isolate (",LRISO," )" Line Location: LAH2+9
Function Call: WRITE	Prompt: !," ",LRBUG Line Location: LAH2+10
Function Call: WRITE	Prompt: !," ","CARD "_$P(^LAH(LRLL,1,LRIFN(LRIFN),2,2),U,2) Line Location: LAH2+11
Function Call: WRITE	Prompt: @IOF Line Location: CHKPAGE+6
Routine Call	DIC Line Location: ASK+10 ORGCOM+9
Routine Call	DIR Line Location: CHK+6 PAUSE+7 CHKPAGE+4

FileNo	Call Tags
^LAB(62.5 - [#62.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.2 - [#61.2]	DISPLAY+6, GETBUG+3, BUILD+5, LAH1+12, LAH2+7
^LAB(62.06 - [#62.06]	DISPLAY+12, LAH2+15
^LAH(	CONTROL+6!, ASK+2, ASK+13, BUILD, BUILD+1!, BUILD+3, BUILD+4, BUILD+5, BUILD+8, BUILD+9 , LAH1+3, LAH1+6, LAH1+8, LAH1+12, LAH1+13, LAH2+11, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
^LR - [#63]	PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1!, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8* , ORGCOM+12*
^TMP("VITNAME"	LAH2+6!, LAH2+16*, LAH2+18, LAH2+19
^TMP($J	CONTROL+6!, BUILD+6, CALL+3, CALL+5, LAH1+9, LAH1+14*, LAH2+3, LAH2+5

Label References

Name	Line Occurrences
ASK	GETBUG+1, ASK+10, ASK+11, ASK+12, ORGCOM+9, ORGCOM+10, ORGCOM+11
CALL	CONTROL+9
CHK	DISPLAY+15, CHK+11
CHKG	CHK+9
CHKPAGE	LAH2+19
GETBUG	CALL+6
LAH	CONTROL+8
LAH1	CONTROL+12
LAH2	CONTROL+13
ORGCOM	GETBUG+6, ORGCOM+8
PAUSE	LAH2+21
PRESTO	LAH1+10
PROBE	CONTROL+4

Name	Field # of Occurrence
^(	CALL+5, LAH2+5, LAH2+19
^(0	GETBUG+2*, ASK+2, ORGCOM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+12, ORGCOM+11
DIC	ASK+10!, ORGCOM+9!
DIC("S"	ASK+10, ORGCOM+9
DIC(0	ASK+10, ORGCOM+9
DIR	DISPLAY+3!, DISPLAY+16!, PAUSE+5!, CHKPAGE+2!
DIR("A"	CHK+5*
DIR(0	DISPLAY+4, CHK+4, PAUSE+6, CHKPAGE+3
DTIME	ASK+6, ORGCOM+5
>> DTOUT	CHK+7
>> DUOUT	CHK+7, PAUSE+8
IOF	CONTROL+11, DISPLAY+2, LAH2+8, CHKPAGE+6
IOSL	CHKPAGE+1
>> LRBACT	BUILD+4, PAUSE+3
>> LRBUG	DISPLAY+6, DISPLAY+8, GETBUG+3, ASK+4, BUILD+5, BUILD+6, CALL+4, CALL+5, LAH1+12, LAH2+7 , LAH2+10
LRBUX	CONTROL+2!, BUILD+8, BUILD+9, LAH1+7, LAH1+8, LAH1+9, LAH1+13, LAH1+14
>> LRCMNT	ORGCOM+1, ORGCOM+2, BUILD+3, PAUSE+2*
>> LRD0(	DISPLAY+14*
>> LRDFN	PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8 , ORGCOM+12
>> LRDIE	PAUSE+1*, PAUSE+2, PAUSE+3
LRDOS	DISPLAY+1!, DISPLAY+7*, CHK+1
>> LRDRUG	DISPLAY+12, DISPLAY+13, LAH2+15, LAH2+16, LAH2+18*, LAH2+19
>> LREND	ASK+3, ASK+6, ASK+8, ORGCOM+5, ORGCOM+7*
>> LRIDT	PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8 , ORGCOM+12
>> LRIFN	CONTROL+7, CONTROL+8, CONTROL+10, CONTROL+12, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+6 , BUILD+8, BUILD+9, LAH1+12, LAH1+13, LAH1+14, LAH2+5*, LAH2+11, LAH2+13, LAH2+14, LAH2+24 , PRESTO+2, PRESTO+5, PAUSE+1
>> LRIFN(	CONTROL+8, CONTROL+12, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+8, BUILD+9 , LAH1+12, LAH1+13, LAH1+14, LAH2+5, LAH2+11, LAH2+13, LAH2+14, LAH2+24, PRESTO+2, PRESTO+5* , PAUSE+1
>> LRINTER	LAH2+24, PRESTO+2*
>> LRISO	GETBUG+2, GETBUG+3, ASK+4, ASK+14, ORGCOM+1, ORGCOM+8, ORGCOM+12, LAH+2, BUILD, BUILD+1 , BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+8, BUILD+9, CALL+2, CALL+3, CALL+5, LAH1+2* , LAH1+3, LAH1+4, LAH1+6, LAH1+8, LAH1+9, LAH1+12, LAH1+13, LAH1+14, LAH2+2, LAH2+3* , LAH2+5, LAH2+9, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
LRKEEP	CONTROL+3!
LRKEEP(	CHK+9, CHK+10, BUILD+1, LAH1+4
>> LRLL	CONTROL+6, ASK+2, ASK+13, BUILD, BUILD+1, BUILD+3, BUILD+4, BUILD+5, BUILD+8, BUILD+9 , LAH1+3, LAH1+6, LAH1+8, LAH1+12, LAH1+13, LAH2+11, LAH2+13, LAH2+14, PRESTO+4, PAUSE+1
>> LRMICOM	ASK+11, ORGCOM+10
>> LRNOD	ASK+2, ASK+13, CALL+5*
>> LRNORK	LAH1+5, LAH1+6, LAH1+8, LAH1+9
>> LRNOT	LAH1+15
>> LRNOTO	CHK+11
>> LRNTRP	DISPLAY+11, DISPLAY+13, DISPLAY+14, LAH2+14, LAH2+16
>> LRORGCNT	ASK+4, LAH+3
>> LRPIC	PROBE+7, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+10, DISPLAY+11, CHK+9, CHK+10
>> LRPIN	LAH2+4, LAH2+5, LAH2+7
>> LRPLK	PRESTO+3, PRESTO+4, PRESTO+5
>> LRQUANT(	GETBUG+2, ASK+14*
>> LRRX	DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+14, BUILD+2, LAH1+11, LAH2+12, LAH2+13, LAH2+14 , LAH2+15
>> LRSUB	PROBE+5, DISPLAY+5, DISPLAY+6, DISPLAY+10, DISPLAY+11, CHKG+1, GETBUG+2, GETBUG+3, ORGCOM+1, ORGCOM+8 , ORGCOM+12
>> OK	CONTROL+1, CONTROL+5, CONTROL+8, CONTROL+12, DISPLAY+5, DISPLAY+15, CHK+7, ASK+6, ASK+8, ORGCOM+5* , ORGCOM+7, BUILD, CALL+6, LAH1+3, LAH2+19, LAH2+20, LAH2+23, PAUSE+8, CHKPAGE+5*
>> PNM	CHK+3
U	DISPLAY+6, DISPLAY+12, DISPLAY+13, GETBUG+2, ASK+2, ASK+13, BUILD+3, BUILD+4, BUILD+5, BUILD+6 , BUILD+9, LAH1+12, LAH1+14, LAH2+7, LAH2+11, LAH2+15, LAH2+19, PAUSE+2, PAUSE+3
>> X	ASK+6, ASK+7, ASK+8, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ORGCOM+5, ORGCOM+6* , ORGCOM+7, ORGCOM+8, ORGCOM+9*, ORGCOM+10, ORGCOM+11, ORGCOM+12
X2	ASK+1!, ASK+2, ASK+5, ASK+7, ORGCOM+2, ORGCOM+4, ORGCOM+6
>> Y	CHK+9, CHK+10, CHK+11, CHKPAGE+5

Customize PDF page

Package: Automated Lab Instruments

Routine: LAMIVTL2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: