©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
BGOVCPT ; IHS/BAO/TMD - Manage V CPT ;31-Mar-2016 04:49;du
Source file <BGOVCPT.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 3 | ($$ICDDX,$$ICDOP)^ICDCODE ($$ICDDX,$$ICDOP)^ICDEX ($$CODEN,$$CPT)^ICPTCOD |
| GUI Objects | 2 | ($$CHKVISIT,$$CVTDATE,$$DELETE,$$ERR,$$FMTDATE,$$MAKEHIST,$$TMPGBL,$$UPDATE)^BGOUTL ($$AICD,$$CSVACT,$$FNDNARR,VFDEL,VFEVT,VFNEW)^BGOUTL2 |
| Kernel | 2 | ($$FMDIFF,$$NOW)^XLFDT $$UP^XLFSTR |
| IHS Electronic Health Record | 1 | ($$ISLOCKED,$$VSTR2VIS)^BEHOENCX |
| MSC RPC Broker | 1 | $$GETVAR^CIANBUTL |
| Taxonomy | 1 | $$ICD^ATXAPI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEL(RET,INP) | ;EP
|
|
| GET(RET,INP) | ;EP
|
|
| ADDCPT(CPT,ICD,VSIT,DFN,PRV) | ;EP
|
|
| MODGBL() | ||
| TRANBLD | ||
| IMMCK(RET,CPTIEN) | ;EP
|
|
| PRCBLD(SRCH) | ||
| G0 | ||
| FNUM() | ||
| SET(RET,INP) | ;EP
|
|
| GETIEN(RET,CPT) | ;EP
|
|
| DENBLD | ||
| ARRAY | ||
| GETPRIN(VIEN) | ;
|
|
| SETQTY(RET,INP) | ;EP
|
|
| CHKCPT(CPTIEN,ACTDT,IEN) | ;EP
|
|
| SETDX(RET,INP) | ;EP
|
|
| G1 | ||
| CPTBLD(SRCH) | ;EP- Find CPTs
|
|
| SETPRIN(VIEN,VCPTIEN) | ;
|
|
| TIUSTR() | ;EP
|
|
| SETVAL(RET,IEN,VAL,FLD) | ;
|
|
| INIT(X) |
| Name | Field # of Occurrence |
|---|---|
| $$ICD^ATXAPI | CPTBLD+32, PRCBLD+29 |
| $$ISLOCKED^BEHOENCX | ARRAY+19 |
| $$VSTR2VIS^BEHOENCX | TIUSTR+4 |
| $$CHKVISIT^BGOUTL | SET+40 |
| $$CVTDATE^BGOUTL | SET+7 |
| $$DELETE^BGOUTL | SET+76 |
| $$ERR^BGOUTL | DEL+3, DEL+14, CHKCPT+8, CHKCPT+9, CHKCPT+13, CHKCPT+14, CHKCPT+18, SET+27 |
| $$FMTDATE^BGOUTL | ARRAY+8 |
| $$MAKEHIST^BGOUTL | SET+38 |
| $$TMPGBL^BGOUTL | GET+3 |
| $$UPDATE^BGOUTL | SETVAL+3, SET+75, SETPRIN+5, ADDCPT+10 |
| $$AICD^BGOUTL2 | PRCBLD+12, PRCBLD+35, ARRAY+13 |
| $$CSVACT^BGOUTL2 | MODGBL, CHKCPT+4 |
| $$FNDNARR^BGOUTL2 | SET+17 |
| VFDEL^BGOUTL2 | DEL+15 |
| VFEVT^BGOUTL2 | SETVAL+4, SET+94, ADDCPT+11 |
| VFNEW^BGOUTL2 | SET+44 |
| $$GETVAR^CIANBUTL | TIUSTR+2 |
| $$ICDDX^ICDCODE | ARRAY+14 |
| $$ICDOP^ICDCODE | PRCBLD+36 |
| $$ICDDX^ICDEX | ARRAY+13 |
| $$ICDOP^ICDEX | PRCBLD+12, PRCBLD+35 |
| $$CODEN^ICPTCOD | CHKCPT+6 |
| $$CPT^ICPTCOD | CHKCPT+7 |
| $$FMDIFF^XLFDT | CHKCPT+18 |
| $$NOW^XLFDT | SET+9, ADDCPT+8 |
| $$UP^XLFSTR | GET+10 |
| RPC Name | Call Tags |
|---|---|
| BGOVCPT GET | GET |
| BGOVCPT GETIEN | GETIEN |
| BGOVCPT SET | SET |
| BGOVCPT DEL | DEL |
| BGOVCPT SETQTY | SETQTY |
| BGOVCPT SETDX | SETDX |
| BGOVCPT IMMCK | IMMCK |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ATXAX("B" | CPTBLD+29, PRCBLD+29 |
| ^AUPNVCPT - [#9000010.18] | CPTBLD+2, CPTBLD+23, CPTBLD+24, CPTBLD+25, PRCBLD+24, DEL+8, SET+59, SET+61, GETPRIN+3 |
| ^AUPNVCPT("AD" | G1+2, PRCBLD+24, GETPRIN+3, SETPRIN+3 |
| ^AUPNVCPT("C" | G0+1 |
| ^AUPNVDEN - [#9000010.05] | DENBLD+2, DENBLD+13 |
| ^AUPNVDEN("AC" | G0+3 |
| ^AUPNVDEN("AD" | G1+1 |
| ^AUPNVPRC - [#9000010.08] | PRCBLD+2, PRCBLD+10, DEL+12 |
| ^AUPNVPRC("AC" | G0+5 |
| ^AUPNVPRC("AD" | G1+4, DEL+11 |
| ^AUPNVSIT - [#9000010] | CPTBLD+13, PRCBLD+7, ARRAY+1, ARRAY+5, ARRAY+6, SET+8, SET+28 |
| ^AUPNVTC - [#9000010.33] | TRANBLD+1, TRANBLD+9 |
| ^AUPNVTC("AD" | G1+3 |
| ^AUTNPOV - [#9999999.27] | CPTBLD+8, ARRAY+9 |
| ^AUTTADA - [#9999999.31] | DENBLD+4 |
| ^AUTTIMM - [#9999999.14] | IMMCK+3, IMMCK+4 |
| ^AUTTLOC - [#9999999.06] | ARRAY+2, ARRAY+3 |
| ^BCMTCF( | TRANBLD+5, TRANBLD+7 |
| ^DIC(4 - [#4] | ARRAY+4 |
| ^ICD0 - [#80.1] | PRCBLD+13 |
| ^ICPT - [#81] | CPTBLD+7, CPTBLD+26, CPTBLD+38, CPTBLD+41, CPTBLD+42, DENBLD+8, DENBLD+10, DEL+9, CHKCPT+12 |
| ^ICPT("B" | DENBLD+6, SET+30 |
| ^ICPT("BA" | GETIEN+1 |
| ^ICPT("I" | PRCBLD+22 |
| ^TMP("BGOVCPT" | CPTBLD+10* |
| ^VA(200 - [#200] | ARRAY+15 |
| Name | Line Occurrences |
|---|---|
| $$CHKCPT | SET+35 |
| $$FNUM | SETVAL+2, SETVAL+4, SET+3, SETPRIN+4, ADDCPT+2, ADDCPT+11 |
| $$GETPRIN | SET+47 |
| $$MODGBL | ARRAY+16, ARRAY+17 |
| $$SETPRIN | SET+78 |
| ARRAY | CPTBLD+39, DENBLD+14, TRANBLD+10, PRCBLD+38 |
| CPTBLD | G0+1, G1+2 |
| DEL | DEL+12 |
| DENBLD | G0+3, G1+1 |
| G0 | GET+13 |
| G1 | GET+13 |
| GET | TIUSTR+6 |
| INIT | CPTBLD+1, DENBLD+1, TRANBLD, PRCBLD+1 |
| PRCBLD | G0+5, G1+4 |
| SETVAL | SETQTY+1, SETDX+1 |
| TRANBLD | G1+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IMMCK+3, CPTBLD+23, CPTBLD+24 |
| ^(0 | IMMCK+3 |
| ^(21 | ARRAY+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDT | CHKCPT~, CHKCPT+3*, CHKCPT+7, CHKCPT+17*, CHKCPT+18 |
| ADA | DENBLD~, DENBLD+4*, DENBLD+5, DENBLD+6 |
| APCDALVR | SET+1~ |
| APCDOVR | SET+2~, SET+43* |
| BGO | GET+1~ |
| BHSCPT2 | GET+2~ |
| CHKDT | SET+2~, SET+33*, SET+34*, SET+35 |
| CNT | GET+1~, GET+4*, G0+1, G0+3, G0+5, G1+1, G1+2, G1+3, G1+4, CPTBLD+9* , CPTBLD+10, ARRAY+18*, ARRAY+19 |
| COD | GET+1~ |
| CODE | GET+2~, CPTBLD+26*, CPTBLD+27, CPTBLD+30, CPTBLD+32, CPTBLD+33, CPTBLD+34, CPTBLD+35, CPTBLD+36, CPTBLD+37 , CPTBLD+43, DENBLD+8*, DENBLD+9, TRANBLD+5*, PRCBLD+12*, PRCBLD+13*, PRCBLD+14, ARRAY+19 |
| CPT | GETIEN~, GETIEN+1, GET+2~, INIT*, ADDCPT~, ADDCPT+3 |
| CPTIEN | IMMCK~, IMMCK+3, GET+2~, CPTBLD+5*, CPTBLD+6, CPTBLD+7, CPTBLD+11*, CPTBLD+26, CPTBLD+38, CPTBLD+41 , CPTBLD+42, DENBLD+6*, DENBLD+7, DENBLD+8, DENBLD+10, INIT*, ARRAY+19, DEL+7~, DEL+8*, DEL+9 , CHKCPT~, CHKCPT+6*, CHKCPT+7, CHKCPT+12 |
| DELDT | CHKCPT+11~, CHKCPT+15*, CHKCPT+16, CHKCPT+18, SET+2~ |
| DFN | TIUSTR+4, TIUSTR+6, GET+1~, GET+5*, GET+6, G0+1, G0+3, G0+5, SET+1~, SET+6* , SET+38, SET+40, ADDCPT~, ADDCPT+4 |
| DT | CHKCPT+3, CHKCPT+17, SET+43 |
| DUZ | SET+67, SET+71, SET+74, ADDCPT+9 |
| DUZ("AG" | CPTBLD+18, MODGBL, SET+54 |
| DX | GET+1~, CPTBLD+15*, PRCBLD+8*, INIT*, ARRAY+12, ARRAY+13*, ARRAY+14*, ARRAY+19, SET+1~, SET+11* , SET+52 |
| EVNTDT | SET+1~, SET+7*, SET+8*, SET+9*, SET+33, SET+34, SET+38, SET+43 |
| F | ARRAY~, ARRAY+1*, ARRAY+2, ARRAY+3 |
| FAC | ARRAY~, ARRAY+2*, ARRAY+19 |
| FACNAM | ARRAY~, ARRAY+3*, ARRAY+4*, ARRAY+5*, ARRAY+19 |
| FDA | SETVAL+1~, SETVAL+3, SET+2~, SET+49*, SET+50, SET+51, SET+52, SET+53, SET+55, SET+56 , SET+64, SET+65, SET+67, SET+70, SET+71, SET+73, SET+74, SET+75, SETPRIN+1~, SETPRIN+5 , ADDCPT+1~, ADDCPT+2*, ADDCPT+3, ADDCPT+4, ADDCPT+5, ADDCPT+6, ADDCPT+7, ADDCPT+8, ADDCPT+9, ADDCPT+10 |
| FDA( | SETVAL+2*, SET+49, SET+60*, SET+62*, SETPRIN+4*, ADDCPT+2 |
| FLD | SETVAL~, SETVAL+2 |
| FNUM | DEL+1~, DEL+13*, DEL+14, DEL+15, SET+2~, SET+3*, SET+44, SET+49, SET+76, SET+94 |
| FORMAT | GET+1~, GET+11*, CPTBLD+4 |
| HIST | SET+1~, SET+23*, SET+27, SET+29*, SET+37 |
| ICD | ADDCPT~, ADDCPT+6 |
| ICD0FLG | SET+2~ |
| ICD0IEN | GET+1~, PRCBLD+4*, PRCBLD+5, PRCBLD+12, PRCBLD+13, PRCBLD+20, PRCBLD+22, PRCBLD+29, PRCBLD+35, PRCBLD+36 , INIT*, ARRAY+19, DEL+7~, DEL+8*, DEL+9*, DEL+12 |
| ICDARRY | GET+2~ |
| ICDARRY( | CPTBLD+43*, PRCBLD+19, PRCBLD+20 |
| ICDCNT | GET+2~, GET+4* |
| ICODE | PRCBLD~, PRCBLD+19*, PRCBLD+20 |
| IEN | GET+1~, GET+12*, G0+1*, G0+3*, G0+5*, G1+1*, G1+2*, G1+3*, G1+4*, CPTBLD+2 , CPTBLD+23, CPTBLD+24, CPTBLD+25, DENBLD+2, DENBLD+13, TRANBLD+1, TRANBLD+9, PRCBLD+2, PRCBLD+10, ARRAY+19 , DEL+1~, DEL+2*, DEL+3, DEL+8, DEL+15, SETVAL~, SETVAL+2, SETVAL+4, CHKCPT~, CHKCPT+2* , CHKCPT+6, SET+2~, SET+75, ADDCPT+1~, ADDCPT+10 |
| IEN(1 | ADDCPT+11 |
| IEN(2 | SET+63* |
| IEN(3 | SET+63* |
| INP | GET~, GET+5, GET+7, GET+9, GET+10, GET+11, DEL~, DEL+2, DEL+4, SETQTY~ , SETQTY+1, SETDX~, SETDX+1, SET~, SET+4, SET+5, SET+6, SET+7, SET+10, SET+11 , SET+12, SET+13, SET+14, SET+15, SET+17, SET+20, SET+21, SET+22, SET+23, SET+26 |
| ITEMNAME | GET+2~, CPTBLD+38*, DENBLD+10*, TRANBLD+7*, PRCBLD+35*, PRCBLD+36*, INIT*, ARRAY+10, ARRAY+19 |
| LOCIEN | SET+1~, SET+21*, SET+38 |
| MATCH | GET+2~ |
| MAX | GET+1~, GET+7*, GET+8*, G0+1, G0+3, G0+5, G1+1, G1+2, G1+3, G1+4 |
| MOD1 | GET+1~, CPTBLD+19*, CPTBLD+23*, TRANBLD+8*, INIT*, ARRAY+16*, ARRAY+19, SET+1~, SET+12*, SET+55 , SET+59, SET+60 |
| MOD2 | GET+1~, CPTBLD+20*, CPTBLD+24*, INIT*, ARRAY+17*, ARRAY+19, SET+1~, SET+20*, SET+56, SET+61 , SET+62 |
| NARR | SET+1~, SET+19*, SET+51 |
| NODUP | SET+2~, SET+26*, SET+44 |
| OUTLOC | SET+1~, SET+22*, SET+38 |
| PNAR | GET+2~, CPTBLD+7*, CPTBLD+8*, CPTBLD+10, CPTBLD+14*, PRCBLD+9*, INIT*, ARRAY+9*, ARRAY+10*, ARRAY+19 |
| PRCIEN | DEL+7~, DEL+10*, DEL+11*, DEL+12 |
| PRIM | GET+2~, CPTBLD+17*, INIT*, ARRAY+19 |
| PRIN | SET+1~, SET+14*, SET+46, SET+48*, SET+53, SET+78 |
| PRV | GET+2~, CPTBLD+25*, DENBLD+13*, TRANBLD+9*, PRCBLD+10*, INIT*, ARRAY+15*, ARRAY+19, SET+1~, SET+13* , ADDCPT~, ADDCPT+9 |
| QTY | GET+1~, CPTBLD+16*, INIT*, ARRAY+19, SET+1~, SET+10*, SET+64 |
| REC | GET+1~, CPTBLD+2*, CPTBLD+3, CPTBLD+5, CPTBLD+8, CPTBLD+11, CPTBLD+12, CPTBLD+14, CPTBLD+15, CPTBLD+16 , CPTBLD+17, CPTBLD+19, CPTBLD+20, DENBLD+2*, DENBLD+3, DENBLD+4, DENBLD+11, TRANBLD+1*, TRANBLD+2, TRANBLD+3 , TRANBLD+6, TRANBLD+8, PRCBLD+2*, PRCBLD+3, PRCBLD+4, PRCBLD+6, PRCBLD+8, PRCBLD+9 |
| RET | GETIEN~, GETIEN+1*, IMMCK~, IMMCK+2*, IMMCK+4*, GET~, GET+3*, ARRAY+19, DEL~, DEL+2* , DEL+3*, DEL+6, DEL+11, DEL+12, DEL+14*, DEL+15, SETQTY~, SETQTY+1, SETDX~, SETDX+1 , SETVAL~, SETVAL+3*, SETVAL+4, CHKCPT+1~, CHKCPT+2*, CHKCPT+8*, CHKCPT+9*, CHKCPT+13*, CHKCPT+14*, CHKCPT+18* , CHKCPT+19, SET~, SET+3*, SET+17*, SET+18, SET+19*, SET+27*, SET+35*, SET+36, SET+37 , SET+38*, SET+39, SET+40*, SET+41, SET+42, SET+44, SET+45*, SET+75*, SET+76, SET+77 , SET+78*, SET+94, SET+95*, ADDCPT+1~, ADDCPT+10*, ADDCPT+11, ADDCPT+12 |
| SCODE | GET+2~, CPTBLD+42*, CPTBLD+43 |
| SKIP | PRCBLD~, PRCBLD+16*, PRCBLD+20*, PRCBLD+22, PRCBLD+24*, PRCBLD+25, PRCBLD+26, PRCBLD+27*, PRCBLD+34* |
| SRCH | CPTBLD~, CPTBLD+32, PRCBLD~, PRCBLD+29 |
| TAX | GET+2~, CPTBLD+29*, CPTBLD+32 |
| TRANIEN | GET+1~, TRANBLD+3*, TRANBLD+4, TRANBLD+5, TRANBLD+7, INIT*, ARRAY+19 |
| TYP | GET+1~, GET+10*, G0, G0+2, G0+4, G1, CPTBLD+30, CPTBLD+32, CPTBLD+33, CPTBLD+34 , CPTBLD+35, CPTBLD+36, CPTBLD+37, PRCBLD+26, DEL+1~, DEL+4*, DEL+5*, DEL+6, DEL+13, DEL+14 |
| TYPE | SET+1~, SET+5*, SET+30*, SET+35, SET+44, SET+50 |
| U | IMMCK+3, IMMCK+4, GET+7, GET+9, GET+10, GET+11, CPTBLD+5, CPTBLD+7, CPTBLD+8, CPTBLD+11 , CPTBLD+12, CPTBLD+13, CPTBLD+14, CPTBLD+15, CPTBLD+16, CPTBLD+17, CPTBLD+19, CPTBLD+20, CPTBLD+23, CPTBLD+24 , CPTBLD+25, CPTBLD+26, CPTBLD+38, DENBLD+4, DENBLD+8, DENBLD+10, DENBLD+11, DENBLD+13, TRANBLD+3, TRANBLD+5 , TRANBLD+6, TRANBLD+7, TRANBLD+8, TRANBLD+9, PRCBLD+4, PRCBLD+6, PRCBLD+7, PRCBLD+8, PRCBLD+9, PRCBLD+10 , PRCBLD+12, PRCBLD+13, PRCBLD+20, PRCBLD+35, PRCBLD+36, ARRAY+1, ARRAY+2, ARRAY+3, ARRAY+4, ARRAY+5 , ARRAY+6, ARRAY+9, ARRAY+13, ARRAY+14, ARRAY+15, ARRAY+16, ARRAY+17, ARRAY+19, DEL+4, DEL+8 , DEL+13, SETQTY+1, SETDX+1, CHKCPT+9, CHKCPT+14, CHKCPT+15, SET+5, SET+6, SET+7, SET+8 , SET+10, SET+11, SET+12, SET+13, SET+14, SET+15, SET+17, SET+20, SET+21, SET+22 , SET+23, SET+26, SET+28, GETPRIN+3 |
| V | ARRAY~, ARRAY+6*, ARRAY+7, ARRAY+8 |
| V2 | GET+2~, CPTBLD+13*, CPTBLD+43 |
| V3 | GET+2~, PRCBLD+7*, PRCBLD+12, PRCBLD+20, PRCBLD+35, PRCBLD+36 |
| VAL | SETVAL~, SETVAL+2 |
| VCAT | SET+2~, SET+28*, SET+29 |
| VCPT | GETPRIN+1~, GETPRIN+2*, GETPRIN+3*, GETPRIN+4, SETPRIN+1~, SETPRIN+2*, SETPRIN+3*, SETPRIN+4 |
| VCPTIEN | SETPRIN~, SETPRIN+4 |
| VDATE | ARRAY~, ARRAY+8*, ARRAY+13, ARRAY+14, ARRAY+19 |
| VF | GET+2~, INIT*, ARRAY+19 |
| VFIEN | SET+1~, SET+15*, SET+16, SET+42, SET+45*, SET+48, SET+49, SET+59, SET+60, SET+61 , SET+62, SET+76, SET+78, SET+94, SET+95 |
| VFNEW | SET+2~, SET+16*, SET+69, SET+76, SET+94 |
| VIEN | GET+1~, CPTBLD+12*, CPTBLD+13, DENBLD+11*, DENBLD+12, TRANBLD+6*, PRCBLD+6*, PRCBLD+7, INIT*, ARRAY+1 , ARRAY+5, ARRAY+6, ARRAY+19, DEL+7~, DEL+8*, DEL+11, SET+1~, SET+4*, SET+8, SET+27 , SET+28, SET+38, SET+39*, SET+40, SET+44, SET+47, SET+78, GETPRIN~, GETPRIN+3, SETPRIN~ , SETPRIN+3 |
| VISITIEN | GET+1~, GET+9*, GET+13, G1+1, G1+2, G1+3, G1+4, PRCBLD+18, PRCBLD+24 |
| VSIT | ADDCPT~, ADDCPT+5 |
| X | TIUSTR+1~, TIUSTR+2*, TIUSTR+3, TIUSTR+4*, TIUSTR+5, TIUSTR+6, TIUSTR+7, TIUSTR+8, IMMCK+1~, IMMCK+2* , IMMCK+3*, IMMCK+4, GET+2~, CPTBLD+22~, CPTBLD+23*, CPTBLD+24*, PRCBLD~, PRCBLD+16*, PRCBLD+22*, PRCBLD+24 , INIT~, DEL+7~, DEL+8*, CHKCPT+1~, CHKCPT+7*, CHKCPT+8, CHKCPT+9, CHKCPT+12*, CHKCPT+13, CHKCPT+14 , CHKCPT+15, SET+1~, SET+47*, SET+48 |
| Y | TIUSTR+1~, TIUSTR+7*, TIUSTR+9, PRCBLD~, PRCBLD+23*, PRCBLD+24* |
| Z | GET+2~ |