Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLR7OB1

Package: IHS Changes To Lab

Routine: BLR7OB1


Information

BLR7OB1 ; IHS/MSC/MKK - Update an Order's OERR Status Flag ; 16-Jul-2015 06:30 ; MKK

Source Information

Source file <BLR7OB1.m>

Call Graph

Call Graph Total: 23

Package Total Call Graph
IHS Changes To Lab 8 NEW^BLR7OB1  (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU  BOKAY^BLRKIDS2  TABMESG^BLRKIDSU  $$WARNINGS^BLROTSCH  BOKAY^BLRPRE31  ENTRYAUD^BLRUTIL  ($$BADSTF2Q,BADSTUF2)^BLRUTIL7  
Lab Service 7 (EN1,FIRST)^LR7OB0  (CALL,ORD1)^LR7OB1  SNEAK^LR7OB3  68^LR7OB68  ($$VER,EN)^LR7OU1  EN^LR7OV2  GDG1^LRBEBA2  
Kernel 4 ($$DT,$$FMADD,$$FMTE,$$HTFM)^XLFDT  $$CJ^XLFSTR  MES^XPDUTL  MSG^XQOR  
VA Fileman 3 FIND^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLR35PST  BLR7OB1  

Entry Points

Name Comments DBIA/ICR reference
ROERRSTI() ; EP - Initialization
B369 ; EP - Cloned from LR7OB3
OERRAFIX ; EP - Update all Orders' OERR Status Flag - Interactive version
SETBLRVS(TWO) ; EP - Set BLRVERN variable(s)
EN1(ODT,SN,CONTROL,NAT) ; EP - Build msg based on date and LRSN - Cloned from LR7OB0
OERRSTSC ; EP - Change OERR Status for All OERR Orders with PENDING Status after associated Lab Order was cancelled during the Clinical Indication process.
PEP ; EP
EEP ; Ersatz EP
RESETHDR(ORDERN) ; EP - Create rest of HEADER array
ROERRSTL ; EP - Line of Data
FIXIT(ORDERN) ; EP - Fix the OERR Order
ORDLVLDA ; EP - Order Level Data
OERRFIX ; EP - Update an Order's OERR Status Flag - Interactive version
CHEKUSER() ; EP - Make sure User has the LRSUPER Key
69(ODT,SN) ; Cloned from LR7OB69. See Documentation in that routine.
ROERRSTB() ; EP - "Break out" Data
NEW(ODT,SN,CONTROL,NAT,TESTS,LRSTATI) ; Set-up order message - Cloned from LR7OB1
SHOWOERR(MSG,ORDERN) ; EP - Show the Status of OERR Numbers
EP ; EP
ROERRSTS ; EP - Report on pending OERR STatuS for orders deleted during the clinical indication process.
OUT ;Exit here

External References

Name Field # of Occurrence
NEW^BLR7OB1 OERRSTSC+36
ADDTMENU^BLRGMENU PEP+7, PEP+8, PEP+9
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU OERRFIX+9, FIXIT+3, OERRAFIX+7, OERRAFIX+22, OERRAFIX+25, OERRAFIX+31, ROERRSTI+11, ROERRSTI+13, CHEKUSER+5
HEADERPG^BLRGMENU ROERRSTL+3
HEADONE^BLRGMENU ROERRSTI+12
MENUDRVR^BLRGMENU PEP+12
PRESSKEY^BLRGMENU FIXIT+33, OERRAFIX+29, OERRAFIX+34, ROERRSTS+15, CHEKUSER+8
BOKAY^BLRKIDS2 OERRSTSC+10
TABMESG^BLRKIDSU OERRSTSC+3, OERRSTSC+7, OERRSTSC+40, OERRSTSC+42
$$WARNINGS^BLROTSCH OERRAFIX+20, OERRAFIX+23, OERRAFIX+26
BOKAY^BLRPRE31 OERRSTSC+48
ENTRYAUD^BLRUTIL NEW+22
$$BADSTF2Q^BLRUTIL7 ROERRSTI+6
BADSTUF2^BLRUTIL7 OERRFIX+14, FIXIT+30
FIND^DIC OERRSTSC+5, ROERRSTI+5
$$GET1^DIQ FIXIT+13, FIXIT+16, FIXIT+19, FIXIT+20, SHOWOERR+10, SHOWOERR+11, SHOWOERR+12, SHOWOERR+13, OERRSTSC+21, OERRSTSC+24
, OERRSTSC+26, OERRSTSC+28, ORDLVLDA+2, ORDLVLDA+3, ROERRSTB+1, ROERRSTB+5, ROERRSTB+8, ROERRSTB+11, CHEKUSER+6
^DIR OERRFIX+12
EN1^LR7OB0 NEW+12, NEW+18
FIRST^LR7OB0 B369+2
CALL^LR7OB1 NEW+12, NEW+18, NEW+23
ORD1^LR7OB1 NEW+11
SNEAK^LR7OB3 B369+3
68^LR7OB68 69+19
$$VER^LR7OU1 NEW+4
EN^LR7OU1 69+19
EN^LR7OV2 NEW+7
GDG1^LRBEBA2 69+9
^XBFMK OERRFIX+10
$$DT^XLFDT OERRSTSC+46
$$FMADD^XLFDT OERRSTSC+13, ROERRSTI+31
$$FMTE^XLFDT OERRAFIX+16, OERRSTSC+10, ROERRSTI+9, ROERRSTL+5
$$HTFM^XLFDT OERRSTSC+46
$$CJ^XLFSTR ROERRSTI+9
MES^XPDUTL OERRSTSC+41
MSG^XQOR NEW+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,MSG,?14,F60IEN,?24,$E(F60DESC,1,28),?54,OERRNUM,?64,OERRSTS,!
  • Line Location: SHOWOERR+14
Function Call: WRITE
  • Prompt: ?9,"This routine will UPDATE the OERR Order status for ALL Lab",!
  • Line Location: OERRAFIX+11
Function Call: WRITE
  • Prompt: ?4,"Orders that were cancelled during the Clinical Indication process",!
  • Line Location: OERRAFIX+12
Function Call: WRITE
  • Prompt: ?4,"prior to the installation of the LR*5.2*1035 patch.",!!
  • Line Location: OERRAFIX+13
Function Call: WRITE
  • Prompt: ?9,"The LR*5.2*1035 Patch's Post Install Routine ran this on ",!
  • Line Location: OERRAFIX+15
Function Call: WRITE
  • Prompt: ?19,$$FMTE^XLFDT($P($G(^XTMP("BLR7OB1",0)),U),"5DZ"),!!
  • Line Location: OERRAFIX+16
Function Call: WRITE
  • Prompt: ?9,"This should only need to be run once.",!!
  • Line Location: OERRAFIX+17
Function Call: WRITE
  • Prompt: ?9,"NOTE: this could take a long time to run.",!
  • Line Location: OERRAFIX+18
Function Call: WRITE
  • Prompt: !!,?4,"Very well."
  • Line Location: OERRAFIX+28
Function Call: WRITE
  • Prompt: ?4,ORDERCNT," Lab Order Entry (#69) File entries analyzed."
  • Line Location: ROERRSTS+13
Function Call: WRITE
  • Prompt: !!,?9,$S(CNT:CNT,1:"No")," Order",$S(CNT=1:"",1:"s")," with PENDING OERR status."
  • Line Location: ROERRSTS+14
Function Call: WRITE
  • Prompt: LRODT,?9,$$FMTE^XLFDT(LRODT,"2DZ"),?19,LRSP,?29,ORDERN,?39,ORDOERR,?51,LROT,?60,F60IEN,?69,LROTOERR,!
  • Line Location: ROERRSTL+5
Function Call: WRITE
  • Prompt: !!,?9,"User ",$$GET1^DIQ(200,DUZ,.01)," [",DUZ,"] does *NOT* have the LRSUPER",!!
  • Line Location: CHEKUSER+6
Function Call: WRITE
  • Prompt: ?4,"Security Key. Routine Ends."
  • Line Location: CHEKUSER+7
Routine Call
  • DIC
  • Line Location:
    • OERRSTSC+5
    • ROERRSTI+5
Routine Call
  • DIR
  • Line Location:
    • OERRFIX+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
69.01 GET1^DIQ
69.03 GET1^DIQ
^XPD(9.7 - [#9.7] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] NEW+4, 69+4
^LAB(60 - [#60] 69+19
^LR - [#63] NEW+4, NEW+8, 69+3, 69+4
^LRO(69 - [#69] OERRFIX+14, FIXIT+7, FIXIT+9, FIXIT+11, SHOWOERR+4, SHOWOERR+6, SHOWOERR+8, OERRSTSC+14, OERRSTSC+16, OERRSTSC+19
, NEW+2, NEW+6*, NEW+18, 69+2, 69+6, 69+10, 69+12, 69+14, 69+17, ROERRSTS+5
, ROERRSTS+7, ROERRSTS+10
^ORD(100.99 - [#100.99] NEW+4, NEW+5
^TMP("LRAP" NEW+10!, NEW+12!, NEW+18!, NEW+23!
^TMP("LRBB" NEW+10!, NEW+12!, NEW+18!, NEW+23!
^TMP("LRCH" NEW+10!, NEW+12!, NEW+18!, NEW+21, NEW+23!
^TMP("LRX" EN1+4!, B369+1!, B369+2, OUT+1!, 69+1!, 69+8*, 69+11*, 69+13*, 69+16*, 69+18*
, 69+19
^XTMP("BLR7OB1" OERRAFIX+14, OERRAFIX+16, OERRSTSC+38*, OERRSTSC+46*
^XUSEC("LRSUPER" CHEKUSER+1

Label References

Name Line Occurrences
$$CHEKUSER PEP+5
$$ROERRSTB ROERRSTL+1
$$ROERRSTI ROERRSTS+3
69 B369+2
B369 EN1+5
EN1 NEW+20
FIXIT OERRFIX+16
NEW FIXIT+28
OERRSTSC OERRAFIX+32
ORDLVLDA ROERRSTS+8
OUT B369+2
RESETHDR FIXIT+1
ROERRSTL ROERRSTS+10
SETBLRVS PEP+3, OERRFIX+3, OERRAFIX+3, ROERRSTI+1
SHOWOERR FIXIT+4, FIXIT+32

Naked Globals

Name Field # of Occurrence
^( 69+2, 69+6, 69+10, 69+12, 69+14, 69+17
^(0 NEW+2, 69+2
^(1 69+2
^(3 69+2
^(4 69+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APMSG EN1+3~
BBMSG EN1+3~
>> BLRVERN SETBLRVS+1*
>> BLRVERN2 SETBLRVS+2*
>> CANCELR OERRSTSC+21*, OERRSTSC+22, ROERRSTB+1*, ROERRSTB+2
>> CANCLRSN FIXIT+13*, FIXIT+14
CAT EN1+3~
CHMSG EN1+3~
>> CNT FIXIT+6*, FIXIT+25*, FIXIT+30, OERRSTSC+12*, OERRSTSC+37*, OERRSTSC+42, OERRSTSC+44, OERRSTSC+48, ROERRSTS+12, ROERRSTS+14
, ROERRSTI+29*, ROERRSTL+7*
>> CNTORD OERRSTSC+12*, OERRSTSC+17*, OERRSTSC+40
COBR EN1+3~
COBX EN1+3~
CONTROL NEW~, NEW+12, NEW+18, NEW+20, NEW+23, EN1~
CTR EN1+3~
D0 EN1+3~
DA EN1+3~
DFN NEW+4~*, NEW+5, NEW+7, EN1+3~, B369+2, 69+4*
DIC EN1+3~
DIE EN1+3~
>> DILOCKTM PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> DIR(0 OERRFIX+11*
>> DIRUT OERRFIX+13
>> DISYS PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DR EN1+3~
DT PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DTIME PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DUZ PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, CHEKUSER+1, CHEKUSER+6
>> ERRS OERRSTSC+6, ROERRSTI+6
F60DESC SHOWOERR+1~, SHOWOERR+11*, SHOWOERR+14
F60IEN FIXIT+16*, FIXIT+17, FIXIT+23, SHOWOERR+1~, SHOWOERR+10*, SHOWOERR+14, OERRSTSC+28*, OERRSTSC+29, OERRSTSC+31, ROERRSTL+5
, ROERRSTB+11*, ROERRSTB+12
>> FOUND OERRSTSC+18*, OERRSTSC+32*, OERRSTSC+34
GOTCOM 69+1~
>> HDRONE ROERRSTI+12, ROERRSTL+3
>> HEADER( OERRFIX+17!
>> HEADER(1 OERRFIX+5*, OERRAFIX+5*, ROERRSTI+2*, CHEKUSER+3*
>> HEADER(2 RESETHDR+1*, OERRAFIX+6*, ROERRSTI+3*, CHEKUSER+4*
>> HEADER(3 RESETHDR+2*, ROERRSTI+9*
>> HEADER(4 RESETHDR+3*, RESETHDR+4*, RESETHDR+5*, RESETHDR+6*, ROERRSTI+15*
>> HEADER(5 ROERRSTI+16*, ROERRSTI+17*, ROERRSTI+18*
>> HEADER(6 ROERRSTI+19*, ROERRSTI+20*, ROERRSTI+21*, ROERRSTI+22*, ROERRSTI+23*, ROERRSTI+24*, ROERRSTI+25*, ROERRSTI+26*
I NEW+9~, EN1+3~, 69+8*, 69+10*, 69+11, 69+12*, 69+13
IFN EN1+3~, 69+1~, 69+6*, 69+8, 69+9, 69+10, 69+11, 69+12, 69+13, 69+14*
, 69+16, 69+19*
IFN1 EN1+3~
IFN2 EN1+3~
IO PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOBS PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOF PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOM PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, ROERRSTI+9
ION PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOS PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, ROERRSTI+28
IOSL PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOST PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOT PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOXY PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
J EN1+3~
>> LINES ROERRSTI+28*, ROERRSTL+3, ROERRSTL+6*
LOC EN1+3~
>> LR1033ID OERRSTSC+9*, OERRSTSC+10, OERRSTSC+13, ROERRSTI+8*, ROERRSTI+9, ROERRSTI+31
LRDFN EN1+3~, 69+4*
LRDPF NEW+4~*, NEW+7, EN1+3~, 69+4*
LRFIRST EN1+3~, EN1+5*, B369+2*
LRNIFN NEW+9~, NEW+14*, 69+7
LRODT FIXIT+6*, FIXIT+7*, FIXIT+9, FIXIT+11, FIXIT+12, FIXIT+28, SHOWOERR+1~, SHOWOERR+3*, SHOWOERR+4*, SHOWOERR+6
, SHOWOERR+8, SHOWOERR+9, OERRSTSC+13*, OERRSTSC+14*, OERRSTSC+16, OERRSTSC+19, OERRSTSC+20, OERRSTSC+36, OERRSTSC+38, ROERRSTS+5*
, ROERRSTS+7, ROERRSTS+10, ROERRSTI+31*, ORDLVLDA+2, ORDLVLDA+3, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
LROT FIXIT+10*, FIXIT+11*, FIXIT+12, SHOWOERR+1~, SHOWOERR+7*, SHOWOERR+8*, SHOWOERR+9, OERRSTSC+18*, OERRSTSC+19*, OERRSTSC+20
, ROERRSTS+9*, ROERRSTS+10*, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
>> LROTIEN OERRSTSC+20*, OERRSTSC+21, OERRSTSC+24, OERRSTSC+28, ROERRSTB+4*, ROERRSTB+5, ROERRSTB+11
>> LROTOERR OERRSTSC+24*, OERRSTSC+25, OERRSTSC+26, ROERRSTL+5, ROERRSTB+5*, ROERRSTB+6, ROERRSTB+8
LRSP FIXIT+8*, FIXIT+9*, FIXIT+11, FIXIT+12, FIXIT+28, SHOWOERR+1~, SHOWOERR+5*, SHOWOERR+6*, SHOWOERR+8, SHOWOERR+9
, OERRSTSC+15*, OERRSTSC+16*, OERRSTSC+19, OERRSTSC+20, OERRSTSC+36, OERRSTSC+38, ROERRSTS+6*, ROERRSTS+7*, ROERRSTS+10, ORDLVLDA+2
, ORDLVLDA+3, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
LRSTATI NEW~, NEW+18*
LRTMPO NEW+9~
LRTMPO("LRIFN" NEW+12, NEW+14, 69+7
LRX0 NEW+2~*, NEW+4, NEW+8
>> MAXLINES ROERRSTI+28*, ROERRSTL+3
MSG SHOWOERR~, SHOWOERR+14, NEW+9~, EN1+3~, EN1+5*
NAT NEW~, NEW+12, NEW+18, NEW+20, EN1~
NOTE 69+1~
OBRMSG EN1+3~
ODT NEW~, NEW+2, NEW+6, NEW+11, NEW+12, NEW+16~, NEW+17*, NEW+18, NEW+20, EN1~
, B369+2, 69~, 69+2, 69+6, 69+9, 69+10, 69+12, 69+14, 69+17
OERRNUM SHOWOERR+1~, SHOWOERR+12*, SHOWOERR+13, SHOWOERR+14
OERRSTS SHOWOERR+1~, SHOWOERR+13*, SHOWOERR+14, ROERRSTB+8*, ROERRSTB+9
>> OKAY FIXIT+10*, FIXIT+24*, FIXIT+26
>> ONGO OERRFIX+7*, OERRFIX+8, OERRFIX+13*
ORAPMSG NEW+9~
ORBBMSG NEW+9~
ORCHMSG NEW+9~
ORCMSG EN1+3~
>> ORDERCNT ROERRSTS+13, ROERRSTI+29*, ORDLVLDA+1*
ORDERN FIXIT~, FIXIT+1, FIXIT+4, FIXIT+7, FIXIT+9, FIXIT+30, FIXIT+32, RESETHDR~, RESETHDR+1, SHOWOERR~
, SHOWOERR+4, SHOWOERR+6, ORDLVLDA+2*, ROERRSTL+5
>> ORDOERR ORDLVLDA+3*, ROERRSTL+5
>> PG ROERRSTI+29*, ROERRSTL+3
>> QFLG ROERRSTS+5, ROERRSTS+7, ROERRSTS+10, ROERRSTI+30*, ROERRSTL+3
ROOM EN1+3~
SEX EN1+3~
SN NEW~, NEW+2, NEW+6, NEW+11, NEW+12, NEW+16~, NEW+17*, NEW+18, NEW+20, EN1~
, B369+2, 69~, 69+2, 69+6, 69+9, 69+10, 69+12, 69+14, 69+17
STDT EN1+3~
>> TARGET("DILIST" OERRSTSC+9, ROERRSTI+8
TESTS FIXIT+28, OERRSTSC+36, NEW~, NEW+11
TESTS( FIXIT+23*, OERRSTSC+31*
>> TOERRIEN FIXIT+19*, FIXIT+20
>> TOERRSTS FIXIT+20*, FIXIT+21
>> TORDIEN FIXIT+12*, FIXIT+13, FIXIT+16, FIXIT+19, SHOWOERR+9*, SHOWOERR+10, SHOWOERR+11, SHOWOERR+12
TSTARRAY NEW+13~, NEW+21!*
TSTY 69+1~, 69+19!
TWO SETBLRVS~, SETBLRVS+2
U PEP+1, OERRFIX+1, OERRAFIX+1, OERRAFIX+16, OERRSTSC+1, ROERRSTS+1
VAERR EN1+3~
VAIN EN1+3~
X OERRFIX+13, OERRFIX+14, OERRFIX+16, OERRFIX+17*, NEW+14*, NEW+15, NEW+16, NEW+17, EN1+3~, 69+1~
, 69+6*, 69+7, 69+8, 69+10*, 69+11, 69+12*, 69+13, 69+14*, 69+15, 69+16
, 69+19*
X0 69+1~, 69+2*, 69+3, 69+4, 69+5
X1 EN1+3~, 69+1~, 69+2*, 69+5, 69+19*
X10 EN1+3~
X2 EN1+3~, 69+19*
X3 EN1+3~, 69+2*, 69+5, 69+19*
X4 EN1+3~, 69+1~, 69+2*
X5 EN1+3~
X6 EN1+3~
X7 EN1+3~
X8 EN1+3~
X9 EN1+3~
XP1 69+1~, 69+2*, 69+5
>> XPARSYS PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> XQXFLG PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
Y NEW+4~*, EN1+3~
Y1 69+1~, 69+5*, 69+18
Y10 EN1+3~, 69+1~, 69+17*, 69+18
Y11 69+1~, 69+5*, 69+18
Y12 69+1~, 69+5*, 69+18
Y2 69+1~, 69+5*, 69+18
Y3 69+1~, 69+5*, 69+18
Y4 69+1~, 69+5*, 69+18
Y5 69+1~, 69+5*, 69+18
Y6 69+1~, 69+5*, 69+18
Y7 69+1~, 69+5*, 69+18
Y8 69+1~, 69+5*, 69+18
Y9 69+1~, 69+5*, 69+18
Z EN1+3~
Z1 EN1+3~

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+1
$T(MSG^XQOR NEW+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All