©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
BGOVSTR1 ; MSC/JS - Utility calls for V STROKE ;14-Oct-2014 11:09;DU
Source file <BGOVSTR1.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 4 | (DEL,SET)^BGOREF ($$DELETE,$$ERR,$$UPDATE)^BGOUTL ($$AICD,$$FNDNARR,$$VFPTXREF,VFEVT)^BGOUTL2 SET^BGOVMSR |
| VA Fileman | 3 | UPDATE^DIE $$ROOT^DILFD $$GET1^DIQ |
| DRG Grouper | 2 | $$IMP^ICDEX $$CPT^ICPTCOD |
| CIA Utilities | 1 | $$DT^CIAU |
| IHS Electronic Health Record | 1 | $$ISLOCKED^BEHOENCX |
| IHS Standard Terminology | 1 | $$CONC^BSTSAPI |
| Toolkit | 1 | $$GET^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HOOK(IEN,VMIEN) | ;Hook it back to the parent
|
|
| STRDEL(VMIEN) | ;Do the delete
|
|
| GETVM(VIEN) | ;
|
|
| SETLKW(INP) | ; EP
|
|
| EIEVM(RET2,VFIEN) | ;EP
|
|
| NARR(DESCT,NARR) | ;Provider narrative is now provider text | descriptive SNOMED CT
|
|
| DMULT(RET,VFIEN,SUBIEN,NODE) | ; Delete a multiple entry from V file
|
|
| SETREF(DFN,REFRES,REFDT,VFNEW) | ; EP
|
|
| STRNIH(VIEN,TYPE,VALUE) | ;Store the NSST
|
|
| GETREF(DNIR) | ; EP
|
|
| FNUM(RET,INP) | ||
| SETNIH(VFIEN,VIEN,INP) | ; EP
|
|
| SETEIE | ;
|
|
| DELREF(VFIEN) | ; EP
|
|
| GETVFIEN(RET,INP) | ;EP
|
|
| CHKICDT(RET,INP) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$ISLOCKED^BEHOENCX | GETVM+25, GETVM+26 |
| DEL^BGOREF | DELREF+25 |
| SET^BGOREF | SETREF+21 |
| $$DELETE^BGOUTL | STRNIH+18, DMULT+7 |
| $$ERR^BGOUTL | GETVFIEN+3, GETVFIEN+9, GETVFIEN+18, SETLKW+8, SETNIH+2, GETVM+2, SETEIE+5, SETEIE+6 |
| $$UPDATE^BGOUTL | STRNIH+17, SETEIE+10 |
| $$AICD^BGOUTL2 | CHKICDT+5 |
| $$FNDNARR^BGOUTL2 | NARR+5 |
| $$VFPTXREF^BGOUTL2 | GETVFIEN+15 |
| VFEVT^BGOUTL2 | STRNIH+19 |
| SET^BGOVMSR | SETLKW+24, STRNIH+8 |
| $$CONC^BSTSAPI | GETREF+14, GETREF+20 |
| $$DT^CIAU | SETREF+11 |
| UPDATE^DIE | STRNIH+26, HOOK+6, SETEIE+15 |
| $$ROOT^DILFD | GETVFIEN+2 |
| $$GET1^DIQ | GETREF+25, SETLKW+15, SETNIH+21, SETNIH+24, SETNIH+26 |
| $$IMP^ICDEX | CHKICDT+6 |
| $$CPT^ICPTCOD | DELREF+12 |
| $$GET^XPAR | SETREF+6, DELREF+11, GETREF+23 |
| FileNo | Call Tags |
|---|---|
| ^ICPT - [#81] | GET1^DIQ |
| ^AUPNVMSR - [#9000010.01] | GET1^DIQ |
| 9000010.6315 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPREF - [#9000022] | DELREF+20 |
| ^AUPNPREF("AA" | SETREF+15, SETREF+18, DELREF+16, DELREF+18 |
| ^AUPNVMSR - [#9000010.01] | SETLKW+14, SETNIH+25, GETVM+6, GETVM+8, SETEIE+6 |
| ^AUPNVMSR("AD" | GETVM+4 |
| ^AUPNVSIT - [#9000010] | CHKICDT+3, SETLKW+8, SETNIH+2, GETVM+16 |
| ^AUPNVSTR - [#9000010.63] | DELREF+5, SETNIH+19, EIEVM+3, GETVM+20, GETVM+21, GETVM+23 |
| ^AUTTMSR - [#9999999.07] | GETVM+11 |
| ^DD("DD" | STRNIH+2, STRNIH+4 |
| ^ICPT("BA" | SETREF+7 |
| ^TMP("BSTSCMCL" | GETREF+13!, GETREF+15!, GETREF+19!, GETREF+21! |
| ^VA(200 - [#200] | GETVM+15 |
| Name | Line Occurrences |
|---|---|
| $$FNUM | GETVFIEN+2 |
| $$STRNIH | SETNIH+17, SETNIH+22, SETNIH+25, SETNIH+26, SETNIH+27 |
| GETVM | EIEVM+5 |
| HOOK | SETNIH+28 |
| SETEIE | STRDEL+3, EIEVM+12 |
| STRDEL | SETNIH+27 |
| Name | Field # of Occurrence |
|---|---|
| ^(12 | GETVM+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | GETVM+1~, GETVM+3*, GETVM+27* |
| CPT | SETREF+3~, SETREF+6*, SETREF+7*, SETREF+8*, SETREF+15, SETREF+18, SETREF+20, DELREF+4~, DELREF+11*, DELREF+12 , GETREF+4~, GETREF+23*, GETREF+24*, GETREF+25 |
| CPTDESC | GETREF+4~, GETREF+25*, GETREF+26 |
| DA | DMULT+2~, DMULT+5*, DMULT+7 |
| DA(1 | DMULT+5*, DMULT+6 |
| DAT | GETVM+5~, GETVM+9*, GETVM+16*, GETVM+25, GETVM+26 |
| DECDT | DELREF+4~, DELREF+15*, DELREF+16*, DELREF+17, DELREF+18 |
| DEL | SETNIH+3~, SETNIH+12*, SETNIH+13, HOOK+3 |
| DELRET | DELREF+24~, DELREF+25, DELREF+26 |
| DESCT | NARR~, NARR+3 |
| DFN | GETVFIEN+1~, GETVFIEN+4*, GETVFIEN+14, GETVFIEN+17, SETREF~, SETREF+2, SETREF+15, SETREF+18, SETREF+20, DELREF+4~ , DELREF+6*, DELREF+9, DELREF+16, DELREF+18, SETLKW+4* |
| DIK | DMULT+2~, DMULT+6*, DMULT+7 |
| DNIR | GETREF~, GETREF+3, GETREF+12 |
| DNIRDT | DELREF+4~, DELREF+6*, DELREF+7*, DELREF+9, DELREF+10 |
| DNIRDUZ | DELREF+4~, DELREF+6*, DELREF+22 |
| DT | CHKICDT+6 |
| DTDONE | SETREF+3~, SETREF+10*, SETREF+11*, SETREF+17, SETREF+20 |
| DUZ | SETREF+20, STRNIH+13, STRNIH+15, SETEIE+9 |
| EIEN | SETEIE+11~*, SETEIE+14 |
| ENTBY | DELREF+19~, DELREF+20*, DELREF+21, DELREF+22 |
| ERR | STRNIH+24~, HOOK+2~, SETEIE+12~, DMULT+2~, DMULT+3*, DMULT+7*, DMULT+8 |
| ERR("DIERR" | STRNIH+27, SETEIE+16 |
| EVDATE | SETLKW+1~, SETLKW+12*, SETLKW+23, SETNIH+3~, STRNIH+3~*, STRNIH+4*, STRNIH+7, STRNIH+12, STRNIH+14, STRNIH+16 |
| FDA | STRNIH+11*, STRNIH+12, STRNIH+13, STRNIH+14, STRNIH+15, STRNIH+16, STRNIH+17, STRNIH+24~, HOOK+2~, SETEIE+1~ , SETEIE+7*, SETEIE+8, SETEIE+9, SETEIE+10, SETEIE+12~ |
| FDA( | STRNIH+11, STRNIH+25*, HOOK+5*, SETEIE+7, SETEIE+14* |
| FILIEN | DELREF+4~, DELREF+18*, DELREF+20, DELREF+22 |
| FNUM | DELREF+4~, DELREF+14~*, DELREF+16, DELREF+18, SETLKW+1~, SETLKW+9*, SETNIH+3~, SETNIH+4*, STRNIH+11, STRNIH+18 , STRNIH+19, STRNIH+25 |
| FOUND | SETREF+3~, SETREF+13*, SETREF+15, SETREF+19*, SETLKW+1~, SETLKW+3* |
| GBL | GETVFIEN+1~, GETVFIEN+2*, GETVFIEN+3, GETVFIEN+9, GETVFIEN+13, GETVFIEN+17 |
| I | SETNIH+3~, STRNIH+22*, STRNIH+23 |
| IEN | SETLKW+2~, SETNIH+11*, SETNIH+16, SETNIH+18*, SETNIH+19*, SETNIH+21, SETNIH+28, HOOK~, HOOK+4 |
| IEN2 | STRNIH+24~, HOOK+2~, SETEIE+12~ |
| IMP | CHKICDT+1~, CHKICDT+6*, CHKICDT+7, CHKICDT+8 |
| IN | GETREF+4~, GETREF+12*, GETREF+14, GETREF+18*, GETREF+20 |
| INP | GETVFIEN~, GETVFIEN+4, GETVFIEN+5, GETVFIEN+6, CHKICDT~, SETREF+20*, SETREF+21, SETLKW~, SETLKW+4, SETLKW+5 , SETLKW+6, SETLKW+12, SETNIH~, STRDEL+1~, STRDEL+2*, EIEVM+10~, EIEVM+11*, SETEIE+2, SETEIE+3, FNUM~ |
| INP( | SETNIH+5, SETNIH+6 |
| INV | SETREF+14~, SETREF+15*, SETREF+16, SETREF+18 |
| INVDATE | DELREF+4~, DELREF+10*, DELREF+17 |
| INVDT | SETLKW+2~ |
| LKWDATE | SETLKW+1~ |
| MEAIEN | SETLKW+2~ |
| MEAVIEN | SETLKW+2~ |
| MIEN | SETLKW+1~ |
| NAME | GETVM+14~, GETVM+15* |
| NARR | NARR~, NARR+3*, NARR+4, NARR+5 |
| NARRPTR | NARR+1~, NARR+2*, NARR+6*, NARR+7 |
| NIHDAT | GETVM+22~, GETVM+23*, GETVM+24 |
| NIHDT | GETVM+18~, GETVM+19*, GETVM+20*, GETVM+21 |
| NIHEV | STRNIH+1~*, STRNIH+2*, STRNIH+12 |
| NIHNODE | GETVM+22~, GETVM+23* |
| NIHREC | GETVM+18~, GETVM+21*, GETVM+23 |
| NIHVALUE | GETVM+22~, GETVM+23*, GETVM+24 |
| NOD0 | DELREF+4~, DELREF+5*, DELREF+6, DELREF+7 |
| NOD12 | DELREF+19~, DELREF+20* |
| NODE | DMULT~, DMULT+1, DMULT+6 |
| NUM | SETLKW+1~, SETNIH+3~, SETNIH+5*, SETNIH+6 |
| OLDVAL | SETNIH+3~, SETNIH+24*, SETNIH+27 |
| QIEN | SETNIH+3~, STRNIH+23*, STRNIH+25 |
| QUAL | SETNIH+3~, STRNIH+22*, STRNIH+25 |
| QUALS | SETNIH+3~, SETNIH+14*, STRNIH+22 |
| REASON | SETEIE+1~, SETEIE+3*, SETEIE+4, SETEIE+14 |
| REFDT | SETREF~, SETREF+10 |
| REFIEN | SETREF+18*, SETREF+19, DELREF+4~, DELREF+22*, DELREF+23, DELREF+25 |
| REFRES | SETREF~, SETREF+9*, SETREF+20 |
| RET | NARR+4, NARR+5*, NARR+6*, GETVFIEN~, GETVFIEN+2*, GETVFIEN+3*, GETVFIEN+9*, GETVFIEN+10*, GETVFIEN+12*, GETVFIEN+13* , GETVFIEN+17*, GETVFIEN+18*, CHKICDT~, CHKICDT+2*, CHKICDT+7, CHKICDT+8, CHKICDT+10, SETREF+1*, SETREF+2, SETREF+21 , SETREF+22*, SETREF+23, DELREF+1*, DELREF+2, DELREF+9, DELREF+13, DELREF+23, DELREF+26*, DELREF+27, SETLKW+7* , SETLKW+8*, SETLKW+9*, SETLKW+24, SETLKW+25, SETLKW+26, SETNIH+1*, SETNIH+2*, SETNIH+4*, SETNIH+28*, SETNIH+29 , STRNIH+8, STRNIH+9*, STRNIH+10, STRNIH+17*, STRNIH+18, STRNIH+19, STRNIH+20*, STRNIH+27*, STRNIH+28, EIEVM+4* , EIEVM+6, GETVM+3*, GETVM+28*, GETVM+29, SETEIE+4*, SETEIE+5*, SETEIE+6*, SETEIE+10*, SETEIE+16*, SETEIE+17* , FNUM~*, FNUM+1, DMULT~, DMULT+1*, DMULT+4*, DMULT+8* |
| RET( | GETVFIEN+13*, GETVFIEN+17* |
| RET(1 | GETVFIEN+10* |
| RET2 | EIEVM~ |
| RIEN | SETREF+3~, SETREF+4*, SETREF+19*, SETREF+20 |
| SIEN | SETNIH+3~, HOOK+2~, HOOK+4*, HOOK+5 |
| SNOCHEK | GETREF+4~, GETREF+14*, GETREF+16, GETREF+20*, GETREF+22 |
| SNODESC | GETREF+4~, GETREF+16*, GETREF+17, GETREF+22*, GETREF+26 |
| SNOINFO | GETREF+1~, GETREF+2*, GETREF+3, GETREF+26*, GETREF+27 |
| SUBIEN | DMULT~, DMULT+1, DMULT+5 |
| SUM | SETNIH+3~, SETNIH+10* |
| TYPE | SETREF+3~, SETREF+5*, SETREF+20, DELREF+4~, DELREF+12*, DELREF+13, DELREF+16, DELREF+18, SETLKW+1~, SETLKW+10* , SETLKW+23, SETNIH+3~, SETNIH+15*, SETNIH+17, SETNIH+22, SETNIH+25, SETNIH+26, SETNIH+27, STRNIH~, STRNIH+7 , GETVM+5~, GETVM+10*, GETVM+11 |
| TYPENM | GETVM+5~, GETVM+11*, GETVM+12, GETVM+13, GETVM+17, GETVM+25, GETVM+26 |
| U | GETVFIEN+5, GETVFIEN+6, CHKICDT+3, SETREF+20, DELREF+20, SETLKW+4, SETLKW+5, SETLKW+6, SETLKW+12, SETLKW+23 , SETNIH+7, SETNIH+10, SETNIH+11, SETNIH+12, SETNIH+14, STRNIH+1, STRNIH+3, STRNIH+7, STRNIH+22, STRNIH+27 , GETVM+9, GETVM+11, GETVM+15, GETVM+25, GETVM+26, SETEIE+2, SETEIE+3, SETEIE+16 |
| USR | GETVM+5~, GETVM+9*, GETVM+15 |
| VALUE | SETLKW+1~, SETLKW+11*, SETLKW+23, SETNIH+3~, SETNIH+10*, SETNIH+17, SETNIH+22, SETNIH+25, SETNIH+26, SETNIH+27 , STRNIH~, STRNIH+7, GETVM+1~, GETVM+8*, GETVM+24 |
| VCODE | SETNIH+3~, SETNIH+7*, SETNIH+8 |
| VDTE | CHKICDT+1~, CHKICDT+3*, CHKICDT+8 |
| VFIEN | GETVFIEN+1~, GETVFIEN+5*, GETVFIEN+8, GETVFIEN+9, GETVFIEN+10, GETVFIEN+12*, GETVFIEN+13*, GETVFIEN+15*, GETVFIEN+17*, DELREF~ , DELREF+2, DELREF+5, SETNIH~, SETNIH+19, SETNIH+21, HOOK+4, EIEVM~, EIEVM+3, GETVM+20, GETVM+21 , GETVM+23, SETEIE+1~, SETEIE+2*, SETEIE+5, SETEIE+6, SETEIE+7, SETEIE+10, SETEIE+11, DMULT~, DMULT+1 , DMULT+5 |
| VFNEW | SETREF~, SETREF+12, STRNIH+18, STRNIH+19 |
| VFSTR | SETLKW+1~, SETNIH+3~, SETNIH+6*, SETNIH+7, SETNIH+10, SETNIH+11, SETNIH+12, SETNIH+14, STRNIH+1, STRNIH+3 |
| VI | SETLKW+1~, SETNIH+3~ |
| VIEN | GETVFIEN+1~, GETVFIEN+6*, GETVFIEN+11, GETVFIEN+13, CHKICDT+3, SETLKW+1~, SETLKW+5*, SETLKW+7, SETLKW+8, SETLKW+23 , SETNIH~, SETNIH+1, SETNIH+2, SETNIH+17, SETNIH+22, SETNIH+25, SETNIH+26, SETNIH+27, STRNIH~, STRNIH+7 , EIEVM+1~, EIEVM+3*, EIEVM+4, EIEVM+5, GETVM~, GETVM+2, GETVM+4, GETVM+16, GETVM+25, GETVM+26 |
| VITALDT | GETVM+1~, GETVM+8*, GETVM+24 |
| VMARR | EIEVM+1~, EIEVM+2!, GETVM+28 |
| VMARR( | EIEVM+9, GETVM+25*, GETVM+26* |
| VMARR(1 | GETVM+2* |
| VMFIEN | EIEVM+7~, EIEVM+8*, EIEVM+9*, EIEVM+11 |
| VMIEN | SETLKW+1~, SETLKW+6*, SETLKW+13, SETLKW+14*, SETLKW+15*, SETLKW+23, SETLKW+25*, SETNIH+3~, SETNIH+17*, SETNIH+21* , SETNIH+22*, SETNIH+24, SETNIH+25*, SETNIH+26*, SETNIH+27*, SETNIH+28, STRDEL~, STRDEL+2, STRNIH+6*, STRNIH+7 , STRNIH+10*, STRNIH+11, STRNIH+18, STRNIH+19, STRNIH+20, STRNIH+23, HOOK~, HOOK+1, HOOK+3*, HOOK+5 , GETVM+1~, GETVM+3*, GETVM+4*, GETVM+6, GETVM+8, GETVM+25, GETVM+26 |
| VMINP | SETLKW+1~, SETLKW+23*, SETLKW+24, SETNIH+3~, STRNIH+7*, STRNIH+8 |
| WITNESS | SETLKW+1~ |
| X | GETVM+5~, GETVM+6*, GETVM+7, GETVM+8, GETVM+10 |
| XREF | GETVFIEN+1~, GETVFIEN+15*, GETVFIEN+17 |
| Y | SETREF+14~, SETREF+16*, SETREF+17, STRNIH+2~*, STRNIH+4~* |