Routine: BLRSGNSU

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
IHS Changes To Lab	5	(EEP,HEADERDT,PRESSKEY)^BLRGMENU ERRMSG^BLRSGNS3 GETRID^BLRSGNSP ($$LISTMSEL,PROVNARR)^BLRSGNSY ENTRYAUD^BLRUTIL
VA Fileman	4	$$FIND1^DIC UPDATE^DIE $$GET1^DIQ ^DIR
Kernel	3	HOME^%ZIS $$DT^XLFDT $$CJ^XLFSTR
IHS Standard Terminology	1	($$CONC,$$SEARCH)^BSTSAPI
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
IHS Changes To Lab	4	BLRDIAG BLRSGNS2 BLRSGNSD BLRSGNSY
IHS Laboratory Point of Care	1	BLRPOC3

Package

Total

Caller Graph

IHS Changes To Lab

BLRDIAG BLRSGNS2 BLRSGNSD BLRSGNSY

IHS Laboratory Point of Care

BLRPOC3

Entry Points

Name	Comments	DBIA/ICR reference
ADDTORDN(LRODT,LRSP,LRTST)	; EP - Adding a test to an order? ; NEW (BAILOUT,DFN,DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,LRORD,LRODT,LRSP,LRTST,PNM,HRCN,U,XPARSYS,XQXFLG)
CHKORDAC(LRODT,ORDIEN,TST)	; EP - Adding a test?
ACCESST(LRODT,LRSP,ORDTEST)	; EP - Determine the first test on an order with Accession data
CHKITOUT(DFN,LRODT)	; EP - User MUST select a diagnosis from list
CHKPLIST(DFN,LRODT)	; EP - Check Problem List.
TEXTPOVI(DFN,LRODT)	; EP - No Entries in PROBLEM file; use Text & BSTS Database
EEP	; Ersatz EP
GETDIAG(LRODT)	; EP - Get a diagnosis.
ADDTLRAS(LRODT,LRSP,LRTST)	; EP - Adding a test to an accession?
ADDICD9	; EP - Adds ICD9 codes to VARS array
GETSNOPN(DFN,LRODT)	; EP - SNOMED Selections

External References

Name	Field # of Occurrence
HOME^%ZIS	ADDTORDN+4
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	ADDTORDN+75
PRESSKEY^BLRGMENU	ADDTORDN+82, ADDTORDN+87, ADDTORDN+114, ADDTORDN+120, GETDIAG+18
ERRMSG^BLRSGNS3	ADDTLRAS+32, ADDTLRAS+45, ADDTORDN+116
GETRID^BLRSGNSP	GETDIAG+38
$$LISTMSEL^BLRSGNSY	GETSNOPN+30, TEXTPOVI+12
PROVNARR^BLRSGNSY	GETDIAG+8
ENTRYAUD^BLRUTIL	CHKORDAC+1, ADDTLRAS+3, ADDTORDN+6
$$CONC^BSTSAPI	CHKPLIST+13, CHKPLIST+14, GETSNOPN+13, GETSNOPN+14
$$SEARCH^BSTSAPI	GETDIAG+34
$$FIND1^DIC	ADDICD9+5
UPDATE^DIE	ADDTLRAS+30, ADDTLRAS+37, ADDTLRAS+42, ADDTORDN+110
$$GET1^DIQ	ADDTLRAS+10, ADDTLRAS+11, ADDTLRAS+12, ADDTLRAS+13, ACCESST+6, ACCESST+8, ADDTORDN+7, ADDTORDN+19, ADDTORDN+20, ADDTORDN+21 , ADDTORDN+35, ADDTORDN+70, ADDTORDN+98, ADDTORDN+99, ADDTORDN+100, ADDTORDN+118, CHKPLIST+5, CHKPLIST+8, GETSNOPN+5, GETSNOPN+8 , ADDICD9+6
^DIR	ADDTORDN+77, GETDIAG+13, GETDIAG+27
^XBFMK	ADDTORDN+46, GETDIAG+9, GETDIAG+21
$$DT^XLFDT	ADDICD9+8
$$CJ^XLFSTR	ADDTORDN+73

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"No/Invalid/Quit Entry." Line Location: ADDTORDN+81
Function Call: WRITE	Prompt: !!,?4,"'None of the Above' Selected. Terminology Server will be called." Line Location: ADDTORDN+86
Function Call: WRITE	Prompt: !!,?4,"No/Invalid/Quit Entry." Line Location: ADDTORDN+92
Function Call: WRITE	Prompt: !!,?4,"Error trying to add data. See MailMan message." Line Location: ADDTORDN+113
Function Call: WRITE	Prompt: !!,?4,"SNOMED ",ORIGSN," data added to test "_ADDTESTN_" ["_LRTST_"]." Line Location: ADDTORDN+119
Function Call: WRITE	Prompt: !!,?4,$TR($J("",67)," ","*"),! Line Location: TEXTPOVI+4
Function Call: WRITE	Prompt: ?4," Patient has no entries in the PROBLEM File with SNOMED codes. ",! Line Location: TEXTPOVI+5
Function Call: WRITE	Prompt: ?4,$TR($J("",67)," ","*"),!! Line Location: TEXTPOVI+6
Function Call: WRITE	Prompt: !! Line Location: GETDIAG+7
Function Call: WRITE	Prompt: !!,?4,"Invalid. Must Enter a Clinical Indication.",! Line Location: GETDIAG+17
Function Call: WRITE	Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database. Try Again." Line Location: GETDIAG+36
Routine Call	%ZIS Line Location: ADDTORDN+4
Routine Call	DIC Line Location: ADDICD9+5
Routine Call	DIR Line Location: ADDTORDN+77 GETDIAG+13 GETDIAG+27
Routine Call	DIE Line Location: ADDTLRAS+30 ADDTLRAS+37 ADDTLRAS+42 ADDTORDN+110

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ
69.05	GET1^DIQ
^ICDS - [#80.4]	FIND1^DIC, GET1^DIQ
^AUPNPROB - [#9000011]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB("AC"	CHKPLIST+4, GETSNOPN+4
^LRO(69 - [#69]	ADDTLRAS+18, ACCESST+4, ADDTORDN+13, ADDTORDN+15, ADDTORDN+17, ADDTORDN+104
^TMP("BLR SNOMED GET"	GETSNOPN+29, TEXTPOVI+11, GETDIAG+43*
^TMP("BLRDIAG"	GETDIAG+3, GETDIAG+38

Name	Line Occurrences
$$ACCESST	CHKORDAC+5, ADDTLRAS+5
$$ADDTLRAS	CHKORDAC+3
$$ADDTORDN	CHKORDAC+7
$$CHKPLIST	CHKITOUT+1
$$GETSNOPN	CHKITOUT+5
$$TEXTPOVI	CHKITOUT+1
ADDICD9	GETDIAG+35
GETDIAG	TEXTPOVI+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDTESTN	ADDTORDN+118*, ADDTORDN+119
>> ADDTSTPN	ADDTORDN+70*, ADDTORDN+72
APISTR	CHKPLIST+1~, CHKPLIST+13, CHKPLIST+14, CHKPLIST+15, GETSNOPN+1~, GETSNOPN+13, GETSNOPN+14, GETSNOPN+15, GETSNOPN+20, GETSNOPN+21
>> BAILOUT	ADDTLRAS+1, ADDTORDN+2, TEXTPOVI+9, GETDIAG+5, GETDIAG+6, GETDIAG+28, GETDIAG+38, GETDIAG+39*
>> CNT	ADDTORDN+12, ADDTORDN+25, ADDTORDN+26, ADDTORDN+27, ADDTORDN+29, ADDTORDN+38, ADDTORDN+42, ADDTORDN+43, ADDTORDN+44, ADDTORDN+55 , ADDTORDN+56, ADDTORDN+57, ADDTORDN+58, GETSNOPN+3, GETSNOPN+23*, GETSNOPN+24, GETSNOPN+25, GETSNOPN+26, GETSNOPN+29
>> CONCID	CHKPLIST+5, CHKPLIST+6, CHKPLIST+11, CHKPLIST+13, CHKPLIST+14, GETSNOPN+5, GETSNOPN+6, GETSNOPN+11, GETSNOPN+13, GETSNOPN+14
>> DEBUG	CHKITOUT+3
DFN	ADDTLRAS+1, ADDTORDN+2, CHKITOUT~, CHKITOUT+1, CHKITOUT+3, CHKITOUT+5, CHKPLIST~, CHKPLIST+4, GETSNOPN~, GETSNOPN+4 , TEXTPOVI~, TEXTPOVI+1, TEXTPOVI+3
>> DILOCKTM	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> DIR("A"	ADDTORDN+68, GETDIAG+11, GETDIAG+24*
>> DIR("B"	GETDIAG+25*
>> DIR("L"	ADDTORDN+52, ADDTORDN+53, ADDTORDN+57, ADDTORDN+60, ADDTORDN+65, ADDTORDN+67
>> DIR("T"	GETDIAG+12, GETDIAG+26
>> DIR(0	ADDTORDN+47, GETDIAG+10, GETDIAG+22*
>> DIRZERO	ADDTORDN+11, ADDTORDN+27, ADDTORDN+43*, ADDTORDN+47
>> DIRZERO(	ADDTORDN+38*, ADDTORDN+56, ADDTORDN+57
>> DISYS	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
DT	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
DTIME	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> DUOUT	GETDIAG+20
DUZ	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
ENTERDT	GETSNOPN+1~
ERRS	ADDTLRAS+32, ADDTLRAS+34!, ADDTLRAS+39, ADDTLRAS+40!, ADDTLRAS+45, ADDTORDN+112
>> F60DESC	ADDTORDN+19*, ADDTORDN+30
FDA	ADDTLRAS+34!, ADDTLRAS+40!
FDA(	ADDTLRAS+26, ADDTLRAS+27, ADDTLRAS+35, ADDTLRAS+41, ADDTORDN+107, ADDTORDN+108, ADDTORDN+109*
>> FOUNDIT	ADDTORDN+12, ADDTORDN+24, ADDTORDN+40
>> HEADER(1	ADDTORDN+71*
>> HEADER(2	ADDTORDN+72*
>> HEADER(3	ADDTORDN+73*
>> HRCN	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
ICD10DT	ADDICD9+3~, ADDICD9+6, ADDICD9+7, ADDICD9+16, ADDICD9+17
ICD10PTR	ADDICD9+3~, ADDICD9+5*, ADDICD9+6
ICDCODE	ADDTORDN+35, ADDTORDN+36, GETSNOPN+1~, GETSNOPN+15, GETSNOPN+26
ICDDESC	GETSNOPN+1~
ICDPROB	GETSNOPN+1~
ICDSTR	GETSNOPN+1~
IEN	GETSNOPN+1~
IENS	ADDTLRAS+8, ADDTLRAS+10, ADDTLRAS+11, ADDTLRAS+12, ADDTLRAS+13, ADDTLRAS+19, ADDTLRAS+26, ADDTLRAS+27, ADDTLRAS+35, ADDTLRAS+41 , ACCESST+1~, ACCESST+5, ACCESST+6, ACCESST+8, ADDTORDN+18, ADDTORDN+19, ADDTORDN+20, ADDTORDN+21, ADDTORDN+35, ADDTORDN+96* , ADDTORDN+98, ADDTORDN+99, ADDTORDN+100, ADDTORDN+105*, ADDTORDN+107, ADDTORDN+108, ADDTORDN+109
IN	GETSNOPN+1~, GETDIAG+31, GETDIAG+32, GETDIAG+33*, GETDIAG+34
IO	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOBS	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOF	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOM	ADDTLRAS+1, ADDTORDN+73, CHKITOUT+3, TEXTPOVI+1
ION	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOS	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOSL	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
IOST	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOT	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> IOXY	ADDTLRAS+1, CHKITOUT+3, TEXTPOVI+1
>> LASTCNT	ADDTORDN+44*, ADDTORDN+63, ADDTORDN+85
LASTMODD	GETSNOPN+1~
>> LR69ODT	ADDTORDN+12, ADDTORDN+13, ADDTORDN+15, ADDTORDN+17, ADDTORDN+18, ADDTORDN+26
>> LR69SP	ADDTORDN+14, ADDTORDN+15, ADDTORDN+17, ADDTORDN+18, ADDTORDN+26
LRASTEST	ADDTLRAS+5, ADDTLRAS+6, ADDTLRAS+8, ACCESST+1~, ACCESST+3, ACCESST+4, ACCESST+8*, ACCESST+10
>> LRNEWTST	ADDTLRAS+18, ADDTLRAS+19, ADDTORDN+104, ADDTORDN+105
LRODT	CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7, ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+8, ADDTLRAS+18, ADDTLRAS+19 , ACCESST~, ACCESST+4, ACCESST+5, ADDTORDN~, ADDTORDN+2, ADDTORDN+7, ADDTORDN+104, ADDTORDN+105, CHKITOUT~, CHKITOUT+1 , CHKITOUT+3, CHKITOUT+5, CHKPLIST~, CHKPLIST+11, GETSNOPN~, GETSNOPN+11, TEXTPOVI~, TEXTPOVI+1, TEXTPOVI+8, GETDIAG~ , GETDIAG+32
>> LRORD	ADDTLRAS+1, ADDTORDN+2
>> LROTST	ADDTORDN+16, ADDTORDN+17, ADDTORDN+18, ADDTORDN+26
>> LRSNOMED	ADDTORDN+21*, ADDTORDN+22, ADDTORDN+31
LRSP	ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+8, ADDTLRAS+18, ADDTLRAS+19, ACCESST~, ACCESST+4, ACCESST+5, ADDTORDN~ , ADDTORDN+2, ADDTORDN+7, ADDTORDN+104, ADDTORDN+105
LRTST	ADDTLRAS~, ADDTLRAS+1, ADDTLRAS+5, ADDTLRAS+18, ADDTORDN~, ADDTORDN+2, ADDTORDN+70, ADDTORDN+72, ADDTORDN+104, ADDTORDN+118 , ADDTORDN+119
>> MENUCNT	ADDTORDN+55, ADDTORDN+58, ADDTORDN+59, ADDTORDN+60, ADDTORDN+61, ADDTORDN+65
ONETEST	GETDIAG+1~, GETDIAG+3*, GETDIAG+24
ONLYONE	CHKPLIST+1~
>> ORDERN	ADDTORDN+7*, ADDTORDN+9, ADDTORDN+13, ADDTORDN+15, ADDTORDN+72
ORDIEN	CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7
ORDTEST	ACCESST~, ACCESST+1~, ACCESST+3, ACCESST+4, ACCESST+5, ACCESST+8
ORDTEST(	ADDTORDN+26*, ADDTORDN+80, ADDTORDN+96
>> ORIGICDI	ADDTLRAS+13*, ADDTLRAS+39, ADDTLRAS+41
>> ORIGICDP	ADDTLRAS+12, ADDTLRAS+35, ADDTLRAS+37, ADDTORDN+100, ADDTORDN+109
>> ORIGPN	ADDTLRAS+10, ADDTLRAS+16, ADDTLRAS+26, ADDTORDN+98, ADDTORDN+102, ADDTORDN+107
>> ORIGSN	ADDTLRAS+11, ADDTLRAS+16, ADDTLRAS+27, ADDTORDN+99, ADDTORDN+102, ADDTORDN+108, ADDTORDN+119
OUT	GETSNOPN+3, GETDIAG+30!, GETDIAG+31, GETDIAG+34
>> PNM	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
PROBCNT	CHKPLIST+1~, CHKPLIST+3, CHKPLIST+20, CHKPLIST+22, GETSNOPN+1~
PROBICD	CHKPLIST+1~, CHKPLIST+3, CHKPLIST+15, GETSNOPN+1~
PROBIEN	CHKPLIST+1~, CHKPLIST+3, CHKPLIST+4, CHKPLIST+5, CHKPLIST+8, GETSNOPN+1~, GETSNOPN+3, GETSNOPN+4, GETSNOPN+5, GETSNOPN+8
PROBLEMS	GETSNOPN+1~
>> PROVNARR	ADDTORDN+20*, ADDTORDN+22, ADDTORDN+34
PSTATUS	CHKPLIST+1~, CHKPLIST+8, CHKPLIST+9, GETSNOPN+8, GETSNOPN+9
SNOMED	GETSNOPN+1~, GETSNOPN+20*, GETSNOPN+24
SNOMEDSC	GETSNOPN+1~, GETSNOPN+21*, GETSNOPN+25
STR	ADDTORDN+28!, ADDTORDN+29, ADDTORDN+30, ADDTORDN+31, ADDTORDN+34, ADDTORDN+36, ADDTORDN+38, ADDTORDN+62!, ADDTORDN+63, ADDTORDN+64* , ADDTORDN+65
TODAY	ADDICD9+3~, ADDICD9+8*, ADDICD9+16, ADDICD9+17
TST	CHKORDAC~, CHKORDAC+3, CHKORDAC+5, CHKORDAC+7
U	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
VARS	GETSNOPN+1~
VARS(	GETSNOPN+24, GETSNOPN+25, GETSNOPN+26, ADDICD9+13, ADDICD9+14, ADDICD9+16, ADDICD9+17*
VARS("A"	GETDIAG+42
>> VARSCNT	GETDIAG+42*, GETDIAG+43
VARSDESC	GETSNOPN+1~
WOT	ADDICD9+3~, ADDICD9+12, ADDICD9+13, ADDICD9+14, ADDICD9+16, ADDICD9+17
>> X	GETDIAG+14, GETDIAG+16, GETDIAG+31
>> XPARSYS	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> XQXFLG	ADDTLRAS+1, ADDTORDN+2, CHKITOUT+3, TEXTPOVI+1
>> Y	ADDTORDN+80, ADDTORDN+85, ADDTORDN+96, GETDIAG+5, GETDIAG+6, GETDIAG+14, GETDIAG+19, GETDIAG+28, GETDIAG+29, GETDIAG+34 , GETDIAG+36, GETDIAG+39

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSGNSU

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: