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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRMPRL2

Package: IHS Changes To Lab

Routine: BLRMPRL2


Information

BLRMPRL2 ; IHS/MSC/MKK - BLR Map Reference Lab Codes to Lab Test File - version 2 ; 01-Jun-2016 13:35 ; MKK

Source Information

Source file <BLRMPRL2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^DIC  (,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$CJ^XLFSTR  
IHS Changes To Lab 2 ($$COLHEAD,ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU  $$BADSTUFQ^BLRUTIL7  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
UMAPRPT ; EP - Un-Mapped Tests' Report
TFIELDS ; EP - Test asking fields
MAPTESTS ; EP - main routine driver
JUSTNEW ; EP - Generic RPMS EXCLUSIVE NEW
TESTASK ; EP - Test the ASK function
MAPRPTI() ; EP - Initialization
PEP ; PEP
EEP ; Ersatz EP
SETBLRVS(TWO) ; EP - Set the BLRVERN variable(s)
UMAPRPTI() ; EP - Initialization
UMAPRPTB() ; EP - Break out data
MAPRPT ; EP - Mapped Tests' Report
UMAPRPTL ; EP - Line of Data
ASK(BLRRL) ;-- Ask which Reference Lab to map
MAPRPTB() ; EP - Break out data
MAPRPTL ; EP - Line of Data
EP ; EP
ORR(RL) ; EP - ask and map Reference Lab test(s)

External References

Name Field # of Occurrence
^%ZIS MAPRPTI+13, UMAPRPTI+13
^%ZISC MAPRPT+10, UMAPRPT+10
$$COLHEAD^BLRGMENU MAPRPTI+18, MAPRPTI+19
ADDTMENU^BLRGMENU PEP+5, PEP+6, PEP+7
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU MAPTESTS+13, ASK+1, ORR+3, MAPRPTI+6, MAPRPTI+11, UMAPRPTI+6, UMAPRPTI+11
HEADERPG^BLRGMENU MAPRPTL+3, UMAPRPTL+3
HEADONE^BLRGMENU MAPRPTI+7, UMAPRPTI+7
MENUDRVR^BLRGMENU PEP+9
PRESSKEY^BLRGMENU MAPTESTS+15, MAPRPT+12, UMAPRPT+12
$$BADSTUFQ^BLRUTIL7 MAPRPTI+14, UMAPRPTI+14
^DIC ORR+8
^DIE ORR+16, TFIELDS+17
UPDATE^DIE TFIELDS+10
$$GET1^DIQ MAPTESTS+10, ASK+14, MAPRPTI+9, MAPRPTB+2, MAPRPTB+5, MAPRPTB+7, MAPRPTB+8, UMAPRPTI+9, UMAPRPTB+2, UMAPRPTB+4
, UMAPRPTB+5, TESTASK+10
^DIR ASK+23, TFIELDS+5
^XBFMK ASK+4, ORR+4, TFIELDS+3, TFIELDS+12
$$CJ^XLFSTR MAPTESTS+10, MAPRPTI+10, UMAPRPTI+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,MAPPED," 9009026 Test",$S(MAPPED=1:"",1:"s")," Mapped."
  • Line Location: MAPTESTS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ORR+11
Function Call: WRITE
  • Prompt: !!,?4,CNT," Tests",!!
  • Line Location: MAPRPT+9
Function Call: WRITE
  • Prompt: $E(TESTNAME,1,22)
  • Line Location: MAPRPTL+5
Function Call: WRITE
  • Prompt: ?24,F60IEN
  • Line Location: MAPRPTL+6
Function Call: WRITE
  • Prompt: ?34,F60DESC
  • Line Location: MAPRPTL+7
Function Call: WRITE
  • Prompt: ?59,ORDCODE
  • Line Location: MAPRPTL+8
Function Call: WRITE
  • Prompt: ?69,RESULTC
  • Line Location: MAPRPTL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MAPRPTL+10
Function Call: WRITE
  • Prompt: !!,?4,CNT," Tests",!!
  • Line Location: UMAPRPT+9
Function Call: WRITE
  • Prompt: $S($L($TR(TESTNAME," ")):$E(TESTNAME,1,22),1:"<"_RLD1_">")
  • Line Location: UMAPRPTL+5
Function Call: WRITE
  • Prompt: ?59,ORDCODE
  • Line Location: UMAPRPTL+6
Function Call: WRITE
  • Prompt: ?69,RESULTC
  • Line Location: UMAPRPTL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: UMAPRPTL+8
Function Call: WRITE
  • Prompt: !!,?4,"BLRRL:",BLRRL,!
  • Line Location: TESTASK+9
Function Call: WRITE
  • Prompt: ?9,$$GET1^DIQ(9009026,BLRRL,.01),!!
  • Line Location: TESTASK+10
Routine Call
  • DIE
  • Line Location:
    • TFIELDS+10
Routine Call
  • DIE
  • Line Location:
    • ORR+16
    • TFIELDS+17
Routine Call
  • DIC
  • Line Location:
    • ORR+8
Routine Call
  • DIR
  • Line Location:
    • ASK+23
    • TFIELDS+5
Routine Call
  • %ZIS
  • Line Location:
    • MAPRPTI+13
    • UMAPRPTI+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BLRRL - [#9009026] GET1^DIQ
9009026.01 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRRL - [#9009026] ASK+11, MAPRPT+5, MAPRPT+7, UMAPRPT+5, UMAPRPT+7

Label References

Name Line Occurrences
$$ASK MAPTESTS+7, MAPRPTI+4, UMAPRPTI+4, TESTASK+7
$$MAPRPTB MAPRPTL+1
$$MAPRPTI MAPRPT+3
$$UMAPRPTB UMAPRPTL+1
$$UMAPRPTI UMAPRPT+3
MAPRPTL MAPRPT+7
ORR MAPTESTS+11
SETBLRVS PEP+3, MAPTESTS+3, MAPRPTI+1, UMAPRPTI+1, TESTASK+3
UMAPRPTL UMAPRPT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLROR ORR+5!, ORR+13*, ORR+15, TFIELDS+14*, TFIELDS+16
BLRRL MAPTESTS+7, MAPTESTS+10, MAPTESTS+11, ASK~, ASK+27*, ORR+6, MAPRPT+5, MAPRPT+7, MAPRPTI+4, MAPRPTI+9
, MAPRPTB+1, UMAPRPT+5, UMAPRPT+7, UMAPRPTI+4, UMAPRPTI+9, UMAPRPTB+1, TESTASK+7, TESTASK+9, TESTASK+10, TFIELDS+14*
, TFIELDS+15
BLRVERN SETBLRVS+1!, SETBLRVS+3*
BLRVERN2 SETBLRVS+1!, SETBLRVS+4*
>> CNT ASK+10*, ASK+12*, ASK+13, ASK+15, ASK+17, MAPRPT+9, MAPRPTI+29*, MAPRPTL+12*, UMAPRPT+9, UMAPRPTI+25*
, UMAPRPTL+10*
>> DA ORR+15*, TFIELDS+16*
>> DA(1 ORR+6*, TFIELDS+15*
>> DIC ORR+6*, ORR+15, TFIELDS+15*, TFIELDS+16
>> DIC("A" ORR+7*
>> DIC(0 ORR+6*, TFIELDS+15*
>> DIE ORR+15*, TFIELDS+16*
>> DILOCKTM PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> DIR("A" ASK+21*
>> DIR("L" ASK+6*, ASK+7*, ASK+8*, ASK+17*
>> DIR(0 ASK+22*, TFIELDS+4*
>> DIRUT ASK+25, TFIELDS+6
>> DISYS PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> DR ORR+15*, TFIELDS+16*
DT PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
DTIME PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
DUZ PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
ERRS TFIELDS+8!
>> F60DESC MAPRPTL+7, MAPRPTB+5*
>> F60IEN MAPRPTL+6, MAPRPTB+2*, MAPRPTB+3
FDA TFIELDS+8!
FDA( TFIELDS+9*
>> HDRONE MAPRPTI+7, MAPRPTL+3, UMAPRPTI+7, UMAPRPTL+3
>> HEADER(1 MAPTESTS+4*, MAPRPTI+2*, UMAPRPTI+2*, TESTASK+4*
>> HEADER(2 MAPTESTS+5*, MAPRPTI+9*, UMAPRPTI+9*, TESTASK+5*
>> HEADER(3 MAPTESTS+9!, MAPTESTS+10*, MAPTESTS+16!, MAPRPTI+10*, UMAPRPTI+10*
>> HEADER(4 MAPRPTI+17*, UMAPRPTI+17*
>> HEADER(5 MAPRPTI+18*, MAPRPTI+19*, MAPRPTI+20*, MAPRPTI+21*, UMAPRPTI+18*, UMAPRPTI+19*
>> HEADER(6 MAPRPTI+22*, MAPRPTI+23*, MAPRPTI+24*, MAPRPTI+25*, MAPRPTI+26*, UMAPRPTI+20*, UMAPRPTI+21*, UMAPRPTI+22*
IO PEP+1, MAPTESTS+1, MAPRPT+1, MAPRPTI+15, UMAPRPT+1, UMAPRPTI+15, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOBS PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOF PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOM PEP+1, MAPTESTS+1, MAPTESTS+10, MAPRPT+1, MAPRPTI+10, UMAPRPT+1, UMAPRPTI+10, JUSTNEW+1, TESTASK+1, TFIELDS+1
ION PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOS PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOSL PEP+1, MAPTESTS+1, MAPRPT+1, MAPRPTI+28, UMAPRPT+1, UMAPRPTI+24, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOST PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOT PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOXY PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> LINE ASK+9*, ASK+16*, ASK+17
>> LINES MAPRPTI+28*, MAPRPTL+3, MAPRPTL+11*, UMAPRPTI+24*, UMAPRPTL+3, UMAPRPTL+9*
>> MAPPED MAPTESTS+8*, MAPTESTS+12, MAPTESTS+14, ORR+17*, TFIELDS+18*
>> MAXLINES MAPRPTI+28*, MAPRPTL+3, UMAPRPTI+24*, UMAPRPTL+3
>> ONGO ORR+1*, ORR+2, ORR+9*
>> ORDCODE MAPRPTL+8, MAPRPTB+7*, UMAPRPTL+6, UMAPRPTB+4*
>> PG MAPRPTI+29*, MAPRPTL+3, UMAPRPTI+25*, UMAPRPTL+3
>> POP MAPRPTI+14, UMAPRPTI+14
>> QFLG MAPRPT+5, MAPRPT+7, MAPRPTI+30*, MAPRPTL+3, UMAPRPT+5, UMAPRPT+7, UMAPRPTI+26*, UMAPRPTL+3
>> REFLABN ASK+14*, ASK+15, ASK+17
>> RESULTC MAPRPTL+9, MAPRPTB+8*, UMAPRPTL+7, UMAPRPTB+5*
RL ORR~, ORR+6, TFIELDS+14*, TFIELDS+15
>> RLD0 ASK+10*, ASK+11*, ASK+13, ASK+14
>> RLD1 MAPRPT+6*, MAPRPT+7*, MAPRPTB+1, UMAPRPT+6*, UMAPRPT+7*, UMAPRPTL+5, UMAPRPTB+1
>> RLD1IEN MAPRPTB+1*, MAPRPTB+2, MAPRPTB+5, MAPRPTB+7, MAPRPTB+8, UMAPRPTB+1*, UMAPRPTB+2, UMAPRPTB+4, UMAPRPTB+5
>> RLIEN( ASK+13*, ASK+27
>> SELSTR ASK+10*, ASK+15*, ASK+19*, ASK+22
>> TAB ASK+5*, ASK+7, ASK+21
>> TAB2 ASK+5*, ASK+17
>> TESTNAME MAPRPT+5*, MAPRPT+7, MAPRPTI+32*, MAPRPTL+5, UMAPRPT+5*, UMAPRPT+7, UMAPRPTI+28*, UMAPRPTL+5
TWO SETBLRVS~, SETBLRVS+4
U PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> XPARSYS PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> XQXFLG PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> Y ASK+25, ASK+27, ORR+9, ORR+13, TFIELDS+6, TFIELDS+9

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All