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 |  All
Print Page as PDF
Routine: BLRPOC3

Package: IHS Laboratory Point of Care

Routine: BLRPOC3


Information

BLRPOC3 ;IHS/MSC/MKK - EHR POC Component support, part 2 ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLRPOC3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Changes To Lab 3 PRESSKEY^BLRGMENU  $$CHKITOUT^BLRSGNSU  $$GETACCCP^BLRUTIL3  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Laboratory Point of Care 1 ($$CHKTST,$$ISPANEL,SAVE)^BLRPOC  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 ($$DT,$$NOW)^XLFDT  
Lab Service 1 ^LRWU4  

Entry Points

Name Comments DBIA/ICR reference
SHOWFLAG ; EP - Given Accession number, show V LAB FLAG
BADSTUFF(STR,TAB) ; EP - BADSTUFF error message
INVALENT ; EP - Invalid Entry Prompt
GETRESLT(IEN,RESULT,COMMENT) ; EP - Get Result Value
ARRYDUMP(ARRY) ; EP - "Dump" the array
GETYVAL(FNUM,YVAL,PROMPT) ; EP - MSC/MKK - Make this a function and add ability to pass a prompt string.
SHOWIT ; EP
GETCOSMC(COSMCTST,ARRAY) ; EP - Get results for ALL tests
TEST ; EP - Interactively TEST Point-Of-Care

External References

Name Field # of Occurrence
PRESSKEY^BLRGMENU TEST+64, INVALENT+2, BADSTUFF+3, SHOWIT+12
$$CHKTST^BLRPOC TEST+9
$$ISPANEL^BLRPOC TEST+14
SAVE^BLRPOC TEST+68
$$CHKITOUT^BLRSGNSU TEST+49
$$GETACCCP^BLRUTIL3 TEST+80
$$GET1^DIQ TEST+10, TEST+23, TEST+24, TEST+28, TEST+73, TEST+75, GETCOSMC+7, GETCOSMC+12, GETRESLT+4, SHOWIT+2
, SHOWIT+3, SHOWIT+6, SHOWIT+8, SHOWIT+10, SHOWIT+11
^DIR TEST+59, GETYVAL+4, GETRESLT+8, GETRESLT+15
^LRWU4 SHOWFLAG+4
^XBFMK TEST+56, GETYVAL+1, GETRESLT+6, GETRESLT+13
$$DT^XLFDT TEST+49
$$NOW^XLFDT TEST+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"POC Test."
  • Line Location: TEST+5
Function Call: WRITE
  • Prompt: !!,"Before SAVE call.",!
  • Line Location: TEST+54
Function Call: WRITE
  • Prompt: !,"DFN:",DFN," - ",$P(Y,U,2),!
  • Line Location: TEST+66
Function Call: WRITE
  • Prompt: !,"After SAVE Call.",!
  • Line Location: TEST+70
Function Call: WRITE
  • Prompt: ?4,"RET:",RET,!!
  • Line Location: TEST+71
Function Call: WRITE
  • Prompt: !,?4,"Latest Accession:",$$GET1^DIQ(63.04,LRIDT_","_LRDFN,.06),!
  • Line Location: TEST+83
Function Call: WRITE
  • Prompt: ?10,"BLRTXLOG:",BLRTXLOG,?30,"FLAG:",$$GET1^DIQ(9009022,BLRTXLOG,2002),!
  • Line Location: TEST+84
Function Call: WRITE
  • Prompt: ?9,"V LAB IEN:",VLABIEN,?30,"FLAG:",$$GET1^DIQ(9000010.09,VLABIEN,.05),!
  • Line Location: TEST+85
Function Call: WRITE
  • Prompt: ?4,"Could not determine BLRTXLOG for Accession ",LRAS,!
  • Line Location: TEST+86
Function Call: WRITE
  • Prompt: !,?4,"No/Quit Entry. Routine Ends."
  • Line Location: INVALENT+1
Function Call: WRITE
  • Prompt: !,?5,ARRY,!
  • Line Location: ARRYDUMP+4
Function Call: WRITE
  • Prompt: ?10,STR1,"=",@STR1,!
  • Line Location: ARRYDUMP+5
Function Call: WRITE
  • Prompt: ?10,STR1,"=",@STR1,!
  • Line Location: ARRYDUMP+7
Function Call: WRITE
  • Prompt: !!,?TAB,STR," Routine Ends."
  • Line Location: BADSTUFF+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOWFLAG+3
Function Call: WRITE
  • Prompt: !,?4,"Accession:",$$GET1^DIQ(63.04,LRIDT_","_LRDFN,.06),!
  • Line Location: SHOWIT+8
Function Call: WRITE
  • Prompt: ?8,
  • Line Location: SHOWIT+9
Function Call: WRITE
  • Prompt: ?15,"BLRTXLOG:",BLRTXLOG,?35,"FLAG:",$$GET1^DIQ(9009022,BLRTXLOG,2002),!
  • Line Location: SHOWIT+10
Function Call: WRITE
  • Prompt: ?14,"V LAB IEN:",VLABIEN,?35,"FLAG:",$$GET1^DIQ(9000010.09,VLABIEN,.05),!
  • Line Location: SHOWIT+11
Routine Call
  • DIR
  • Line Location:
    • TEST+59
    • GETYVAL+4
    • GETRESLT+8
    • GETRESLT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
60.02 GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
^LAB(62 - [#62] GET1^DIQ
63.04 GET1^DIQ
68.02 GET1^DIQ
^AUPNVLAB - [#9000010.09] GET1^DIQ
^BLRTXLOG - [#9009022] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRTXLOG("D" TEST+78, SHOWIT+5
^LAB(60 - [#60] TEST+21, TEST+26, TEST+27, GETCOSMC+5
^LR - [#63] TEST+74, SHOWIT+4
^TMP("BLRDIAG" TEST+3!, TEST+88!

Label References

Name Line Occurrences
$$GETCOSMC TEST+14
$$GETRESLT TEST+17, GETCOSMC+9
$$GETYVAL TEST+8, TEST+30, TEST+33, TEST+36, TEST+39, TEST+46
ARRYDUMP TEST+55, TEST+62
BADSTUFF TEST+10
INVALENT GETYVAL+5, GETRESLT+9
SHOWIT TEST+81

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY GETCOSMC~, GETCOSMC+1
ARRAY("CMT" GETCOSMC+15*
ARRAY("RES" GETCOSMC+14*
ARRAY("TST" GETCOSMC+13*
ARRY ARRYDUMP~, ARRYDUMP+3, ARRYDUMP+4
>> ARY TEST+14, TEST+68
>> ARY("CD" TEST+6*, TEST+61*
>> ARY("CM" TEST+23*
>> ARY("CMT" TEST+18*, TEST+42, TEST+43, TEST+44*
>> ARY("COL" TEST+28*
>> ARY("LOC" TEST+31*
>> ARY("NOO" TEST+37*
>> ARY("ORDTST" TEST+12*
>> ARY("PRV" TEST+34*
>> ARY("RES" TEST+18*
>> ARY("SYMP" TEST+52*
>> ARY("TST" TEST+16*
>> ARY("URG" TEST+40*
>> BAILOUT GETCOSMC+4*, GETCOSMC+5, GETCOSMC+9*, GETCOSMC+17
BLRLRAS SHOWFLAG+1~, SHOWFLAG+5
BLRTXLOG TEST+78*, TEST+79, SHOWFLAG+1~, SHOWIT+5*, SHOWIT+6, SHOWIT+10
>> CNT GETCOSMC+4*, GETCOSMC+11*, GETCOSMC+13, GETCOSMC+14, GETCOSMC+15
>> COMMCNT TEST+42*, TEST+43, TEST+44
COMMENT TEST+17, TEST+18, GETCOSMC+9, GETCOSMC+15, GETRESLT~, GETRESLT+3*, GETRESLT+16*
>> CONTINUE TEST+14*, TEST+17*, TEST+18, TEST+19
>> COSMCIEN GETCOSMC+3*, GETCOSMC+5, GETCOSMC+6
COSMCTST GETCOSMC~, GETCOSMC+1, GETCOSMC+3
>> CSI TEST+24*, TEST+25, TEST+26*, TEST+27*, TEST+28
>> DFN TEST+47*, TEST+49, TEST+66, TEST+68, TEST+73
>> DILOCKTM TEST+1, GETCOSMC+1
>> DIR("A" TEST+58*, GETYVAL+3*, GETRESLT+7*, GETRESLT+14*
>> DIR(0 TEST+57*, GETYVAL+2*, GETRESLT+7*, GETRESLT+14*
>> DIRUT GETYVAL+5, GETRESLT+9
>> DISYS TEST+1, GETCOSMC+1
DT TEST+1, GETCOSMC+1
DTIME TEST+1, GETCOSMC+1
DUZ TEST+1, GETCOSMC+1
>> F60IEN GETCOSMC+7*, GETCOSMC+9, GETCOSMC+12
FNUM GETYVAL~, GETYVAL+2
IEN GETRESLT~, GETRESLT+4
IO TEST+1, GETCOSMC+1
>> IOBS TEST+1, GETCOSMC+1
IOF TEST+1, GETCOSMC+1
IOM TEST+1, GETCOSMC+1
ION TEST+1, GETCOSMC+1
>> IOS TEST+1, GETCOSMC+1
IOSL TEST+1, GETCOSMC+1
IOST TEST+1, GETCOSMC+1
>> IOT TEST+1, GETCOSMC+1
>> IOXY TEST+1, GETCOSMC+1
LRAA TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAAIEN SHOWFLAG+1~, SHOWIT+1*, SHOWIT+2, SHOWIT+3
LRAD TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAN TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAS TEST+75*, TEST+78, TEST+80, TEST+86, SHOWFLAG+1~, SHOWFLAG+5*, SHOWIT+5
LRDATA SHOWFLAG+1~, SHOWIT+4*
>> LRDFN TEST+73*, TEST+74, TEST+75, SHOWIT+2*, SHOWIT+4, SHOWIT+8
>> LRIDT TEST+74*, TEST+75, SHOWIT+3*, SHOWIT+4, SHOWIT+8
>> PANELIEN GETCOSMC+6*, GETCOSMC+7
>> PANELN GETCOSMC+4*, GETCOSMC+5*, GETCOSMC+6
PROMPT GETYVAL~, GETYVAL+3
RESULT GETRESLT~, GETRESLT+10*, GETRESLT+12
>> RESULTS TEST+17, TEST+18, GETCOSMC+9, GETCOSMC+14, GETCOSMC+15
>> RET TEST+68, TEST+71
>> SITESPEC TEST+21*, TEST+23
STR TEST+49*, TEST+50, TEST+51, TEST+52, BADSTUFF~, BADSTUFF+2
STR1 TEST+51*, TEST+52, ARRYDUMP+1~, ARRYDUMP+3*, ARRYDUMP+5, ARRYDUMP+6*, ARRYDUMP+7
TAB BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3
>> TEST6 TEST+10
TESTNAME GETRESLT+1~, GETRESLT+4*, GETRESLT+7
>> TESTSTR GETCOSMC+12*, GETCOSMC+13
>> TESTY TEST+8, TEST+9, TEST+10, TEST+12, TEST+14, TEST+16, TEST+17, TEST+21, TEST+24, TEST+26
, TEST+27
U TEST+1, TEST+23, TEST+28, TEST+51, TEST+52, TEST+66, GETCOSMC+1, GETCOSMC+12
VLABIEN SHOWFLAG+1~, SHOWIT+6*, SHOWIT+11
>> X TEST+80*, GETRESLT+16
>> XPARSYS TEST+1, GETCOSMC+1
>> XQXFLG TEST+1, GETCOSMC+1
>> Y TEST+30, TEST+31, TEST+33, TEST+34, TEST+36, TEST+37, TEST+39, TEST+40, TEST+46, TEST+47
, TEST+60, TEST+66, GETYVAL+7, GETRESLT+10
YVAL GETYVAL~, GETYVAL+7*
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 |  All