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 |