BKMVA2 ;PRXM/HC/JGH - HMS PATIENT REGISTER; [ 1/19/2005 7:16 PM ] ; 20 Sep 2005 9:27 AM
Source file <BKMVA2.m>
Package | Total | Call Graph |
---|---|---|
IHS HIV Management System | 5 | ($$BKMIEN,$$BKMREG,$$HIVIEN,$$I,$$PAUSE,BASETMP)^BKMIXX3 $$PAD^BKMIXX4 ($$ADDRESS,$$GETALL,$$HRN,$$PHONE,$$PRIMPROV,$$RES,FREVEDIT)^BKMVA1 GETALL^BKMVC6 REMIND^BKMVF3 |
VA Fileman | 5 | FILE^DICN ^DIK $$IENS^DILF $$GET1^DIQ ^DIR |
Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT DISP^XQORM1 |
Registration | 2 | (CLEAR,FULL)^VALM1 SET^VALM10 |
IHS VA Utilities | 1 | ^XBFMK |
Name | Comments | DBIA/ICR reference |
---|---|---|
HELP | ; -- help code
|
|
UPDETI | ;
|
|
NSCRATCH | ;
|
|
ADDDATA(DFN) | ;EP - Add Patient Data
|
|
GETALL(DFN,CALCREM) | ;EP
|
|
INIT | ; EP - Review/Edit Patient Record
|
|
EXIT | ;
|
|
LSTVST(BKMDFN) | ; Determine last visit
|
|
DSCRATCH | ;
|
|
HDR | ;
|
Name | Field # of Occurrence |
---|---|
$$BKMIEN^BKMIXX3 | ADDDATA+2, GETALL+13 |
$$BKMREG^BKMIXX3 | ADDDATA+3, GETALL+17 |
$$HIVIEN^BKMIXX3 | ADDDATA+1, GETALL+15 |
$$I^BKMIXX3 | INIT+5, INIT+16, INIT+18, INIT+20, INIT+22, INIT+24, INIT+26, INIT+30, INIT+32, INIT+34 , INIT+36, INIT+38, INIT+42, INIT+44, INIT+46, INIT+48, INIT+51, INIT+53, INIT+56, INIT+58 |
$$PAUSE^BKMIXX3 | ADDDATA+37 |
BASETMP^BKMIXX3 | GETALL+11 |
$$PAD^BKMIXX4 | INIT+11, INIT+14, INIT+15, INIT+17, INIT+19, INIT+21, INIT+23, INIT+28, INIT+31, INIT+33 , INIT+35, INIT+41, INIT+43, INIT+45, INIT+50, INIT+52, INIT+55, INIT+57, ADDDATA+14, ADDDATA+16 |
$$ADDRESS^BKMVA1 | GETALL+29 |
$$GETALL^BKMVA1 | ADDDATA+43 |
$$HRN^BKMVA1 | ADDDATA+14, GETALL+25 |
$$PHONE^BKMVA1 | GETALL+38, GETALL+39 |
$$PRIMPROV^BKMVA1 | GETALL+104 |
$$RES^BKMVA1 | GETALL+41 |
FREVEDIT^BKMVA1 | ADDDATA+27, ADDDATA+28, ADDDATA+29, ADDDATA+30, ADDDATA+31, ADDDATA+32, ADDDATA+33, ADDDATA+34, ADDDATA+35, ADDDATA+36 |
GETALL^BKMVC6 | GETALL+93 |
REMIND^BKMVF3 | GETALL+88 |
FILE^DICN | NSCRATCH+7 |
^DIK | DSCRATCH+5 |
$$IENS^DILF | GETALL+20 |
$$GET1^DIQ | ADDDATA+14, ADDDATA+15, GETALL+27, GETALL+44, GETALL+47, GETALL+51, GETALL+53, GETALL+54, GETALL+82, GETALL+99 , GETALL+101, GETALL+102, GETALL+106, GETALL+107, UPDETI+2, LSTVST+9, LSTVST+13 |
^DIR | ADDDATA+22 |
CLEAR^VALM1 | ADDDATA+12 |
FULL^VALM1 | ADDDATA+13 |
SET^VALM10 | INIT+5, INIT+16, INIT+18, INIT+20, INIT+22, INIT+24, INIT+26, INIT+30, INIT+32, INIT+34 , INIT+36, INIT+38, INIT+42, INIT+44, INIT+46, INIT+48, INIT+51, INIT+53, INIT+56, INIT+58 |
^XBFMK | ADDDATA+9, ADDDATA+38, NSCRATCH+1, NSCRATCH+8, DSCRATCH+1, DSCRATCH+6 |
$$FMADD^XLFDT | GETALL+72, GETALL+74 |
$$FMTE^XLFDT | INIT+8, INIT+15, ADDDATA+16, GETALL+45, GETALL+48, GETALL+75, GETALL+79, GETALL+101, GETALL+102 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^GMR(120.86 - [#120.86] | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |
^AUPNVSIT - [#9000010] | GET1^DIQ |
90451.01 | GET1^DIQ |
90451.05 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPOV("AD" | LSTVST+12 |
^AUPNVSIT("AA" | LSTVST+3, LSTVST+5 |
^BKM(90451 - [#90451] | GETALL+46 |
^BKM(90459 | NSCRATCH+2, DSCRATCH+2 |
^DPT - [#2] | GETALL+69 |
^GMR(120.86 - [#120.86] | GETALL+98 |
^TMP("BKMLKP" | INIT+7, GETALL+10! |
^TMP("BKMVA1" | ADDDATA+41! |
^TMP("BKMVA2R" | INIT+54, GETALL+90* |
Name | Line Occurrences |
---|---|
$$LSTVST | GETALL+67 |
DSCRATCH | ADDDATA+40, NSCRATCH+2 |
GETALL | INIT+13 |
INIT | ADDDATA+44 |
NSCRATCH | ADDDATA+8 |
UPDETI | GETALL+96 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACRF | INIT+3~, INIT+57, UPDETI+3*, UPDETI+4* |
ADD1 | GETALL+6~, GETALL+29*, GETALL+30, GETALL+31, GETALL+32, GETALL+34, GETALL+35 |
ADDRESS | INIT+1~, INIT+19, GETALL+34*, GETALL+35*, GETALL+37* |
AGE | INIT+1~, INIT+9*, INIT+17 |
ALLERGY | INIT+2~, INIT+52, GETALL+98*, GETALL+99* |
BKMCLCL | GETALL+6~ |
BKMDFN | LSTVST~, LSTVST+3, LSTVST+5 |
BKMDOD | INIT+2~, INIT+15, ADDDATA+6~, ADDDATA+15*, ADDDATA+16, GETALL+27*, GETALL+78 |
BKMIEN | ADDDATA+2*, ADDDATA+3, GETALL+6~, GETALL+13*, GETALL+14, GETALL+17, GETALL+19, GETALL+46 |
BKMIENS | GETALL+7~, GETALL+20*, GETALL+21, GETALL+44, GETALL+47, GETALL+51, GETALL+53, GETALL+54, GETALL+82, GETALL+101 , GETALL+102, GETALL+106, GETALL+107, UPDETI+2 |
BKMLOCAL | INIT+1~, INIT+7*, INIT+8, INIT+9 |
BKMREG | ADDDATA+3*, GETALL+6~, GETALL+17*, GETALL+18, GETALL+19, GETALL+46 |
BKMSVCAT | LSTVST+1~, LSTVST+9*, LSTVST+10 |
CALCREM | GETALL~, GETALL+12*, GETALL+86, GETALL+89! |
CITY | GETALL+6~, GETALL+30*, GETALL+33, GETALL+35 |
CLCL | INIT+2~, INIT+31, GETALL+51*, GETALL+109* |
CRDT | INIT+3~, INIT+45, GETALL+44*, GETALL+45* |
DA | NSCRATCH+3!, DSCRATCH+2*, DSCRATCH+3, GETALL+19*, GETALL+20 |
DA(1 | GETALL+19* |
DFN | INIT+1~, INIT+7*, INIT+13, INIT+54, ADDDATA~, ADDDATA+2, ADDDATA+14, ADDDATA+15, ADDDATA+43, NSCRATCH+5 , GETALL~, GETALL+11, GETALL+13, GETALL+25, GETALL+27, GETALL+29, GETALL+38, GETALL+39, GETALL+41, GETALL+67 , GETALL+69, GETALL+88, GETALL+90, GETALL+93, GETALL+98, GETALL+104 |
DGCT | INIT+2~, INIT+31, GETALL+54* |
DGCTI | GETALL+7~, GETALL+53*, GETALL+54, GETALL+108, GETALL+110 |
>> DIC | NSCRATCH+6* |
>> DIC("DR" | NSCRATCH+5* |
>> DIC(0 | NSCRATCH+5* |
DIFILE | NSCRATCH+3~, NSCRATCH+6* |
>> DIK | DSCRATCH+4* |
DINUM | NSCRATCH+3! |
DIR | ADDDATA+18! |
DIR("A" | ADDDATA+21* |
DIR(0 | ADDDATA+20* |
>> DLAYGO | NSCRATCH+6* |
DOB | INIT+1~, INIT+8*, INIT+21 |
DT | GETALL+69, GETALL+72, GETALL+80, GETALL+88 |
EDDT | INIT+3~, INIT+45, GETALL+47*, GETALL+48* |
EDIEN | GETALL+7~, GETALL+46*, GETALL+47 |
ENTER | ADDDATA+6~ |
ET | UPDETI+1~, UPDETI+2*, UPDETI+4 |
EXIT | ADDDATA+6~, ADDDATA+10*, ADDDATA+11, ADDDATA+23*, ADDDATA+37* |
HIVCMGR | INIT+3~, INIT+41, GETALL+107* |
HIVIEN | ADDDATA+1*, GETALL+6~, GETALL+15*, GETALL+16 |
HIVPROV | INIT+3~, INIT+41, GETALL+106* |
HMPHONE | INIT+1~, INIT+21, GETALL+38* |
HRN | INIT+1~, INIT+7*, INIT+11, INIT+14, GETALL+25* |
ICD9S | GETALL+7~, GETALL+94 |
INITAIDS | INIT+2~, INIT+33, GETALL+102*, GETALL+109*, GETALL+110* |
INITHIV | INIT+2~, INIT+33, GETALL+101*, GETALL+109* |
LASTVIST | INIT+2~, INIT+35, GETALL+59*, GETALL+75*, GETALL+76* |
LASTVSTI | GETALL+6~, GETALL+59*, GETALL+67*, GETALL+72*, GETALL+74, GETALL+75 |
LCSZ | GETALL+6~, GETALL+33*, GETALL+34 |
LSTVST | LSTVST+1~, LSTVST+2*, LSTVST+3, LSTVST+13*, LSTVST+14 |
LSTVSTI | LSTVST+1~, LSTVST+2*, LSTVST+4*, LSTVST+5*, LSTVST+9, LSTVST+12, LSTVST+13 |
NEXTVIST | INIT+2~, INIT+35, GETALL+59*, GETALL+79*, GETALL+80* |
NEXTVSTI | GETALL+6~, GETALL+69*, GETALL+70, GETALL+72*, GETALL+74*, GETALL+78*, GETALL+79, GETALL+80 |
OPIA | INIT+2~, INIT+50, GETALL+92*, GETALL+94* |
PCPROV | INIT+3~, INIT+43, GETALL+104* |
PNT | INIT+1~, INIT+7*, INIT+11, INIT+17 |
RCRDHDR | INIT+11*, ADDDATA+6~, ADDDATA+14*, ADDDATA+16*, ADDDATA+17 |
REM | INIT+3~, INIT+54*, INIT+55, GETALL+85*, GETALL+90* |
>> REMLIST | GETALL+88, GETALL+90 |
RES | INIT+1~, INIT+23, GETALL+41* |
RID | INIT+2~ |
RVSTDT | GETALL+7~, GETALL+59*, LSTVST+1~, LSTVST+2*, LSTVST+3*, LSTVST+5 |
SCHEDULE | GETALL+6~, GETALL+59*, GETALL+70*, GETALL+80 |
SEX | INIT+1~, INIT+9*, INIT+17 |
STAT | INIT+2~, INIT+28, GETALL+82* |
STATE | GETALL+6~, GETALL+31*, GETALL+33, GETALL+35 |
TEXT | INIT+1~, INIT+14*, INIT+15*, INIT+16, INIT+17*, INIT+18, INIT+19*, INIT+20, INIT+21*, INIT+22 , INIT+23*, INIT+24, INIT+28*, INIT+30, INIT+31*, INIT+32, INIT+33*, INIT+34, INIT+35*, INIT+36 , INIT+41*, INIT+42, INIT+43*, INIT+44, INIT+45*, INIT+46, INIT+50*, INIT+51, INIT+52*, INIT+53 , INIT+55*, INIT+56, INIT+57*, INIT+58 |
U | INIT+7, INIT+8, INIT+9, GETALL+30, GETALL+31, GETALL+32, GETALL+34, GETALL+35, LSTVST+10 |
>> VALM0 | INIT+4* |
>> VALMAR | INIT+4* |
>> VALMCNT | INIT+4*, INIT+5*, INIT+16*, INIT+18*, INIT+20*, INIT+22*, INIT+24*, INIT+26*, INIT+30*, INIT+32* , INIT+34*, INIT+36*, INIT+38*, INIT+42*, INIT+44*, INIT+46*, INIT+48*, INIT+51*, INIT+53*, INIT+56* , INIT+58* |
WKPHONE | INIT+1~, INIT+23, GETALL+39* |
>> X | NSCRATCH+4*, HELP+1* |
>> Y | ADDDATA+23, ADDDATA+27, ADDDATA+28, ADDDATA+29, ADDDATA+30, ADDDATA+31, ADDDATA+32, ADDDATA+33, ADDDATA+34, ADDDATA+35 , ADDDATA+36 |
ZIP | GETALL+6~, GETALL+32*, GETALL+33, GETALL+35 |