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	Caller Graph
IHS HIV Management System	14	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

External References

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

Global Variables Directly Accessed

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

Label References

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: