Routine: BLRF612A

Information

BLRF612A ; IHS/OIT/MKK - IHS Lab: File 61.2 Add from DTS Server ; 22-Oct-2013 09:22 ; MKK

Source Information

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC UPDATE^DIE EN^DIQ ^DIR
IHS Changes To Lab	2	(EEP,PRESSKEY)^BLRGMENU EN^BLRSM
IHS VA Utilities	2	^XBCLS ^XBFMK
IHS Standard Terminology	1	$$SEARCH^BSTSAPI
Kernel	1	$$LJ^XLFSTR

Entry Points

Name	Comments	DBIA/ICR reference
HDEPTRPT	; EP - HEALTH DEPT REPORT
ERRORS	; EP - ERRS Array has data. Display it.
TESTIT	; EP
CGTRIBEF	; EP - CLASS/GROUP-TRIBE/FAMILY
PEP	; EP
ALREADY(SNOMED,SNOMEDESC)	; EP - Is the selected entry already in 61.2?
EEP	; Ersatz EP
IDENTIFR	; EP - IDENTIFIER
GRAMSTAN	; EP - GRAM STAIN
ABBREV	; EP - ABBREVIATION
DISPLAY(IEN)	; EP - Display the entry in 61.2
SUSEDITT	; EP - SUSCEPTIBILITY EDIT TEMPLATE
NOSELECT(WOT)	; EP - Selection not done
REST61P2	; EP - Enter rest of data needed to update 61.2
EP	; EP
ADDIT	; EP - Add an Entry

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	ADDIT+13, ADDIT+26, ALREADY+6, DISPLAY+4, NOSELECT+3, ERRORS+7
EN^BLRSM	ADDIT+23
$$SEARCH^BSTSAPI	ADDIT+17
$$FIND1^DIC	REST61P2+28, ALREADY+3, TESTIT+25
UPDATE^DIE	REST61P2+24, TESTIT+22
EN^DIQ	DISPLAY+3
^DIR	ADDIT+10, CGTRIBEF+7, GRAMSTAN+14, IDENTIFR+19, ABBREV+6, SUSEDITT+42, HDEPTRPT+6
^XBCLS	ADDIT+3, CGTRIBEF+1, GRAMSTAN+1, IDENTIFR+1, ABBREV+1, SUSEDITT+3, HDEPTRPT+1
^XBFMK	ADDIT+7, CGTRIBEF+3, GRAMSTAN+4, IDENTIFR+4, ABBREV+3, SUSEDITT+27, HDEPTRPT+3
$$LJ^XLFSTR	SUSEDITT+15, SUSEDITT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ADDIT+6
Function Call: WRITE	Prompt: !,?4,"Quit or No/Invalid Input. Routine Ends." Line Location: ADDIT+12
Function Call: WRITE	Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database. Try Again." Line Location: ADDIT+18
Function Call: WRITE	Prompt: !,?4,"No Entry Selected. Routine Ends." Line Location: ADDIT+25
Function Call: WRITE	Prompt: !,?4,"SNOMED ",SNOMED," already exists in ETIOLOGY FIELD (#61.2) File. Routine Ends." Line Location: ALREADY+5
Function Call: WRITE	Prompt: !,?4,WOT," not selected." Line Location: NOSELECT+1
Function Call: WRITE	Prompt: !,?9,"None will be added to ETIOLOGY FIELD (#61.2) dictionary." Line Location: NOSELECT+2
Function Call: WRITE	Prompt: !!,"ERRORS:",! Line Location: ERRORS+1
Function Call: WRITE	Prompt: ?4,J,"=",X,! Line Location: ERRORS+4
Function Call: WRITE	Prompt: ?9,J,"=",@J,! Line Location: ERRORS+5
Routine Call	DIE Line Location: REST61P2+24 TESTIT+22
Routine Call	DIC Line Location: REST61P2+28 ALREADY+3 TESTIT+25
Routine Call	DIR Line Location: ADDIT+10 CGTRIBEF+7 GRAMSTAN+14 IDENTIFR+19 ABBREV+6 SUSEDITT+42 HDEPTRPT+6

FileNo	Call Tags
^LAB(61.2 - [#61.2]	Classic Fileman Calls, FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIE - [#.402]	SUSEDITT+7, SUSEDITT+8

Label References

Name	Line Occurrences
$$ALREADY	REST61P2+5
ABBREV	REST61P2+10
CGTRIBEF	REST61P2+7
DISPLAY	REST61P2+28, TESTIT+25
ERRORS	REST61P2+26, TESTIT+23
GRAMSTAN	REST61P2+8
HDEPTRPT	REST61P2+12
IDENTIFR	REST61P2+9
NOSELECT	CGTRIBEF+8, GRAMSTAN+16, IDENTIFR+21, ABBREV+7, SUSEDITT+44, HDEPTRPT+7
REST61P2	ADDIT+28
SUSEDITT	REST61P2+11

Name	Field # of Occurrence
^(0	SUSEDITT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	REST61P2+19, ABBREV+2, ABBREV+9, TESTIT+2~, TESTIT+8*, TESTIT+17
ALREADY	ALREADY+1~, ALREADY+3*, ALREADY+4, ALREADY+7
ARRAY	SUSEDITT+1~
ARRAY(	SUSEDITT+8*, SUSEDITT+12
>> BAIL	ADDIT+4, ADDIT+5, ADDIT+14, ADDIT+20
>> BELOW	SUSEDITT+31, SUSEDITT+34, SUSEDITT+35, SUSEDITT+36
CGTRIBEF	REST61P2+22, CGTRIBEF+2, CGTRIBEF+10, TESTIT+2~, TESTIT+11*, TESTIT+20
CNT	SUSEDITT+1~, SUSEDITT+11, SUSEDITT+13, SUSEDITT+14, SUSEDITT+15, SUSEDITT+16, SUSEDITT+19, SUSEDITT+20, SUSEDITT+21, SUSEDITT+22 , SUSEDITT+24, SUSEDITT+25, SUSEDITT+32, SUSEDITT+33, SUSEDITT+34, SUSEDITT+35, SUSEDITT+36
>> DA	DISPLAY+1*
>> DIC	DISPLAY+2*
>> DILOCKTM	ADDIT+1
>> DIR("?"	CGTRIBEF+6, IDENTIFR+18, SUSEDITT+40*
>> DIR("??"	SUSEDITT+41*
>> DIR("A"	ADDIT+9, CGTRIBEF+5, GRAMSTAN+13, IDENTIFR+17, ABBREV+5, SUSEDITT+39, HDEPTRPT+5*
>> DIR("L"	GRAMSTAN+6, GRAMSTAN+7, GRAMSTAN+8, GRAMSTAN+9, GRAMSTAN+10, GRAMSTAN+11, GRAMSTAN+12, IDENTIFR+6, IDENTIFR+7, IDENTIFR+8 , IDENTIFR+9, IDENTIFR+10, IDENTIFR+11, IDENTIFR+12, IDENTIFR+13, IDENTIFR+14, IDENTIFR+15, IDENTIFR+16, SUSEDITT+29, SUSEDITT+30 , SUSEDITT+34, SUSEDITT+35, SUSEDITT+38*
>> DIR(0	ADDIT+8, CGTRIBEF+4, GRAMSTAN+5, IDENTIFR+5, ABBREV+4, SUSEDITT+28, HDEPTRPT+4*
>> DIRUT	ADDIT+11, CGTRIBEF+8, GRAMSTAN+16, IDENTIFR+21, ABBREV+7, SUSEDITT+44, HDEPTRPT+7
DIRZERO	SUSEDITT+1~, SUSEDITT+10, SUSEDITT+14, SUSEDITT+20, SUSEDITT+25, SUSEDITT+28
DIRZERO(	SUSEDITT+15, SUSEDITT+21, SUSEDITT+33, SUSEDITT+35
>> DISYS	ADDIT+1
DT	ADDIT+1
DTIME	ADDIT+1
DUZ	ADDIT+1
ERRS	REST61P2+14!, REST61P2+26, TESTIT+1~, TESTIT+23
FDA	REST61P2+14!, TESTIT+1~
FDA(	REST61P2+15, REST61P2+16, REST61P2+17, REST61P2+18, REST61P2+19, REST61P2+20, REST61P2+21, REST61P2+22, TESTIT+13, TESTIT+14 , TESTIT+15, TESTIT+16, TESTIT+17, TESTIT+18, TESTIT+19, TESTIT+20
>> FOUNDSUM	ADDIT+4, ADDIT+5, ADDIT+17, ADDIT+18
GRAMSTAN	REST61P2+17, GRAMSTAN+2, GRAMSTAN+18, TESTIT+2~, TESTIT+6*, TESTIT+15
HDEPTRPT	REST61P2+21, HDEPTRPT+2, HDEPTRPT+9, TESTIT+2~, TESTIT+10*, TESTIT+19
IDENTIFR	REST61P2+18, IDENTIFR+2, IDENTIFR+23, TESTIT+2~, TESTIT+7*, TESTIT+16
IEN	SUSEDITT+1~, SUSEDITT+6, SUSEDITT+7, SUSEDITT+8, DISPLAY~, DISPLAY+1
>> IN	ADDIT+16*, ADDIT+17
INDEX	SUSEDITT+1~
INDEX(	SUSEDITT+16, SUSEDITT+22, SUSEDITT+46
IO	ADDIT+1
>> IOBS	ADDIT+1
IOF	ADDIT+1
IOM	ADDIT+1
ION	ADDIT+1
>> IOS	ADDIT+1
IOSL	ADDIT+1
IOST	ADDIT+1
>> IOT	ADDIT+1
>> IOXY	ADDIT+1
>> J	ERRORS+2, ERRORS+3, ERRORS+4, ERRORS+5
>> OUT	ADDIT+16*, ADDIT+17
SNOMED	REST61P2+2, REST61P2+5, REST61P2+16, ALREADY~, ALREADY+5, TESTIT+2~, TESTIT+5, TESTIT+14
SNOMED(	REST61P2+1
SNOMEDESC	REST61P2+5, ALREADY~
SNOMEDSC	REST61P2+3, REST61P2+15, REST61P2+28, ALREADY+3, TESTIT+2~, TESTIT+4, TESTIT+13, TESTIT+25
>> STR	REST61P2+1*, REST61P2+2, REST61P2+3
SUSEDITT	REST61P2+20, SUSEDITT+4, SUSEDITT+46, TESTIT+2~, TESTIT+9*, TESTIT+18
TMPLNAME	SUSEDITT+1~, SUSEDITT+11, SUSEDITT+12, SUSEDITT+15, SUSEDITT+16
U	ADDIT+1
>> WHICHONE	ADDIT+22*, ADDIT+24, REST61P2+1
WOT	NOSELECT~, NOSELECT+1
>> X	ADDIT+16, CGTRIBEF+10, ABBREV+9, HDEPTRPT+9, ERRORS+3*, ERRORS+4
>> XPARSYS	ADDIT+1
>> XQXFLG	ADDIT+1
>> Y	GRAMSTAN+16, GRAMSTAN+18, IDENTIFR+21, IDENTIFR+23, SUSEDITT+46

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRF612A

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: