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: BLRRLTDR

Package: IHS Changes To Lab

Routine: BLRRLTDR


Information

BLRRLTDR ; IHS/MSC/MKK - Reference Lab Test "Delete" Routine ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRRLTDR.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
IHS Changes To Lab 7 ^BLRALAF  ^BLREVTQ  EEP^BLRGMENU  $$RELAHMID^BLRRLMUU  (STORTXNS,XTMPISET,XTMPNSET)^BLRRLTDU  ($$ADDON,$$ISPIMS)^BLRUTIL  MAILALMI^BLRUTIL3  
Lab Service 7 NEW^LR7OB1  $$VER^LR7OU1  DC^LRCENDE1  ^LRPARAM  END^LRTSTJAM  XREF^LRVER3A  PT^LRX  
Kernel 3 ($$FMTE,$$NOW)^XLFDT  ($$TRIM,$$UP)^XLFSTR  DUZ^XUP  
VA Fileman 3 (,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Automated Lab Instruments 1 EN^LA7ADL  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Lab 2 BLRMANPU  BLRRLTDU  
Automated Lab Instruments 1 LA7VCIN9  

Entry Points

Name Comments DBIA/ICR reference
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM) ; EP
NOTPERF(UID,CANCLRSN) ; EP - Not Performed
DEMO ; EP
USELAHG(UID) ; EP - Use the LAH global. If successful, quit with "OK"
PEP ; EP
EEP ; Ersatz EP
LMIMAIL(UID,CANCLRSN) ; EP - E-mail LMI Mail Group with Ref Lab Cancellations
ADDSPCON(UID) ; EP - Add the SPECIMEN CONDITION from the SPM segment, if it exists
GETNTEC(MSG,ARRAY) ; EP - Stuff ARRAY with NTE comments from message
SET ; EP
ROL ; EP
TESTGET ; EP - IEN into 62.49 Passed in
FX1 ; EP
FX3 ; EP
; S (LRCCOM,LRCCOMX)="*NP Reason:Reference Lab Rejected Test."
FX2 ; EP
LREND ; EP
LRACC ; EP
631 ; EP
END ; EP
CHG ; EP
; Have LRACN,LRUID,LRDFN,LRSS,LRIDT and CANCLRSN
FIX ; EP
UNLOCK ; EP
EP ; EP
SHOWTST ; EP
GETSPMC(MSG,ARRAY) ; EP - Stuff ARRAY with SPM comments from message
COMPDATE(LRAA,LRAD,LRAN) ; EP - Put Completed Date on Accession
CLNPENDG ;Remove pending from Lab test when set to not performed
EXIT ; EP
ADDCOMNT(LRDFN,LRIDT,MSG) ; EP - Add the Ref Lab comments from the NTE segments to file 63

External References

Name Field # of Occurrence
^BLRALAF CHG+18
^BLREVTQ CHG+21
EEP^BLRGMENU EEP+1
$$RELAHMID^BLRRLMUU ADDSPCON+5
STORTXNS^BLRRLTDU SET+19
XTMPISET^BLRRLTDU NOTPERF+9, FIX+6, FIX+8, FIX+16, FIX+18, CHG+7, LRACC+7
XTMPNSET^BLRRLTDU SET+18
$$ADDON^BLRUTIL CHG+18
$$ISPIMS^BLRUTIL END+4
MAILALMI^BLRUTIL3 LMIMAIL+16
^DIE 63+19, 631+7
UPDATE^DIE COMPDATE+8, ADDCOMNT+10
$$GET1^DIQ NOTPERF+13, NOTPERF+15, NOTPERF+16, LMIMAIL+3, LMIMAIL+9, FX1+3, TESTGET+2, 63+11, ADDSPCON+20, ADDSPCON+22
, ADDSPCON+23, USELAHG+3, USELAHG+9
^DIR SHOWTST+9
EN^LA7ADL SET+25
NEW^LR7OB1 SET+12
$$VER^LR7OU1 SET+13
DC^LRCENDE1 SET+13
^LRPARAM NOTPERF+3
END^LRTSTJAM END+5
XREF^LRVER3A SET+24
PT^LRX FIX+14
$$FMTE^XLFDT SHOWTST+8, SET+10, 63+9, 63+12, 63+15
$$NOW^XLFDT COMPDATE+6, FIX+1, SET+1, 63+5
$$TRIM^XLFSTR GETNTEC+10, GETSPMC+10
$$UP^XLFSTR TESTGET+6
DUZ^XUP LMIMAIL+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,$P(^(0),U)
  • Line Location: SHOWTST+7
Function Call: WRITE
  • Prompt: ?35," "_$S($L($P(LRIC,U,3)):$P(LRIC,U,3),1:"Completed")_" "_$$FMTE^XLFDT($P(LRIC,U,2),"5FMPZ")_" by "_$P(LRIC,U)
  • Line Location: SHOWTST+8
Function Call: WRITE
  • Prompt: !,PNM,?50,HRCN
  • Line Location: DEMO+1
Function Call: WRITE
  • Prompt: !,"TESTS ON ACCESSION: ",LRACN,?40,"UID: ",LRUID
  • Line Location: DEMO+2
Routine Call
  • DIE
  • Line Location:
    • COMPDATE+8
    • ADDCOMNT+10
Routine Call
  • DIE
  • Line Location:
    • 63+19
    • 631+7
Routine Call
  • DIR
  • Line Location:
    • SHOWTST+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
^LAB(62.4 - [#62.4] GET1^DIQ
^LRO(68 - [#68] GET1^DIQ
68.02 GET1^DIQ
68.04 GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TESTGET+16, CHG+11, SHOWTST+7, CLNPENDG+2
^LAB(62.4 - [#62.4] USELAHG+6
^LAH( USELAHG+12, USELAHG+14
^LAHM(62.49 - [#62.49] TESTGET+9, TESTGET+10, TESTGET+11, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC+4, GETSPMC+5, GETSPMC+7, ADDSPCON+9
, ADDSPCON+10, ADDSPCON+14
^LR - [#63] FIX+12, FIX+16, FIX+18, SET+22, UNLOCK+1, CLNPENDG+4*, ADDCOMNT+7, ADDSPCON+25*, ADDSPCON+26*, USELAHG+21*
^LRO(68 - [#68] NOTPERF+6, LMIMAIL+8, FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, TESTGET+20, TESTGET+21, CHG+14
, SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25
, ROL+1, ROL+2*, LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19
^LRO(69 - [#69] CHG+7, SET+2, SET+5, SET+6, SET+7*, SET+8, SET+9*, SET+10*, SET+11*, SET+14*
, SET+15*

Label References

Name Line Occurrences
$$GETNTEC ADDCOMNT+3
$$USELAHG ADDSPCON+3
63 SET+23
@( END+4
ADDSPCON 63+21
CHG NOTPERF+25, FX1+4
CLNPENDG CHG+14
COMPDATE NOTPERF+27
DEMO SHOWTST+5, SHOWTST+9
END NOTPERF+23, NOTPERF+24, NOTPERF+25, CHG+7, UNLOCK+2
FIX NOTPERF+23
FX2 CHG+9
LMIMAIL NOTPERF+29
LRACC FIX+2
ROL SET+20, SET+21
SET CHG+14
UNLOCK FIX+18, CHG+7

Naked Globals

Name Field # of Occurrence
^( FIX+10, SET+5
^(0 FIX+12, CHG+12, SHOWTST+7, SET+5, SET+6, SET+8, SET+14*, SET+17*
^(4 SET+17, ROL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY GETNTEC~, GETSPMC~
ARRAY( GETNTEC+15*, GETSPMC+15*
ARRAYL ADDCOMNT+1~, ADDCOMNT+3*, ADDCOMNT+4, ADDCOMNT+6
AUTOIEN ADDSPCON+1~, USELAHG+1~, USELAHG+6*, USELAHG+7, USELAHG+9
AUTOINSP ADDSPCON+1~
>> BLRLOG NOTPERF+4*, CHG+21
>> BLROPT NOTPERF+18*, CHG+21
CANCELDT COMPDATE+1~, COMPDATE+6*, COMPDATE+7
CANCLRSN NOTPERF~, NOTPERF+1, NOTPERF+29, LMIMAIL~, LMIMAIL+14, FX3+2
CL ADDCOMNT+1~, ADDCOMNT+6*, ADDCOMNT+8
COMARRAY ADDCOMNT+1~, ADDCOMNT+3
COMARRAY( ADDCOMNT+8
COML GETNTEC+1~, GETNTEC+3*, GETNTEC+14*, GETNTEC+15, GETNTEC+18, GETSPMC+1~, GETSPMC+3*, GETSPMC+14*, GETSPMC+15, GETSPMC+18
COMLS GETNTEC+1~, GETNTEC+10*, GETNTEC+12, GETNTEC+15, GETNTEC+16, GETSPMC+1~, GETSPMC+10*, GETSPMC+12, GETSPMC+15, GETSPMC+16
COMLS( GETNTEC+12, GETNTEC+16*, GETSPMC+12, GETSPMC+16*
CONDSPEC ADDSPCON+16*, ADDSPCON+17, ADDSPCON+25, USELAHG+1~, USELAHG+18*, USELAHG+19, USELAHG+21
D0 63+1~, 631+1!
D1 63+1~, 631+1!
DA 63+1~, 63+17*, 631+1!, 631+3*
DA(1 LRACC+6*, 63+17*, 631+3*
DA(2 LRACC+6*
>> DFN FIX+12*
DI END+2!
DIC NOTPERF+25!, CHG+3!, 63+1~, 631+1!, 631+3*
DIC(0 63+4*, 631+2*
DIE 63+1~, 63+17*, 631+1!, 631+3*
>> DILOCKTM NOTPERF+1
DIR SHOWTST+3~, END+2!
DIR(0 SHOWTST+4*
>> DISYS NOTPERF+1
DLAYGO 63+1~, 63+4*
DR 63+1~, 63+19*, 631+1!, 631+6*
DT NOTPERF+1, SET+11, SET+24
DTIME NOTPERF+1
DUZ NOTPERF+1, LMIMAIL+5~, SET+7, SET+14, SET+15, SET+17, ROL+2, 63+9, 63+12, 63+15
DUZ(2 LMIMAIL+3, TESTGET+2, CHG+18, USELAHG+3
ERRS COMPDATE+1~
>> F60IEN FX1+3*, FX1+4, TESTGET+1*, TESTGET+16*, TESTGET+21
>> F60SYN TESTGET+8*, TESTGET+9, TESTGET+11*, TESTGET+13, TESTGET+16
FDA COMPDATE+1~, COMPDATE+5!, ADDCOMNT+1~
FDA( COMPDATE+7*, ADDCOMNT+8*
FOUNDIT ADDSPCON+1~, ADDSPCON+8*, ADDSPCON+9, ADDSPCON+10*, ADDSPCON+12, ADDSPCON+14
HRCN DEMO+1, END+6!
IEN NOTPERF+14*, NOTPERF+15, NOTPERF+16, COMPDATE+1~, COMPDATE+3*, COMPDATE+7, ADDSPCON+1~, ADDSPCON+21*, ADDSPCON+22, ADDSPCON+23
, USELAHG+12*, USELAHG+14
IENS ADDCOMNT+1~
IENS(1 ADDCOMNT+7*
II SET+3~, SET+5!, SET+12
II( SET+5*
INST ADDSPCON+1~
INSTUID ADDSPCON+1~
IO NOTPERF+1
>> IOBS NOTPERF+1
IOF NOTPERF+1
IOM NOTPERF+1
ION NOTPERF+1
>> IOS NOTPERF+1
IOSL NOTPERF+1
IOST NOTPERF+1
>> IOT NOTPERF+1
>> IOXY NOTPERF+1
>> LA76249 TESTGET+9, TESTGET+10, TESTGET+11
LA7INST TESTGET+2*, TESTGET+3, TESTGET+6, ADDSPCON+1~, USELAHG+1~, USELAHG+3*, USELAHG+4, USELAHG+6
LOADWORK ADDSPCON+1~, USELAHG+1~, USELAHG+9*, USELAHG+12, USELAHG+14
LRAA NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+13, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9
, FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21
, SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25
, ROL+1, ROL+2, LRACC+3, LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+20, ADDSPCON+21
LRACC FIX+2*, FIX+4!
LRACN FIX+10*, DEMO+2, EXIT+1!, END+2!
LRACN0 END+2!
LRAD NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9, FIX+6
, FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21, SHOWTST+6
, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, LRACC+6
, UNLOCK+1, ADDSPCON+19*, ADDSPCON+21
LRAGE END+2!
LRAN NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9, FIX+4
, FIX+6, FIX+8, FIX+10, FIX+16, FX1+2, FX1+3, TESTGET+20, TESTGET+21, CHG+14, CHG+21
, SHOWTST+6, SHOWTST+7, SHOWTST+10, SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25
, ROL+1, ROL+2, LRACC+3, LRACC+7*, UNLOCK+1, ADDSPCON+19*, ADDSPCON+21
LRAS LMIMAIL+1~, LMIMAIL+9*, LMIMAIL+13, LMIMAIL+16
LRCCOM CHG+3!, CHG+6*, SET+9, SET+22, SET+23, FX3+2*, 63~, 631+4*, 631+5*, 631+6
LRCCOM0 END+1!, 63+1~, 63+12*, 63+15*, 63+18*, 63+19
LRCCOM1 END+1!
LRCCOMX END+1!, FX3+2*
LRCOM END+2!
LRCTST CHG+3!, CHG+23!, END+2!
>> LRDBUG SET+4
LRDFN NOTPERF+15*, FIX+11*, FIX+12, FIX+16, FIX+18, SET+22, SET+23, ROL+1, UNLOCK+1, 63~
, 63+17, 631+3, CLNPENDG+4, ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+22*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRDOC END+2!
>> LRDPF FIX+12*
LREND NOTPERF+23*, NOTPERF+24*, FIX+1*, FIX+4*, CHG+6*, CHG+9, CHG+23*, LRACC+1*, LREND+1*, END+1!
, FX2+1*
LREXMPT LRACC+1*!
LRI SHOWTST+3~, SHOWTST+6*, SHOWTST+7, SET+3~, SET+5*, SET+6, SET+7, SET+8, SET+9, SET+10
, SET+11, SET+14, SET+15, END+1!
LRIC SHOWTST+3~, SHOWTST+7*, SHOWTST+8
LRIDT NOTPERF+16*, FIX+16*, FIX+18, SET+22, SET+23, UNLOCK+1, 63~, 63+17, 631+3, CLNPENDG+4
, ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+23*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRIFN CHG+4~, CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4
LRL END+1!, FX2+2*
LRLABRV EXIT+1!
LRLL END+2!
>> LRLLOC SET+2*
LRMSTATI SET+12, END+1!
LRN SHOWTST+3~, SHOWTST+6*, SHOWTST+7*, SHOWTST+9*
LRNATURE FIX+4!, SET+9, SET+12, END+1!
LRNOECHO EXIT+1!, FX2+7!, 63+1~, 63+6*
LRNOP NOTPERF+23*, NOTPERF+25, FIX+1*, FIX+2, FIX+6*, FIX+8*, FIX+16*, FIX+18*, LRACC+7*, END+1!
LRNOW FIX+1*, SET+1*, SET+10, SET+17, ROL+2, EXIT+1!, END+2!, 63+5*, 63+9, 63+12
, 63+15
LROD0 END+3!
LROD1 END+3!
LROD3 END+3!
>> LRODT FIX+11*, CHG+7, SHOWTST+10*, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
, SET+11, SET+12, SET+14, SET+15
LROOS END+3!
LRORDTST CHG+14*, END+1!
LROS END+3!
LROSD END+3!
LROT END+3!
LROWDT SET+20*, SET+21*, ROL+1, ROL+2, END+1!
LRPRAC END+1!
LRROD END+3!
LRSCN END+1!, FX2+8*, FX2+10*
LRSCNX EXIT+1!
LRSCNXB NOTPERF+22!, FX2+7!, FX2+10*
>> LRSN FIX+11*, CHG+7, SHOWTST+10*, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
, SET+11, SET+12, SET+14, SET+15
LRSS NOTPERF+13*, FIX+16, FIX+18, SET+22, SET+23, LRACC+6*, LRACC+7, UNLOCK+1, 63~, 63+17
, 63+23, 631+3, CLNPENDG+4, ADDSPCON+20*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRSTATUS SET+3~, SET+5*, SET+12
LRTNM CHG+12*, SET+23, 63~, 63+9, 63+15
LRTSTS FX1+1*, FX1+2*, FX1+3, FX1+4, TESTGET+19*, TESTGET+20, TESTGET+21*, CHG+11, CHG+14, SET+5
, SET+17, SET+18, SET+19, ROL+1, ROL+2, END+1!, 63+11, CLNPENDG+2
LRTT END+3!
LRUID FIX+10*, DEMO+2, END+1!
>> LRX FIX+10*, FIX+11
LRXX NOTPERF+22!, END+2!
LRY SHOWTST+3~, SHOWTST+6, SHOWTST+9*
MSG ADDCOMNT~, ADDCOMNT+3, GETNTEC~, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC~, GETSPMC+4, GETSPMC+5, GETSPMC+7
MSGARRAY LMIMAIL+1~, LMIMAIL+16
MSGARRAY(1 LMIMAIL+12*
MSGARRAY(2 LMIMAIL+12*
MSGARRAY(3 LMIMAIL+13*
MSGARRAY(4 LMIMAIL+13*
MSGARRAY(5 LMIMAIL+14*
MSGARRAY(6 LMIMAIL+14*
OCXTRACE SET+3~, SET+4*
ORIFN SET+6*, SET+12, SET+13, SET+16!
ORSTS SET+16!
>> PIEN ADDSPCON+5*, ADDSPCON+6, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14, ADDSPCON+26
>> PNM DEMO+1
PRNTNAM 63+2~, 63+11*, 63+12
Q9 END+2!
REFLAB LMIMAIL+1~, LMIMAIL+3*, LMIMAIL+12
>> SAVLRAA NOTPERF+11*, NOTPERF+27
>> SAVLRAD NOTPERF+11*, NOTPERF+27
>> SAVLRAN NOTPERF+11*, NOTPERF+27
SEG TESTGET+8*, TESTGET+9*, TESTGET+10, TESTGET+11, ADDCOMNT+1~, GETNTEC+1~, GETNTEC+3*, GETNTEC+4*, GETNTEC+5, GETNTEC+7
, GETSPMC+1~, GETSPMC+3*, GETSPMC+4*, GETSPMC+5, GETSPMC+7
SEGCNT ADDSPCON+1~, ADDSPCON+8*, ADDSPCON+9*, ADDSPCON+10
STR ADDCOMNT+1~, GETNTEC+1~, GETNTEC+7*, GETNTEC+8, GETNTEC+10, GETSPMC+1~, GETSPMC+7*, GETSPMC+8, GETSPMC+10, ADDSPCON+14*
, ADDSPCON+16, USELAHG+14*, USELAHG+18
TAB LMIMAIL+1~, LMIMAIL+11*, LMIMAIL+12, LMIMAIL+13, LMIMAIL+14
>> TESTDESC NOTPERF+1
TMPSTR 63+2~, 63+9*, 63+10, 63+15
U NOTPERF+1, FIX+6, FIX+10, FIX+11, FIX+12, FIX+16, CHG+12, CHG+14, SHOWTST+7, SHOWTST+8
, SHOWTST+9, SHOWTST+10, SET+2, SET+6, SET+7, SET+8, SET+9, SET+14, SET+17, SET+20
, ROL+2, LRACC+6, CLNPENDG+2, CLNPENDG+4
UID NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, NOTPERF+29, LMIMAIL~, LMIMAIL+8, 63+21, ADDSPCON~, ADDSPCON+3
, ADDSPCON+5, ADDSPCON+19, USELAHG~, USELAHG+12
WHCHTEST TESTGET+18~, TESTGET+19*, TESTGET+20*, TESTGET+21
>> WOTPIECE TESTGET+6*, TESTGET+11
X NOTPERF+6*, LMIMAIL+8*, SHOWTST+3~, SHOWTST+9, SHOWTST+10*, SET+3~, SET+8*, SET+9*, SET+10, SET+11
, FX2+5*, 63+1~, ADDSPCON+19*
X(1 SET+8*, SET+9*, SET+11
X4 END+3!
>> XPARSYS NOTPERF+1
>> XQXFLG NOTPERF+1
Y FX2+5*, FX2+10, 63+1~
Y(0 FX2+5*, FX2+10
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