©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BKMVA1C ;PRX/HC/DLS - HMS PATIENT REGISTER CONT;
Source file <BKMVA1C.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| IHS HIV Management System | 1 | $$PROB^BKMVUTL |
| Kernel | 1 | $$UP^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS HIV Management System | 2 | BKMVA1 BKMVA1B |
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AUPNVLAB - [#9000010.09] | GET1^DIQ |
| 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! |
| Name | Line Occurrences |
|---|---|
| $$AIDS | REGDC+27 |
| $$CD4AB | REGDC+29 |
| $$HIV | REGDC+23 |
| OPT1 | OPT1+29, OPT1+42, OPT1+67 |
| >> | 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 |