Routine: BLRSGNS2

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSGNS2

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items