Routine: BLRSGNSD

Package	Total	Call Graph
IHS Changes To Lab	2	(ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRFM,PRESSKEY)^BLRGMENU $$CHKITOUT^BLRSGNSU
Kernel	2	($$DT,$$FMTE,$$HTE,$$HTFM)^XLFDT ($$CJ,$$TRIM)^XLFSTR
DRG Grouper	1	$$ICDDX^ICDEX
IHS Standard Terminology	1	$$CONC^BSTSAPI
Lab Service	1	^LRDPA
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSGNS2

Entry Points

Name	Comments	DBIA/ICR reference
PEP	; EP
EEP	; Ersatz EP
CNTPROBS(DFN)	; EP
SHOWSELP()	; EP - Select Patient ; Select Patient
ICDCODE	; EP
SETBLRVS(TWO)	; EP - Set BLRVERN variable(s)
FINDSOME	; EP - Find some patients that have a problem list AND lab orders
SETHEAD(HD,COL,WOT)	; EP - Set the HEADER array
FINDSOMI	; EP - Initialization
FINDSOML	; EP - Line of Data
CNTORDRS(LRDFN)	; EP
CHKPROBV()	; EP - Check the "Break Out" Variables from Problem List
SHOAPRBL	; EP - Line of Data
EP	; EP
SHOAPRBI()	; EP - Initialization
SHOWPEND	; EP - Ending
FINDNONE	; EP - Find some patients that DO have lab orders but DO NOT have an entry in the Problem file.
FINDNONI	; EP - Initialization
FINDNOLA	; EP - Find some patients that have a problem list but NO lab orders
BREAKOUT	; EP - Breakout variables from PROBLEM file
DISPPRBL	; EP - Enter Patient And Display Problem List
SHOAPROB	; EP - Select Patient and Display ALL entries in Problem File

External References

Name	Field # of Occurrence
ADDTMENU^BLRGMENU	EP+5, EP+6, EP+7, EP+8, EP+9, EP+10, EP+11, EP+12, EP+13, EP+14
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	DISPPRBL+10, DISPPRBL+21, SHOWSELP+8, FINDSOMI+7, FINDSOML+16, SHOAPRBI+8, SHOAPRBI+19, FINDNOLA+9, FINDNOLA+33
HEADERPG^BLRGMENU	FINDNONE+22, SHOAPRBL+3
HEADONE^BLRGMENU	SHOAPRBI+20
LINEWRAP^BLRGMENU	SHOAPRBL+7, ICDCODE+12
MENUDRFM^BLRGMENU	EP+17
PRESSKEY^BLRGMENU	DISPPRBL+28, SHOWPEND+3, FINDSOME+10, FINDNONE+27, SHOAPROB+7, FINDNOLA+42
$$CHKITOUT^BLRSGNSU	DISPPRBL+24
$$CONC^BSTSAPI	BREAKOUT+7, BREAKOUT+8
$$GET1^DIQ	FINDNONE+23, FINDNOLA+23, BREAKOUT+1, BREAKOUT+3, BREAKOUT+4, BREAKOUT+13, BREAKOUT+16, BREAKOUT+19, ICDCODE+6
$$ICDDX^ICDEX	BREAKOUT+11, ICDCODE+6
^LRDPA	DISPPRBL+15, SHOWSELP+11, SHOAPRBI+13
$$DT^XLFDT	DISPPRBL+24
$$FMTE^XLFDT	CNTPROBS+6, BREAKOUT+14, BREAKOUT+17
$$HTE^XLFDT	FINDSOMI+2, SHOAPRBI+28, FINDNOLA+4
$$HTFM^XLFDT	FINDNONI+10
$$CJ^XLFSTR	DISPPRBL+9, DISPPRBL+20, SHOWSELP+4, FINDNONI+6, SHOAPRBI+7, SHOAPRBI+22, SHOAPRBI+23, SETHEAD+3
$$TRIM^XLFSTR	BREAKOUT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"SNOMED String:",SNOMEDS,!! Line Location: DISPPRBL+26
Function Call: WRITE	Prompt: !!,?4,DFNCNT," Patients in Problems File." Line Location: FINDSOME+7
Function Call: WRITE	Prompt: !!,?9,$S(DFNORDS:DFNORDS,1:"No")," Patients with Orders." Line Location: FINDSOME+8
Function Call: WRITE	Prompt: !!,?14,$S(CNT:CNT,1:"No")," Patients with Problems in the past year." Line Location: FINDSOME+9
Function Call: WRITE	Prompt: !!,?4,"Compilation of Data" Line Location: FINDSOMI+8
Function Call: WRITE	Prompt: DFN Line Location: FINDSOML+18
Function Call: WRITE	Prompt: ?9,$P($G(^DPT(DFN,0)),"^") Line Location: FINDSOML+19
Function Call: WRITE	Prompt: ?39,LRDFN Line Location: FINDSOML+20
Function Call: WRITE	Prompt: ?49,$P(STR,"^",2) Line Location: FINDSOML+21
Function Call: WRITE	Prompt: ?59,$P(STR,"^") Line Location: FINDSOML+22
Function Call: WRITE	Prompt: ?69,$$CNTORDRS(LRDFN) Line Location: FINDSOML+23
Function Call: WRITE	Prompt: ! Line Location: FINDSOML+24
Function Call: WRITE	Prompt: DFN,?9,$$GET1^DIQ(2,DFN,"NAME"),?39,LRDFN,! Line Location: FINDNONE+23
Function Call: WRITE	Prompt: !! Line Location: FINDNONE+25
Function Call: WRITE	Prompt: IEN,?9,ENTERDT,?21,ICDCODE,?31,$E(ICDDESC,1,18) Line Location: SHOAPRBL+6
Function Call: WRITE	Prompt: ! Line Location: SHOAPRBL+8
Function Call: WRITE	Prompt: !!,?4,"Compilation of Data" Line Location: FINDNOLA+10
Function Call: WRITE	Prompt: DFN Line Location: FINDNOLA+35
Function Call: WRITE	Prompt: ?9,$P($G(^DPT(DFN,0)),"^") Line Location: FINDNOLA+36
Function Call: WRITE	Prompt: ?49,$P(STR,"^",2) Line Location: FINDNOLA+37
Function Call: WRITE	Prompt: ?59,$P(STR,"^") Line Location: FINDNOLA+38
Function Call: WRITE	Prompt: ! Line Location: FINDNOLA+39
Function Call: WRITE	Prompt: ?28,$P(STR,"^",2) Line Location: ICDCODE+10
Function Call: WRITE	Prompt: ! Line Location: ICDCODE+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
69.05	GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	CNTPROBS+5
^AUPNPROB("AC"	FINDSOME+5, CNTPROBS+4, FINDNONE+13, SHOAPROB+5, FINDNOLA+21
^DPT - [#2]	DISPPRBL+20, FINDSOML+4, FINDSOML+8, FINDSOML+19, SHOAPRBI+22, FINDNOLA+36
^LR - [#63]	FINDNONE+9
^LRO(69 - [#69]	FINDSOML+9, CNTORDRS+4, CNTORDRS+6, FINDNONE+5, FINDNONE+7, FINDNONE+8, ICDCODE+2

Label References

Name	Line Occurrences
$$CHKPROBV	SHOAPRBL+1
$$CNTORDRS	FINDSOML+23, FINDNOLA+31
$$CNTPROBS	FINDSOML+13, FINDNOLA+28
$$SHOAPRBI	SHOAPROB+3
BREAKOUT	CHKPROBV+1
FINDNONI	FINDNONE+3
FINDSOMI	FINDSOME+3
FINDSOML	FINDSOME+5
SHOAPRBL	SHOAPROB+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT("B"	DISPPRBL+14!, SHOWSELP+10!, SHOAPRBI+12!
>> APISTR	BREAKOUT+7, BREAKOUT+8, BREAKOUT+9
>> BLRVERN	EP+3, DISPPRBL+3, FINDSOMI+1, FINDNONI+1, SHOAPRBI+1, FINDNOLA+3, SETBLRVS+1*
>> BLRVERN2	FINDNONI+2, SETBLRVS+2
>> CNT	SHOWPEND+1, FINDSOME+5, FINDSOME+9, FINDSOMI+17, FINDSOML+16, FINDSOML+25, FINDNONE+5, FINDNONE+7, FINDNONE+15, FINDNONE+18 , FINDNONI+10, SHOAPRBI+30, SHOAPRBI+32, SHOAPRBL+5, FINDNOLA+20, FINDNOLA+21, FINDNOLA+25, FINDNOLA+33, FINDNOLA+40
>> CNTORDS	CNTORDRS+3, CNTORDRS+6, CNTORDRS+8
COL	SETHEAD~, SETHEAD+3, SETHEAD+5
>> CONCID	BREAKOUT+3, BREAKOUT+5, BREAKOUT+7, BREAKOUT+8
DFN	DISPPRBL+11, DISPPRBL+12, DISPPRBL+17, DISPPRBL+20, DISPPRBL+24, SHOWSELP+6, SHOWSELP+7, SHOWSELP+13, FINDSOME+5, FINDSOMI+16 , FINDSOML+4, FINDSOML+8, FINDSOML+13, FINDSOML+18, FINDSOML+19, CNTPROBS~, CNTPROBS+1, CNTPROBS+4, FINDNONE+9, FINDNONE+10 , FINDNONE+12, FINDNONE+13, FINDNONE+16, FINDNONE+18, FINDNONE+19, FINDNONE+20, FINDNONE+23, SHOAPROB+5, SHOAPRBI+9, SHOAPRBI+10 , SHOAPRBI+15, SHOAPRBI+22, FINDNOLA+20, FINDNOLA+21, FINDNOLA+23, FINDNOLA+28, FINDNOLA+35, FINDNOLA+36
>> DFNCNT	FINDSOME+7, FINDSOMI+17, FINDSOML+1, FINDSOML+2, FINDNOLA+20, FINDNOLA+25, FINDNOLA+26
>> DFNLABS	FINDSOMI+17, FINDSOML+6
>> DFNORDS	FINDSOME+8, FINDSOMI+17, FINDSOML+11
DIC	DISPPRBL+14!, SHOWSELP+10!, SHOAPRBI+12!
DIC(0	DISPPRBL+14, SHOWSELP+10, SHOAPRBI+12*
>> DILOCKTM	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> DISYS	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
DT	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
DTIME	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
DUZ	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> ENTERDT	SHOAPRBL+6, BREAKOUT+4, BREAKOUT+5, BREAKOUT+13, BREAKOUT+14*
HD	SETHEAD~, SETHEAD+1, SETHEAD+3, SETHEAD+5
>> HDRONE	SHOAPRBI+20, SHOAPRBL+3
>> HEADER(	SETHEAD+1, SETHEAD+3, SETHEAD+5*
>> HEADER(1	DISPPRBL+5, SHOWSELP+2, FINDSOMI+4, FINDNONI+4, SHOAPRBI+3, FINDNOLA+6
>> HEADER(2	DISPPRBL+6, SHOWSELP+3, FINDSOMI+5, FINDNONI+5, SHOAPRBI+4, FINDNOLA+7
>> HEADER(3	DISPPRBL+9, DISPPRBL+19!, DISPPRBL+20, SHOWSELP+4, FINDSOMI+10, FINDNONI+6, SHOAPRBI+7, SHOAPRBI+17!, SHOAPRBI+22, FINDNOLA+12
>> HEADER(4	FINDSOMI+11, FINDNONI+7, SHOAPRBI+23, FINDNOLA+13, FINDNOLA+14*
>> HEADER(5	FINDSOMI+12, FINDSOMI+13, FINDSOMI+14, FINDNONI+8, SHOAPRBI+24, FINDNOLA+15, FINDNOLA+16, FINDNOLA+17
>> HEADER(6	SHOAPRBI+25, SHOAPRBI+26
>> ICD	ICDCODE+1, ICDCODE+2, ICDCODE+4
>> ICDCNT	ICDCODE+1, ICDCODE+3, ICDCODE+8
>> ICDCODE	SHOAPRBL+6, BREAKOUT+9*, BREAKOUT+11
>> ICDDESC	SHOAPRBL+6, BREAKOUT+11, ICDCODE+9, ICDCODE+11, ICDCODE+12
>> IEN	SHOAPROB+5, SHOAPRBI+32, SHOAPRBL+6, BREAKOUT+1, BREAKOUT+3, BREAKOUT+4, BREAKOUT+13, BREAKOUT+16, BREAKOUT+19
>> IENS	ICDCODE+4*, ICDCODE+6
IO	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> IOBS	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
IOF	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
IOM	EP+1, DISPPRBL+1, DISPPRBL+9, DISPPRBL+20, SHOWSELP+4, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, FINDNONI+6 , SHOAPROB+1, SHOAPRBI+7, SHOAPRBI+22, SHOAPRBI+23, FINDNOLA+1, SETHEAD+3
ION	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> IOS	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
IOSL	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, FINDNONI+11, SHOAPROB+1, FINDNOLA+1
IOST	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> IOT	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> IOXY	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> LASTMODD	BREAKOUT+16, BREAKOUT+17
>> LASTYEAR	FINDSOMI+2, FINDSOMI+5, CNTPROBS+1, CNTPROBS+7, SHOAPRBI+28, FINDNOLA+4*, FINDNOLA+7
>> LINES	FINDNONE+22, FINDNONE+23, FINDNONI+11, SHOAPRBI+30, SHOAPRBL+3, SHOAPRBL+9
LRDFN	FINDSOML+8, FINDSOML+9, FINDSOML+20, FINDSOML+23, CNTORDRS~, CNTORDRS+1, CNTORDRS+4, CNTORDRS+6, FINDNONE+8, FINDNONE+9 , FINDNONE+12, FINDNONE+16, FINDNONE+20, FINDNONE+23, FINDNOLA+23, FINDNOLA+31
LRDPAF	DISPPRBL+14!, SHOWSELP+10!, SHOAPRBI+12!
>> LRLOOKUP	DISPPRBL+13, SHOWSELP+9, SHOAPRBI+11*
>> LRODT	CNTORDRS+3, CNTORDRS+4, CNTORDRS+6, FINDNONE+5, FINDNONE+7, FINDNONE+8, FINDNONI+10, ICDCODE+2, ICDCODE+4
>> LROT	CNTORDRS+5, CNTORDRS+6
>> LRSN	FINDNONE+6, FINDNONE+7, FINDNONE+8
>> LRSP	ICDCODE+2, ICDCODE+4
>> MAX	FINDSOME+5, FINDSOMI+16, FINDNONE+5, FINDNONE+7, FINDNONI+10, FINDNOLA+20*, FINDNOLA+21
>> MAXLINES	FINDNONE+22, FINDNONI+11, SHOAPRBI+30, SHOAPRBL+3
>> NOPROB(	FINDNONE+16*, FINDNONE+19, FINDNONE+20
>> NUMCPRBS	CNTPROBS+3, CNTPROBS+7, CNTPROBS+10
>> NUMPROBS	CNTPROBS+3, CNTPROBS+8, CNTPROBS+10
>> PG	FINDNONE+22, FINDNONI+11, SHOAPRBI+30, SHOAPRBL+3
>> PROBS	CNTPROBS+3, CNTPROBS+4, CNTPROBS+5
>> PROVNDES	SHOAPRBL+7, BREAKOUT+19, BREAKOUT+20
>> QFLG	FINDNONE+19, FINDNONE+22, FINDNONI+11, SHOAPROB+5, SHOAPROB+7, SHOAPRBI+30, SHOAPRBL+3
>> SNOMEDS	DISPPRBL+24*, DISPPRBL+26
>> STATUS	BREAKOUT+1*
>> STORDFN(	FINDNONE+10, FINDNONE+12*
>> STR	FINDSOML+13, FINDSOML+14, FINDSOML+21, FINDSOML+22, CNTPROBS+5, CNTPROBS+6, FINDNOLA+28, FINDNOLA+29, FINDNOLA+37, FINDNOLA+38 , ICDCODE+6, ICDCODE+9, ICDCODE+10
>> TAB	ICDCODE+10*, ICDCODE+11, ICDCODE+12
>> TEST	ICDCODE+2, ICDCODE+4
TWO	SETBLRVS~, SETBLRVS+2
U	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
WOT	SETHEAD~, SETHEAD+1, SETHEAD+3, SETHEAD+5
>> XPARSYS	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> XQXFLG	EP+1, DISPPRBL+1, FINDSOME+1, CNTPROBS+1, CNTORDRS+1, FINDNONE+1, SHOAPROB+1, FINDNOLA+1
>> YRENTRY	CNTPROBS+6*, CNTPROBS+7

Marked Items

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSGNSD

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items