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 |  All
Print Page as PDF
Routine: BLRSGNSP

Package: IHS Changes To Lab

Routine: BLRSGNSP


Information

BLRSGNSP ; IHS/MSC/MKK - Delete Order even though in SiGN or SYmptom Process ; 31-Jul-2015 06:30 ; MKK

Source Information

Source file <BLRSGNSP.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Lab Service 7 NEW^LR7OB1  CEN1^LRCENDE1  DC^LROR6  SHOW^LROS  ^LRPARAM  (END,FX2,SET)^LRTSTOUT  (DUZ,PT)^LRX  
IHS Changes To Lab 3 (EEP,PRESSKEY)^BLRGMENU  ERRMSG^BLRSGNS3  (OERRSTSC,OERRSTSO)^BLRUTIL7  
VA Fileman 3 (,FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$HTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLRDIAG  BLRSGNSU  

Entry Points

Name Comments DBIA/ICR reference
GETRID1(ORDERN,LRORT) ; EP - Cancel One Test on an Order
EN ;from LRPHITE3
GETRID(ORDERN) ; EP - Cancel ALL Tests on an Order
LOOK ; EP
NAME ; EP
TSET ; EP
OUT ; EP
EEP ; Ersatz EP
ERRMSG(MSG,ERRFRTN) ; EP - Left in for other routines to call.
FIND ; EP
EN1 ; EP
DELACC(LRODT,LRSP,LRORT) ; EP - Cancel Test on Accession and add note on Lab Data File
MAKEMESG(LRODT,LRSN,LRI) ; EP - Create the cancel reason in 69 - some code cloned from LRHYDEL routine.
UNL69 ;
END ; EP
ALLDEL ; EP
ONE ; EP
EP ; EP - ORDERN = Order Number
MORE ; EP

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
PRESSKEY^BLRGMENU GETRID+45, GETRID1+39
ERRMSG^BLRSGNS3 GETRID+26, GETRID1+22, DELACC+28, DELACC+40, DELACC+48, ERRMSG+1
OERRSTSC^BLRUTIL7 GETRID+11
OERRSTSO^BLRUTIL7 GETRID1+13
^DIE EN1+17
FILE^DIE GETRID+24, GETRID1+19, DELACC+26
UPDATE^DIE DELACC+37, DELACC+45
$$GET1^DIQ GETRID+43, GETRID1+37, DELACC+31
^DIR FIND+12, %+4
NEW^LR7OB1 EN1+15
CEN1^LRCENDE1 EN1+12
DC^LROR6 EN1+5
SHOW^LROS LOOK+3
^LRPARAM FIND+1
END^LRTSTOUT END+6
FX2^LRTSTOUT ONE+5, OUT+2
SET^LRTSTOUT EN1+8
DUZ^LRX EN1+19
PT^LRX NAME+2
^XBFMK DELACC+20
$$HTE^XLFDT DELACC+32, MAKEMESG+7
$$NOW^XLFDT DELACC+24
$$CJ^XLFSTR LOOK+17, TSET+2, TSET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"All Tests on Order ",ORDERN,":",!
  • Line Location: GETRID+35
Function Call: WRITE
  • Prompt: ?4,$$GET1^DIQ(69.03,IENS,.01)," ",$$GET1^DIQ(69.03,IENS,8),!
  • Line Location: GETRID+43
Function Call: WRITE
  • Prompt: !!,"Test on Order ",ORDERN,":",!
  • Line Location: GETRID1+30
Function Call: WRITE
  • Prompt: ?4,$$GET1^DIQ(69.03,IENS,.01)," ",$$GET1^DIQ(69.03,IENS,8),!
  • Line Location: GETRID1+37
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAKEMESG+13
Function Call: WRITE
  • Prompt: !?3,"If lab has received the sample (i.e. the test has an accession),",!,?3,"you can't change this order. If so, use the REMOVE AN ACCESSION option",!,?3,"to change the test."
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FIND+15
Function Call: WRITE
  • Prompt: !,"Not found."
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !?5,"Someone Else is Editing this order, try later",!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !,"No order found with that number."
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: !!,"[ * All tests on this order # have already been dispositoned. * ]"
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !!?5," You CAN NOT change the status of test(s) on this order."
  • Line Location: LOOK+10
Function Call: WRITE
  • Prompt: !,"Test sample(s) have already been received into the laboratory."
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !,"You must use the REMOVE AN ACCESSION option to have the test(s) status changed.",$C(7)
  • Line Location: LOOK+12
Function Call: WRITE
  • Prompt: !,"Change entire order"
  • Line Location: LOOK+14
Function Call: WRITE
  • Prompt: "Answer 'Y'es or 'N'o."
  • Line Location: LOOK+14
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),!
  • Line Location: LOOK+17
Function Call: WRITE
  • Prompt: !,?8,"entry",?15,"test",?40,"sample"
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !,?10,J,?15,$P(^LAB(60,$P(LRT(J),U,3),0),U),?40,$P(LRT(J),U,4)
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !,"All have been dispositioned from that order."
  • Line Location: MORE+3
Function Call: READ
  • Prompt: "Change status of which entry: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: LRJ
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and ",LRT,!
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !,"You've already dispositioned that one.",!
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: !,"Does not exist ",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,$C(7),"NOTHING CHANGED"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry",!
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Test(s) already verified for this order, cannot change ENTIRE order",IOM)
  • Line Location: TSET+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" You must select individual test using the 'Delete Test from Accession' option.",IOM),!!
  • Line Location: TSET+3
Routine Call
  • DIE
  • Line Location:
    • DELACC+37
    • DELACC+45
Routine Call
  • DIE
  • Line Location:
    • EN1+17
Routine Call
  • DIE
  • Line Location:
    • GETRID+24
    • GETRID1+19
    • DELACC+26
Routine Call
  • DIR
  • Line Location:
    • FIND+12
    • %+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
^LRO(69 - [#69] Classic Fileman Calls
69.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] MORE+2, EN1+4
^LAB(61 - [#61] TSET+9
^LR - [#63] DELACC+35, DELACC+43, EN1+7, EN1+8, NAME+1
^LRO(68 - [#68] DELACC+8, DELACC+14, DELACC+15, EN1+3, EN1+6
^LRO(69 - [#69] GETRID+7, GETRID+9, GETRID+14, GETRID+15, GETRID+18, GETRID+37, GETRID+39, GETRID+41, GETRID1+4, GETRID1+6
, GETRID1+7, GETRID1+11, GETRID1+31, GETRID1+33, GETRID1+34, DELACC+3, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5*, MAKEMESG+7*
, MAKEMESG+8*, MAKEMESG+9*, MAKEMESG+10*, LOOK+1, LOOK+3, LOOK+4, LOOK+5, EN1+1, EN1+2, EN1+16*
, OUT+6, OUT+8, OUT+14, OUT+15, UNL69+1, NAME+1, EN+1, TSET+1, TSET+6, TSET+9
^TMP("BLR SNOMED GET" GETRID+32!, GETRID1+28!
^TMP("BLRDAIG" GETRID+31!, GETRID1+27!
^TMP("BLRDIAG" GETRID+3
^XUSEC("LRLAB" EN1+12

Label References

Name Line Occurrences
DELACC GETRID+29, GETRID1+25
EN1 ONE+6
END FIND+1, FIND+13, LOOK+6, LOOK+7, LOOK+9, LOOK+15, ONE+5, OUT+2
FIND FIND+15, EN1+20, ALLDEL+1
GETRID1 GETRID+4
LOOK FIND+15, ONE+6
MAKEMESG GETRID+27, GETRID1+23
MORE ONE+1, ONE+3
NAME LOOK+8, LOOK+13
ONE ONE+2, EN1+20
OUT LOOK+15
TSET EN+1
UNL69 LOOK+6, LOOK+7, LOOK+9, LOOK+17, ONE+5, ONE+6, EN1+9, OUT+2, OUT+11, TSET+4

Naked Globals

Name Field # of Occurrence
^( LOOK+5, TSET+6
^(0 MAKEMESG+4, MAKEMESG+9*, EN1+16*, NAME+1, TSET+9
^(3 DELACC+8, LOOK+3, TSET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOOK+14*, LOOK+15, %+1!, %+5*, END+1!
A END+1!
AGE END+1!
>> BLROPT MAKEMESG+14*
>> BLROPT(0 MAKEMESG+14*
>> DA EN1+17*
>> DA(1 EN1+17*
>> DEL1 DELACC+32*, DELACC+36
>> DEL2 DELACC+33*, DELACC+44
>> DELCNT GETRID+6*, GETRID+28*, GETRID+33
DFN NAME+1*, END+1!
DIC END+1!
DIE EN1+17*, END+1!
>> DILOCKTM GETRID+1, GETRID1+1, DELACC+1
DIR FIND+5~, %+1!
DIR("?" FIND+8*
DIR("??" FIND+9*
DIR("A" FIND+6*
DIR("S" FIND+10*
DIR("T" FIND+11*, %+3*
DIR(0 FIND+7*, %+2*
>> DIROUT FIND+13
>> DIRUT FIND+13
>> DISYS GETRID+1, GETRID1+1, DELACC+1
DOB END+1!
DQ END+1!
DR EN1+17*, END+1!
DT GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+8
DTIME GETRID+1, GETRID1+1, DELACC+1, ONE+1
>> DTOUT FIND+13
>> DUOUT FIND+13
DUZ GETRID+1, GETRID+23, GETRID1+1, GETRID1+18, DELACC+1, DELACC+23, DELACC+32, MAKEMESG+9, MAKEMESG+10, EN1+12
, EN1+16, EN1+19
DWLW END+1!
ERRFRTN ERRMSG~, ERRMSG+1
ERRS GETRID+26, GETRID1+22, DELACC+22!, DELACC+28, DELACC+34!, DELACC+40, DELACC+42!, DELACC+48
>> F60NAME DELACC+31*, DELACC+32
FDA GETRID+21!, GETRID1+16!, DELACC+22!, DELACC+34!, DELACC+42!
FDA( GETRID+22*, GETRID+23*, GETRID1+17*, GETRID1+18*, DELACC+23*, DELACC+24*, DELACC+25*, DELACC+36*, DELACC+44*
>> FDAIENS GETRID+20*, GETRID+22, GETRID+23, GETRID1+15*, GETRID1+17, GETRID1+18
>> FOUND DELACC+13*, DELACC+14, DELACC+15*, DELACC+17, DELACC+21
HRCN NAME+2, END+1!
I TSET+6*, TSET+9, END+1!
IENS GETRID+42*, GETRID+43, GETRID1+36*, GETRID1+37, DELACC+21*, DELACC+23, DELACC+24, DELACC+25, DELACC+34!, DELACC+42!
, OUT+9*
IENS(1 DELACC+35*, DELACC+43*
II MAKEMESG+1~
IO GETRID+1, GETRID1+1, DELACC+1
>> IOBS GETRID+1, GETRID1+1, DELACC+1
IOF GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+13, FIND+15
IOM GETRID+1, GETRID1+1, DELACC+1, LOOK+17, TSET+2, TSET+3
ION GETRID+1, GETRID1+1, DELACC+1
>> IOS GETRID+1, GETRID1+1, DELACC+1
IOSL GETRID+1, GETRID1+1, DELACC+1
IOST GETRID+1, GETRID1+1, DELACC+1
>> IOT GETRID+1, GETRID1+1, DELACC+1
>> IOXY GETRID+1, GETRID1+1, DELACC+1
J LOOK+16*, MORE+2*, EN+1*, TSET+9*, END+1!
K END+1!
LRAA DELACC+5*, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2*, EN1+3, EN1+6, OUT+15*
, END+1!
LRACC EN1+2*, EN1+12, OUT+15*, END+1!
LRACN END+1!
LRACN0 END+1!
LRAD DELACC+5*, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2*, EN1+6, OUT+15*, END+1!
LRAN DELACC+5*, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2*, EN1+6, OUT+15*, END+1!
>> LRAT DELACC+13*, DELACC+14*, DELACC+15
LRCANK MAKEMESG+13~, LOOK+2*, LOOK+5*, LOOK+8, END+4!
LRCCOM OUT+3, OUT+4*, END+4!
LRCCOM1 END+4!
LRCCOMX OUT+3*, OUT+4, OUT+11!
LRCL END+1!
LRCNT LOOK+1*, LOOK+3*, LOOK+7, END+1!
LRCOL LOOK+2*, LOOK+9, END+1!
LRDFN DELACC+8*, DELACC+35, DELACC+36, DELACC+43, DELACC+44, FIND+2!, EN1+7, EN1+8, NAME+1*
LRDOC END+2!
LRDPF NAME+1*, END+2!
LRDTM END+2!
LREND FIND+1*, LOOK+3, LOOK+4*, LOOK+6, ONE+5, EN1+7*, OUT+2, END+2!
LRI MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, EN1+14~, EN1+15
, EN1+18!
LRI( EN1+14*
LRIDT DELACC+8*, DELACC+35, DELACC+36, DELACC+43, DELACC+44, EN1+6*, EN1+7, EN1+8, END+2!
LRJ ONE+1*, ONE+2, ONE+3, EN1+16, OUT+1*, OUT+4*, END+2!
>> LRLABKY TSET+8
LRLL END+2!
LRLLOC END+2!
LRMSTATI MAKEMESG+1~, ONE+6!, EN1+15
LRNATURE MAKEMESG+1~, FIND+2!, ONE+4!, EN1+5, EN1+15, ALLDEL+1!, END+2!
LRNOP LOOK+14*, EN1+2*, EN1+13, EN1+20, OUT+1, OUT+15*, EN+1*, TSET+4*, END+2!
LRNOW END+2!
LROD0 END+2!
LROD1 END+2!
LROD3 END+2!
LRODT GETRID+6*, GETRID+7*, GETRID+9, GETRID+11, GETRID+14, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29
, GETRID+36*, GETRID+37*, GETRID+39, GETRID+41, GETRID+42, GETRID1+3*, GETRID1+4*, GETRID1+6, GETRID1+7, GETRID1+11
, GETRID1+13, GETRID1+15, GETRID1+23, GETRID1+25, GETRID1+31*, GETRID1+33, GETRID1+34, GETRID1+36, DELACC~, DELACC+1
, DELACC+3, MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, LOOK+1*
, LOOK+3, LOOK+5, EN1+1, EN1+2, EN1+15, EN1+16, EN1+17, OUT+6, OUT+8, OUT+9
, OUT+14, OUT+15, NAME+1, EN+1, TSET+1, TSET+6, TSET+9, END+2!
LRONE FIND+2!, EN1+2*, EN1+12!, OUT+15*
LROOS END+3!
LRORD FIND+14*, LOOK+1, LOOK+3, LOOK+4, OUT+6, OUT+14, UNL69+1, NAME+1, EN+1, END+3!
LRORT GETRID+3*, GETRID+4, GETRID+13*, GETRID+14*, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29, GETRID+40*
, GETRID+41*, GETRID+42, GETRID1~, GETRID1+1, GETRID1+7, GETRID1+11, GETRID1+13, GETRID1+15, GETRID1+23, GETRID1+25
, GETRID1+34, GETRID1+36, DELACC~, DELACC+1, DELACC+3
LROS END+3!
LROSD END+3!
LROT END+3!
>> LROTF60 DELACC+11*, DELACC+15, DELACC+31
LROV LOOK+2*, LOOK+3*, LOOK+15, END+3!
LRROD END+3!
LRSCNXB END+3!
LRSN MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, LOOK+2*, LOOK+3*
, LOOK+5, EN1+1, EN1+2, EN1+15, EN1+16, OUT+5*, OUT+6*, OUT+8, OUT+9, OUT+14*
, OUT+15, EN+1*, TSET+1, TSET+6, TSET+9, END+3!
LRSP GETRID+8*, GETRID+9*, GETRID+11, GETRID+14, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29, GETRID+38*
, GETRID+39*, GETRID+41, GETRID+42, GETRID1+5*, GETRID1+6*, GETRID1+7, GETRID1+11, GETRID1+13, GETRID1+15, GETRID1+23
, GETRID1+25, GETRID1+32*, GETRID1+33*, GETRID1+34, GETRID1+36, DELACC~, DELACC+1, DELACC+3
LRSPEC TSET+9*, END+3!
LRSS EN1+3*, EN1+7, EN1+8, END+3!
LRSTATUS MAKEMESG+1~
LRT LOOK+16*, LOOK+17, MORE+2*, MORE+3, ONE+2, EN+1!, END+3!
LRT( LOOK+16, MORE+2, ONE+3, OUT+4, TSET+9*
LRT(0 EN1+20
LRTC END+3!
LRTN MAKEMESG+13~, LOOK+5*, END+4!
>> LRTNM EN1+4*
LRTP END+3!
>> LRTSN EN1+14
LRTSTI ONE+6!, EN1+1, EN1+2, EN1+13, EN1+16, EN1+17, OUT+7*, OUT+8*, OUT+9, OUT+15
, END+3!
LRTSTS EN1+4, END+3!
LRTT END+3!
LRURG END+4!
LRUSI END+4!
LRUSNM END+4!
LRWRD END+4!
>> LRX EN1+2*, OUT+15*
MSG ERRMSG~, ERRMSG+1
ORDERN GETRID~, GETRID+1, GETRID+4, GETRID+7, GETRID+9, GETRID+35, GETRID+37, GETRID+39, GETRID1~, GETRID1+1
, GETRID1+4, GETRID1+6, GETRID1+30, GETRID1+31, GETRID1+33
ORIFN MAKEMESG+1~, MAKEMESG+3*, EN1+2*, OUT+15*, END+5!
PNM NAME+2, END+5!
SEX END+5!
SSN END+5!
>> STR GETRID+15*, GETRID1+7*, GETRID1+8, GETRID1+34*, GETRID1+35, DELACC+3*, DELACC+5, DELACC+11
T END+5!
T( EN1+16!
U GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+3, MAKEMESG+4, MAKEMESG+9, MAKEMESG+14, LOOK+3, MORE+2, EN1+2
, EN1+3, EN1+4, EN1+6, OUT+15, NAME+1, TSET+8, TSET+9
X MAKEMESG+4*, MAKEMESG+5, MAKEMESG+6*, MAKEMESG+7, MAKEMESG+8, FIND+14, LOOK+5*, EN1+19*, %+1!, %+5
, TSET+6*, TSET+7, TSET+8, TSET+9, END+5!
X(1 MAKEMESG+4*, MAKEMESG+6*, MAKEMESG+8
X1 END+5!
X2 END+5!
X3 END+5!
X4 END+5!
>> XPARSYS GETRID+1, GETRID1+1, DELACC+1
>> XQXFLG GETRID+1, GETRID1+1, DELACC+1
>> XQY0 MAKEMESG+14
Y %+1!, END+5!
Z END+5!
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 |  All