Routine: BKMIXX4

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
IHS HIV Management System	1	$$PROMPT2^BKMIXX4
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package

Total

Call Graph

VA Fileman

^%DT ^DIR

IHS HIV Management System

$$PROMPT2^BKMIXX4

Kernel

($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
IHS HIV Management System	14	BKMILK BKMIXX4 BKMQQCRA BKMVA1 BKMVA2 BKMVA4 BKMVA41 BKMVA5 BKMVA51 BKMVA6 BKMVF1 BKMVF5 BKMVPG BKMVQCRA

Package

Total

Caller Graph

IHS HIV Management System

BKMILK BKMIXX4 BKMQQCRA BKMVA1 BKMVA2 BKMVA4 BKMVA41 BKMVA5
BKMVA51 BKMVA6 BKMVF1 BKMVF5 BKMVPG BKMVQCRA

Entry Points

Name	Comments	DBIA/ICR reference
PROMPT2(PAR,OPTS,OPTA,HELP)	;EP
IMM(BKMN,XACT)	;IMMUNIZATION NAME TO IEN
DATEPRMP()	;
BMI(X,Y)	;Calculate Body Mass Index
LOINC(BKMN)	;LABORATORY TEST LOINC TO IEN
PROMPT(PAR,OPTS,OPTA,FIRST,SECOND)	;EP ; INPUT ; PAR - Parameter for piece 1 of DIR(0) ; OPTS - Array passed by reference containing the option names that ; ^DIR will display ; OPTA - DIR("A") value for prompt to user ; FIRST - Do we execute the first prompt? $$PROMPT^BKMIXX4 ; SECOND - Do we execute the second prompt?
ENT
MEDS(BKMN,XACT)	;DRUG NAME TO IEN
PAD(VAR,FB,CHAR,LEN)	;EP
DX(PROMPT,MULT)	; EP - Prompt for dx ; PROMPT - Optional - if it exists will replace DIR("A") ; MULT - Optional - 0/1 if 1 - loop for multiple selection, else singular
LAB(BKMN,XACT)	;LABORATORY TEST NAME TO IEN

Name	Field # of Occurrence
^%DT	DATEPRMP+2, DATEPRMP+6
$$PROMPT2^BKMIXX4	ENT+3
^DIR	ENT+13, ENT+21, PROMPT2+13, DX+23
$$FMTE^XLFDT	ENT+11, ENT+16, ENT+24, PROMPT2+4, DATEPRMP+4
$$NOW^XLFDT	ENT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ("_$$FMTE^XLFDT(Y)_")" Line Location: ENT+16
Function Call: WRITE	Prompt: !!,"Beginning date can not be after today's date.",! Line Location: ENT+18
Function Call: WRITE	Prompt: " ("_$$FMTE^XLFDT(Y)_")" Line Location: ENT+24
Function Call: WRITE	Prompt: !!,"End date can not be before beginning date or after today's date.",! Line Location: ENT+26
Function Call: WRITE	Prompt: " ("_$$FMTE^XLFDT(Y)_")" Line Location: DATEPRMP+4
Routine Call	DIR Line Location: ENT+13 ENT+21 PROMPT2+13 DX+23

Name	Line Occurrences (* Changed, ! Killed)
^AUTTIMM - [#9999999.14]	IMM+11
^AUTTIMM("B"	IMM+8, IMM+15, IMM+16
^DD(90451.01	DX+4
^LAB(60 - [#60]	LAB+8, LAB+11, LAB+15, LAB+16, LOINC+7, LOINC+11, LOINC+12
^PSDRUG - [#50]	MEDS+11
^PSDRUG("B"	MEDS+8, MEDS+15, MEDS+16

Name	Line Occurrences
ENT	ENT+18, ENT+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATEPRMP+1*, DATEPRMP+9!
%DT("A"	DATEPRMP+1, DATEPRMP+5
BEGDATE	ENT+10, ENT+11, ENT+19, ENT+26!, PROMPT2+2!, PROMPT2+3, PROMPT2+4, DATEPRMP+4
>> BEGDT	ENT+11, ENT+12, PROMPT2+4
BKMBMI	BMI+3~, BMI+4*, BMI+5
BKMIEN	IMM+6!, IMM+8, IMM+11, IMM+16, IMM+18, LAB+6!, LAB+8, LAB+11, LAB+16, LAB+18 , LOINC+6!, LOINC+7, LOINC+12, LOINC+14, MEDS+6!, MEDS+8, MEDS+11, MEDS+16*, MEDS+18
BKMIENX	IMM+6!, IMM+16, IMM+18, LAB+6!, LAB+16, LAB+18, LOINC+6!, LOINC+12, LOINC+14, MEDS+6! , MEDS+16, MEDS+18
BKMIENX(	IMM+16, LAB+16, LOINC+12, MEDS+16
BKMN	IMM~, IMM+8, IMM+10, IMM+11, IMM+13, IMM+14, IMM+15, LAB~, LAB+8, LAB+10 , LAB+11, LAB+13, LAB+14, LAB+15, LOINC~, LOINC+6, LOINC+7, LOINC+9, LOINC+10, LOINC+11 , MEDS~, MEDS+8, MEDS+10, MEDS+11, MEDS+13, MEDS+14, MEDS+15
BKMN1	IMM+6!, IMM+14, IMM+15, IMM+16, LAB+14, LAB+15, LAB+16, LOINC+10, LOINC+11, LOINC+12 , MEDS+14, MEDS+15, MEDS+16
CHAR	PAD~, PAD+2
>> CODE	DX+13, DX+14, DX+15
CODES	DX+3~, DX+8, DX+9, DX+28, DX+33
>> DESC	DX+13*, DX+15
DIR	PROMPT2+5!, PROMPT2+14!, DX+3~
DIR("?"	PROMPT2+7*
DIR("A"	ENT+12, ENT+20, PROMPT2+6, DX+16, DX+22*
DIR("B"	ENT+12, ENT+20, DX+17*, DX+22!
DIR(0	ENT+12, ENT+20, PROMPT2+6, PROMPT2+10, PROMPT2+11, DX+21*
DT	ENT+10, PROMPT2+3
DTOUT	ENT+15, ENT+23, DX+3~, DX+24
DUOUT	ENT+15, ENT+23, DX+3~, DX+24
DXDESC	DX+3~, DX+4, DX+28, DX+31, DX+33, DX+37
DXFLTR	DX+3~, DX+4, DX+18, DX+22, DX+24, DX+25, DX+26, DX+28, DX+29, DX+30* , DX+33, DX+37
ENDDATE	ENT+10, ENT+11, ENT+25, ENT+26!, PROMPT2+2!, PROMPT2+3, PROMPT2+4, DATEPRMP+8
>> ENDDT	ENT+11, ENT+20, PROMPT2+4
>> ERR	PROMPT2+6, PROMPT2+8, PROMPT2+10, PROMPT2+12
FB	PAD~, PAD+4, PAD+5
FIRST	PROMPT~, ENT+2, ENT+9
HELP	PROMPT2~, PROMPT2+7
HIVTAX	ENT+7, ENT+10, PROMPT2+2!, PROMPT2+3*
II	DX+3~, DX+9, DX+12, DX+13, DX+36*
LEN	PAD~, PAD+2, PAD+3, PAD+4, PAD+5, PAD+6
MULT	DX~, DX+18
>> NOW	ENT+17*, ENT+18, ENT+26
NVALS	DX+3~, DX+11, DX+15, DX+21, DX+36*
OPTA	PROMPT~, ENT+3, PROMPT2~, PROMPT2+6
OPTNUM	PROMPT2+1~, PROMPT2+6, PROMPT2+8, PROMPT2+9, PROMPT2+10, PROMPT2+11
OPTS	PROMPT~, ENT+3, PROMPT2~
OPTS(	PROMPT2+8, PROMPT2+9
OPTS(1	PROMPT2+6
>> OPTTEXT	PROMPT2+9*, PROMPT2+10, PROMPT2+11
PAD	PAD+1~, PAD+2*, PAD+4, PAD+5
PAR	PROMPT~, ENT+3, PROMPT2~, PROMPT2+6
PROMPT	DX~, DX+16, DX+22
SECOND	PROMPT~, ENT+8
>> SEL	ENT+6*, ENT+8, ENT+30
STOP	ENT~, ENT+1, ENT+4, ENT+5, DX+3~, DX+4, DX+18, DX+26, DX+28, DX+33
U	ENT+5, ENT+8, ENT+30, DX+4, DX+37
VALS	DX+3~, DX+4*, DX+9, DX+12, DX+13
VAR	PAD~, PAD+3, PAD+4, PAD+5, PAD+6
X	BMI~, BMI+4, DX+3~, DX+19!
XACT	IMM~, IMM+7, LAB~, LAB+7, MEDS~, MEDS+7
Y	BMI~, BMI+4, ENT+3, ENT+4, ENT+5, ENT+6, ENT+7, ENT+16, ENT+18, ENT+19 , ENT+24, ENT+25, PROMPT2+15, DATEPRMP+3, DATEPRMP+4, DATEPRMP+7, DATEPRMP+8, DX+3~, DX+19!, DX+25 , DX+26, DX+28, DX+29, DX+30, DX+31, DX+36
Y(0	DX+31

Customize PDF page

Package: IHS HIV Management System

Routine: BKMIXX4

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: