Routine: BLRAAORU

Package	Total	Call Graph
IHS Changes To Lab	3	(ASKNOTCE,ASKQUES)^BLRAAORU (HEADERDT,PRESSKEY)^BLRGMENU (GETACCCP,SENDMAIL,SNDALERT)^BLRUTIL3
VA Fileman	3	UPDATE^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	($$FMTE,$$HTE)^XLFDT

Package	Total	Caller Graph
Lab Service	5	LROE LRORD1 LROW2 LRVER4 LRWLST
IHS Changes To Lab	2	BLRAAORU BLRAG05

Entry Points

Name	Comments	DBIA/ICR reference
ORDNSTOR(LRORD)	; EP -- Store Ask at Order questions given Lab Order Number
ERRSPURG	; EP - Purge Errors Global
LISTCOMA(LRAS)	; EP - List Comments from Lab Data File given Accession Number
ADDCOMNT(WOT,ERRCNT)	; EP - Add the comment
ASKATORD(LRORD)	; EP - If have Order Number, Lab Ask-At-Order Questions
ERRSPURI	; EP -- Initialize variables
LISTCOML(LRDFN,LRIDT)	; EP - List Comments from Lab Data File
UPDTCOML(LRDFN,LRIDT,LRODT,LRSP)	; EP - Update the Comment line(s)
ASKQUES(P60,LRODT,LRSP,ORDNUM)	; EP - Ask the question(s) for a SPECIFIC test
GETDTSP(ORDNUM,P60,LRODT,LRSP)	; EP -- Have Order # & Test: Need LRODT & LRSP
ADDERRS(WOT,ERRS,ERRCNT)	; EP -- Add Errors. Send Alert & Email
ASKNOTCE(P60)
SHOWANSA(ANSARRAY,HOWMANY)	; EP - Display ANSWERS Array
CORRAANS(ANSARRAY)	; EP - Determine if any changes are needed to answers
GETLRAS(LRORD)	; EP -- Get the Accession(s) tied to an Order
QUESASK(ANSWERS,DZERO,QUESORD,CNT,P60)
TASKPURG	; EP -- Tasked entry point for purging the ^BLRAAORE file.
ERRPURYN(QUES)	; EP -- Questions
UPDTAAOQ	; EP - Try to update the Lab Data file with entries in the BLRAAORD file
STOREANS(P60,ANSWERS,LRODT,LRSP)	; EP - Store Answers into AAO data file

External References

Name	Field # of Occurrence
ASKNOTCE^BLRAAORU	QUESASK+19
ASKQUES^BLRAAORU	ASKATORD+12
HEADERDT^BLRGMENU	ERRSPURG+3, ERRSPURG+7, ERRSPURG+10, ERRSPURG+13
PRESSKEY^BLRGMENU	LISTCOMA+6, LISTCOMA+12, ERRSPURG+19, ERRPURYN+10
GETACCCP^BLRUTIL3	LISTCOMA+3
SENDMAIL^BLRUTIL3	ADDERRS+21, TASKPURG+11
SNDALERT^BLRUTIL3	ADDERRS+22, ADDERRS+28
UPDATE^DIE	ADDCOMNT+14
$$GET1^DIQ	QUESASK+8
^DIR	QUESASK+26, CORRAANS+9, ERRPURYN+6
^XBFMK	QUESASK+22, CORRAANS+6, ERRPURYN+3
$$FMTE^XLFDT	QUESASK+30
$$HTE^XLFDT	ADDCOMNT+9, TASKPURG+8, TASKPURG+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: CORRAANS+12
Function Call: WRITE	Prompt: !!!,?9,"Correct which Lab Ask-At-Order Answer?",!! Line Location: SHOWANSA+1
Function Call: WRITE	Prompt: " #",?4,"Question",?66,"Answer",! Line Location: SHOWANSA+2
Function Call: WRITE	Prompt: ?4,$TR($J("",60)," ","-"),?66,$TR($J("",14)," ","-"),! Line Location: SHOWANSA+3
Function Call: WRITE	Prompt: $J(QUESORD,2),")",?4,$E($P(STR,"^"),1,60),?66,$E($P(STR,"^",2),1,14),! Line Location: SHOWANSA+7
Function Call: WRITE	Prompt: !,$J(HOWMANY,2),")",?4,"None. All Answers are correct.",! Line Location: SHOWANSA+10
Function Call: WRITE	Prompt: !! Line Location: SHOWANSA+11
Function Call: WRITE	Prompt: !!,"NOTICE:",! Line Location: ASKNOTCE+1
Function Call: WRITE	Prompt: ?4,"The test ",! Line Location: ASKNOTCE+2
Function Call: WRITE	Prompt: ?9,$P($G(^LAB(60,P60,0)),"^")," [",P60,"]",! Line Location: ASKNOTCE+3
Function Call: WRITE	Prompt: ?4,"has been designated a Lab Ask-At-Order test and, as such,",! Line Location: ASKNOTCE+4
Function Call: WRITE	Prompt: ?4,"has questions that should be answered at ordering.",!! Line Location: ASKNOTCE+5
Function Call: WRITE	Prompt: ?4,"Please note that if you press the RETURN key, a null",! Line Location: ASKNOTCE+6
Function Call: WRITE	Prompt: ?4,"answer is stored.",!! Line Location: ASKNOTCE+7
Function Call: WRITE	Prompt: !!,"Value in ^LR(",LRDFN,",",$C(34),"CH",$C(34),",",LRIDT,"):",! Line Location: LISTCOML+1
Function Call: WRITE	Prompt: ?2,COMMENT,?4,$E($G(^LR(LRDFN,"CH",LRIDT,1,COMMENT,0)),1,77),! Line Location: LISTCOML+4
Function Call: WRITE	Prompt: !,"Invalid Accession Number.",! Line Location: LISTCOMA+5
Function Call: WRITE	Prompt: !,"Could not determine LRDFN and/or LRIDT.",! Line Location: LISTCOMA+11
Function Call: WRITE	Prompt: !!,"Value in ^LR(",LRDFN,",",$C(34),"CH",$C(34),",",LRIDT,"):",! Line Location: LISTCOMA+14
Function Call: WRITE	Prompt: ?2,COMMENT,?4,$E($G(^LR(LRDFN,"CH",LRIDT,1,COMMENT,0)),1,77),! Line Location: LISTCOMA+17
Function Call: WRITE	Prompt: !!,"Very Well. LAAOE File Purged.",!! Line Location: ERRSPURG+14
Function Call: WRITE	Prompt: !!!,?9,"Quit/No/Invalid response. Routine Ends." Line Location: ERRPURYN+9
Function Call: WRITE	Prompt: "CNT:",CNT,! Line Location: UPDTAAOQ+12
Function Call: WRITE	Prompt: LRORD Line Location: GETLRAS+14
Function Call: WRITE	Prompt: ?9,$S(LRAA>0:LRAA,1:"") Line Location: GETLRAS+15
Function Call: WRITE	Prompt: ?14,$S(LRAD>0:LRAD,1:"") Line Location: GETLRAS+16
Function Call: WRITE	Prompt: ?24,$S(LRAN>0:LRAN,1:"") Line Location: GETLRAS+17
Function Call: WRITE	Prompt: ?54,LRDFN Line Location: GETLRAS+19
Function Call: WRITE	Prompt: ?64,LRIDT Line Location: GETLRAS+20
Function Call: WRITE	Prompt: ! Line Location: GETLRAS+21
Routine Call	DIE Line Location: ADDCOMNT+14
Routine Call	DIR Line Location: QUESASK+26 CORRAANS+9 ERRPURYN+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BLRUCUM - [#90475.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRAAOQ - [#90475.4]	ASKQUES+14, QUESASK+1
^BLRAAOQ("B"	ASKQUES+4
^BLRAAOQD(	UPDTCOML+4, UPDTCOML+7, UPDTCOML+8, UPDTCOML+9, UPDTCOML+14!, ASKQUES+10, STOREANS+2!, STOREANS+4, STOREANS+5, STOREANS+10* , ORDNSTOR+7, UPDTAAOQ+5, UPDTAAOQ+6, UPDTAAOQ+7, UPDTAAOQ+8
^BLRAAORE(	ADDERRS+6*
^LAB(60 - [#60]	ASKNOTCE+3
^LR - [#63]	ADDCOMNT+11, LISTCOML+3, LISTCOML+4, LISTCOMA+16, LISTCOMA+17
^LRO(	ADDERRS+8, ADDERRS+24
^LRO(68 - [#68]	ADDERRS+26, LISTCOMA+8, LISTCOMA+9, ORDNSTOR+12, ORDNSTOR+15, ORDNSTOR+16, GETLRAS+11, GETLRAS+12, GETLRAS+13
^LRO(69 - [#69]	GETDTSP+4, GETDTSP+6, GETDTSP+8, GETDTSP+9, ASKATORD+6, ASKATORD+8, ASKATORD+10, ASKATORD+11, ORDNSTOR+4, ORDNSTOR+6 , ORDNSTOR+9, ORDNSTOR+10, GETLRAS+4, GETLRAS+6, GETLRAS+8, GETLRAS+9
^VA(200 - [#200]	STOREANS+5

Label References

Name	Line Occurrences
$$ERRPURYN	ERRSPURG+5, ERRSPURG+8, ERRSPURG+11
ADDCOMNT	UPDTCOML+10
ADDERRS	ADDCOMNT+16
CORRAANS	ASKQUES+17
ERRSPURI	ERRSPURG+2
GETDTSP	ASKQUES+7
ORDNSTOR	UPDTAAOQ+9
QUESASK	ASKQUES+15, CORRAANS+13
SHOWANSA	CORRAANS+5
STOREANS	ASKQUES+19
UPDTCOML	ORDNSTOR+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLOKAY	CORRAANS+1~, CORRAANS+3, CORRAANS+4, CORRAANS+10
ANSARRAY	CORRAANS~, CORRAANS+5, CORRAANS+13, SHOWANSA~
ANSARRAY(	SHOWANSA+5, SHOWANSA+6
ANSWER	UPDTCOML+1~
ANSWERS	ASKQUES+1~, ASKQUES+15, ASKQUES+17, ASKQUES+19, QUESASK~, STOREANS~
ANSWERS(	QUESASK+38*, STOREANS+8, STOREANS+10
ASKORDQ	UPDTCOML+1~, UPDTCOML+9*, UPDTCOML+10
BAILOUT	ASKQUES+1~, ASKQUES+12*, ASKQUES+14
CNT	ASKQUES+1~, ASKQUES+12, ASKQUES+15, QUESASK~, QUESASK+19, QUESASK+21, STOREANS+1~, STOREANS+7, STOREANS+9, STOREANS+10 , UPDTAAOQ+1~, UPDTAAOQ+3, UPDTAAOQ+10, UPDTAAOQ+12
>> COMMENT	LISTCOML+2, LISTCOML+3, LISTCOML+4, LISTCOMA+15, LISTCOMA+16, LISTCOMA+17
CURANS	ASKQUES+1~, QUESASK+28, QUESASK+31, QUESASK+32, QUESASK+34, QUESASK+35*, QUESASK+38
DATANAME	ASKQUES+1~
DEF	ASKQUES+1~, QUESASK+5*, QUESASK+25
DIE	UPDTCOML+1~
>> DIR("A"	QUESASK+24, ERRPURYN+5
>> DIR("B"	QUESASK+25, CORRAANS+8
>> DIR(0	QUESASK+23, CORRAANS+7, ERRPURYN+4*
DUZ	STOREANS+5
DZERO	ASKQUES+1~, ASKQUES+4*, ASKQUES+5, ASKQUES+14, ASKQUES+15, QUESASK~, QUESASK+1, CORRAANS+13
ERRCNT	UPDTCOML+1~, UPDTCOML+6, UPDTCOML+10, UPDTCOML+14, ADDCOMNT~, ADDCOMNT+16, ADDERRS~, ADDERRS+3
ERRS	UPDTCOML+1~, ADDCOMNT+16, ADDERRS~, ADDERRS+6
ERRS("DIERR"	ADDCOMNT+16
FDA	UPDTCOML+1~
FDA(	ADDCOMNT+12*
FOUNDIT	GETDTSP+1~, GETDTSP+3, GETDTSP+4, GETDTSP+6, GETDTSP+8, GETDTSP+9, GETDTSP+11
FOUNDIT("LRODT"	GETDTSP+9*, GETDTSP+11
FOUNDIT("LRSP"	GETDTSP+9*, GETDTSP+11
HEADER	ERRSPURG+1~
HEADER(1	ERRSPURI+1*
HEADER(2	ERRSPURI+2*
HOWMANY	CORRAANS+5, CORRAANS+7, CORRAANS+8, CORRAANS+10, SHOWANSA~, SHOWANSA+8, SHOWANSA+9, SHOWANSA+10
IENS	UPDTCOML+1~
IENS(1	ADDCOMNT+11*
LINES	ERRSPURG+1~, ERRSPURI+4*
LRAA	ADDERRS+1~, ADDERRS+25, ADDERRS+26, LISTCOMA+1~, LISTCOMA+3, LISTCOMA+4, LISTCOMA+8, LISTCOMA+9, ORDNSTOR+1~, ORDNSTOR+11 , ORDNSTOR+12, ORDNSTOR+15, ORDNSTOR+16, GETLRAS+1~, GETLRAS+10*, GETLRAS+11, GETLRAS+12, GETLRAS+13, GETLRAS+15
LRAD	ADDERRS+1~, ADDERRS+25, ADDERRS+26, LISTCOMA+1~, LISTCOMA+3, LISTCOMA+4, LISTCOMA+8, LISTCOMA+9, ORDNSTOR+1~, ORDNSTOR+11 , ORDNSTOR+12, ORDNSTOR+15, ORDNSTOR+16, GETLRAS+1~, GETLRAS+10*, GETLRAS+11, GETLRAS+12, GETLRAS+13, GETLRAS+16
LRAN	ADDERRS+1~, ADDERRS+25, ADDERRS+26, LISTCOMA+1~, LISTCOMA+3, LISTCOMA+4, LISTCOMA+8, LISTCOMA+9, ORDNSTOR+1~, ORDNSTOR+11 , ORDNSTOR+12, ORDNSTOR+15, ORDNSTOR+16, GETLRAS+1~, GETLRAS+10*, GETLRAS+11, GETLRAS+12, GETLRAS+13, GETLRAS+17, GETLRAS+18
LRAS	ADDERRS+1~, ADDERRS+26, ADDERRS+28, LISTCOMA~, LISTCOMA+3, ORDNSTOR+1~, ORDNSTOR+12, ORDNSTOR+13, GETLRAS+1~, GETLRAS+11* , GETLRAS+18
LRDFN	UPDTCOML~, ADDCOMNT+11, ADDCOMNT+12, ADDERRS+6, ADDERRS+14, LISTCOML~, LISTCOML+1, LISTCOML+3, LISTCOML+4, LISTCOMA+1~ , LISTCOMA+8, LISTCOMA+10, LISTCOMA+14, LISTCOMA+16, LISTCOMA+17, ORDNSTOR+15, ORDNSTOR+17, GETLRAS+12*, GETLRAS+19
LRIDT	UPDTCOML~, ADDCOMNT+11, ADDCOMNT+12, ADDERRS+6, ADDERRS+15, LISTCOML~, LISTCOML+1, LISTCOML+3, LISTCOML+4, LISTCOMA+1~ , LISTCOMA+9, LISTCOMA+10, LISTCOMA+14, LISTCOMA+16, LISTCOMA+17, ORDNSTOR+1~, ORDNSTOR+16, ORDNSTOR+17, GETLRAS+1~, GETLRAS+13* , GETLRAS+20
LRODT	UPDTCOML~, UPDTCOML+4, UPDTCOML+7, UPDTCOML+8, UPDTCOML+9, UPDTCOML+14, ADDERRS+6, ADDERRS+8, ADDERRS+16, ADDERRS+24 , ASKQUES~, ASKQUES+7, ASKQUES+8, ASKQUES+10, ASKQUES+19, GETDTSP~, GETDTSP+3, GETDTSP+4, GETDTSP+6, GETDTSP+8 , GETDTSP+9, GETDTSP+11, STOREANS~, STOREANS+2, STOREANS+4, STOREANS+5, STOREANS+10, ASKATORD+1~, ASKATORD+5, ASKATORD+6* , ASKATORD+8, ASKATORD+10, ASKATORD+11, ASKATORD+12, ORDNSTOR+1~, ORDNSTOR+3, ORDNSTOR+4, ORDNSTOR+6, ORDNSTOR+7, ORDNSTOR+9 , ORDNSTOR+10, ORDNSTOR+17, UPDTAAOQ+1~, UPDTAAOQ+4, UPDTAAOQ+5, UPDTAAOQ+6, UPDTAAOQ+7, UPDTAAOQ+8, GETLRAS+1~, GETLRAS+3* , GETLRAS+4*, GETLRAS+6, GETLRAS+8, GETLRAS+9
LRORD	ASKATORD~, ASKATORD+3, ASKATORD+6, ASKATORD+8, ASKATORD+12, ORDNSTOR~, ORDNSTOR+4, ORDNSTOR+6, UPDTAAOQ+1~, UPDTAAOQ+4* , UPDTAAOQ+8*, UPDTAAOQ+9, GETLRAS~, GETLRAS+4, GETLRAS+6, GETLRAS+14
LRSP	UPDTCOML~, UPDTCOML+4, UPDTCOML+7, UPDTCOML+8, UPDTCOML+9, UPDTCOML+14, ADDERRS+6, ADDERRS+8, ADDERRS+17, ADDERRS+24 , ASKQUES~, ASKQUES+7, ASKQUES+8, ASKQUES+10, ASKQUES+19, GETDTSP~, GETDTSP+5, GETDTSP+6, GETDTSP+8, GETDTSP+9 , GETDTSP+11, STOREANS~, STOREANS+2, STOREANS+4, STOREANS+5, STOREANS+10, ASKATORD+1~, ASKATORD+7, ASKATORD+8, ASKATORD+10 , ASKATORD+11, ASKATORD+12, ORDNSTOR+1~, ORDNSTOR+5, ORDNSTOR+6, ORDNSTOR+7, ORDNSTOR+9, ORDNSTOR+10, ORDNSTOR+17, UPDTAAOQ+1~ , UPDTAAOQ+4, UPDTAAOQ+6, UPDTAAOQ+7, UPDTAAOQ+8, GETLRAS+1~, GETLRAS+5, GETLRAS+6*, GETLRAS+8, GETLRAS+9
MAXLINES	ERRSPURG+1~, ERRSPURI+4*
ORD	UPDTCOML+1~, UPDTCOML+6, UPDTCOML+8, UPDTCOML+9, ADDERRS+6, ADDERRS+19, STOREANS+1~, STOREANS+7, STOREANS+8, STOREANS+10
ORDER	ASKQUES+1~
ORDNUM	ASKQUES~, ASKQUES+7, GETDTSP~, GETDTSP+4, GETDTSP+6
P60	UPDTCOML+1~, UPDTCOML+6, UPDTCOML+7, UPDTCOML+8, UPDTCOML+9, ADDERRS+6, ADDERRS+8, ADDERRS+18, ASKQUES~, ASKQUES+4 , ASKQUES+7, ASKQUES+10, ASKQUES+15, ASKQUES+19, QUESASK~, QUESASK+19, CORRAANS+13, GETDTSP~, GETDTSP+9, ASKNOTCE~ , ASKNOTCE+3, STOREANS~, STOREANS+4, STOREANS+5, STOREANS+10, UPDTAAOQ+1~, UPDTAAOQ+4, UPDTAAOQ+7, UPDTAAOQ+8
P60BORDR	UPDTCOML+1~
P60DESC	UPDTCOML+1~
PG	ERRSPURG+1~, ERRSPURI+4*
PTR	ASKQUES+1~, QUESASK+6, QUESASK+12, QUESASK+31, GETDTSP+1~, ASKATORD+1~, ASKATORD+11, ASKATORD+12, ORDNSTOR+1~, GETLRAS+1~
QFLG	ERRSPURG+1~, ERRSPURI+4*
QUES	ERRPURYN~, ERRPURYN+5
QUESCNT	UPDTCOML+1~
QUESDESC	ASKQUES+1~
QUESORD	ASKQUES+1~, ASKQUES+12, ASKQUES+14, ASKQUES+15, QUESASK~, QUESASK+1, QUESASK+38, SHOWANSA+4, SHOWANSA+5, SHOWANSA+6 , SHOWANSA+7, SHOWANSA+8
QUEST	ASKQUES+1~, QUESASK+2, QUESASK+16, QUESASK+24
>> QUESTCNT	UPDTCOML+6, UPDTCOML+11
READWHAT	ASKQUES+2~, QUESASK+10, QUESASK+12, QUESASK+13*, QUESASK+23, QUESASK+33
RESPONSE	ERRPURYN+1~, ERRPURYN+7*, ERRPURYN+11
RJAMT	ADDCOMNT+1~, ADDCOMNT+5, ADDCOMNT+6, ADDCOMNT+9
STORQUES	ASKQUES+2~, QUESASK+2, QUESASK+3, QUESASK+38
STR	ADDERRS+1~, ADDERRS+10!, ADDERRS+21, ADDERRS+24, ADDERRS+25, ASKQUES+2~, QUESASK+1, QUESASK+2, QUESASK+4, QUESASK+5 , QUESASK+6, QUESASK+7, SHOWANSA+6, SHOWANSA+7, ERRSPURG+1~, ERRSPURG+16, ERRSPURG+17, TASKPURG+1~, TASKPURG+3, TASKPURG+4 , TASKPURG+11, ORDNSTOR+1~, ORDNSTOR+10, ORDNSTOR+11, GETLRAS+1~, GETLRAS+9*, GETLRAS+10
STR(1	ADDERRS+12, TASKPURG+6
STR(2	ADDERRS+13, TASKPURG+7
STR(3	ADDERRS+14, TASKPURG+8
STR(4	ADDERRS+15, TASKPURG+9
STR(5	ADDERRS+16*
STR(6	ADDERRS+17*
STR(7	ADDERRS+18*
STR(8	ADDERRS+19*
STR(9	ADDERRS+20*
TAB	ADDERRS+1~, ADDERRS+11*, ADDERRS+14, ADDERRS+15, ADDERRS+16, ADDERRS+17, ADDERRS+18, ADDERRS+19, ADDERRS+20
TEST	GETDTSP+1~, GETDTSP+7, GETDTSP+8, GETDTSP+9
TST	ADDERRS+1~, ADDERRS+8, ADDERRS+9, ADDERRS+24, ASKATORD+9, ASKATORD+10, ASKATORD+11, ORDNSTOR+1~, ORDNSTOR+8, ORDNSTOR+9* , ORDNSTOR+10, GETLRAS+1~, GETLRAS+7, GETLRAS+8, GETLRAS+9
TSTORD	ASKATORD+1~
TYPE	ASKQUES+2~, QUESASK+4*, QUESASK+10, QUESASK+13, QUESASK+30
UCUM	ASKQUES+2~, QUESASK+7*, QUESASK+8
UNITS	ASKQUES+2~, QUESASK+8*, QUESASK+16, QUESASK+32
WOT	ADDCOMNT~, ADDCOMNT+5, ADDCOMNT+9*, ADDCOMNT+12, ADDCOMNT+16, ADDERRS~, ADDERRS+20
>> X	QUESASK+30*, QUESASK+31
>> Y	QUESASK+29, QUESASK+30, QUESASK+31, CORRAANS+10, CORRAANS+13, ERRPURYN+7, ERRPURYN+8

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAAORU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: