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

Package: IHS Changes To Lab

Routine: BLRLRPT


Information

BLRLRPT ; IHS/OIT/MPW - LOINC Mapping to File 60 Tests ; [ JUN 29, 2010 ]

Source Information

Source file <BLRLRPT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$HTE^XLFDT  $$CJ^XLFSTR  
IHS VA Utilities 1 ^XBCLS  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HDR ; Print appropriate header
PRNT ; Print File 60 tests mapped/not mapped to LOINC code
INIT ; Initialize variables
CR ; Prompt to continue or exit
OPT1 ; Print Lab Tests Mapped to LOINC Codes
OPT2 ; Print Lab Tests NOT Mapped to LOINC Codes

External References

Name Field # of Occurrence
^DIR OPT1+24, OPT2+29
^XBCLS OPT1+26, OPT1+49, OPT2+31, INIT+1
$$HTE^XLFDT INIT+5
$$CJ^XLFSTR OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58, OPT2+36, OPT2+41, OPT2+42, HDR+1
, HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"1. Print Tests Mapped to LOINC"
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: !,"2. Print Tests NOT Mapped to LOINC"
  • Line Location: PRNT+12
Function Call: READ
  • Timeout: 30
  • Variable: R
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: !!,"Enter selection # or '^' to quit: "
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: !!,"Invalid Entry"
  • Line Location: PRNT+14
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: OPT1+31
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE: ",PG
  • Line Location: OPT1+32
Function Call: WRITE
  • Prompt: !!,HDR2,!,HDR3
  • Line Location: OPT1+33
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: OPT1+36
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3
  • Line Location: OPT1+36
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3
  • Line Location: OPT1+37
Function Call: WRITE
  • Prompt: !,NAME,?70,LOINC,!,?2,$G(^LAB(95.3,LOINC,80)),!
  • Line Location: OPT1+38
Function Call: WRITE
  • Prompt: !,NAME,?32,$E(SPNM,1,12),?46,UNITS,?70,LOINC
  • Line Location: OPT1+41
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE: ",PG
  • Line Location: OPT1+53
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: OPT1+57
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3
  • Line Location: OPT1+57
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3
  • Line Location: OPT1+58
Function Call: WRITE
  • Prompt: !!,$J(CNT,6)," Total Active/Inactive Tests in File 60"
  • Line Location: OPT1+63
Function Call: WRITE
  • Prompt: !,$J(ZCNT,6)," INACTIVE Tests (",$E(ZCNT/CNT*100,1,5),"%) Will NOT be Mapped"
  • Line Location: OPT1+64
Function Call: WRITE
  • Prompt: !!,$J(ACNT-NSPEC,6)," Active Tests with ",SCNT," Specimens in File 60"
  • Line Location: OPT1+66
Function Call: WRITE
  • Prompt: !,$J(NSPEC,6)," Active Tests w/o Specimens in File 60"
  • Line Location: OPT1+67
Function Call: WRITE
  • Prompt: !,$J(SCNT+NSPEC,6)," Total Entries to Map in File 60"
  • Line Location: OPT1+68
Function Call: WRITE
  • Prompt: !!,$J(LCNT,6)," Tests w/ Specimens (",$E(LCNT/SCNT*100,1,5),"%) Mapped"
  • Line Location: OPT1+70
Function Call: WRITE
  • Prompt: !,$J(ICNT,6)," Tests w/o Specimens (",$E(ICNT/NSPEC*100,1,5),"%) Mapped"
  • Line Location: OPT1+71
Function Call: WRITE
  • Prompt: !,$J(LCNT+ICNT,6)," Total Entries (",$E((LCNT+ICNT)/(SCNT+NSPEC)*100,1,5),"%) Mapped"
  • Line Location: OPT1+72
Function Call: WRITE
  • Prompt: !!,$J(CCNT,6)," Entries (",$E(CCNT/ACNT*100,1,5),"%) Mapped to C80 LOINC Codes"
  • Line Location: OPT1+74
Function Call: WRITE
  • Prompt: !,$J(GCNT,6)," C80 LOINC Codes (",$E(GCNT/290*100,1,5),"%) Mapped to File 60"
  • Line Location: OPT1+75
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: OPT2+36
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE: ",PG
  • Line Location: OPT2+37
Function Call: WRITE
  • Prompt: !!,HDR2,!,HDR3
  • Line Location: OPT2+38
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: OPT2+41
Function Call: WRITE
  • Prompt: !,?5,HDR1,?70,"PAGE:",PG,!!,HDR2,!,HDR3
  • Line Location: OPT2+41
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3
  • Line Location: OPT2+42
Function Call: WRITE
  • Prompt: !,NAME
  • Line Location: OPT2+43
Function Call: WRITE
  • Prompt: !,NAME,?46,$E(SPNM,1,12),?60,UNITS
  • Line Location: OPT2+45
Function Call: WRITE
  • Prompt: !!,$J(CNT,6)," Total Active/Inactive Tests in File 60"
  • Line Location: OPT2+49
Function Call: WRITE
  • Prompt: !,$J(ZCNT,6)," INACTIVE Tests (",$E(ZCNT/CNT*100,1,5),"%) Will NOT be Mapped"
  • Line Location: OPT2+50
Function Call: WRITE
  • Prompt: !!,$J(ACNT-NSPEC,6)," Active Tests with ",SCNT," Specimens in File 60"
  • Line Location: OPT2+52
Function Call: WRITE
  • Prompt: !,$J(NSPEC,6)," Active Tests w/o Specimens in File 60"
  • Line Location: OPT2+53
Function Call: WRITE
  • Prompt: !,$J(SCNT+NSPEC,6)," Total Entries to Map in File 60"
  • Line Location: OPT2+54
Function Call: WRITE
  • Prompt: !!,$J(NCNT,6)," Tests/Specimens (",$E(NCNT/SCNT*100,1,5),"%) NOT Mapped"
  • Line Location: OPT2+56
Function Call: WRITE
  • Prompt: !,$J(PCNT,6)," Tests w/o Specimens (",$E(PCNT/NSPEC*100,1,5),"%) NOT Mapped"
  • Line Location: OPT2+57
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(HDR,IOM)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(UDL,IOM)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Enter RETURN to continue or '^' to exit: "
  • Line Location: CR+5
Routine Call
  • DIR
  • Line Location:
    • OPT1+24
    • OPT2+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLSLMAST - [#90220] OPT1+42
^BLSLMAST("C" OPT1+42
^LAB(60 - [#60] OPT1+3, OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+13, OPT1+14, OPT1+16, OPT1+17, OPT2+3
, OPT2+4, OPT2+8, OPT2+9, OPT2+10, OPT2+13, OPT2+14, OPT2+18, OPT2+19, OPT2+21, OPT2+22
^LAB(61 - [#61] OPT1+15, OPT2+20
^LAB(95.3 - [#95.3] OPT1+11, OPT1+17, OPT1+38, OPT1+43, OPT1+59
^XTMP("BLRLRPT" PRNT+3!, OPT1+11*, OPT1+17*, OPT1+35, OPT1+38, OPT1+39, OPT1+40, OPT1+41, OPT1+42*, OPT1+48
, OPT1+55, OPT1+56, OPT2+11*, OPT2+15*, OPT2+22*, OPT2+40, OPT2+43, OPT2+44, OPT2+45

Label References

Name Line Occurrences
@( PRNT+15
CR OPT1+36, OPT1+57, OPT2+41, CR+8
HDR PRNT+10
INIT PRNT+8
PRNT PRNT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNT PRNT+6~, PRNT+17!, OPT1+7*, OPT1+66, OPT1+74, OPT2+7*, OPT2+52, INIT+3*
>> ANS CR+5*, CR+6, CR+7
CCNT PRNT+6~, PRNT+17!, OPT1+42*, OPT1+74, INIT+3*
>> CM INIT+2*
CNT PRNT+6~, PRNT+17!, OPT1+4*, OPT1+63, OPT1+64, OPT2+4*, OPT2+49, OPT2+50, INIT+3*
>> D0 OPT1+3*, OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+13, OPT1+14, OPT1+16, OPT1+17, OPT2+3*
, OPT2+4, OPT2+8, OPT2+9, OPT2+10, OPT2+13, OPT2+14, OPT2+18, OPT2+19, OPT2+21, OPT2+22
, INIT+2*
>> D1 OPT1+13*, OPT1+14*, OPT1+15, OPT1+16, OPT1+17, OPT2+18*, OPT2+19*, OPT2+20, OPT2+21, OPT2+22
, INIT+2*
>> D2 INIT+2*
DIR OPT1+24!, OPT2+29!
DIR("A" OPT1+23*, OPT2+28*
DIR("B" OPT1+23*, OPT2+28*
DIR(0 OPT1+23*, OPT2+28*
GCNT PRNT+6~, PRNT+17!, OPT1+42*, OPT1+75, INIT+3*
HDR PRNT+7~, PRNT+10*, PRNT+17!, OPT1+27*, OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58
, OPT2+32*, OPT2+36, OPT2+41, OPT2+42, INIT+4*, HDR+1, HDR+2
HDR1 PRNT+7~, PRNT+17!, OPT1+28*, OPT1+32, OPT1+36, OPT1+37, OPT1+53, OPT1+57, OPT1+58, OPT2+33*
, OPT2+37, OPT2+41, OPT2+42, INIT+4*
HDR2 PRNT+7~, PRNT+17!, OPT1+29*, OPT1+33, OPT1+36, OPT1+37, OPT1+50*, OPT1+54, OPT1+57, OPT1+58
, OPT2+34*, OPT2+38, OPT2+41, OPT2+42, INIT+4*
HDR3 PRNT+7~, PRNT+17!, OPT1+30*, OPT1+33, OPT1+36, OPT1+37, OPT1+51*, OPT1+54, OPT1+57, OPT1+58
, OPT2+35*, OPT2+38, OPT2+41, OPT2+42, INIT+4*
>> I HDR+2*
ICNT PRNT+6~, PRNT+17!, OPT1+10*, OPT1+71, OPT1+72, INIT+3*
IOM OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58, OPT2+36, OPT2+41, OPT2+42, HDR+1
, HDR+3
LCNT PRNT+6~, PRNT+17!, OPT1+17*, OPT1+70, OPT1+72, INIT+3*
>> LNC OPT1+41*, OPT1+42, OPT1+43, OPT1+56*, OPT1+59
LOINC PRNT+7~, PRNT+17!, OPT1+10*, OPT1+11, OPT1+17*, OPT1+38*, OPT1+41*, OPT1+42, OPT1+56*, OPT1+59
, INIT+4*
NAME PRNT+7~, PRNT+17!, OPT1+4*, OPT1+6, OPT1+9*, OPT1+11, OPT1+17, OPT1+34*, OPT1+35*, OPT1+38
, OPT1+39, OPT1+40, OPT1+41, OPT1+55*, OPT1+56, OPT1+59, OPT2+4*, OPT2+6, OPT2+10*, OPT2+11
, OPT2+14*, OPT2+15, OPT2+22, OPT2+39*, OPT2+40*, OPT2+43, OPT2+44, OPT2+45, INIT+4*
NCNT PRNT+6~, PRNT+17!, OPT2+22*, OPT2+56, INIT+3*
NOW PRNT+7~, PRNT+17!, OPT1+28, OPT2+33, INIT+5*
NSPEC PRNT+6~, PRNT+17!, OPT1+8*, OPT1+66, OPT1+67, OPT1+68, OPT1+71, OPT1+72, OPT2+8*, OPT2+52
, OPT2+53, OPT2+54, OPT2+57, INIT+3*
>> OPT PRNT+15*
PCNT PRNT+6~, PRNT+17!, OPT2+11*, OPT2+15*, OPT2+57, INIT+3*
>> PG OPT1+32*, OPT1+36*, OPT1+37*, OPT1+53*, OPT1+57*, OPT1+58*, OPT2+37*, OPT2+41*, OPT2+42*, INIT+2*
Q PRNT+7~, PRNT+17!, INIT+2*
Q1 PRNT+7~, PRNT+17!, OPT1+3, OPT1+35, OPT1+36, OPT1+48, OPT1+55, OPT1+57, OPT2+3, OPT2+40
, OPT2+41, INIT+2*, CR+6*
R PRNT+7~, PRNT+13*, PRNT+14, PRNT+15, PRNT+17!, INIT+4*
R1 PRNT+7~, PRNT+17!, OPT1+25*, OPT1+36, OPT1+37, OPT1+57, OPT1+58, OPT2+30*, OPT2+41, OPT2+42
, INIT+2*
>> REC OPT1+42*
SCNT PRNT+6~, PRNT+17!, OPT1+15*, OPT1+66, OPT1+68, OPT1+70, OPT1+72, OPT2+20*, OPT2+52, OPT2+54
, OPT2+56, INIT+3*
SPN PRNT+6~, PRNT+17!, INIT+3*
SPNM PRNT+7~, PRNT+17!, OPT1+15*, OPT1+17, OPT1+39*, OPT1+40, OPT1+41, OPT2+20*, OPT2+22, OPT2+44*
, OPT2+45, INIT+4*
>> SRC OPT1+42*
>> TYP OPT1+4*, OPT2+4*
U OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+11, OPT1+15, OPT1+16, OPT1+17, OPT2+4, OPT2+10
, OPT2+13, OPT2+14, OPT2+20, OPT2+21
UDL PRNT+7~, PRNT+17!, INIT+4*, HDR+2*, HDR+3
UNITS PRNT+7~, PRNT+17!, OPT1+16*, OPT1+17, OPT1+40*, OPT1+41, OPT2+21*, OPT2+22, OPT2+45*, INIT+4*
>> Y OPT1+25, OPT2+30
ZCNT PRNT+6~, PRNT+17!, OPT1+6*, OPT1+64, OPT2+6*, OPT2+50, INIT+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All