Routine: BLRAG07

Information

BLRAG07 ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <BLRAG07.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Changes To Lab	3	($$CVTDATE,$$PREP,$$TMPGLB,ERR,LEXLKUP)^BLRAGUT (HEADERDT,HEADERPG,LINEWRAP,PRESSKEY)^BLRGMENU ENTRYAUD^BLRUTIL
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBFMK ^XBKVAR
Kernel	2	($$DT,$$FMADD,$$FMTE)^XLFDT $$CJ^XLFSTR
DRG Grouper	1	$$ICDDX^ICDEX
Lexicon Utility	1	$$ICDONE^LEXU

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRAG09D

Entry Points

Name	Comments	DBIA/ICR reference
XTLKUP
AICDLKUP
DESCICD(ICD,BLRVDT)	; EP - DESCRIPTION is now a multiple
CHKHITS
BADSTUFN(MSG)	; EP - Display Message and Quit with ""
FINDER(BLRINP,RES)	; EP - Mimic FIND^DIC call
ORL(BLRY,BLRINP)
DIAGICD(ICD,BLRVDT)	; EP - DIAGNOSIS is now a multiple
ICDCODSY(BLRVDT,ICDCODSY)	; EP - Set the ICDCODSY array
INACTDT(ICD,BLRVDT)	; EP - STATUS EFFECTIVE DATE is part of the STATUS Multiple.
ICDLKUP(BLRY,BLRINP,BLRLEX,BLRVDT,BLRGEN,BLRECOD,BLRVCOD)	;EP - ICD lookup ; rpc: BLR ICD LOOKUP
TESTIT	; EP - Interactively test ICDLKUP call

External References

Name	Field # of Occurrence
$$CVTDATE^BLRAGUT	ICDLKUP+44
$$PREP^BLRAGUT	ORL+18
$$TMPGLB^BLRAGUT	ICDLKUP+40, ORL+13
ERR^BLRAGUT	ICDLKUP+43
LEXLKUP^BLRAGUT	ICDLKUP+48
HEADERDT^BLRGMENU	TESTIT+7, TESTIT+26
HEADERPG^BLRGMENU	TESTIT+51
LINEWRAP^BLRGMENU	TESTIT+54
PRESSKEY^BLRGMENU	TESTIT+59, BADSTUFN+2
ENTRYAUD^BLRUTIL	CHKHITS+2, CHKHITS+16
^DIC	ICDLKUP+61
$$GET1^DIQ	CHKHITS+30, ICDCODSY+8, ICDCODSY+9
^DIR	TESTIT+13, TESTIT+31
$$ICDDX^ICDEX	FINDER+5
$$ICDONE^LEXU	ICDLKUP+52
^XBFMK	TESTIT+9, TESTIT+28
^XBKVAR	ICDLKUP+37, ORL+10
$$DT^XLFDT	ICDLKUP+30, TESTIT+12, TESTIT+17
$$FMADD^XLFDT	DESCICD+6, DIAGICD+6, INACTDT+5
$$FMTE^XLFDT	TESTIT+19
$$CJ^XLFSTR	TESTIT+37, TESTIT+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $J(BLRI,4),?8,$P(STR,"^",4),?19,$P(STR,"^",5) Line Location: TESTIT+53
Function Call: WRITE	Prompt: ! Line Location: TESTIT+55
Function Call: WRITE	Prompt: !!,?4,MSG," Routine Ends." Line Location: BADSTUFN+1
Routine Call	DIC Line Location: ICDLKUP+61
Routine Call	DIR Line Location: TESTIT+13 TESTIT+31

RPC Name	Call Tags
BLR ICD LOOKUP	ICDLKUP
BLR ORDER REASON LKUP	ORL

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls, GET1^DIQ
^ICDS - [#80.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ICDLKUP+37, ORL+10
^DD(80	ICDLKUP+66
^ICD9 - [#80]	CHKHITS+1, CHKHITS+8, DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD+3, DIAGICD+7, DIAGICD+10, DIAGICD+13 , INACTDT+6, INACTDT+11, INACTDT+14
^ICD9("BA"	ICDLKUP+54, ICDLKUP+55, ICDLKUP+72, ICDLKUP+74
^ICDS - [#80.4]	ICDCODSY+7
^ICDS("C"	ICDCODSY+10
^LAB(69.9 - [#69.9]	ORL+16
^ORD(100.03 - [#100.03]	ORL+17, ORL+18, ORL+19
^TMP("BLRAG"	ICDLKUP+39!, ORL+12!, TESTIT+3!
^TMP("ICD9"	ICDLKUP+60!, AICDLKUP+7, AICDLKUP+8
^TMP("XTLKHITS"	ICDLKUP+60!, ICDLKUP+75!, ICDLKUP+80*, ICDLKUP+82!, XTLKUP+1, XTLKUP+2
^UTILITY("AICDHITS"	ICDLKUP+75!

Label References

Name	Line Occurrences
$$BADSTUFN	TESTIT+14, TESTIT+32
$$DESCICD	CHKHITS+28, FINDER+14
$$DIAGICD	CHKHITS+29
$$INACTDT	CHKHITS+19
AICDLKUP	ICDLKUP+68
CHKHITS	ICDLKUP+56, ICDLKUP+65, ICDLKUP+74, AICDLKUP+9, XTLKUP+3
FINDER	ICDLKUP+78
ICDCODSY	ICDLKUP+32
ICDLKUP	TESTIT+35
XTLKUP	ICDLKUP+67, ICDLKUP+81

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AICDRET	ICDLKUP+23~
BLRDEF	ORL+8~, ORL+16*, ORL+17
BLRECOD	ICDLKUP~, ICDLKUP+35, CHKHITS+11, CHKHITS+12, TESTIT+23
BLRGEN	ICDLKUP~, ICDLKUP+34, CHKHITS+21, TESTIT+22
BLRI	ICDLKUP+24~, ICDLKUP+38, ICDLKUP+69, CHKHITS+34, CHKHITS+36, ORL+8~, ORL+11, ORL+17, ORL+20, TESTIT+49 , TESTIT+50*, TESTIT+52, TESTIT+53
BLRIEN	ORL+8~, ORL+19*, ORL+20
BLRINP	ICDLKUP~, ICDLKUP+43, ICDLKUP+48, ICDLKUP+58, ICDLKUP+69, ICDLKUP+71, ICDLKUP+72, ICDLKUP+78, ORL~, ORL+9* , ORL+18, FINDER~, FINDER+5, TESTIT+34*, TESTIT+35, TESTIT+37
BLRJ	ORL+8~, ORL+18*, ORL+19, ORL+20
BLRLEX	ICDLKUP~, ICDLKUP+28, ICDLKUP+46, ICDLKUP+51, ICDLKUP+52, TESTIT+21*
BLRVCOD	ICDLKUP~, ICDLKUP+36, CHKHITS+13, CHKHITS+14, TESTIT+24
BLRVDT	ICDLKUP~, ICDLKUP+30, ICDLKUP+32, ICDLKUP+44, CHKHITS+19, CHKHITS+28, CHKHITS+29, DESCICD~, DESCICD+5, DESCICD+6* , DESCICD+7, DIAGICD~, DIAGICD+5, DIAGICD+6, DIAGICD+7, INACTDT~, INACTDT+1, INACTDT+5, INACTDT+6, INACTDT+9 , ICDCODSY~, ICDCODSY+16, TESTIT+16, TESTIT+17, TESTIT+19, TESTIT+35
BLRY	ICDLKUP~, ICDLKUP+40, ICDLKUP+41, ICDLKUP+83, ICDLKUP+89, CHKHITS, CHKHITS+36, ORL~, ORL+13, ORL+15 , ORL+17, ORL+20, TESTIT+35, TESTIT+38, TESTIT+50, TESTIT+52
>> CNT	TESTIT+45, TESTIT+57
CODE	ICDLKUP+23~, CHKHITS+26~, CHKHITS+27*, CHKHITS+36
CODESYS	ICDLKUP+25~, CHKHITS+26~, CHKHITS+30, CHKHITS+31, CHKHITS+36, ICDCODSY+1~, ICDCODSY+10, ICDCODSY+11
CODESYSA	ICDCODSY+1~, ICDCODSY+9*, ICDCODSY+10
DESC	ICDLKUP+23~, CHKHITS+26~, CHKHITS+29*, CHKHITS+36
DESCDATE	DESCICD+1~, DESCICD+7*, DESCICD+8, DESCICD+10
DESCNUM	DESCICD+1~, DESCICD+10*, DESCICD+11, DESCICD+13
DESCRIP	DESCICD+1~, DESCICD+3, DESCICD+13, DESCICD+15
DIAGDATE	DIAGICD+1~, DIAGICD+7*, DIAGICD+8, DIAGICD+10
DIAGDESC	DIAGICD+1~, DIAGICD+3, DIAGICD+13, DIAGICD+15
DIAGNUM	DIAGICD+1~, DIAGICD+10*, DIAGICD+11, DIAGICD+13
DIC	ICDLKUP+22~, ICDLKUP+58*
DIC(0	ICDLKUP+58*
>> DILOCKTM	TESTIT+1
>> DIR("A"	TESTIT+11, TESTIT+30
>> DIR("B"	TESTIT+12*
>> DIR(0	TESTIT+10, TESTIT+29
>> DIRUT	TESTIT+14, TESTIT+32
>> DISYS	TESTIT+1
DT	TESTIT+1
DTIME	TESTIT+1
DUZ	TESTIT+1
DUZ("AG"	ICDLKUP+57
>> HEADER(1	TESTIT+5*
>> HEADER(2	TESTIT+19*
>> HEADER(3	TESTIT+37*
>> HEADER(4	TESTIT+38*
>> HEADER(5	TESTIT+39*
>> HEADER(6	TESTIT+40*
>> HEADER(7	TESTIT+41, TESTIT+42, TESTIT+43, TESTIT+44
HITS	ICDLKUP+47~, ICDLKUP+48, ICDLKUP+49, ICDLKUP+50, ICDLKUP+51
HITS(	ICDLKUP+50, ICDLKUP+51
I	ICDLKUP+22~, AICDLKUP, AICDLKUP+7, AICDLKUP+8, XTLKUP, XTLKUP+1, XTLKUP+2
ICD	ICDLKUP+22~, ICDLKUP+54, ICDLKUP+55, ICDLKUP+56, ICDLKUP+64, ICDLKUP+73, ICDLKUP+74, AICDLKUP+8, XTLKUP+2, CHKHITS , CHKHITS+1, CHKHITS+8, CHKHITS+19, CHKHITS+28, CHKHITS+29, CHKHITS+30, CHKHITS+36, FINDER+1~, FINDER+13, FINDER+14 , DESCICD~, DESCICD+3, DESCICD+7, DESCICD+10, DESCICD+13, DIAGICD~, DIAGICD+3, DIAGICD+7, DIAGICD+10, DIAGICD+13 , INACTDT~, INACTDT+6, INACTDT+11, INACTDT+14
ICD10ID	CHKHITS+26~
ICDCODSY	ICDLKUP+26~, ICDLKUP+32, ICDCODSY~, ICDCODSY+3!, ICDCODSY+15
ICDCODSY(	CHKHITS+31, ICDCODSY+18*
ICDSTR	FINDER+1~, FINDER+5*, FINDER+6, FINDER+10, FINDER+11, FINDER+12, FINDER+13
IEN	ICDCODSY+1~, ICDCODSY+6, ICDCODSY+7, ICDCODSY+8, ICDCODSY+9, ICDCODSY+11, ICDCODSY+17, ICDCODSY+18
IMPLDATE	CHKHITS+26~, ICDCODSY+1~, ICDCODSY+8, ICDCODSY+11, ICDCODSY+14, ICDCODSY+15*, ICDCODSY+16, ICDCODSY+18
IO	TESTIT+1
>> IOBS	TESTIT+1
IOF	TESTIT+1
IOM	TESTIT+1, TESTIT+37, TESTIT+38
ION	TESTIT+1
>> IOS	TESTIT+1
IOSL	TESTIT+1, TESTIT+46
IOST	TESTIT+1
>> IOT	TESTIT+1
>> IOXY	TESTIT+1
LEX	ICDLKUP+22~
>> LINES	TESTIT+46, TESTIT+51, TESTIT+56
LK	ICDLKUP+70~, ICDLKUP+71, ICDLKUP+72, ICDLKUP+74
LN	ICDLKUP+70~, ICDLKUP+71*, ICDLKUP+72
>> MAXLINES	TESTIT+46*, TESTIT+51
MSG	BADSTUFN~, BADSTUFN+1
NARR	ICDLKUP+23~, CHKHITS+26~, CHKHITS+28*, CHKHITS+36
>> PG	TESTIT+45*, TESTIT+51
>> QFLG	TESTIT+47*, TESTIT+50, TESTIT+51
REC	ICDLKUP+23~, CHKHITS+1*, CHKHITS+11, CHKHITS+12, CHKHITS+13, CHKHITS+14, CHKHITS+21, CHKHITS+27
RES	ICDLKUP+22~, ICDLKUP+78, FINDER~, FINDER+3!
RES("DILIST"	ICDLKUP+79, ICDLKUP+80, FINDER+8, FINDER+9, FINDER+10, FINDER+11, FINDER+12, FINDER+14
STATUS	INACTDT+3~, INACTDT+14*, INACTDT+15
>> STR	TESTIT+52*, TESTIT+53, TESTIT+54
STSDATE	INACTDT+3~, INACTDT+6*, INACTDT+7, INACTDT+9, INACTDT+11
STSNUM	INACTDT+3~, INACTDT+11*, INACTDT+12, INACTDT+14
TMP	ICDCODSY+1~
TMP(	ICDCODSY+11*, ICDCODSY+15, ICDCODSY+18
U	CHKHITS+21, CHKHITS+27, CHKHITS+36, ORL+17, ORL+20, TESTIT+1
X	ICDLKUP+22~, ICDLKUP+37, ICDLKUP+52, ICDLKUP+53, ICDLKUP+54, ICDLKUP+55, ICDLKUP+58, ORL+10, TESTIT+34
>> XPARSYS	TESTIT+1
>> XQXFLG	TESTIT+1
XTLKSAY	ICDLKUP+23~, ICDLKUP+58*
Y	ICDLKUP+22~, ICDLKUP+63, ICDLKUP+64, TESTIT+16

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG07

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: