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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLRAG05D

Package: IHS Changes To Lab

Routine: BLRAG05D


Information

BLRAG05D ; IHS/MSC/SAT - SUPPORT FOR LABORATORY ACCESSION GUI RPCS ; 18-Jul-2016 15:43 ; MKK

Source Information

Source file <BLRAG05D.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Lab Service 9 NEW^LR7OB1  STOP^LRCAPV  LROE^LRFAST  LRSPEC^LROE1  (,LROEND)^LRORDK  DT^LRORDST  CHECK^LROW2  P15A^LRPHITEM  
PT^LRX  
IHS Changes To Lab 7 ^BLRAG05A  ^BLRAG05B  UNL69ERR^BLRAG05D  ERR^BLRAGUT  $$SETUP^BLRAGUT1  SHIPMAN^BLRRLEVN  FORCEIT^BLRUTIL7  
Kernel 5 ^%ZIS  ^%ZISC  ($$EC,$$LGR)^%ZOSV  ^%ZTLOAD  ($$FR,$$HTFM,$$NOW)^XLFDT  
VA Fileman 3 ^%DT  NOW^%DTC  (,FILE)^DIE  
Automated Lab Instruments 1 EN^LA7ADL  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Lab 3 BLRAG05  BLRAG05A  BLRAG05D  

Entry Points

Name Comments DBIA/ICR reference
TASK ;
END
GOT(ORD,ODT) ;See if all tests have been canceled
YN ;
Q16A ;I $D(LRLONG),$D(LRSND) S LRSN=LRSND,^TMP("LROE",$J,"LRORD")=LRORD_U_LRODT_U_LRTIM_U_PNM_U_SSN
P15A ;from LROE1, LRPHEXPT (P15^LRPHITEM)
PTCS(BLRDT,BLRSPN,BLRUSER,BLRDTCF,BLRMETH) ;
; BLRDT = (required) order date in external format - pointer to LAB ORDER ENTRY file 69
; BLRSPN = (required) specimen number - pointer to specimen multiple in LAB ORDER ENTRY file 69
; BLRUSER = (required) user that did confirmation - pointer to NEW PERSON file 200
; BLRDTCF = (optional) Date/Time of user confirmation in external format - defaults to 'today'
; BLRMETH = (optional) method of confirmation - free text
Q15 ; (^LROE2)
LROE2 ;
Q17 ;S I=$O(^LRO(69,LRODT,1,LRSN,6,0)),J=$O(^(1)) S:'$D(IOM) IOM=80 K LRSPCDSC S:J LRSPCDSC=^(J,0) S:I DA=LRSN,DA(1)=LRODT,DR=6,DIC="^LRO(69,"_LRODT_",1," D EN^DIQ:I D LRSPEC^LROE1
Q16
P15 ;from LRVER,LRVR,LRGV (P15^LROE1)
ERROR ; EP
; D ENTRYAUD^BLRUTIL("ERROR^BLRAG05D 0.0") ; Store Error data
; NEW ERRORMSG
; S ERRORMSG="$"_"Z"_"E=""ERROR^BLRAG05D""" ; BYPASS SAC Checker
; S @ERRORMSG D ^%ZTER
OLD ;to allow unchanged routines to still work, from LROE1, LRPHSET1 (OLD^LRORDST)
PH
BLRRL ;EP - cmi/anch/maw 8/4/2004 added to check for shipping manifest and print
ERR(BLRERR) ;Error processing
; BLRERR = Error text OR error code
; BLRAGI = pointer into return global array
UNL69 ;
UNL69ERR ;

External References

Name Field # of Occurrence
^%DT PTCS+11
NOW^%DTC OLD+2
^%ZIS TASK+2
^%ZISC TASK+4, TASK+10
$$EC^%ZOSV ERROR+10
$$LGR^%ZOSV ERROR+11
^%ZTLOAD TASK+8
^BLRAG05A OLD+4
^BLRAG05B OLD+6
UNL69ERR^BLRAG05D ERR+4
ERR^BLRAGUT PTCS+20
$$SETUP^BLRAGUT1 P15A+23
SHIPMAN^BLRRLEVN BLRRL+15
FORCEIT^BLRUTIL7 ERROR+12
^DIE Q15+5
FILE^DIE PTCS+19
EN^LA7ADL P15A+38
NEW^LR7OB1 P15A+34
STOP^LRCAPV TASK+11, END+1
LROE^LRFAST Q16A+6
LRSPEC^LROE1 Q17+1
^LRORDK END+1
LROEND^LRORDK END+1
DT^LRORDST OLD+2
CHECK^LROW2 Q16
P15A^LRPHITEM P15A+25
PT^LRX LROE2+11, P15A+8
$$FR^XLFDT PTCS+13
$$HTFM^XLFDT PTCS+8, PTCS+13
$$NOW^XLFDT P15A+12, Q15+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LROE2+5
Function Call: WRITE
  • Prompt: !,"Date/Time Ordered: ",Y,?45,"By: ",$S($D(^VA(200,+$P(LRZX,U,2),0)):$P(^(0),U),1:"")
  • Line Location: LROE2+15
Function Call: WRITE
  • Prompt: !,$P(^LAB(60,+^(E,0),0),"^")
  • Line Location: P15+2
Routine Call
  • DIE
  • Line Location:
    • Q15+5
Routine Call
  • DIE
  • Line Location:
    • PTCS+19
Routine Call
  • %ZIS
  • Line Location:
    • TASK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRLO - [#9009026.3] BLRRL+12
^BLRRLO("B" BLRRL+9, BLRRL+11
^BLRSITE - [#9009029] BLRRL+6, BLRRL+7
^LAB(69.9 - [#69.9] TASK+1
^LR - [#63] LROE2+10, Q15+9
^LRO(68 - [#68] P15A+22*, P15A+27, P15A+28*, P15A+29*
^LRO(69 - [#69] LROE2+1, LROE2+4, LROE2+8, GOT+3, GOT+4, GOT+5, GOT+6, UNL69+1, UNL69ERR+1, P15+7*
, P15+8*, P15+9*, P15+10, P15+13, P15+14, P15+16*, P15+17*, P15A+4, P15A+15*, P15A+17*
, P15A+19, P15A+20, P15A+21, Q15+1, Q15+3, Q15+5*, Q15+9, Q17+1, Q17+4*, OLD+9
, OLD+11, OLD+12*, PTCS+20
^TMP("BLRAG" ERR+7*, ERR+9*
^TMP("LR" Q17+2!
^TMP("LROE" Q16A+1*, Q16A+6

Label References

Name Line Occurrences
ERR ERROR+13
OLD Q17+2
P15 OLD+9
P15A P15+13, OLD+11
PTCS Q15+8
Q16 PH
Q17 Q16A+4

Naked Globals

Name Field # of Occurrence
^( GOT+6
^(0 LROE2+10, GOT+6, P15+13, P15A+4, OLD+11
^(1 LROE2+1, P15+13, P15A+4, OLD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OLD+3
>> %DT PTCS+11*
>> BLRAGI ERR+6*, ERR+7, ERR+8*, ERR+9
BLRASFLG BLRRL+4!, BLRRL+16!
>> BLRCDT P15+5, P15A+22
>> BLRCUSR P15+9, P15+16, P15A+15, Q15+5, OLD+12
BLRDT PTCS~, PTCS+16, PTCS+17, PTCS+18, PTCS+20
BLRDTCF PTCS~, PTCS+8*, PTCS+11*, PTCS+13*, PTCS+17
BLRDXS BLRRL+3!, BLRRL+16!
>> BLREF Q15+4*, Q15+6, Q16*
BLRERR ERR~, ERR+5*, ERR+7
>> BLRGUI BLRRL+5
BLRINS BLRRL+3!, BLRRL+16!
BLRM PTCS+14!, PTCS+15*
BLRM("DIERR" PTCS+20
BLRMETH PTCS~, PTCS+18
>> BLRPTCM Q15+8
>> BLRPTCU Q15+8
>> BLRRET Q15+4*, Q16*
>> BLRRLCLA P15A+24, P15A+26*
BLRSETUP P15A+2~, P15A+23*
BLRSPN PTCS~, PTCS+16, PTCS+17, PTCS+18, PTCS+20
>> BLRUNC Q15+4, Q15+5
BLRUSER PTCS~, PTCS+16
COMB P15+1~, P15+14*, P15+16, OLD+12~*
CONTROL P15A+32~, P15A+33*, P15A+34
>> DA LROE2+1, LROE2+3, Q15+5*, Q15+9*, Q17+1*, OLD+9*
>> DA(1 Q15+5*, Q17+1*
>> DFN LROE2+10*
>> DIC Q17+1*
>> DIE Q15+5*
DIR END!
DIRUT END!
DR Q15+5*, Q16A+2!, Q17+1*
DT Q15+9
DUZ(2 TASK+1, P15+16, Q17+4, OLD+12, BLRRL+6, BLRRL+7
ERRCODE ERROR+9~, ERROR+10*, ERROR+13
>> ERRLGLO ERROR+11*
ERRSCFL ERROR+9~
>> FDA( PTCS+16*, PTCS+17*, PTCS+18*
GOT END!, GOT+2*, GOT+4, GOT+6*, GOT+7
>> HRCN Q16A+1, Q16A+6*
I GOT+1~, GOT+6*, Q17+1*
IOM TASK+3, Q17+1*
ION TASK+3
>> IOP TASK+1*
IOSL TASK+3
IOST TASK+3
>> J Q16*, Q17+1*
>> J1 P15A+4*
LASTGLOR ERROR+9~
>> LRAA P15A+18*, P15A+21*, P15A+22, P15A+27, P15A+28, P15A+29
>> LRAD P15A+18*, P15A+21*, P15A+22, P15A+27, P15A+28, P15A+29
>> LRAN P15A+18*, P15A+21*, P15A+22, P15A+27, P15A+28, P15A+29
LRCCOM TASK+11!
>> LRCDT P15+5*, P15+6, P15+10*, P15+13, OLD+9, OLD+11
>> LRCHK LROE2+1*
LRCOM TASK+11!
>> LRDFN LROE2+9*, LROE2+10, P15A+5*, Q15+9*
LRDPF LROE2+10*, P15A+5!, P15A+31, Q15+9*
>> LRLABLIO TASK+3*, TASK+6, TASK+7
LRLBL TASK+6, TASK+9!
>> LRLLOC P15+13*, P15A+17, OLD+11*
>> LRLONG Q16A+1, Q16A+6*
>> LRNOLABL OLD+4
>> LRNONE LROE2+1*
LRNT P15+6*, P15+10*, P15+13*, P15A+12*, P15A+17, P15A+28, P15A+29, OLD+1~, OLD+3*, OLD+11*
>> LRODT LROE2+1, LROE2+4, LROE2+8, P15+7, P15+8, P15+9, P15+10, P15+13, P15+14, P15+16
, P15+17, P15A+4, P15A+15, P15A+17, P15A+19, P15A+20, P15A+21, P15A+34, Q15+1, Q15+3
, Q15+5, Q15+8, Q15+9, Q16A+1, Q16A+6*, Q17+1, Q17+4, OLD+9, OLD+11, OLD+12
>> LROLLOC P15+13*, P15A+9*, OLD+11*
>> LRORD UNL69+1, UNL69ERR+1, PH, Q16A+1, Q16A+6*, BLRRL+9, BLRRL+11, BLRRL+15
LRORIFN P15A+1~, P15A+11*, P15A+21*, P15A+33
>> LRPARAM OLD+4
>> LRQUIET OLD+5*
LRRB P15A+7~
LRSN LROE2+2!, LROE2+3*, LROE2+4, LROE2+8, P15+7, P15+8, P15+9, P15+10, P15+13, P15+14
, P15+16, P15+17, P15A+4, P15A+15, P15A+17, P15A+19, P15A+20, P15A+21, P15A+34, Q15+1
, Q15+3, Q15+5, Q15+8, Q15+9, Q16A+1*, Q16A+4*, Q16A+6*, Q17+1, Q17+4, OLD+9
, OLD+11, OLD+12
LRSN( LROE2+3*, Q16A+4
>> LRSND Q16A+1, Q16A+6, OLD+11, OLD+12
LRSPCDSC TASK+11!, Q17+1!*
>> LRSTATUS P15+16, P15+17, OLD+9*, OLD+12
LRTCOM TASK+11!
>> LRTIM P15+6*, P15+7, P15+8, P15+10*, P15+13, P15+16, Q15+5, Q16A+1, Q16A+6*, OLD+11
, OLD+12
>> LRTJ OLD+4
>> LRTN P15A+18*, P15A+19*, P15A+20, P15A+21
>> LRTREA P15A+10*
>> LRTSTS Q16A+2*
LRUIDA P15A+1~
LRUIDA( P15A+38
>> LRUN P15+6*, P15+10*, P15+16, OLD+12
>> LRWRD LROE2+13
>> LRWRDS LROE2+13*
LRX P15A+36~, P15A+37*, P15A+38*
LRX712 P15A+1~, P15A+4*, P15A+5, P15A+9, P15A+11
>> LRZX LROE2+8*, LROE2+9
>> M9 LROE2+7*
MSCLRSN Q16A+3~, Q16A+4*
>> MSCRLCLA P15A+24*, P15A+26
ODT GOT~, GOT+1~, GOT+2*, GOT+3*, GOT+4, GOT+5, GOT+6
OI BLRRL+10~, BLRRL+11*, BLRRL+12
ORD GOT~, GOT+3, GOT+4
>> PNM Q16A+1, Q16A+6*
SN GOT+1~, GOT+2*, GOT+4*, GOT+5, GOT+6
>> SSN Q16A+6*
U LROE2+1, LROE2+10, TASK+1, P15+7, P15+8, P15+9, P15+10, P15+13, P15A+4, P15A+9
, P15A+11, P15A+15, P15A+17, P15A+21, P15A+22, P15A+28, Q15+9, Q16A+1, Q17+4, OLD+4
, OLD+11, BLRRL+7, ERR+7
>> VAIN(3 P15A+10
>> X P15A+21*, Q16A+6*, PTCS+11*
>> Y PTCS+11
>> ZTDESC TASK+7*
>> ZTDTH TASK+7*
>> ZTIO TASK+7*
>> ZTRTN TASK+7*
>> ZTSAVE("LRLBL(" TASK+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All