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

Package: IHS Changes To Lab

Routine: BLRSGNS2


Information

BLRSGNS2 ; IHS/OIT/MKK - IHS Lab SiGN or Symptom debug, part 2 ; 31-Jul-2015 06:30 ; MKK

Source Information

Source file <BLRSGNS2.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To Lab 4 (EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,PRESSKEY)^BLRGMENU  (BREAKOUT,ICDCODE)^BLRSGNSD  ADDICD9^BLRSGNSU  ALLTESTS^BLRSGNSY  
Kernel 3 HOME^%ZIS  ($$DT,$$FMTE)^XLFDT  $$CJ^XLFSTR  
VA Fileman 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Standard Terminology 1 $$SEARCH^BSTSAPI  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
JUSTICDI() ; EP - Initialization
JUSTVALS ; EP - Given input, just display ALL entries returned from BSTS server.
BADSTUFN(MSG) ; EP - Function
EEP ; Ersatz EP
NEWPROBS ; EP - Latest entries in the Problem file
JUSTICDS ; EP - Given input, just display ALL entries returned from BSTS server that have ICD Code
BADENDQ(MSG) ; EP - Function
ERRMSGRP ; EP - Report on Error Messages stored in the ^XTMP global by ERRMSG^BLRSGNS3
NEWPROBI() ; EP - Initialization
NPRBLINE ; EP - Line of Data
CHKPLIST(DFN) ; EP - Check Problem List.
SETBLRVS(TWO) ; EP - Set BLRVERN variable(s)
RESETOFD ; EP - Given an Order Number, reset the Provider Narrative, SNOMED, & ICD fields, if possible, in file 69

External References

Name Field # of Occurrence
HOME^%ZIS JUSTVALS+5
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU NEWPROBI+7, NEWPROBI+31, RESETOFD+7, RESETOFD+24, JUSTICDI+7, JUSTICDI+10
HEADERPG^BLRGMENU NPRBLINE+3, JUSTVALS+43, JUSTVALS+55, JUSTICDS+11, ERRMSGRP+22
HEADONE^BLRGMENU NEWPROBI+32, JUSTICDI+8
LINEWRAP^BLRGMENU JUSTICDS+16
PRESSKEY^BLRGMENU NEWPROBS+10, NEWPROBI+28, RESETOFD+16, JUSTVALS+14, JUSTVALS+22, JUSTVALS+63, JUSTICDS+24, JUSTICDI+18, ERRMSGRP+36, BADSTUFN+2
, BADENDQ+2
BREAKOUT^BLRSGNSD NPRBLINE+1
ICDCODE^BLRSGNSD RESETOFD+31
ADDICD9^BLRSGNSU JUSTVALS+19, JUSTICDI+24
ALLTESTS^BLRSGNSY RESETOFD+22
$$SEARCH^BSTSAPI JUSTVALS+18, JUSTICDI+22
$$GET1^DIQ NPRBLINE+9, NPRBLINE+10, RESETOFD+29, RESETOFD+30
^DIR RESETOFD+13, JUSTVALS+11, JUSTICDI+16
$$ICDDX^ICDEX NEWPROBI+18, CHKPLIST+8
^XBFMK RESETOFD+9, JUSTVALS+7, JUSTICDI+12
$$DT^XLFDT JUSTVALS+17, JUSTICDI+20
$$FMTE^XLFDT NPRBLINE+5
$$CJ^XLFSTR JUSTVALS+27, JUSTVALS+28, JUSTICDI+5, JUSTICDI+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,CNT," Entries with ICD Codes."
  • Line Location: NEWPROBS+9
Function Call: WRITE
  • Prompt: ?4,"Compiling"
  • Line Location: NEWPROBI+9
Function Call: WRITE
  • Prompt: !!,?4,$FN(CNT,",")," Entries in the Problem File (#9000011) Analyzed."
  • Line Location: NEWPROBI+25
Function Call: WRITE
  • Prompt: !!,?9,$S(PROBCNT:$FN(PROBCNT,","),1:"No")," Entries with ICD Codes."
  • Line Location: NEWPROBI+26
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(ENTDT,"2DZ")
  • Line Location: NPRBLINE+5
Function Call: WRITE
  • Prompt: ?10,IEN
  • Line Location: NPRBLINE+6
Function Call: WRITE
  • Prompt: ?20,STATUS
  • Line Location: NPRBLINE+7
Function Call: WRITE
  • Prompt: ?24,ICDCODE,?34,$E(ICDDESC,1,22)
  • Line Location: NPRBLINE+8
Function Call: WRITE
  • Prompt: ?58,$$GET1^DIQ(9000011,IEN,80001)
  • Line Location: NPRBLINE+9
Function Call: WRITE
  • Prompt: ?69,$$GET1^DIQ(9000011,IEN,80002)
  • Line Location: NPRBLINE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NPRBLINE+11
Function Call: WRITE
  • Prompt: !!,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: RESETOFD+15
Function Call: WRITE
  • Prompt: ?9,"PROVIDER NARRATIVE:",$$GET1^DIQ(69.03,IENS,"PROVIDER NARRATIVE"),!
  • Line Location: RESETOFD+29
Function Call: WRITE
  • Prompt: ?21,"SNOMED:",$$GET1^DIQ(69.03,IENS,"SNOMED"),!
  • Line Location: RESETOFD+30
Function Call: WRITE
  • Prompt: !,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: JUSTVALS+13
Function Call: WRITE
  • Prompt: !,?4,"No data returned for ",X," input. Routine ends."
  • Line Location: JUSTVALS+21
Function Call: WRITE
  • Prompt: WOT
  • Line Location: JUSTVALS+45
Function Call: WRITE
  • Prompt: ?9,$G(VARS(WOT,"ICD",1,"COD"))
  • Line Location: JUSTVALS+46
Function Call: WRITE
  • Prompt: ?19,$G(VARS(WOT,"FSN","DSC"))
  • Line Location: JUSTVALS+47
Function Call: WRITE
  • Prompt: ?34,$E($G(VARS(WOT,"FSN","TRM")),1,46)
  • Line Location: JUSTVALS+48
Function Call: WRITE
  • Prompt: ?34,$E($G(VARS(WOT,"FSN","TRM")),1,33)
  • Line Location: JUSTVALS+49
Function Call: WRITE
  • Prompt: ?69,$G(VARS(WOT,"IC9",1,"COD"))
  • Line Location: JUSTVALS+50
Function Call: WRITE
  • Prompt: !
  • Line Location: JUSTVALS+51
Function Call: WRITE
  • Prompt: ?9," SYNONYM"
  • Line Location: JUSTVALS+56
Function Call: WRITE
  • Prompt: ?19,$G(VARS(WOT,"SYN",SYN,"DSC"))
  • Line Location: JUSTVALS+57
Function Call: WRITE
  • Prompt: ?34,$E($G(VARS(WOT,"SYN",SYN,"TRM")),1,46)
  • Line Location: JUSTVALS+58
Function Call: WRITE
  • Prompt: !
  • Line Location: JUSTVALS+59
Function Call: WRITE
  • Prompt: WOT
  • Line Location: JUSTICDS+13
Function Call: WRITE
  • Prompt: ?9,$G(VARS(WOT,"ICD",1,"COD"))
  • Line Location: JUSTICDS+14
Function Call: WRITE
  • Prompt: ?17,$G(VARS(WOT,"FSN","DSC"))
  • Line Location: JUSTICDS+15
Function Call: WRITE
  • Prompt: !
  • Line Location: JUSTICDS+17
Function Call: WRITE
  • Prompt: !!,?4,BSTSCNT," BSTS Entries."
  • Line Location: JUSTICDS+21
Function Call: WRITE
  • Prompt: ORDERNUM
  • Line Location: ERRMSGRP+24
Function Call: WRITE
  • Prompt: ?9,NOWDTIME
  • Line Location: ERRMSGRP+25
Function Call: WRITE
  • Prompt: ?29,ERRFRTN
  • Line Location: ERRMSGRP+26
Function Call: WRITE
  • Prompt: ?59,$G(^XTMP(ERRFRTN,NOWDTIME,MSG))
  • Line Location: ERRMSGRP+27
Function Call: WRITE
  • Prompt: ?59,$O(^XTMP(ERRFRTN,NOWDTIME,""))
  • Line Location: ERRMSGRP+28
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRMSGRP+29
Function Call: WRITE
  • Prompt: !!,?4,CNT," Entries"
  • Line Location: ERRMSGRP+35
Function Call: WRITE
  • Prompt: !!,?4,MSG," Routine Ends."
  • Line Location: BADSTUFN+1
Function Call: WRITE
  • Prompt: !!,?4,MSG," Routine Ends."
  • Line Location: BADENDQ+1
Routine Call
  • %ZIS
  • Line Location:
    • JUSTVALS+5
Routine Call
  • DIR
  • Line Location:
    • RESETOFD+13
    • JUSTVALS+11
    • JUSTICDI+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
69.03 GET1^DIQ
^AUPNPROB - [#9000011] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB - [#9000011] NEWPROBI+11, NEWPROBI+15, NEWPROBI+18, NEWPROBI+23, CHKPLIST+5, CHKPLIST+8
^AUPNPROB("AC" CHKPLIST+4
^LR - [#63] RESETOFD+20
^LRO(69 - [#69] RESETOFD+19, RESETOFD+20, RESETOFD+27
^TMP("BLRSGNSD" NEWPROBS+5, NEWPROBS+7, NEWPROBS+11!, NEWPROBI+2!, NEWPROBI+23*
^XTMP( ERRMSGRP+28
^XTMP("BLRSGNSP" ERRMSGRP+17, ERRMSGRP+19, ERRMSGRP+21

Label References

Name Line Occurrences
$$BADENDQ JUSTICDI+17, JUSTICDI+22
$$JUSTICDI JUSTICDS+3
$$NEWPROBI NEWPROBS+3
NPRBLINE NEWPROBS+7
SETBLRVS NEWPROBI+1, RESETOFD+3, ERRMSGRP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRVERN JUSTVALS+3*, JUSTICDI+1*, SETBLRVS+1*
>> BLRVERN2 JUSTICDI+1*, SETBLRVS+2*
>> BSTSCNT JUSTICDS+7*, JUSTICDS+21, JUSTICDI+34*
>> CNT NEWPROBS+9, NEWPROBI+10*, NEWPROBI+12*, NEWPROBI+13, NEWPROBI+25, NEWPROBI+36*, NPRBLINE+14*, JUSTVALS+39*, JUSTVALS+41*, JUSTVALS+61*
, JUSTICDS+19*, JUSTICDS+22, JUSTICDS+24, JUSTICDI+31*, JUSTICDI+33*, ERRMSGRP+14*, ERRMSGRP+31*, ERRMSGRP+35
DFN CHKPLIST~, CHKPLIST+4, RESETOFD+20*, RESETOFD+22
>> DILOCKTM NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> DIR("A" RESETOFD+11*, JUSTVALS+9*, JUSTICDI+14*
>> DIR("T" RESETOFD+12*, JUSTVALS+10*, JUSTICDI+15*
>> DIR(0 RESETOFD+10*, JUSTVALS+8*, JUSTICDI+13*
>> DIRUT RESETOFD+14, JUSTICDI+17
>> DISYS NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
DT NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
DTIME NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
DUZ NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> ENTDT NEWPROBS+5*, NEWPROBS+7, NEWPROBI+44*, NPRBLINE+5
>> ERRFRTN ERRMSGRP+20*, ERRMSGRP+21*, ERRMSGRP+26, ERRMSGRP+28
>> HDRONE NEWPROBI+32, NPRBLINE+3, JUSTVALS+43, JUSTVALS+55, JUSTICDS+11, JUSTICDI+8
>> HEADER(1 NEWPROBI+4*, RESETOFD+5*, JUSTVALS+24*, JUSTICDI+3*, ERRMSGRP+5*
>> HEADER(2 NEWPROBI+5*, RESETOFD+6*, JUSTVALS+26*, JUSTICDI+4*, ERRMSGRP+6*
>> HEADER(3 NEWPROBI+38*, JUSTVALS+27*, JUSTICDI+5*, ERRMSGRP+7*
>> HEADER(4 NEWPROBI+39*, JUSTVALS+28*, JUSTICDI+26*, ERRMSGRP+8*, ERRMSGRP+9*, ERRMSGRP+10*, ERRMSGRP+11*
>> HEADER(5 NEWPROBI+40*, NEWPROBI+41*, NEWPROBI+42*, JUSTVALS+29*, JUSTICDI+27*
>> HEADER(6 JUSTVALS+34*, JUSTVALS+35*, JUSTVALS+36*, JUSTICDI+28*, JUSTICDI+29*
>> ICDCODE NPRBLINE+8, JUSTICDS+8*, JUSTICDS+9
>> ICDDESC NPRBLINE+8
>> IEN NEWPROBS+6*, NEWPROBS+7*, NEWPROBI+10*, NEWPROBI+11*, NEWPROBI+15, NEWPROBI+18, NEWPROBI+23, NPRBLINE+6, NPRBLINE+9, NPRBLINE+10
>> IENS RESETOFD+28*, RESETOFD+29, RESETOFD+30
>> IN JUSTVALS+17*, JUSTVALS+18, JUSTICDI+20*, JUSTICDI+22
IO NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> IOBS NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
IOF NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
IOM NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTVALS+5, JUSTVALS+27, JUSTVALS+28, JUSTICDS+1, JUSTICDI+5, JUSTICDI+26, ERRMSGRP+1
ION NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> IOS NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
IOSL NEWPROBS+1, NEWPROBI+34, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1, ERRMSGRP+13
IOST NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> IOT NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> IOXY NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> LINES NEWPROBI+34*, NPRBLINE+3, NPRBLINE+13*, JUSTVALS+39*, JUSTVALS+43, JUSTVALS+52*, JUSTVALS+55, JUSTVALS+60*, JUSTICDS+11, JUSTICDS+18*
, JUSTICDI+31*, ERRMSGRP+13*, ERRMSGRP+22, ERRMSGRP+30*
>> LRDFN RESETOFD+20*
>> LRODT RESETOFD+19*, RESETOFD+20, RESETOFD+22, RESETOFD+27, RESETOFD+28
>> LRSP RESETOFD+19*, RESETOFD+20, RESETOFD+27, RESETOFD+28
>> MAXLINES NEWPROBI+34*, NPRBLINE+3, JUSTVALS+39*, JUSTVALS+43, JUSTVALS+55, JUSTICDS+11, JUSTICDI+31*, ERRMSGRP+13*, ERRMSGRP+22
MSG BADSTUFN~, BADSTUFN+1, BADENDQ~, BADENDQ+1
>> NOWDTIME ERRMSGRP+18*, ERRMSGRP+19*, ERRMSGRP+21, ERRMSGRP+25, ERRMSGRP+28
>> ORDERNUM ERRMSGRP+14*, ERRMSGRP+17*, ERRMSGRP+19, ERRMSGRP+21, ERRMSGRP+24
>> ORDNUM RESETOFD+18*, RESETOFD+19, RESETOFD+22
>> OUT JUSTVALS+17*, JUSTVALS+18, JUSTICDI+20*, JUSTICDI+22
>> PG NEWPROBI+36*, NPRBLINE+3, JUSTVALS+39*, JUSTVALS+43, JUSTVALS+55, JUSTICDS+11, JUSTICDI+31*, ERRMSGRP+14*, ERRMSGRP+22
PROBCNT NEWPROBI+10*, NEWPROBI+21*, NEWPROBI+26, NEWPROBI+27, NEWPROBI+29, CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+9*, CHKPLIST+11, CHKPLIST+13
PROBICD NEWPROBI+18*, NEWPROBI+19, CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+8*, CHKPLIST+16
PROBIEN CHKPLIST+1~, CHKPLIST+3*, CHKPLIST+4*, CHKPLIST+5, CHKPLIST+8
>> QFLG NEWPROBS+5, NEWPROBS+7, NEWPROBI+35*, NPRBLINE+3, JUSTVALS+39*, JUSTVALS+42, JUSTVALS+43, JUSTVALS+54, JUSTVALS+55, JUSTICDS+5
, JUSTICDS+11, JUSTICDI+31*, ERRMSGRP+15*, ERRMSGRP+17, ERRMSGRP+19, ERRMSGRP+21, ERRMSGRP+22, ERRMSGRP+33
>> STATUS NPRBLINE+7
>> SYN JUSTVALS+53*, JUSTVALS+54*, JUSTVALS+57, JUSTVALS+58
>> TEST RESETOFD+26*, RESETOFD+27*, RESETOFD+28
TWO SETBLRVS~, SETBLRVS+2
U NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> VARS( JUSTVALS+42, JUSTVALS+46, JUSTVALS+47, JUSTVALS+49, JUSTVALS+50, JUSTVALS+54, JUSTVALS+57, JUSTVALS+58, JUSTICDS+5, JUSTICDS+8
, JUSTICDS+14, JUSTICDS+15, JUSTICDS+16
>> WOT JUSTVALS+41*, JUSTVALS+42*, JUSTVALS+45, JUSTVALS+46, JUSTVALS+47, JUSTVALS+49, JUSTVALS+50, JUSTVALS+54, JUSTVALS+57, JUSTVALS+58
, JUSTICDS+5*, JUSTICDS+8, JUSTICDS+13, JUSTICDS+14, JUSTICDS+15, JUSTICDS+16, JUSTICDI+33*
>> X JUSTVALS+12, JUSTVALS+17, JUSTVALS+21, JUSTVALS+28, JUSTICDI+17, JUSTICDI+20, JUSTICDI+22, JUSTICDI+26
>> XPARSYS NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> XQXFLG NEWPROBS+1, RESETOFD+1, JUSTVALS+1, JUSTICDS+1, ERRMSGRP+1
>> Y RESETOFD+14, RESETOFD+18, JUSTVALS+18*, JUSTVALS+20

Marked Items

Name Field # of Occurrence
$T( JUSTVALS+3, JUSTICDI+1, SETBLRVS+1
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