IBD3KPT ;ALB/MAF - Post Init routine for AICS v 3.0 - 11 NOV 96
Source file <IBD3KPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDNAR | ; -- Sets fields .17 ASK FOR ADDITIONAL NARRATIVE and
; .18 ASK FOR CLINICAL LEXICON to 1 'YES'. |
|
| GARBAGE | ; -- Changing the name of the GARBAGE form to WORKCOPY
|
|
| SELEX | ; -- Correct selector for PX INPUT EXAMS
|
|
| SCDATA | ; -- changes PI for SC data fields (did not work as originally defined)
|
|
| AUTOINS | ; -- auto install tool kit into production
|
|
| FRM | ; -- Add tool kit forms
|
|
| LEX | ; -- if clinic lex version two installed, update dd nodes
|
|
| FORMSPEC | ;Form Specs deleted from the file 359.2 FORM SPEC file.
|
|
| RECOMP | ; -- recompile all forms
|
|
| ICD9 | ; -- make sure ICD9 input interface uses diagnosis/problem node
|
|
| SCRN | ||
| ACTIVAT | ; -- activate two entries in 357.69 that were erroniously inactivated
|
|
| OPTRF | ; -- remove erroneous output transform for PX INPUT PATIENT PROBLEMS
|
|
| DELFLD | ; -- delete fields *'d for deletion
|
|
| RESOURC | ; -- add scanning resource device
|
|
| FORMS | ;;
|
|
| BLOCKS | ;;
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | RESOURC+3 |
| ^DIE | ADDNAR+4, GARBAGE+4, SCDATA+5, SCDATA+8, SCDATA+17, RESOURC+6 |
| ^DIK | DELFLD+3 |
| $$TKORDER^IBDF13 | AUTOINS+14 |
| UNCMPALL^IBDF19 | RECOMP+2 |
| SCAN^IBDFBKS | FORMSPEC+4 |
| $$COPYBLK^IBDFU2 | AUTOINS+14 |
| $$COPYFORM^IBDFU2C | FRM+5 |
| $$TKFORM^IBDFU2C | AUTOINS+14 |
| DLTBLK^IBDFU3 | AUTOINS+15 |
| MES^XPDUTL | AUTOINS+2, AUTOINS+12, FRM+4, FRM+7, FRM+9, FRM+10, LEX+5, LEX+6, FORMSPEC+1, ICD9+7 , DELFLD+5, RESOURC+2 |
| FileNo | Call Tags |
|---|---|
| ^%ZIS(1 - [#3.5] | Classic Fileman Calls |
| ^IBE(357 - [#357] | Classic Fileman Calls |
| ^IBE(357.6 - [#357.6] | Classic Fileman Calls |
| ^IBE(357.93 - [#357.93] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | RESOURC+1 |
| ^DD(357.3 | LEX+2* |
| ^DD(357.6 | DELFLD+1 |
| ^DD(357.951 | LEX+4* |
| ^DD(358.3 | LEX+3* |
| ^IBD(357.95 - [#357.95] | FORMSPEC+4 |
| ^IBD(359.2 - [#359.2] | FORMSPEC+4 |
| ^IBE(357 - [#357] | GARBAGE+2, GARBAGE+3, AUTOINS+7, FRM+3, RECOMP+2 |
| ^IBE(357.1 - [#357.1] | AUTOINS+11 |
| ^IBE(357.6 - [#357.6] | ADDNAR+3, SELEX+2, SELEX+3, SELEX+4*, SCDATA+2, SCDATA+6, ICD9+2, ICD9+3, ICD9+5, ICD9+6* , SCRN, SCRN+1, SCRN+3*, OPTRF+2, OPTRF+3! |
| ^IBE(357.69 - [#357.69] | ACTIVAT+1*, ACTIVAT+2* |
| ^IBE(357.93 - [#357.93] | SCDATA+11, SCDATA+12, SCDATA+13 |
| ^IBE(358 - [#358] | FRM+2 |
| ^IBE(358.1 - [#358.1] | AUTOINS+8, AUTOINS+9, AUTOINS+10, AUTOINS+12 |
| ^LEX | LEX+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | AUTOINS+1~ |
| ARY | AUTOINS+1~ |
| BLK | AUTOINS+1~, AUTOINS+8*, AUTOINS+9, AUTOINS+10, AUTOINS+12, AUTOINS+14, AUTOINS+15 |
| CNT | AUTOINS+1~, FRM+1* |
| CNT1 | AUTOINS+1~ |
| CNTB | AUTOINS+1~, AUTOINS+3*, AUTOINS+14*, FRM+7, FRM+10 |
| CNTF | AUTOINS+1~, AUTOINS+3*, FRM+5*, FRM+7, FRM+9 |
| DA | ADDNAR+4*, ADDNAR+5!, GARBAGE+4*, GARBAGE+5!, SCDATA+4*, SCDATA+5!, SCDATA+7*, SCDATA+8!, SCDATA+16*, SCDATA+17! , DELFLD+3*, DELFLD+4!, RESOURC+4*, RESOURC+6! |
| DA(1 | SCDATA+7*, SCDATA+16*, DELFLD+2* |
| DIC | RESOURC+3*, RESOURC+6! |
| DIC(0 | RESOURC+3* |
| DIE | ADDNAR+4*, ADDNAR+5!, GARBAGE+4*, GARBAGE+5!, SCDATA+4*, SCDATA+5!, SCDATA+7*, SCDATA+8!, SCDATA+16*, SCDATA+17! , RESOURC+6*! |
| DIK | DELFLD+2*, DELFLD+4! |
| >> DLAYGO | RESOURC+3* |
| DR | ADDNAR+4*, ADDNAR+5!, GARBAGE+4*, GARBAGE+5!, SCDATA+4*, SCDATA+5!, SCDATA+7*, SCDATA+8!, SCDATA+16*, SCDATA+17! , RESOURC+5*, RESOURC+6! |
| EXCLUDE | AUTOINS+1~ |
| FORM | AUTOINS+1~, FRM+2*, FRM+5 |
| FORMNM | AUTOINS+1~, AUTOINS+6*, AUTOINS+7, FRM+1*, FRM+2, FRM+3, FRM+4 |
| IBDA | ICD9+1~, ICD9+2*, ICD9+3, ICD9+5, ICD9+6, SCRN*, SCRN+1, SCRN+3 |
| IBDFA | OPTRF+1~, OPTRF+2*, OPTRF+3 |
| IBDIFN | ADDNAR+2~, ADDNAR+3*, ADDNAR+4, GARBAGE+1~, GARBAGE+3*, GARBAGE+4, SELEX+1~, SELEX+2*, SELEX+3, SELEX+4 , SCDATA+1~, SCDATA+2*, SCDATA+4, SCDATA+6, SCDATA+7, SCDATA+11, FORMSPEC+2~, FORMSPEC+3*, FORMSPEC+4* |
| IBDIFN1 | SCDATA+1~, SCDATA+6*, SCDATA+7, SCDATA+10~, SCDATA+11*, SCDATA+12, SCDATA+13, SCDATA+16 |
| IBDIFN2 | SCDATA+10~, SCDATA+12*, SCDATA+13, SCDATA+16 |
| IBDX | ICD9+1~, ICD9+3*, ICD9+4, SCRN+1*, SCRN+2 |
| >> IBFORM | RECOMP+1*, RECOMP+2* |
| IBI | ADDNAR+2~, ADDNAR+4* |
| IBTKBLK | AUTOINS+13~* |
| NAME | AUTOINS+1~, AUTOINS+9*, AUTOINS+11 |
| NEWBLOCK | AUTOINS+1~, AUTOINS+14*, AUTOINS+15 |
| NEWFORM | AUTOINS+1~, FRM+5* |
| NODE | SCDATA+10~, SCDATA+13*, SCDATA+14, SCDATA+15 |
| >> ORD | AUTOINS+8* |
| VAL | SCDATA+10~, SCDATA+15* |
| VAR | SCDATA+1~, SCDATA+3* |
| X | AUTOINS+1~, RESOURC+3* |
| Y | AUTOINS+1~, RESOURC+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(FORMS+CNT | FRM+1 |
