©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
BCSVMD ;IHS/CIA/BWF - CSV Phase One Management of Data ;16-Apr-2010 09:58;JSH
Source file <BCSVMD.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 6 | FIELD^DID FILE^DIE (EN1,EN2,ENALL,ENALL2)^DIK $$ROOT^DILFD $$GET1^DIQ EN^DIU2 |
| IHS Code Set Versioning | 2 | FIX^BCSVP1 ($$AGECON,$$AGECON80,RPALL,UPDCODES,VERSION)^BCSVUT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDLST(FIL) | ;
; Build a list of all files that are located in a subfile (these are the multiples) |
|
| INDEX | ;
|
|
| XREFUPD | ;
|
|
| CALDELDD | ;
|
|
| READ(TAG,INCR) | ;
|
|
| GET | ;EP
; Gather data from fields that are to be moved and store for later use.\ ; Variable XREFS is used for multiple fields that have a file level xref that needs to be re-indexed. ; Single fields with x-refs will be handled by file manager upon calling FILE^DIE |
|
| SNCFLDS | ;
; Synchronization of data for new fields added to IHS dictionaries |
|
| CLEAN(TRGT,IEN,XREFDATA,FIELD,MERGELOC,ROOT,SUBLOC) | ;
|
|
| DELDD(FILE) | ;
|
|
| XREFS(XREFS) | ;
|
|
| DELDUM | ;
|
|
| UPDATE | ;
|
|
| MULT(FILE,FLD,TRGT,IEN,XREFS,MAPIEN) | ;
|
|
| INIT | ;
|
|
| ICDSET | ;
|
|
| SNCFLDS2 | ;
; Synchronization of data for new fields added to IHS dictionaries |
|
| PUT | ;
; Put the data back into the correct field(s) |
|
| IMPORT | ;
|
|
| FLDLST | ;
|
|
| SINGLE(FILE,FLD,TRGT,IEN,MAPIEN) | ;
; Input - FILE - IHS File Number ; FLD - IHS Field Number |
| Name | Field # of Occurrence |
|---|---|
| FIX^BCSVP1 | SNCFLDS2+36 |
| $$AGECON^BCSVUT | SINGLE+26 |
| $$AGECON80^BCSVUT | SINGLE+25 |
| RPALL^BCSVUT | SNCFLDS2+35 |
| UPDCODES^BCSVUT | SNCFLDS+5 |
| VERSION^BCSVUT | SNCFLDS+21, SNCFLDS+22, SNCFLDS2+32 |
| FIELD^DID | GET+17, PUT+13, SNCFLDS+29, SNCFLDS2+28, SINGLE+8, MULT+3 |
| FILE^DIE | GET+32, GET+34, GET+37, PUT+26, PUT+27, SINGLE+27 |
| EN1^DIK | CLEAN+40, CLEAN+47 |
| EN2^DIK | CLEAN+22, CLEAN+31 |
| ENALL^DIK | PUT+23, MULT+26, XREFUPD+3, XREFUPD+4, XREFUPD+8 |
| ENALL2^DIK | MULT+18 |
| $$ROOT^DILFD | GET+19, PUT+16, PUT+25, SNCFLDS+16, SNCFLDS2+16, SINGLE+5, MULT+2 |
| $$GET1^DIQ | GET+33, SNCFLDS+21, SNCFLDS+22, SNCFLDS2+21, SINGLE+15 |
| EN^DIU2 | DELDD+3 |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls, GET1^DIQ |
| ^ICD0 - [#80.1] | GET1^DIQ |
| ^ICPT - [#81] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTCMOD - [#9999999.88] | PUT+3 |
| ^DD( | GET+15, PUT+29*, BLDLST+4, BLDLST+6, SINGLE+17 |
| ^DIC(81.1 - [#81.1] | CALDELDD+1, CALDELDD+3* |
| ^DIC(81.3 - [#81.3] | PUT+3*, XREFUPD+6 |
| ^ICD("ADS" | ICDSET+4*, ICDSET+5*, ICDSET+6* |
| ^ICD("B" | ICDSET+7*, ICDSET+8*, ICDSET+9* |
| ^ICD(541 | ICDSET+1* |
| ^ICD(542 | ICDSET+2* |
| ^ICD(543 | ICDSET+3* |
| ^ICD9 - [#80] | CLEAN+34*, DELDUM+3, DELDUM+5, DELDUM+6* |
| ^ICD9("AB" | XREFUPD+2! |
| ^TMP("BCSVMD" | CALDELDD+1*, CALDELDD+3 |
| ^XCSV( | SNCFLDS+20, SNCFLDS+23, SNCFLDS+24, SNCFLDS2+20, SNCFLDS2+22, SNCFLDS2+23, SINGLE+6, SINGLE+13, SINGLE+23, MULT+20 , CLEAN+14, CLEAN+15, CLEAN+23 |
| ^XCSV("ICD9" | SNCFLDS2+11, INDEX+3, INDEX+4, INDEX+5* |
| ^XTMP("AUMCSVMD" | GET+28*, GET+29*, GET+30*, GET+35*, GET+36*, PUT+5, PUT+7, PUT+9, PUT+10, PUT+12 , PUT+17, PUT+24, BLDLST+7* |
| ^XTMP("XREFS" | XREFS+3* |
| Name | Line Occurrences |
|---|---|
| $$READ | SNCFLDS+8, SNCFLDS2+6 |
| CALDELDD | GET+38 |
| DELDD | CALDELDD+2 |
| DELDUM | GET+38 |
| ICDSET | GET+38 |
| INDEX | SNCFLDS2+11 |
| INIT | GET+5, SNCFLDS+4, SNCFLDS2+3 |
| MULT | SNCFLDS+30, SNCFLDS2+29 |
| SINGLE | SNCFLDS+32, SNCFLDS2+31 |
| XREFS | SNCFLDS+15, SNCFLDS2+15 |
| XREFUPD | SNCFLDS2+33 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUMCSV | GET+4~, GET+21*, GET+22*, GET+26, GET+28, GET+29, GET+30, GET+32, GET+33, GET+34 , GET+35, GET+36, GET+37 |
| AUMDATA | GET+4~ |
| AUMDATA("GLOB | AL SUBSCRIPT LOCATION" , GET+24 |
| AUMDATA("MULTIPLE-VALUED" | GET+18 |
| CLOOPSTR | CLEAN+1~, CLEAN+3*, CLEAN+9, CLEAN+11, CLEAN+19 |
| CNT | PUT+2~, PUT+8* |
| CSVDAT | SINGLE+4~, SINGLE+9 |
| CSVDAT("GLOBA | L SUBSCRIPT LOCATION" , SINGLE+10 |
| DA | DELDUM+1~, DELDUM+4*, DELDUM+5*, DELDUM+6 |
| DA(1 | MULT+12*, CLEAN+10*, DELDUM+2*, DELDUM+3*, DELDUM+5, DELDUM+6, XREFUPD+7* |
| DATA | GET+4~, GET+10*, GET+11, GET+12, GET+39!, READ+3*, READ+4, SINGLE+4~, SINGLE+6*, SINGLE+7 , XREFS+1~, XREFS+5*, XREFS+6, DELDUM+1~ |
| DATALOC | SINGLE+4~, SINGLE+10*, SINGLE+11 |
| DATANODE | CLEAN+1~, CLEAN+11*, CLEAN+12, CLEAN+33, CLEAN+41 |
| DATAPC | SINGLE+4~, SINGLE+14*, SINGLE+22, SINGLE+23*, SINGLE+24*, SINGLE+25*, SINGLE+26*, SINGLE+27 |
| DATAROOT | GET+4~, GET+26*, GET+27, GET+30, GET+31 |
| DDLM | INIT+1*, GET+4~, GET+10, SNCFLDS+2~, SNCFLDS2+2~, READ+3 |
| DEL | GET+4~, GET+12*, GET+16, GET+27, GET+31, GET+32, GET+37 |
| DIK | PUT+19*, MULT+1~, MULT+12*, CLEAN+10*, XREFUPD+1~, XREFUPD+3*, XREFUPD+4*, XREFUPD+7* |
| DIK(1 | PUT+23*, MULT+18*, MULT+26*, CLEAN+22*, CLEAN+31*, CLEAN+40*, CLEAN+47*, XREFUPD+3*, XREFUPD+4*, XREFUPD+5* |
| DIU | DELDD+1~, DELDD+3* |
| DIU(0 | DELDD+3* |
| DLM | INIT+1*, GET+4~, GET+12, SNCFLDS+2~, SNCFLDS+10, SNCFLDS+11, SNCFLDS+12, SNCFLDS+13, SNCFLDS2+2~, SNCFLDS2+8 , SNCFLDS2+9, SNCFLDS2+10, SNCFLDS2+12, SNCFLDS2+13 |
| FDA | GET+32!, GET+34!, GET+37!, PUT+26!, PUT+27!, SINGLE+27! |
| FDA( | GET+32*, GET+34*, GET+37*, PUT+26*, SINGLE+27* |
| FIELD | SNCFLDS+2~, SNCFLDS+27*, SNCFLDS+29, SNCFLDS+30, SNCFLDS+32, SNCFLDS2+2~, SNCFLDS2+26*, SNCFLDS2+28, SNCFLDS2+29, SNCFLDS2+31 , CLEAN~, CLEAN+32 |
| FIL | BLDLST~, BLDLST+4, BLDLST+6, BLDLST+7 |
| FILE | SNCFLDS+2~, SNCFLDS+10*, SNCFLDS+14, SNCFLDS+16, SNCFLDS+21, SNCFLDS+22, SNCFLDS+29, SNCFLDS+30, SNCFLDS+32, SNCFLDS2+2~ , SNCFLDS2+8*, SNCFLDS2+14, SNCFLDS2+16, SNCFLDS2+21, SNCFLDS2+28, SNCFLDS2+29, SNCFLDS2+31, SINGLE~, SINGLE+5, SINGLE+8 , SINGLE+15, SINGLE+17, SINGLE+25, SINGLE+26, SINGLE+27, MULT~, MULT+2, MULT+3, DELDD~, DELDD+2 , DELDD+3 |
| FL | PUT+2~, PUT+28*, PUT+29, CALDELDD+2~* |
| FLD | BLDLST+2~, BLDLST+5*, BLDLST+6*, BLDLST+7, SINGLE~, SINGLE+8, SINGLE+15, SINGLE+17, SINGLE+25, SINGLE+26 , SINGLE+27, MULT~, MULT+3, XREFS+1~, XREFS+9*, XREFS+10 |
| FLDDATA | PUT+2~, PUT+24*, PUT+26 |
| FLDLST | SNCFLDS+2~, SNCFLDS+11*, SNCFLDS+14, SNCFLDS+27, SNCFLDS2+2~, SNCFLDS2+9*, SNCFLDS2+14, SNCFLDS2+26 |
| FLDS | XREFS+1~, XREFS+6*, XREFS+9 |
| FLDTYP | SINGLE+4~, SINGLE+18*, SINGLE+19 |
| FLDZERO | SINGLE+4~, SINGLE+17*, SINGLE+18, SINGLE+20 |
| FUNC | SNCFLDS+21*, SNCFLDS+22*, SNCFLDS2+2~, SNCFLDS2+13*, SNCFLDS2+32 |
| GLOBNODE | GET+4~, GET+24*, GET+25*, GET+26 |
| I | GET+4~, GET+7*, GET+39!, SNCFLDS+2~, SNCFLDS+7*, SNCFLDS+8, SNCFLDS2+2~, SNCFLDS2+5*, SNCFLDS2+6, XREFS+1~ , XREFS+4*, XREFS+5 |
| IEN | PUT+2~, PUT+8*, PUT+9*, PUT+10, PUT+12, PUT+16, PUT+17, PUT+24, PUT+25, PUT+26 , SNCFLDS+2~, SNCFLDS+18*, SNCFLDS+19*, SNCFLDS+20, SNCFLDS+21, SNCFLDS+22, SNCFLDS+23, SNCFLDS+24, SNCFLDS+30, SNCFLDS+32 , SNCFLDS2+2~, SNCFLDS2+18*, SNCFLDS2+19*, SNCFLDS2+20, SNCFLDS2+21, SNCFLDS2+22, SNCFLDS2+23, SNCFLDS2+29, SNCFLDS2+31, SNCFLDS2+32 , SINGLE~, SINGLE+15, SINGLE+25, SINGLE+27, MULT~, MULT+10, MULT+11, MULT+12, CLEAN~, CLEAN+7 , CLEAN+10, CLEAN+34, XREFUPD+1~, XREFUPD+6*, XREFUPD+7 |
| IHSDAT | SINGLE+4~, SINGLE+15*, SINGLE+16 |
| IHSDATA | GET+4~, GET+33*, GET+35, GET+36 |
| IHSFILE | GET+4~, GET+12*, GET+13, GET+15, GET+17, GET+19, GET+28, GET+29, GET+30, GET+32 , GET+33, GET+34, GET+36, GET+37, GET+39!, PUT+2~, PUT+4*, PUT+5*, PUT+7, PUT+9 , PUT+10, PUT+12, PUT+13, PUT+16, PUT+17, PUT+24, PUT+25, PUT+26 |
| IHSFLD | GET+4~ |
| IHSIEN | INDEX+1~, INDEX+2*, INDEX+3*, INDEX+4, INDEX+5 |
| IHSPTR | CLEAN+1~, CLEAN+23*, CLEAN+24, CLEAN+25, CLEAN+34, CLEAN+41 |
| IHSROOT | GET+4~, GET+19*, GET+20, GET+26, GET+39! |
| >> INACT | SNCFLDS+21* |
| INCR | READ~ |
| J | PUT+20*, PUT+21, SNCFLDS+26*, SNCFLDS+27, SNCFLDS2+2~, SNCFLDS2+25*, SNCFLDS2+26, XREFS+1~, XREFS+8*, XREFS+9 |
| JQUIT | SNCFLDS+2~, SNCFLDS+25*, SNCFLDS+26, SNCFLDS+27*, SNCFLDS2+2~, SNCFLDS2+24*, SNCFLDS2+25, SNCFLDS2+26*, XREFS+1~, XREFS+7* , XREFS+8, XREFS+9* |
| LINE | GET+4~, GET+9*, GET+10, GET+39!, SNCFLDS+2~, SNCFLDS+8*, SNCFLDS+9, SNCFLDS+10, SNCFLDS+11, SNCFLDS+12 , SNCFLDS+13, SNCFLDS2+2~, SNCFLDS2+6*, SNCFLDS2+7, SNCFLDS2+8, SNCFLDS2+9, SNCFLDS2+10, SNCFLDS2+12, SNCFLDS2+13, READ+1~ , READ+2*, READ+3 |
| LOC | XREFS+1~, XREFS+6*, XREFS+10 |
| LOOPSTR | GET+20*, GET+22, SNCFLDS+2~, SNCFLDS+17*, SNCFLDS+19, SNCFLDS2+2~, SNCFLDS2+17*, SNCFLDS2+19 |
| MAPIEN | SNCFLDS+24*, SNCFLDS+30, SNCFLDS+32, SNCFLDS2+23*, SNCFLDS2+29, SNCFLDS2+31, SINGLE~, SINGLE+6, SINGLE+13, MULT~ , MULT+20 |
| MERGELOC | MULT+1~, MULT+10*, MULT+11*, MULT+19, MULT+20, CLEAN~, CLEAN+3 |
| MULT | GET+4~, GET+8*, GET+18*, GET+23, SNCFLDS+2~ |
| MULT("MULTIPLE-VALUED" | SNCFLDS+30, SNCFLDS2+29 |
| NEWDAT | SINGLE+4~, SINGLE+13*, SINGLE+14, SINGLE+16, DELDUM+1~ |
| NEWFLD | PUT+2~, PUT+6*, PUT+7*, PUT+9, PUT+10, PUT+12, PUT+13, PUT+17, PUT+23, PUT+24 , PUT+26 |
| NEWLOC | PUT+2~ |
| NEWLOC("GLOBA | L SUBSCRIPT LOCATION" , PUT+14 |
| NIHSFILE | GET+4~, GET+12*, GET+35 |
| NIHSFLD | GET+12*, GET+16, GET+28, GET+29, GET+30, GET+35, GET+36, GET+39! |
| NODE | SINGLE+4~, SINGLE+11*, SINGLE+12, SINGLE+13 |
| OIHSFLD | GET+12*, GET+13, GET+15, GET+17, GET+32, GET+33, GET+34, GET+37, GET+39! |
| PIECE | SINGLE+4~, SINGLE+11*, SINGLE+12, SINGLE+14 |
| QUIT | GET+4~, GET+6*, GET+7, GET+11*, GET+13*, GET+39!, PUT+11*, PUT+20, PUT+22*, SNCFLDS+2~ , SNCFLDS+6*, SNCFLDS+7, SNCFLDS+9*, SNCFLDS+14*, SNCFLDS2+2~, SNCFLDS2+4*, SNCFLDS2+5, SNCFLDS2+7*, SNCFLDS2+14*, XREFS+1~ , XREFS+2*, XREFS+4, XREFS+5* |
| ROOT | PUT+2~, PUT+16*, PUT+17, PUT+19, PUT+25*, SNCFLDS+2~, SNCFLDS+16*, SNCFLDS+17, SNCFLDS2+2~, SNCFLDS2+16* , SNCFLDS2+17, SINGLE+4~, SINGLE+5*, MULT+1~, MULT+2*, MULT+10, MULT+11, MULT+12, CLEAN~, CLEAN+7 , CLEAN+10, CLEAN+13 |
| ROOTCHK | CLEAN+1~, CLEAN+13*, CLEAN+15 |
| SUBFIL | BLDLST+2~, BLDLST+3*, BLDLST+4*, BLDLST+6, BLDLST+7 |
| SUBIEN | CLEAN+1~, CLEAN+2*, CLEAN+9*, CLEAN+10 |
| SUBLOC | MULT+1~, MULT+4, MULT+5*, MULT+6, MULT+7, MULT+8, MULT+9, MULT+11, MULT+12, MULT+13 , MULT+15, MULT+17, MULT+20, MULT+21, MULT+23, MULT+25, CLEAN~, CLEAN+4, CLEAN+5, CLEAN+6* , CLEAN+7, CLEAN+10, CLEAN+16, CLEAN+18, CLEAN+21, CLEAN+26, CLEAN+28, CLEAN+30, CLEAN+35, CLEAN+37 , CLEAN+39, CLEAN+42, CLEAN+44, CLEAN+46 |
| SUBLOC("GLOBA | L SUBSCRIPT LOCATION" , MULT+5 |
| SUBLOC2 | MULT+1~, MULT+9*, MULT+10 |
| SUBSCRPT | PUT+2~, PUT+14*, PUT+15*, PUT+16 |
| TAG | READ~ |
| TARGET | SINGLE+4~, SINGLE+20*, SINGLE+21*, SINGLE+23 |
| TEMPSUB | MULT+1~, MULT+6* |
| TEST | CLEAN+1~, CLEAN+7*, CLEAN+8 |
| TRGT | SNCFLDS+2~, SNCFLDS+12*, SNCFLDS+20, SNCFLDS+23, SNCFLDS+24, SNCFLDS+30, SNCFLDS+32, SNCFLDS2+2~, SNCFLDS2+10*, SNCFLDS2+20 , SNCFLDS2+22, SNCFLDS2+23, SNCFLDS2+29, SNCFLDS2+31, SINGLE~, SINGLE+6, SINGLE+13, MULT~, MULT+20, CLEAN~ , CLEAN+14, CLEAN+15, CLEAN+23 |
| U | SINGLE+18, SINGLE+20 |
| VAFILE | GET+4~ |
| VAFLD | GET+4~ |
| VAIEN | INDEX+1~, INDEX+4*, INDEX+5, SINGLE+4~, SINGLE+7* |
| VAPTR | CLEAN+1~, CLEAN+12*, CLEAN+13, CLEAN+14, CLEAN+15, CLEAN+23, CLEAN+24, CLEAN+25 |
| VERINFO | SNCFLDS+3~ |
| XREF | PUT+2~, PUT+21*, PUT+22, PUT+23, XREFS+1~, XREFS+6*, XREFS+10 |
| XREFDATA | CLEAN~ |
| XREFDATA( | MULT+13, MULT+15, MULT+17, MULT+21, MULT+23, MULT+25, CLEAN+16, CLEAN+18, CLEAN+21, CLEAN+26 , CLEAN+28, CLEAN+30, CLEAN+35, CLEAN+37, CLEAN+39, CLEAN+42, CLEAN+44, CLEAN+46, XREFS+10* |
| XREFFLD | MULT+1~, MULT+14*, MULT+15*, MULT+17, MULT+18, MULT+22*, MULT+23*, MULT+25, MULT+26, CLEAN+1~ , CLEAN+17*, CLEAN+18*, CLEAN+21, CLEAN+22, CLEAN+27*, CLEAN+28*, CLEAN+30, CLEAN+31, CLEAN+36*, CLEAN+37* , CLEAN+39, CLEAN+40, CLEAN+43*, CLEAN+44*, CLEAN+46, CLEAN+47 |
| XREFNM | MULT+1~, MULT+16*, MULT+17*, MULT+18, MULT+24*, MULT+25*, MULT+26, CLEAN+1~, CLEAN+20*, CLEAN+21* , CLEAN+22, CLEAN+29*, CLEAN+30*, CLEAN+31, CLEAN+38*, CLEAN+39*, CLEAN+40, CLEAN+45*, CLEAN+46*, CLEAN+47 |
| XREFS | GET+12*, GET+29, PUT+12*, PUT+18, PUT+21, SNCFLDS+2~, SNCFLDS+13*, SNCFLDS+15, SNCFLDS+30, SNCFLDS2+2~ , SNCFLDS2+12*, SNCFLDS2+15, SNCFLDS2+29, MULT~, XREFS~, XREFS+3, XREFS+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(@TAG+INCR | READ+2 |
| $T(FLDLST+I | GET+9 |