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 |  Local Variables |  All
Print Page as PDF
Routine: BLRRLEVN

Package: IHS Changes To Lab

Routine: BLRRLEVN


Information

BLRRLEVN ;cmi/anch/maw - BLR Reference Lab Non LEDI Manifest Build ; 12-Apr-2016 14:25 ; MAW

Source Information

Source file <BLRRLEVN.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Changes To Lab 4 ($$CODE,$$NOMAP,TMPSET)^BLRRLEVT  (INS,PATBILL)^BLRRLHL  ADDDX^BLRRLHL2  PRT^BLRSHPM  
VA Fileman 3 FILE^DIE  $$GET1^DIQ  ^DIR  
DRG Grouper 2 $$ICDDX^ICDCODE  $$ICDDX^ICDEX  
Kernel 2 $$FMTE^XLFDT  EN^XQOR  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Changes To Lab 2 BLRAG05D  BLRRLEVT  
Lab Service 2 LROE  LRPHSET  
Automated Lab Instruments 1 LA7SMP  

Entry Points

Name Comments DBIA/ICR reference
ASKCOP(CP) ;-- ask the number of copies
RSHPYN() ;-- ask whether to reship
GETCOP(DZ2) ;-- get number of copies
WORD() ;-- reship which order
SHIPMAN(ORD,RE,SHP) ;-- get data needed for HL7 message and manifest
ORDP(OA,ON) ;-- get the ordering provider based on order number
PRTLC(ORD,ACC,DF,LOC,ODT,PRV,TST) ;-- printout the lab collect information
SETFLG(OI,AD) ;-- set the flag as accessioned
IMP(D) ;PEP - which coding system should be used:
RESHIP ;-- reship a non ledi order
KVAR
BLRVARS(OI,OR,UID,ACC,CD,TS,SM,SP,OP,AR,UG,OD,LC,PI)
SAMP(A,D,N,SPC) ;-- get collection sample
TEST(A,D,N) ;-- get the test based on acc passed in

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PRTLC+4
$$CODE^BLRRLEVT BLRVARS+17
$$NOMAP^BLRRLEVT SHIPMAN+35
TMPSET^BLRRLEVT BLRVARS+54
INS^BLRRLHL BLRVARS+39
PATBILL^BLRRLHL BLRVARS+42
ADDDX^BLRRLHL2 BLRVARS+34
PRT^BLRSHPM SHIPMAN+47
FILE^DIE SETFLG+4
$$GET1^DIQ BLRVARS+27, BLRVARS+29, BLRVARS+30, BLRVARS+31, BLRVARS+32, PRTLC+3, PRTLC+7, PRTLC+8
^DIR ASKCOP+3, RSHPYN+3, WORD+2
$$ICDDX^ICDCODE PRTLC+12
$$ICDDX^ICDEX PRTLC+11
$$VAL^XBDIQ1 ORDP+4, ORDP+5, ORDP+6
$$FMTE^XLFDT PRTLC+6
EN^XQOR SHIPMAN+37, SHIPMAN+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Printing Shipping Manifests for Reference Lab..."
  • Line Location: SHIPMAN+45
Function Call: WRITE
  • Prompt: !,"Printing manifest for order # "_ORD
  • Line Location: SHIPMAN+46
Function Call: WRITE
  • Prompt: !!,"Information for this accession:"
  • Line Location: PRTLC+15
Function Call: WRITE
  • Prompt: !,NM,?35,CHT,?50,"Requesting Loc: "_RLOC
  • Line Location: PRTLC+16
Function Call: WRITE
  • Prompt: !,"Date Ordered: "_ORDT,?50,"UID: "_ACC
  • Line Location: PRTLC+17
Function Call: WRITE
  • Prompt: !,"Lab Order # "_ORD,?40,"Provider: "_PRVE
  • Line Location: PRTLC+18
Function Call: WRITE
  • Prompt: !,?3,TSTE
  • Line Location: PRTLC+19
Function Call: WRITE
  • Prompt: !,?10,"DX: "_ICDE
  • Line Location: PRTLC+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRTLC+21
Function Call: WRITE
  • Prompt: !,"Error setting accession flag in the BLR REFERENCE LAB ORDER/ACCESSION file"
  • Line Location: SETFLG+6
Function Call: WRITE
  • Prompt: !,"Order Number does not exist"
  • Line Location: RESHIP+4
Function Call: WRITE
  • Prompt: !,$S($G(RESHIP):"Reshipping order: "_RORD,1:"Reprinting Order: "_RORD)
  • Line Location: RESHIP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RSHPYN+1
Routine Call
  • DIE
  • Line Location:
    • SETFLG+4
Routine Call
  • DIR
  • Line Location:
    • ASKCOP+3
    • RSHPYN+3
    • WORD+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^BLRRLO - [#9009026.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRL - [#9009026] BLRVARS+13
^BLRRLO - [#9009026.3] SHIPMAN+5, SHIPMAN+7, SHIPMAN+8, BLRVARS+3, BLRVARS+28, BLRVARS+46, BLRVARS+47, BLRVARS+48, PRTLC+9
^BLRRLO("ACC" PRTLC+2
^BLRRLO("B" SHIPMAN+4, RESHIP+4
^BLRSITE - [#9009029] SHIPMAN+34, GETCOP+2, BLRVARS+12, ORDP+2
^ICDS - [#80.4] IMP+10, IMP+11
^ICDS("F" IMP+7, IMP+9
^ICDS(0 PRTLC+11, PRTLC+12
^LAB(60 - [#60] SHIPMAN+33, BLRVARS+14
^LAB(61 - [#61] BLRVARS+11
^LAB(62.05 - [#62.05] BLRVARS+23
^LR - [#63] SHIPMAN+28
^LRO(68 - [#68] SHIPMAN+11, SHIPMAN+15, SHIPMAN+21, SHIPMAN+26, SHIPMAN+27, BLRVARS+15, SAMP+3, SAMP+5, TEST+3, TEST+4
, TEST+5
^LRO(69 - [#69] SHIPMAN+16, SHIPMAN+19, SHIPMAN+31, SHIPMAN+32, ORDP+3
^TMP("BLRRL" KVAR+3!

Label References

Name Line Occurrences
$$ASKCOP SHIPMAN+43
$$GETCOP SHIPMAN+42
$$ORDP SHIPMAN+22
$$RSHPYN RESHIP+5
$$SAMP SHIPMAN+29
$$TEST SHIPMAN+23
$$WORD RESHIP+2
BLRVARS SHIPMAN+36
KVAR SHIPMAN+48
SETFLG SHIPMAN+10
SHIPMAN RESHIP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5
AA SHIPMAN+1~, SHIPMAN+12*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29
AC SHIPMAN+1~, SHIPMAN+7*, SHIPMAN+11, SHIPMAN+36
ACC SHIPMAN+1~, SHIPMAN+15*, SHIPMAN+36, BLRVARS~, BLRVARS+4, PRTLC~, PRTLC+2, PRTLC+17
AD SHIPMAN+1~, SHIPMAN+13*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29, SETFLG~, SETFLG+2
ADA SHIPMAN+1~, SHIPMAN+5*, SHIPMAN+7, SHIPMAN+8, SHIPMAN+10
AGINS KVAR+1!
AGINSN1 KVAR+1!
AGINSNN KVAR+1!
AN SHIPMAN+1~, SHIPMAN+14*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29
AOD BLRVARS+43~, BLRVARS+48*, BLRVARS+49, BLRVARS+50, BLRVARS+51
AR BLRVARS~, BLRVARS+15
AREA SHIPMAN+1~, SHIPMAN+33*, SHIPMAN+36
BDA BLRVARS+43~, BLRVARS+44*, BLRVARS+45
>> BLRALTDZ SHIPMAN+33, SHIPMAN+34, BLRVARS+12, ORDP+2
BLRCM BLRVARS+43~, BLRVARS+46*, BLRVARS+47, BLRVARS+48, BLRVARS+52, BLRVARS+53
BLRINSS KVAR+1!
BLROI SHIPMAN+1~, SHIPMAN+4*, SHIPMAN+5, SHIPMAN+7, SHIPMAN+8, SHIPMAN+10, SHIPMAN+36
>> BLROPT BLRVARS+6
BLRRDA KVAR+1!
BLRRL BLRVARS+2!, BLRVARS+54, KVAR+2!
BLRRL( BLRVARS+44, BLRVARS+45*, BLRVARS+52*
BLRRL("ABBR" BLRVARS+15*
BLRRL("ACC" BLRVARS+4*
BLRRL("BILL T YPE" , BLRVARS+29*, BLRVARS+35, BLRVARS+41
BLRRL("CDT" BLRVARS+7*
BLRRL("CLIENT" BLRVARS+28*
BLRRL("COMMENT" BLRVARS+53*
BLRRL("LOC" BLRVARS+27*
BLRRL("LRTS" BLRVARS+8*
BLRRL("ODT" BLRVARS+25*
BLRRL("ORD" BLRVARS+26*
BLRRL("ORDP" BLRVARS+9*
BLRRL("ORDPNM" BLRVARS+30*
BLRRL("ORDPNPI" BLRVARS+31*
BLRRL("ORDPUPIN" BLRVARS+32*
BLRRL("PAT" BLRVARS+3*, BLRVARS+36, BLRVARS+39
BLRRL("RL" BLRVARS+12*, BLRVARS+13, BLRVARS+17
BLRRL("RLE" BLRVARS+13*, BLRVARS+21
BLRRL("SAMP" BLRVARS+10*
BLRRL("SHIPCOND" BLRVARS+19*
BLRRL("SRC" BLRVARS+11*
BLRRL("TCNM" BLRVARS+20*, BLRVARS+22*
BLRRL("TCODE" BLRVARS+18*, BLRVARS+20
BLRRL("TCODEE" BLRVARS+17*, BLRVARS+18, BLRVARS+19
BLRRL("TNAME" BLRVARS+14*, BLRVARS+20
BLRRL("TST" BLRVARS+16*
BLRRL("UID" BLRVARS+5*
BLRRL("URG" BLRVARS+24*
BLRRL("URGHL" BLRVARS+23*
BLRRLC BLRVARS+2!
BLRTS BLRVARS+33*, KVAR+1!
BLRTSTDA BLRVARS+33*, KVAR+1!
CD BLRVARS~, BLRVARS+7
CDT SHIPMAN+1~, SHIPMAN+21*, SHIPMAN+36
CHT PRTLC+1~, PRTLC+4*, PRTLC+16
>> COP SHIPMAN+43*, SHIPMAN+47
COPI SHIPMAN+42*, SHIPMAN+43, GETCOP+1~, GETCOP+2*, GETCOP+3
CP ASKCOP~, ASKCOP+2
D SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5, IMP~, IMP+5*, IMP+14
, IMP+15, IMP+16
DF PRTLC~, PRTLC+3, PRTLC+4
DFN KVAR+1!
>> DIC SHIPMAN+37*, SHIPMAN+38*
DIR ASKCOP+4!, RSHPYN+5!, WORD+3!
DIR("A" ASKCOP+1*, RSHPYN+2*, WORD+1*
DIR("B" ASKCOP+2*
DIR(0 ASKCOP+1*, RSHPYN+2*, WORD+1*
>> DIRUT ASKCOP+5, RSHPYN+4, WORD+4
DOB KVAR+1!
DT PRTLC+11, PRTLC+12, IMP+5
DUZ(2 SHIPMAN+33, SHIPMAN+34, SHIPMAN+42, BLRVARS+12, ORDP+2, PRTLC+4
DZ2 GETCOP~, GETCOP+2
FDA SETFLG+1~
FDA( SETFLG+3*
FERR SETFLG+1~
FERR(1 SETFLG+5
FIENS SETFLG+1~, SETFLG+2*, SETFLG+3
FLG SHIPMAN+2~, SHIPMAN+6*, SHIPMAN+8*, SHIPMAN+9
ICD PRTLC+1~, PRTLC+9*, PRTLC+11, PRTLC+12
ICDE PRTLC+1~, PRTLC+13*, PRTLC+20
IDT SHIPMAN+1~, SHIPMAN+27*, SHIPMAN+28
INA KVAR+2!
INSCNT KVAR+1!
INSGEND KVAR+1!
IO PRTLC+14
LA7RT SHIPMAN+1~, SHIPMAN+11*, SHIPMAN+12, SHIPMAN+13, SHIPMAN+14
LC BLRVARS~, BLRVARS+27
LDFN SHIPMAN+1~, SHIPMAN+26*, SHIPMAN+28
LOC SHIPMAN+2~, SHIPMAN+31*, SHIPMAN+35, SHIPMAN+36, PRTLC~, PRTLC+5
>> LRORD BLRVARS+37*
>> LRQUIET SETFLG+5
>> LRUID BLRVARS+6*, BLRVARS+38*
N SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5
NM PRTLC+1~, PRTLC+3*, PRTLC+16
NPI ORDP+1~, ORDP+6*, ORDP+8
OA SHIPMAN+1~, SHIPMAN+17*, SHIPMAN+19, SHIPMAN+22, SHIPMAN+31, SHIPMAN+32, ORDP~, ORDP+3
OD BLRVARS~, BLRVARS+25
ODT SHIPMAN+1~, SHIPMAN+19*, SHIPMAN+36, PRTLC~, PRTLC+6
OI BLRVARS~, BLRVARS+3, BLRVARS+28, BLRVARS+29, BLRVARS+46, BLRVARS+47, BLRVARS+48, PRTLC+1~, PRTLC+2*, PRTLC+9
, SETFLG~, SETFLG+2
ON SHIPMAN+1~, SHIPMAN+18*, SHIPMAN+19, SHIPMAN+22, SHIPMAN+31, SHIPMAN+32, ORDP~, ORDP+3
OP BLRVARS~, BLRVARS+9
OPI SHIPMAN+2~, SHIPMAN+32*, SHIPMAN+36
OR BLRVARS~, BLRVARS+26, BLRVARS+34, BLRVARS+37
ORD SHIPMAN~, SHIPMAN+4, SHIPMAN+16, SHIPMAN+36, SHIPMAN+46, PRTLC~, PRTLC+18
ORDN SHIPMAN+1~, SHIPMAN+16*, SHIPMAN+17, SHIPMAN+18
ORDP SHIPMAN+1~, SHIPMAN+22*, SHIPMAN+36
ORDT PRTLC+1~, PRTLC+6*, PRTLC+17
PAT BLRVARS+36*, BLRVARS+40!
PI BLRVARS~, BLRVARS+30, BLRVARS+31, BLRVARS+32
PRT SHIPMAN+2~, SHIPMAN+3*, SHIPMAN+39*, SHIPMAN+44
PRV ORDP+1~, ORDP+8*, ORDP+9*, ORDP+10, PRTLC~, PRTLC+7
PRVE ORDP+1~, ORDP+4*, ORDP+7*, ORDP+8, PRTLC+1~, PRTLC+7*, PRTLC+18
PRVI ORDP+1~, ORDP+3*, ORDP+4, ORDP+5, ORDP+6
PTYP ORDP+1~, ORDP+2*, ORDP+8, ORDP+9
QS BLRVARS+43~, BLRVARS+50*, BLRVARS+52, BLRVARS+53
RDX PRTLC+1~, PRTLC+10*, PRTLC+11*, PRTLC+12*, PRTLC+13
RE SHIPMAN~, SHIPMAN+9, SHIPMAN+10, SHIPMAN+37, SHIPMAN+38, SHIPMAN+47
RESHIP RESHIP+1~, RESHIP+5*, RESHIP+6, RESHIP+7
RL SHIPMAN+2~, SHIPMAN+34*, SHIPMAN+35
RLOC PRTLC+1~, PRTLC+5*, PRTLC+16
RORD RESHIP+1~, RESHIP+2*, RESHIP+3, RESHIP+4, RESHIP+6, RESHIP+7
RS BLRVARS+43~, BLRVARS+51*, BLRVARS+52, BLRVARS+53
RSC BLRVARS+43~, BLRVARS+49*, BLRVARS+52, BLRVARS+53
SAM SAMP+1~, SAMP+2*, SAMP+3, SAMP+5*, SAMP+6
SAMP SHIPMAN+1~, SHIPMAN+29*, SHIPMAN+36
SDA SAMP+1~, SAMP+3*, SAMP+5
SEX KVAR+1!
SHP SHIPMAN~, SHIPMAN+38
SM BLRVARS~, BLRVARS+10
SP BLRVARS~, BLRVARS+11
SPC SAMP~
SPEC SHIPMAN+1~, SHIPMAN+28*, SHIPMAN+29, SHIPMAN+36
TDA TEST+1~, TEST+3*, TEST+4, TEST+5
TEST SHIPMAN+1~, SHIPMAN+23*, SHIPMAN+24, SHIPMAN+25*, SHIPMAN+33, SHIPMAN+35, SHIPMAN+36, BLRVARS+17
TS BLRVARS~, BLRVARS+8, BLRVARS+14, BLRVARS+16, BLRVARS+33, BLRVARS+42, BLRVARS+45, BLRVARS+47, BLRVARS+52
TST TEST+1~, TEST+2*, TEST+4*, TEST+6, PRTLC~, PRTLC+8
TSTE PRTLC+1~, PRTLC+8*, PRTLC+19
U SHIPMAN+7, SHIPMAN+8, SHIPMAN+19, SHIPMAN+24, SHIPMAN+25, SHIPMAN+26, SHIPMAN+27, SHIPMAN+28, SHIPMAN+31, SHIPMAN+32
, SHIPMAN+33, SHIPMAN+34, GETCOP+2, BLRVARS+3, BLRVARS+11, BLRVARS+13, BLRVARS+14, BLRVARS+15, BLRVARS+18, BLRVARS+19
, BLRVARS+20, BLRVARS+23, BLRVARS+28, BLRVARS+47, BLRVARS+49, BLRVARS+50, BLRVARS+51, BLRVARS+52, BLRVARS+53, SAMP+5
, TEST+5, TEST+6, ORDP+2, ORDP+3, ORDP+9, PRTLC+13, IMP+10, IMP+11
UG BLRVARS~, BLRVARS+23, BLRVARS+24
UID BLRVARS~, BLRVARS+5, BLRVARS+6, BLRVARS+38
UPIN ORDP+1~, ORDP+5*, ORDP+8
URG SHIPMAN+1~, SHIPMAN+24*, SHIPMAN+36, TEST+5*, TEST+6
X SHIPMAN+37*, SHIPMAN+38*, IMP+6~, IMP+9*, IMP+10, IMP+11, IMP+13*, IMP+14, IMP+15, IMP+16
Y ASKCOP+6, IMP+6~, IMP+8*, IMP+15*, IMP+16*, IMP+17*, IMP+18, RSHPYN+6, RSHPYN+7, WORD+5
, WORD+6
Z IMP+6~
Z( IMP+11*, IMP+13, IMP+15, IMP+16, IMP+17
Z(0 IMP+17
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 |  Local Variables |  All