Routine: BKMVA1C

Information

BKMVA1C ;PRX/HC/DLS - HMS PATIENT REGISTER CONT;

Source Information

Source file <BKMVA1C.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
IHS HIV Management System	1	$$PROB^BKMVUTL
Kernel	1	$$UP^XLFSTR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS HIV Management System	2	BKMVA1 BKMVA1B

Entry Points

Name	Comments	DBIA/ICR reference
REGDC(DFN)	;EP - Called by LDREC^BKMVA1B ; Determine HMS Diagnosis Category for Register/Add or PAT/REC/ED, based on HIV, AIDS, and CD4 Absolute criteria. ; Note: This logic is based on the following statement... ; 1. Patient must have at least 2 diags not on the same day of HIV Positive (DX.6); ; AND ; 2. If current CD4 Absolute (T.30) count is below 200' ; OR ; 3. Patient has at least one diagnosis of Other AIDS Defining Illness (DX.1) ; since the first HIV/AIDS diagnosis; ; Then ; Proposed Diagnosis is AIDS; ; Else ; Proposed Diagnosis is HIV. ; Currently, this statement is being interpreted to mean: ; IF (1 and (2 or 3)) --> AIDS ; ; If this logic is changed, only REGDC should be affected. ; HIV,AIDS,andCD4AB should be able to remain the same. ;
OPT()	;EP - Called by REPORTS^BKMVA1
HIV(DFN)	; (DX.6) See if patient has 2 HIV diagnoses on differing days.
XIT
CD4AB(DFN)	; (T.30) Accumulate all CD4 Absolute result and see if the most recent CD4 Absolute result is less than 200 (and not null). If so, set FLG=1.
AIDS(DFN)	; (DX.1) See if patient has at least one AIDS Defining Illness since first HIV/AIDS diagnosis. If so, set FLG=1
OPT1	;

External References

Name	Field # of Occurrence
$$PROB^BKMVUTL	HIV+20
$$GET1^DIQ	HIV+9, HIV+11, AIDS+10, AIDS+11, CD4AB+8, CD4AB+9, CD4AB+10, CD4AB+11
^DIR	OPT1+25, OPT1+37, OPT1+50
$$UP^XLFSTR	OPT1+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"Please enter a code or description from the list.",!! Line Location: OPT1+67
Function Call: WRITE	Prompt: " ",$S(Y="DO":"Due/Overdue",Y="QC":"Quality of Care Audit Report",Y="SUPP":"HMS Supplement",Y="HS":"Health Summary",Y="BOTH":"Both Health Summary and Supplement",1:"State Surveillance Report") Line Location: OPT1+68
Routine Call	DIR Line Location: OPT1+25 OPT1+37 OPT1+50

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVLAB - [#9000010.09]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	HIV+19
^AUPNPROB("B"	HIV+18
^AUPNVLAB - [#9000010.09]	CD4AB+7
^AUPNVLAB("B"	CD4AB+6
^AUPNVPOV - [#9000010.07]	HIV+8, AIDS+9
^AUPNVPOV("B"	HIV+7, AIDS+8
^TMP("BKMAIDS"	REGDC+33!, AIDS+6
^TMP("BKMCD4"	REGDC+33!
^TMP("BKMCD4AB"	REGDC+33!, CD4AB+4
^TMP("BKMCD4P"	REGDC+33!, CD4AB+13, CD4AB+14, CD4AB+15, CD4AB+16
^TMP("BKMHIV"	REGDC+33!, HIV+4
^TMP("BKMHIVP"	REGDC+33!, HIV+12, HIV+13, HIV+14, HIV+21, HIV+22*, HIV+24, AIDS+4
^TMP("BKMTST"	REGDC+33!

Label References

Name	Line Occurrences
$$AIDS	REGDC+27
$$CD4AB	REGDC+29
$$HIV	REGDC+23
OPT1	OPT1+29, OPT1+42, OPT1+67

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIDX	AIDS+2~, AIDS+5, AIDS+6, AIDS+8
AIEN	AIDS+2~, AIDS+7, AIDS+8, AIDS+9, AIDS+10
BKMCHK	OPT+2~, OPT1+1, OPT1+39, OPT1+52*, OPT1+68
CHK	HIV+2~
DFN	REGDC~, REGDC+23, REGDC+27, REGDC+29, HIV~, HIV+8, HIV+12, HIV+13, HIV+14, HIV+19 , HIV+21, HIV+22, HIV+24, AIDS~, AIDS+4, AIDS+9, CD4AB~, CD4AB+7
DIAGCAT	REGDC+21, REGDC+34, XIT!
DIR	OPT+2~, OPT1+2!, OPT1+25!, OPT1+37!, OPT1+50!
DIR("?"	OPT1+15, OPT1+16, OPT1+17, OPT1+18, OPT1+19, OPT1+20, OPT1+21, OPT1+22, OPT1+23, OPT1+24 , OPT1+33!, OPT1+34, OPT1+35, OPT1+36, OPT1+46!, OPT1+47, OPT1+48, OPT1+49
DIR("A"	OPT1+4, OPT1+5, OPT1+6, OPT1+7, OPT1+8, OPT1+9, OPT1+10, OPT1+11, OPT1+12, OPT1+13 , OPT1+14, OPT1+31!, OPT1+32, OPT1+44!, OPT1+45*
DIR("B"	OPT1+33!, OPT1+46!
DIR(0	OPT1+3, OPT1+30, OPT1+43*
DTOUT	OPT+2~, OPT1+26, OPT1+38, OPT1+51
DUOUT	OPT+2~, OPT1+26, OPT1+38, OPT1+51
FLAG	REGDC+19~
FLAG("A"	REGDC+27*, REGDC+29, REGDC+32
FLAG("C"	REGDC+29*, REGDC+32
FLAG("H"	REGDC+23*, REGDC+25, REGDC+31
FLG	REGDC+19~, HIV+2~, HIV+3, HIV+7, HIV+18, HIV+24, HIV+25, AIDS+2~, AIDS+5, AIDS+6 , AIDS+8, AIDS+13, AIDS+14, CD4AB+2~, CD4AB+3, CD4AB+16, CD4AB+17
HAIDSDT	REGDC+21, AIDS+4, AIDS+13, XIT!
HIDX	HIV+2~, HIV+3, HIV+4, HIV+7, HIV+18
HIEN	HIV+2~, HIV+6, HIV+7, HIV+8, HIV+9, HIV+17, HIV+18, HIV+19, HIV+20
HIVDT	HIV+2~, HIV+11, HIV+12, HIV+13, HIV+20, HIV+21
IAIDSDT	REGDC+21, AIDS+11, AIDS+13, XIT!
LAB	CD4AB+2~, CD4AB+3, CD4AB+4, CD4AB+6
LIEN	CD4AB+2~, CD4AB+5, CD4AB+6, CD4AB+7, CD4AB+8, CD4AB+9, CD4AB+10
LSTTST	CD4AB+2~, CD4AB+15*, CD4AB+16
RDATE	CD4AB+2~, CD4AB+9*, CD4AB+10, CD4AB+13, CD4AB+14
RESULT	CD4AB+2~, CD4AB+8*, CD4AB+12, CD4AB+13, CD4AB+14
RSLT	REGDC+19~, REGDC+21, REGDC+31, REGDC+32*, REGDC+34
U	HIV+8, HIV+19, AIDS+9, CD4AB+7, OPT1+54, OPT1+67
VISDTM	CD4AB+2~, CD4AB+11*, CD4AB+14
VISIT	HIV+2~, HIV+9, HIV+10, HIV+11, AIDS+2~, AIDS+10, AIDS+11, CD4AB+10*, CD4AB+11
X	OPT+2~
Y	OPT+2~, OPT1+26, OPT1+27, OPT1+29, OPT1+38, OPT1+39, OPT1+42, OPT1+51, OPT1+52, OPT1+54 , OPT1+55, OPT1+56, OPT1+57, OPT1+58, OPT1+59, OPT1+60, OPT1+61, OPT1+62, OPT1+63, OPT1+64* , OPT1+65, OPT1+66, OPT1+67, OPT1+68, OPT1+69

Customize PDF page

Package: IHS HIV Management System

Routine: BKMVA1C

Call Graph Total: 4

Caller Graph Total: 2