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 |