Routine: BKMIXX3

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC $$IENS^DILF $$GET1^DIQ ^DIR
IHS HIV Management System	3	$$AGE^BKMIMRP1 $$HIVIEN^BKMIXX3 $$HRN^BKMVA1
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
IHS HIV Management System	32	BKM2POST BKMILK BKMIXX3 BKMOFF BKMQQCRA BKMQQCRD BKMQQCRU BKMQQCRV BKMVA1 BKMVA1B BKMVA2 BKMVA4 BKMVA41 BKMVA5 BKMVA51 BKMVA6 BKMVA61 BKMVA9 BKMVC1 BKMVF1 BKMVF3 BKMVF5 BKMVFAPI BKMVIST3 BKMVIST4 BKMVIST5 BKMVQCR BKMVQCRA BKMVSRP1 BKMVSSR BKMVSSR3 BKMVSUP
iCare	10	BQI2POST BQICMDNM BQIPTREG BQIRGADD BQIRGHML BQIRGHOF BQIRGTHM BQIRGUTL BQIVFDEF BQIVFVAL

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE(PROMPT)	;EP - For screen displays pause and allow user to stop ; Returns a 1 if the user elected to stop
HDR	; EP - Display header for menus
VALID(BKMDUZ)	; EP - Determine if user is permitted in the HMS registry ; Extrinsic function - returns 1 (success - user in HMS registry) or ; 0 (failure - user not in HMS registry) ; Input: ; BKMDUZ - DUZ, IEN for File 200 ; Output: n/a ; Initialize
DICONV(VAL)	;Convert external to internal value of HMS Diagnosis Category
BKMPRIV(BKMDUZ)	; EP - Determine user's rights in HMS ; Extrinsic function - returns 1 (ability to add/edit) or ; 0 (not permitted to add/edit) ; Input: ; BKMDUZ - DUZ, IEN for File 200 ; Output: n/a ; Initialize
DI3	; At Risk - Known Level
BASETMP(DFN)	; EP - Create ^TMP("BKMLKP",$J) entries ; Extrinsic function - Returns 1 (success = global created) or ; 0 (failure = nothing created) ; Input: ; DFN - IEN for File 2 (Patient) ; Output: ; BKMIEN - IEN for File 90451 (HMS Registry) ; ^TMP("BKMLKP",$J)=DFN ; ^TMP("BKMLKP",$J,DFN)=PatientName^HRN^DOB(internal)^Sex(internal)^Age(calculated)^MaritalStatus(internal)^IEN(File 90451) ; Initialize
DI2	; At-Risk Level ; PRX/HMS/DLS 3/30/2006 Changed DIR(0) from 'F'ree text to 'S'et of Codes.
BKMREG(BKMIEN)	; EP - Determine IEN for HIV registry in File 90451.01 based on File 90451 IEN ; Extrinsic function - returns IEN (File 90451.01 IEN for HIV) or ; "" (No File 90451.01 entry for HIV) ; Input: ; BKMIEN - IEN for File 90451 ; Output: n/a ; Initialize
I(BKMVAR,BKMINC)	;EP - Returns BKMVAR+BKMINC while updating BKMVAR ; Programmers note: This function is meant to mimic the $I ; function of CACHE 5. In order to fully mimic that function, ; the first argument must be passed by reference. ; No compatibility with the $I function is guaranteed unless ; this the first argument is called by reference. In fact, null values ; for the first argument are allowed if not passed by reference, ; unlike $I.
HIVIEN()	; EP - Return IEN of HIV from File 90450 ; Extrinsic function - returns IEN (File 90450 for HIV) or ; "" (File 90450 for HIV not found) ; Input: n/a ; Output: n/a ; Initialize
BKMIEN(BKMDFN)	; EP - Determine IEN for Patient in File 90451 based on DFN ; Extrinsic function - returns IEN (File 90451 IEN for DFN) or ; "" (No File 90451 entry for DFN) ; Input: ; BKMDFN - IEN for Patient File 2 ; Output: n/a ; Initialize
DI1
DIAG(DEF,RECVAL,MIX)	;EP - HMS Diagnosis Category ; Prompt user for HMS Diagnosis Category ; A tiered approach was requested by IHS. ; At risk -> Exposed Source Known -> Specific Source ; User may enter final value and bypass prompts ; e.g. EI may be entered at the HMS DIAGNOSIS CATEGORY prompt ; DEF = the current HMS Diagnosis Category in 90451 ; RECVAL = recommended value ; MIX = mixed case flag (used by input template BKMV PATIENT RECORD ;
NOGO	;EP - NOT ALLOWED TO CHANGED OR ENTER DATA

External References

Name	Field # of Occurrence
$$AGE^BKMIMRP1	BASETMP+19
$$HIVIEN^BKMIXX3	VALID+9, BKMREG+9, BKMPRIV+9
$$HRN^BKMVA1	BASETMP+16
$$FIND1^DIC	HDR+2
$$IENS^DILF	HDR+4
$$GET1^DIQ	BASETMP+15, BASETMP+17, BASETMP+18, BASETMP+20, HDR+3, HDR+4, HDR+5
^DIR	PAUSE+5, DI1+19, DI2+19, DI3+16
$$UP^XLFSTR	DI1+22, DI2+21, DI3+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Sorry, you are not currently authorized to modify patient data.",!,"Please see your Security Administrator for access.",! Line Location: NOGO+3
Function Call: WRITE	Prompt: @IOF,!!?IOM-$L(VERSION)\2,VERSION Line Location: HDR+6
Function Call: WRITE	Prompt: !?IOM-$L(SITE)\2,SITE Line Location: HDR+7
Function Call: WRITE	Prompt: !?IOM-$L(USER)\2,USER Line Location: HDR+8
Function Call: WRITE	Prompt: !!?2,"Enter a code from the list.",!! Line Location: DI1+26
Function Call: WRITE	Prompt: " ",$S(Y="R":"AT RISK",Y="H":"HIV",1:"AIDS") Line Location: DI1+27
Function Call: WRITE	Prompt: !!?2,"Enter a code from the list.",!! Line Location: DI2+25
Function Call: WRITE	Prompt: " ",$S(Y="KN":"AT RISK- KNOWN SOURCE",1:"AT RISK- UNKNOWN SOURCE") Line Location: DI2+26
Function Call: WRITE	Prompt: !!?2,"Enter a code from the list.",!! Line Location: DI3+23
Function Call: WRITE	Prompt: " ",$S(Y="IN":"AT RISK- INFANT EXPOSED",Y="OCC":"AT RISK- OCCUPATIONAL EXPOSURE",1:"AT RISK- NON OCCUPATIONAL EXPOSURE") Line Location: DI3+24
Routine Call	DIC Line Location: HDR+2
Routine Call	DIR Line Location: PAUSE+5 DI1+19 DI2+19 DI3+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(9.4 - [#9.4]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BKM(90450 - [#90450]	HIVIEN+7, VALID+11, BKMPRIV+11, BKMPRIV+12
^BKM(90451 - [#90451]	BASETMP+14, BKMIEN+8, BKMREG+10
^TMP("BKMLKP"	BASETMP+21!, BASETMP+22, BASETMP+23

Label References

Name	Line Occurrences
$$DICONV	DI1+28, DI3+25
DI1	DI1+26
DI2	DI2+25
DI3	DI3+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	BASETMP+10~, BASETMP+19*, BASETMP+22
BKMDFN	BKMIEN~, BKMIEN+8
BKMDUZ	VALID~, VALID+11, BKMPRIV~, BKMPRIV+10, BKMPRIV+11
BKMHIV	HIVIEN+6~, HIVIEN+7, HIVIEN+8, HIVIEN+9, VALID+7~, VALID+9, VALID+11, BKMREG+7~, BKMREG+9, BKMREG+10 , BKMPRIV+7~, BKMPRIV+9, BKMPRIV+10, BKMPRIV+11, BKMPRIV+12
BKMIEN	BASETMP+14, BKMIEN+7~, BKMIEN+8, BKMIEN+9, BKMREG~, BKMREG+10
BKMINC	I~, I+9, I+10*, I+12
BKMJUNK	I+8~, I+9*, I+10
BKMPRIV	BKMPRIV+7~, BKMPRIV+8, BKMPRIV+12, BKMPRIV+13*, BKMPRIV+14
BKMPRV	BKMPRIV+7~, BKMPRIV+11*, BKMPRIV+12
BKMREG	BKMREG+7~, BKMREG+8, BKMREG+10, BKMREG+11
BKMVAR	I~, I+11, I+12, I+13
BKMVLD	VALID+7~, VALID+8, VALID+11, VALID+12
DA	BASETMP+10~, BASETMP+14, BASETMP+22, HIVIEN+6~, HIVIEN+8, HDR+1~, HDR+4*
DEF	DIAG~, DIAG+11*, DI1+11, DI1+12, DI1+17, DI2+12, DI2+13, DI2+14, DI3+12, DI3+13 , DI3+14
DFN	BASETMP~, BASETMP+11, BASETMP+12, BASETMP+14, BASETMP+15, BASETMP+16, BASETMP+17, BASETMP+18, BASETMP+19, BASETMP+20 , BASETMP+22, BASETMP+23
DIR	PAUSE+3~, DIAG+10~
DIR("?"	DI1+18, DI2+18, DI3+15*
DIR("A"	PAUSE+4, DI1+1!, DI1+2, DI1+3, DI1+4, DI1+5, DI1+6, DI1+7, DI1+8, DI1+9* , DI1+17, DI2+3!, DI2+4, DI2+5, DI2+6, DI2+7, DI2+8, DI2+9, DI2+10, DI3+2! , DI3+3, DI3+4, DI3+5, DI3+6, DI3+7, DI3+8, DI3+9, DI3+10
DIR("B"	DI1+10!, DI1+12, DI1+13, DI2+11!, DI2+14, DI2+15, DI3+11!, DI3+14*
DIR(0	PAUSE+5, DI1, DI2+2, DI3+1
DOB	BASETMP+10~, BASETMP+17*, BASETMP+22
DTOUT	PAUSE+3~, PAUSE+6, DI1+20, DI2+20, DI3+17
DUOUT	PAUSE+3~, PAUSE+6, DI1+20, DI2+20, DI3+17
DUZ	HDR+5
DUZ(2	HDR+4
HRN	BASETMP+10~, BASETMP+16*, BASETMP+22
IENS	HDR+1~, HDR+4*
IOF	HDR+6
IOM	HDR+6, HDR+7, HDR+8
IOST	PAUSE+2
MIX	DIAG~, DIAG+11*, DI1+2, DI2+4, DI3+3
MSTAT	BASETMP+10~, BASETMP+20*, BASETMP+22
PKG	HDR+1~, HDR+2*, HDR+3
PNT	BASETMP+10~, BASETMP+15*, BASETMP+22
PROMPT	PAUSE~, PAUSE+4
RECVAL	DIAG~, DI1+17
SEX	BASETMP+10~, BASETMP+18*, BASETMP+22
SITE	HDR+1~, HDR+4*, HDR+7
U	BASETMP+22, DI1+26, DI2+25, DI3+23
USER	HDR+1~, HDR+5*, HDR+8
VAL	DICONV~
VERSION	HDR+1~, HDR+3*, HDR+6
Y	DIAG+10~, DI1+22, DI1+24, DI1+25, DI1+26, DI1+27, DI1+28, DI2+21, DI2+22, DI2+23 , DI2+24, DI2+25, DI2+26, DI2+27, DI3+18, DI3+19, DI3+20, DI3+21, DI3+22, DI3+23 , DI3+24, DI3+25, DICONV+1

Customize PDF page

Package: IHS HIV Management System

Routine: BKMIXX3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 42

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: