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: BLRMANP3

Package: IHS Changes To Lab

Routine: BLRMANP3


Information

BLRMANP3 ; IHS/MSC/MKK - Multiple Accession Not Performed utility, part 3 ; 22-Apr-2016 15:12 ; MKK

Source Information

Source file <BLRMANP3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 ^%ZIS  ($$FMTE,$$HTE)^XLFDT  ($$CJ,$$RJ,$$UP)^XLFSTR  
IHS Changes To Lab 2 (EEP,HEADERDT,HEADERPG,LINEWRAP,PRESSKEY)^BLRGMENU  $$BADSTUFN^BLRUTIL7  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Lab Service 1 ^LRWU4  
Registration 1 DEM^VADPT  

Entry Points

Name Comments DBIA/ICR reference
CENTER(STR) ; EP - Center a string using IOM
DETAILIN(SUBRTN) ; EP - Initialize variables
VARSNEW ; EP - NEW put here to facilitate adding new routines.
ACCTESTS ; EP - Display the Tests
LINEMSG(MSG,FILLER,TAB) ; EP - Demarcation line, Version 2
EEP ; Ersatz EP
XTMPKILL ; EP - Purge the ^XTMP("BLRMANPU") Node
ENDERQ(MESSAGE) ; EP - Function to state why routine ending. Quits with "Q"
NODEZERO() ; EP - Display Accession Node Zero
NAMEPRT(DFN,CONVERT) ;EP; return printable name
DETAIL68 ; EP - Accession (#68) File Data Detail
XTMPRPT ; EP - ^XTMP Issues node - Interactive Report
NODE3 ; EP - Display Accession Node Three
ENDMESG ; EP -- Display the message
SETBLRVS(TWO) ; EP - Set the BLRVERN variables

External References

Name Field # of Occurrence
^%ZIS DETAILIN+22
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU XTMPRPT+7, XTMPKILL+5, DETAILIN+6, NODEZERO+1
HEADERPG^BLRGMENU XTMPRPT+31
LINEWRAP^BLRGMENU XTMPRPT+35
PRESSKEY^BLRGMENU XTMPRPT+9, XTMPRPT+39, XTMPKILL+32, DETAIL68+9, ENDMESG+2
$$BADSTUFN^BLRUTIL7 XTMPKILL+15, XTMPKILL+21, XTMPKILL+27
$$GET1^DIQ XTMPRPT+27, DETAILIN+14, DETAILIN+15, DETAILIN+16, DETAILIN+17, NODEZERO+11, NODEZERO+15, NODEZERO+17, NODEZERO+18, NODEZERO+21
, NODEZERO+22, NODEZERO+25, NODEZERO+28, NODEZERO+29, NODE3+4, NODE3+7, NODE3+14, NODE3+18, ACCTESTS+7, ACCTESTS+8
, ACCTESTS+11, ACCTESTS+12, ACCTESTS+18, ACCTESTS+28, ACCTESTS+29, ACCTESTS+31, ACCTESTS+32
^DIR XTMPKILL+14, XTMPKILL+20, XTMPKILL+26
^LRWU4 DETAILIN+8
DEM^VADPT NAMEPRT+3
^XBFMK XTMPKILL+11, XTMPKILL+17, XTMPKILL+23
$$FMTE^XLFDT NODEZERO+12, NODE3+5, NODE3+8, NODE3+16, ACCTESTS+15
$$HTE^XLFDT XTMPRPT+33
$$CJ^XLFSTR XTMPRPT+12, CENTER+1, LINEMSG+2
$$RJ^XLFSTR NODE3+17, ACCTESTS+16
$$UP^XLFSTR NODE3+5, NODE3+8, NODE3+16, ACCTESTS+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"^XTMP Global has no Data for 'Multiple Accession Not Performed' Errors."
  • Line Location: XTMPRPT+8
Function Call: WRITE
  • Prompt: UID
  • Line Location: XTMPRPT+32
Function Call: WRITE
  • Prompt: ?12,$$HTE^XLFDT(HDATE,"2MZ")
  • Line Location: XTMPRPT+33
Function Call: WRITE
  • Prompt: ?28,MSGDUZ
  • Line Location: XTMPRPT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: XTMPRPT+36
Function Call: WRITE
  • Prompt: ?9,"This option will purge the ^XTMP(""BLRMANPU"") global.",!!
  • Line Location: XTMPKILL+6
Function Call: WRITE
  • Prompt: ?9,"That global contains any error messages created during the",!!
  • Line Location: XTMPKILL+7
Function Call: WRITE
  • Prompt: ?14,"Mark Multiple Accessions as Not Performed",!!
  • Line Location: XTMPKILL+8
Function Call: WRITE
  • Prompt: ?9,"process."
  • Line Location: XTMPKILL+9
Function Call: WRITE
  • Prompt: !!,TAB_TAB_"^XTMP(""BLRMANPU"") Global Purged."
  • Line Location: XTMPKILL+29
Function Call: WRITE
  • Prompt: !,?6,"**Order #:",ORDERNUM," is **NOT** in the Lab Order Entry (#69) File."
  • Line Location: DETAIL68+7
Function Call: WRITE
  • Prompt: ?5,"Order #:",ORDERNUM
  • Line Location: NODEZERO+7
Function Call: WRITE
  • Prompt: ?23,"UID:",UID
  • Line Location: NODEZERO+9
Function Call: WRITE
  • Prompt: ?43,"Order Dt:"
  • Line Location: NODEZERO+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NODEZERO+13
Function Call: WRITE
  • Prompt: ?7,"LRDFN:",LRDFN
  • Line Location: NODEZERO+16
Function Call: WRITE
  • Prompt: ?23,"DFN:",$$GET1^DIQ(63,LRDFN,.03,"I")
  • Line Location: NODEZERO+17
Function Call: WRITE
  • Prompt: ?44,"PT NAME:",$$GET1^DIQ(63,LRDFN,.03)
  • Line Location: NODEZERO+18
Function Call: WRITE
  • Prompt: !
  • Line Location: NODEZERO+19
Function Call: WRITE
  • Prompt: ?4,"Provider:",$E($$GET1^DIQ(68.02,LRASIEN,6.5),1,36)
  • Line Location: NODEZERO+21
Function Call: WRITE
  • Prompt: ?42,"Rpt R Loc:",$$GET1^DIQ(68.02,LRASIEN,6)
  • Line Location: NODEZERO+22
Function Call: WRITE
  • Prompt: !
  • Line Location: NODEZERO+23
Function Call: WRITE
  • Prompt: ?5,"Ord Loc:",$E($$GET1^DIQ(68.02,LRASIEN,94),1,27)
  • Line Location: NODEZERO+25
Function Call: WRITE
  • Prompt: ?48,"Div:",$E(DIV,1,28)
  • Line Location: NODEZERO+26
Function Call: WRITE
  • Prompt: !
  • Line Location: NODEZERO+27
Function Call: WRITE
  • Prompt: ?4,"Log-In Person:",$E($$GET1^DIQ(68.02,LRASIEN,6.7),1,19)
  • Line Location: NODEZERO+28
Function Call: WRITE
  • Prompt: ?39,"File 200 IEN:",$$GET1^DIQ(68.02,LRASIEN,6.7,"I")
  • Line Location: NODEZERO+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: NODEZERO+30
Function Call: WRITE
  • Prompt: ?4,"Draw Time:"
  • Line Location: NODE3+3
Function Call: WRITE
  • Prompt: $TR($$UP^XLFSTR($$FMTE^XLFDT(DRAWTIME,"5MPZ")),"@"," ")
  • Line Location: NODE3+5
Function Call: WRITE
  • Prompt: ?39,"Lab Arr Time:"
  • Line Location: NODE3+6
Function Call: WRITE
  • Prompt: $TR($$UP^XLFSTR($$FMTE^XLFDT(LARRTIME,"5MPZ")),"@"," ")
  • Line Location: NODE3+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NODE3+9
Function Call: WRITE
  • Prompt: ?14,DRAWTIME,?52,LARRTIME,!
  • Line Location: NODE3+11
Function Call: WRITE
  • Prompt: ?4,"Result Dt:"
  • Line Location: NODE3+13
Function Call: WRITE
  • Prompt: $P(TEMP," "),$$RJ^XLFSTR($P(TEMP," ",2,3),9)
  • Line Location: NODE3+17
Function Call: WRITE
  • Prompt: ?39,"Inverse Date:",$$GET1^DIQ(68.02,LRASIEN,13.5,"I")
  • Line Location: NODE3+18
Function Call: WRITE
  • Prompt: !
  • Line Location: NODE3+19
Function Call: WRITE
  • Prompt: !,?4,"Test:",$$GET1^DIQ(68.04,LRATIEN,.01)
  • Line Location: ACCTESTS+7
Function Call: WRITE
  • Prompt: ?40,"File 60 IEN:",$$GET1^DIQ(68.04,LRATIEN,.01,"I")
  • Line Location: ACCTESTS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+9
Function Call: WRITE
  • Prompt: ?4,"Tech:",$$GET1^DIQ(68.04,LRATIEN,3)
  • Line Location: ACCTESTS+11
Function Call: WRITE
  • Prompt: ?44,"Comp Dt:"
  • Line Location: ACCTESTS+14
Function Call: WRITE
  • Prompt: $P(TEMP," "),$$RJ^XLFSTR($P(TEMP," ",2,3),9)
  • Line Location: ACCTESTS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+17
Function Call: WRITE
  • Prompt: ?8,"Disp:",$E(STR,1,67)
  • Line Location: ACCTESTS+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+23
Function Call: WRITE
  • Prompt: ?5,"Specimen:",$E($$GET1^DIQ(68.05,LRASPIEN,.01),1,32)
  • Line Location: ACCTESTS+28
Function Call: WRITE
  • Prompt: ?40,"File 61 IEN:",$$GET1^DIQ(68.05,LRASPIEN,.01,"I")
  • Line Location: ACCTESTS+29
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+30
Function Call: WRITE
  • Prompt: ?4,"Coll Samp:",$E($$GET1^DIQ(68.05,LRASPIEN,1),1,32)
  • Line Location: ACCTESTS+31
Function Call: WRITE
  • Prompt: ?40,"File 62 IEN:",$$GET1^DIQ(68.05,LRASPIEN,1,"I")
  • Line Location: ACCTESTS+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCTESTS+33
Function Call: WRITE
  • Prompt: !!,?5,MESSAGE," Routine Ends."
  • Line Location: ENDMESG+1
Function Call: WRITE
  • Prompt: ?($S(+$G(TAB):TAB-1,1:0)),MSG,!
  • Line Location: LINEMSG+3
Routine Call
  • DIR
  • Line Location:
    • XTMPKILL+14
    • XTMPKILL+20
    • XTMPKILL+26
Routine Call
  • %ZIS
  • Line Location:
    • DETAILIN+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^LR - [#63] GET1^DIQ
68.02 GET1^DIQ
68.04 GET1^DIQ
68.05 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("FUNC" - [#.5] NAMEPRT+5
^LRO(68 - [#68] DETAILIN+10, DETAILIN+12, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
^LRO(69 - [#69] DETAIL68+7, NODEZERO+8
^XTMP("BLRMANPU" XTMPRPT+6, XTMPRPT+24, XTMPRPT+26, XTMPRPT+29, XTMPRPT+30, XTMPKILL+30!

Label References

Name Line Occurrences
$$CENTER DETAILIN+20
$$DETAILIN DETAIL68+3
$$ENDERQ DETAILIN+10, DETAILIN+23
ACCTESTS DETAIL68+5
ENDMESG ENDERQ+1
NODE3 DETAIL68+5
NODEZERO DETAIL68+5
SETBLRVS XTMPRPT+3, DETAILIN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLRVERN SETBLRVS+1!, SETBLRVS+2*
BLRVERN2 SETBLRVS+1!, SETBLRVS+3*
>> CNT XTMPRPT+20*
COL DETAILIN+1~
COL2 DETAILIN+1~
CONVERT NAMEPRT~, NAMEPRT+5
>> DATETIME ACCTESTS+12*, ACCTESTS+13, ACCTESTS+15
DFN NAMEPRT~
>> DILOCKTM XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> DIR("A" XTMPKILL+13*, XTMPKILL+19*, XTMPKILL+25*
>> DIR(0 XTMPKILL+12*, XTMPKILL+18*, XTMPKILL+24*
>> DISYS XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> DIV DETAILIN+17*, NODEZERO+26
>> DRAWTIME NODE3+4*, NODE3+5, NODE3+11
DT XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
DTIME XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
DUZ XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
FILLER LINEMSG~, LINEMSG+2
>> HDATE XTMPRPT+28*, XTMPRPT+29*, XTMPRPT+30, XTMPRPT+33
>> HEADER(1 XTMPRPT+4*, XTMPKILL+3*, DETAILIN+4*
>> HEADER(2 XTMPRPT+11*, XTMPKILL+4*, DETAILIN+19*
>> HEADER(3 XTMPRPT+12*, DETAILIN+20*
>> HEADER(4 XTMPRPT+13*
>> HEADER(5 XTMPRPT+14*, XTMPRPT+15*, XTMPRPT+16*, XTMPRPT+17*
IO XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOBS XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOF XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOM XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1, CENTER+1, LINEMSG+2
ION XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOS XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOSL XTMPRPT+1, XTMPRPT+19, XTMPKILL+1, DETAIL68+1, DETAILIN+25, VARSNEW+1
IOST XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOT XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOXY XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> LARRTIME NODE3+7*, NODE3+8, NODE3+11
>> LINES XTMPRPT+19*, XTMPRPT+31, XTMPRPT+37*, DETAILIN+26*
>> LRAA DETAILIN+10, DETAILIN+12, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAD DETAILIN+10, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAN DETAILIN+10, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAS DETAILIN+15*, DETAILIN+19
>> LRASIEN DETAILIN+13*, DETAILIN+14, DETAILIN+15, DETAILIN+16, DETAILIN+17, NODEZERO+11, NODEZERO+15, NODEZERO+21, NODEZERO+22, NODEZERO+25
, NODEZERO+28, NODEZERO+29, NODE3+4, NODE3+7, NODE3+14, NODE3+18, ACCTESTS+5, ACCTESTS+27
>> LRASP ACCTESTS+25*, ACCTESTS+26*, ACCTESTS+27
>> LRASPIEN ACCTESTS+27*, ACCTESTS+28, ACCTESTS+29, ACCTESTS+31, ACCTESTS+32
>> LRAT ACCTESTS+3*, ACCTESTS+4*, ACCTESTS+5
>> LRATIEN ACCTESTS+5*, ACCTESTS+7, ACCTESTS+8, ACCTESTS+11, ACCTESTS+12, ACCTESTS+18
>> LRDFN NODEZERO+15*, NODEZERO+16, NODEZERO+17, NODEZERO+18
>> LRSS DETAILIN+12*
>> MAXLINES XTMPRPT+19*, XTMPRPT+31, DETAILIN+25*, DETAILIN+26
MESSAGE ENDMESG+1, ENDERQ~
MSG LINEMSG~, LINEMSG+1*, LINEMSG+2*, LINEMSG+3
>> MSGDUZ XTMPRPT+25*, XTMPRPT+26*, XTMPRPT+27, XTMPRPT+29, XTMPRPT+30, XTMPRPT+34
>> MSGL XTMPRPT+23*
>> NAMEDUZ XTMPRPT+27*
>> ORDERDT NODEZERO+11*, NODEZERO+12
>> ORDERNUM DETAIL68+7, DETAILIN+14*, NODEZERO+7, NODEZERO+8
>> PG XTMPRPT+20*, XTMPRPT+31, DETAILIN+27*
>> POP DETAILIN+23
>> QFLG XTMPRPT+21*, XTMPRPT+24, XTMPRPT+26, XTMPRPT+29, XTMPRPT+31, DETAILIN+27*
>> RESULTDT DETAILIN+27*, NODE3+14*, NODE3+15, NODE3+16
STR XTMPRPT+30*, XTMPRPT+35, NODEZERO+5*, NODE3+1*, ACCTESTS+6, ACCTESTS+10, ACCTESTS+18*, ACCTESTS+19, ACCTESTS+20, CENTER~
, CENTER+1
SUBRTN DETAILIN~, DETAILIN+2
TAB XTMPKILL+10*, XTMPKILL+13, XTMPKILL+19, XTMPKILL+25, XTMPKILL+29, LINEMSG~, LINEMSG+2, LINEMSG+3
TECH ACCTESTS+1~, ACCTESTS+10*
>> TEMP NODE3+16*, NODE3+17, ACCTESTS+15*, ACCTESTS+16
>> TESTIEN ACCTESTS+6*
TWO SETBLRVS~, SETBLRVS+3
U XTMPRPT+1, XTMPKILL+1, DETAIL68+1, DETAILIN+12, ACCTESTS+6, ACCTESTS+10, VARSNEW+1
>> UID XTMPRPT+23*, XTMPRPT+24*, XTMPRPT+26, XTMPRPT+29, XTMPRPT+30, XTMPRPT+32, DETAILIN+16*, NODEZERO+9
VADM NAMEPRT+2~
VADM(1 NAMEPRT+4
X NAMEPRT+2~, NAMEPRT+4*, NAMEPRT+6
>> XPARSYS XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> XQXFLG XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> Y XTMPKILL+15, XTMPKILL+21, XTMPKILL+27

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+2
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