Routine: BLRSGNSY

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
IHS Changes To Lab	7	(ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU $$INACTDT^BLRICDU0 ERRMSG^BLRSGNS3 ($$CHKITOUT,GETDIAG)^BLRSGNSU EN^BLRSM ENTRYAUD^BLRUTIL (ADBLRRLO,STORDIAG)^BLRUTIL6
VA Fileman	4	$$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$DT,$$FMTE)^XLFDT ($$CJ,$$TRIM)^XLFSTR
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	^XBFMK
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
IHS Changes To Lab	4	BLRDIAG BLRSGNS2 BLRSGNSU BLRSM

Package

Total

Caller Graph

IHS Changes To Lab

BLRDIAG BLRSGNS2 BLRSGNSU BLRSM

Entry Points

Name	Comments	DBIA/ICR reference
STORDIAG(DFN,LRORD,LRODT,LRSP,LRSPTST,PROBSTR,RELCINFO)	; EP - Store the responses on the test
GETSDIAG(DFN,LRORD,LRODT,LRSP,LRTST,BAILOUT)	; EP - Get & Store Diagnosis
XTMPORPT	; EP - Report on ^XTMP("BLRSGNSY" data by Order Number
LISTMSEL()	; EP - LIST Manager to SELect entry
XTMPMENU	; EP - Menu of XTMP Reports
PEP	; EP
EEP	; Ersatz EP
PROVNARR	; EP - List ALL current Provider Narratives for all tests for the order
XTMPRPT	; EP - Report on ^XTMP("BLRSGNSY" data
ALLTESTS(DFN,LRORD,LRODT)	; EP - Get & Store Single Diagnosis for ALL tests on an Order with Multiple Tests
RELCINFO()	; EP - Relevant Clinical Information -- Currently (01/27/2014), not used
XTMPORPL	; EP - Line of Data
NEWLIST	; EP - Ask user if they want to create a new listing
DEBUG	; EP
XTMPRPTL	; EP - Line of Data
GETVALUE(PROBLIEN)	; EP - Get the value to store from the Problem List
XTMPRPTI	; EP - Initialization
EP	; EP
XTMPORPI	; EP - Initialization
RESETSCR	; EP - Reset the screen after a crash

External References

Name	Field # of Occurrence
ADDTMENU^BLRGMENU	XTMPMENU+6, XTMPMENU+7, XTMPMENU+8
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	XTMPRPTI+6, XTMPORPI+6
HEADERPG^BLRGMENU	XTMPRPTL+1, XTMPORPL+1
HEADONE^BLRGMENU	XTMPRPTI+7, XTMPORPI+7
LINEWRAP^BLRGMENU	PROVNARR+20, XTMPRPTL+5, XTMPORPL+5
MENUDRVR^BLRGMENU	XTMPMENU+11
PRESSKEY^BLRGMENU	NEWLIST+29, XTMPRPT+5, XTMPRPT+14, XTMPORPT+5, XTMPORPT+16
$$INACTDT^BLRICDU0	STORDIAG+25
ERRMSG^BLRSGNS3	STORDIAG+21, STORDIAG+47
$$CHKITOUT^BLRSGNSU	GETSDIAG+5, ALLTESTS+7
GETDIAG^BLRSGNSU	NEWLIST+30
EN^BLRSM	LISTMSEL+4
ENTRYAUD^BLRUTIL	STORDIAG+10
ADBLRRLO^BLRUTIL6	STORDIAG+51
STORDIAG^BLRUTIL6	STORDIAG+49
$$FIND1^DIC	STORDIAG+31
FILE^DIE	STORDIAG+19
UPDATE^DIE	STORDIAG+36, STORDIAG+41
$$GET1^DIQ	PROVNARR+12, PROVNARR+13, PROVNARR+14, PROVNARR+24
^DIR	NEWLIST+13, NEWLIST+21, RELCINFO+9
$$ICDDX^ICDEX	GETVALUE+3
CLEAR^VALM1	RESETSCR+1
^XBFMK	STORDIAG+12, NEWLIST+8, NEWLIST+17, RELCINFO+5
$$DT^XLFDT	STORDIAG+25
$$FMTE^XLFDT	XTMPRPTL+3, XTMPORPL+3
$$CJ^XLFSTR	XTMPORPI+9
$$TRIM^XLFSTR	STORDIAG+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NEWLIST+7
Function Call: WRITE	Prompt: !,"You MUST Select an appropriate SNOMED code from the list." Line Location: NEWLIST+28
Function Call: WRITE	Prompt: !! Line Location: RELCINFO+4
Function Call: WRITE	Prompt: ?4,"TEST: ",F60DESC,! Line Location: PROVNARR+18
Function Call: WRITE	Prompt: ?9,"PROVIDER NARRATIVE:" Line Location: PROVNARR+19
Function Call: WRITE	Prompt: ! Line Location: PROVNARR+21
Function Call: WRITE	Prompt: ?9,"SNOMED: ",LRSNOMED,! Line Location: PROVNARR+22
Function Call: WRITE	Prompt: !!,"No data in ^XTMP(""BLRSGNSY"". Routine Ends." Line Location: XTMPRPT+4
Function Call: WRITE	Prompt: DATETIME,?16,$$FMTE^XLFDT(DATETIME,"5MZ") Line Location: XTMPRPTL+3
Function Call: WRITE	Prompt: ?34,MSG Line Location: XTMPRPTL+4
Function Call: WRITE	Prompt: ! Line Location: XTMPRPTL+6
Function Call: WRITE	Prompt: !!,"No data in ^XTMP(""BLRSGNSY"". Routine Ends." Line Location: XTMPORPT+4
Function Call: WRITE	Prompt: ORDERNUM,?9,DATETIME,?26,$$FMTE^XLFDT(DATETIME,"5MZ") Line Location: XTMPORPL+3
Function Call: WRITE	Prompt: ?44,MSG Line Location: XTMPORPL+4
Function Call: WRITE	Prompt: ! Line Location: XTMPORPL+6
Routine Call	DIE Line Location: STORDIAG+36 STORDIAG+41
Routine Call	DIC Line Location: STORDIAG+31
Routine Call	DIE Line Location: STORDIAG+19
Routine Call	DIR Line Location: NEWLIST+13 NEWLIST+21 RELCINFO+9

FileNo	Call Tags
69.03	GET1^DIQ
69.05	GET1^DIQ
^ICD9 - [#80]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETVALUE+1
^DPT - [#2]	GETSDIAG+3, ALLTESTS+5
^LRO(69 - [#69]	ALLTESTS+13, ALLTESTS+15, PROVNARR+6, PROVNARR+8, PROVNARR+10
^TMP("BLR SNOMED GET"	GETSDIAG+13!, ALLTESTS+17!
^TMP("BLRDIAG"	NEWLIST+3, PROVNARR+2
^XTMP("BLRSGNSY"	XTMPRPT+3, XTMPRPT+10, XTMPRPT+12, XTMPORPT+3, XTMPORPT+10, XTMPORPT+12, XTMPORPT+14

Name	Line Occurrences
$$GETSDIAG	DEBUG+10
NEWLIST	LISTMSEL+5
STORDIAG	GETSDIAG+11, ALLTESTS+15
XTMPORPI	XTMPORPT+7
XTMPORPL	XTMPORPT+14
XTMPRPTI	XTMPRPT+7
XTMPRPTL	XTMPRPT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAILOUT	GETSDIAG~, GETSDIAG+1, GETSDIAG+7, ALLTESTS+3, LISTMSEL+2, LISTMSEL+3, LISTMSEL+7, NEWLIST+5, NEWLIST+6, NEWLIST+22* , NEWLIST+25
>> BLRVERN	XTMPMENU+3, XTMPRPTI+1, XTMPORPI+1*
>> BLRVERN2	XTMPMENU+4*
>> CNT	PROVNARR+5, PROVNARR+16, PROVNARR+17, XTMPRPTI+14, XTMPRPTL+8, XTMPORPI+17, XTMPORPL+8
>> DATETIME	XTMPRPT+10, XTMPRPT+12, XTMPRPTI+16, XTMPRPTL+3, XTMPORPT+11, XTMPORPT+12, XTMPORPT+14, XTMPORPI+19*, XTMPORPL+3
DESCPROB	STORDIAG+1~, STORDIAG+4, STORDIAG+8, STORDIAG+16
DFN	GETSDIAG~, GETSDIAG+1, GETSDIAG+3, GETSDIAG+5, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+5, ALLTESTS+7, ALLTESTS+15 , STORDIAG~, DEBUG+3*, DEBUG+10
>> DILOCKTM	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> DIR("A"	NEWLIST+10, NEWLIST+19, RELCINFO+7*
>> DIR("B"	NEWLIST+11*
>> DIR("T"	NEWLIST+12, NEWLIST+20, RELCINFO+8*
>> DIR(0	NEWLIST+9, NEWLIST+18, RELCINFO+6*
>> DIRUT	NEWLIST+14, NEWLIST+27
>> DISYS	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DT	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DTIME	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
DUZ	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
ERRS	STORDIAG+13!, STORDIAG+21, STORDIAG+27!, STORDIAG+34!, STORDIAG+38, STORDIAG+39!, STORDIAG+47
>> F60DESC	PROVNARR+12*, PROVNARR+18
FDA	STORDIAG+13!, STORDIAG+27!, STORDIAG+39!
FDA(	STORDIAG+16, STORDIAG+17, STORDIAG+18, STORDIAG+35, STORDIAG+40*
>> HDRONE	XTMPRPTI+7, XTMPRPTL+1, XTMPORPI+7, XTMPORPL+1
>> HEADER(1	XTMPRPTI+3, XTMPORPI+3
>> HEADER(2	XTMPRPTI+4, XTMPORPI+4
>> HEADER(3	XTMPRPTI+9, XTMPORPI+9
>> HEADER(4	XTMPRPTI+10, XTMPRPTI+11, XTMPORPI+10*
>> HEADER(5	XTMPORPI+11, XTMPORPI+12, XTMPORPI+13, XTMPORPI+14
>> HRCN	GETSDIAG+1, ALLTESTS+1, DEBUG+5*
>> ICD	PROVNARR+24*, PROVNARR+25
ICDCODE	STORDIAG+1~, STORDIAG+5, STORDIAG+25, STORDIAG+30, STORDIAG+31, STORDIAG+35, GETVALUE+4, GETVALUE+5
>> ICDDESC	GETVALUE+4*, GETVALUE+5
>> ICDIEN	STORDIAG+31, STORDIAG+32, STORDIAG+38, STORDIAG+40, STORDIAG+49
>> ICDPROB	GETVALUE+1*, GETVALUE+3
ICDSTR	STORDIAG+1~, GETVALUE+3*, GETVALUE+4
IENS	STORDIAG+1~, STORDIAG+13!, STORDIAG+14, STORDIAG+16, STORDIAG+17, STORDIAG+18, STORDIAG+28, STORDIAG+35, STORDIAG+40, PROVNARR+11* , PROVNARR+12, PROVNARR+13, PROVNARR+14, PROVNARR+24
IO	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOBS	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOF	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOM	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1, XTMPORPI+9
ION	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOS	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOSL	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
IOST	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOT	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> IOXY	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> LINES	XTMPRPTI+13, XTMPRPTL+1, XTMPRPTL+7, XTMPORPI+16, XTMPORPL+1, XTMPORPL+7
>> LRDFN	GETSDIAG+3, ALLTESTS+5
LRODT	GETSDIAG~, GETSDIAG+1, GETSDIAG+5, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+7, ALLTESTS+13, ALLTESTS+15, STORDIAG~ , STORDIAG+14, STORDIAG+28, STORDIAG+49, STORDIAG+51, NEWLIST+30, PROVNARR+5, PROVNARR+6, PROVNARR+8, PROVNARR+10, PROVNARR+11 , DEBUG+7*, DEBUG+10
LRORD	GETSDIAG~, GETSDIAG+1, GETSDIAG+11, ALLTESTS~, ALLTESTS+1, ALLTESTS+13, ALLTESTS+15, STORDIAG~, DEBUG+6*, DEBUG+10
>> LROTST	PROVNARR+9, PROVNARR+10, PROVNARR+11
>> LRSNOMED	PROVNARR+14*, PROVNARR+15, PROVNARR+22
LRSP	GETSDIAG~, GETSDIAG+1, GETSDIAG+11, ALLTESTS+12, ALLTESTS+13, ALLTESTS+15, STORDIAG~, STORDIAG+14, STORDIAG+28, STORDIAG+49 , STORDIAG+51, PROVNARR+7, PROVNARR+8, PROVNARR+10, PROVNARR+11, DEBUG+8*, DEBUG+10
LRSPTST	ALLTESTS+14, ALLTESTS+15, STORDIAG~, STORDIAG+14, STORDIAG+28, STORDIAG+49, STORDIAG+51
LRTST	GETSDIAG~, GETSDIAG+1, GETSDIAG+11, DEBUG+9*, DEBUG+10
LRTSTF60	STORDIAG+1~
>> MAXLINES	XTMPRPTI+13, XTMPRPTL+1, XTMPORPI+16, XTMPORPL+1
>> MSG	XTMPRPT+11, XTMPRPT+12, XTMPRPTL+4, XTMPRPTL+5, XTMPORPT+13, XTMPORPT+14, XTMPORPL+4, XTMPORPL+5
ONETEST	NEWLIST+1~, NEWLIST+3*, NEWLIST+19
>> ORDERN	PROVNARR+2*, PROVNARR+3, PROVNARR+6, PROVNARR+8
>> ORDERNUM	XTMPORPT+9, XTMPORPT+10, XTMPORPT+12, XTMPORPL+3
>> PG	XTMPRPTI+14, XTMPRPTL+1, XTMPORPI+17, XTMPORPL+1
>> PNM	GETSDIAG+1, ALLTESTS+1, DEBUG+4*
PROBLIEN	GETVALUE~, GETVALUE+1
PROBSTR	GETSDIAG+5, GETSDIAG+7, GETSDIAG+11, ALLTESTS+7, ALLTESTS+8, ALLTESTS+15, STORDIAG~, STORDIAG+3, STORDIAG+4, STORDIAG+5
>> PROVNARR	PROVNARR+13*, PROVNARR+15, PROVNARR+20
>> QFLG	XTMPRPT+10, XTMPRPT+12, XTMPRPT+14, XTMPRPTI+15, XTMPRPTL+1, XTMPORPT+10, XTMPORPT+12, XTMPORPT+14, XTMPORPT+16, XTMPORPI+18 , XTMPORPL+1
RELCINFO	GETSDIAG+9, GETSDIAG+11, ALLTESTS+10, ALLTESTS+15, STORDIAG~, STORDIAG+18, RELCINFO+3, RELCINFO+11, RELCINFO+13
SNOMED	STORDIAG+1~, STORDIAG+3*, STORDIAG+17, LISTMSEL+1!
SNOMED(	LISTMSEL+7
U	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> WHICHONE	LISTMSEL+2*, LISTMSEL+3, LISTMSEL+5, LISTMSEL+7
>> X	RELCINFO+11, DEBUG+10*, XTMPMENU+1
>> XPARSYS	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> XQXFLG	GETSDIAG+1, ALLTESTS+1, RELCINFO+1, PROVNARR+1, DEBUG+1, XTMPMENU+1, XTMPRPT+1, XTMPORPT+1
>> Y	NEWLIST+5, NEWLIST+6, NEWLIST+14, NEWLIST+22, NEWLIST+23, NEWLIST+27

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSGNSY

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items