©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
IBDFU3 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(deleting blocks) ; 08-JAN-1993
Source file <IBDFU3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DLTTEXT(FILE,BLOCK,TEXT) | ;delete the TEXT AREA
|
|
| DLISTCNT(LIST,FILE) | ;delete the list's selections and groups
|
|
| JUSTDOIT | ;
|
|
| DLTBLK(BLOCK,FORM,FILE) | ;deletes BLOCK (in FILE) if not part of the toolkit (unless IBTKBLK=1) and, if FORM is passed in, the block actually is on FORM
|
|
| DLTLIST(FILE,BLOCK,LIST) | ;delete the LIST, its selections and groups
|
|
| DLTHFLD(FILE,BLOCK,FLD) | ;delete a hand print field
|
|
| DLTIFLD(FILE,BLOCK,FLD) | ;delete a multiple choice field
|
|
| DLTFLD(FILE,BLOCK,FLD) | ;delete a display field
|
|
| DLTLINE(FILE,BLOCK,LINE) | ;delete the line
|
|
| FASTEXIT | ;just sets a flag signaling system should be exited
|
|
| DLTCNTNT(BLOCK,FILE) | ;delete everything in BLOCK, but not the block itself
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE( | DLTBLK+4, DLTBLK+9*, DLTBLK+10!, DLTBLK+13!, DLTCNTNT+6, DLTCNTNT+9, DLTCNTNT+12, DLTCNTNT+15, DLTCNTNT+18, DLTCNTNT+21 , DLTLIST+5!, DLISTCNT+7, DLISTCNT+8, DLISTCNT+10, DLISTCNT+11, DLISTCNT+13!, DLISTCNT+15!, DLISTCNT+16, DLISTCNT+17, DLISTCNT+19! , DLTFLD+5, DLTFLD+7!, DLTIFLD+5, DLTIFLD+7!, DLTHFLD+5, DLTHFLD+7!, DLTTEXT+5, DLTTEXT+7!, DLTLINE+5, DLTLINE+7! |
| Name | Line Occurrences |
|---|---|
| DLISTCNT | DLTLIST+7 |
| DLTCNTNT | JUSTDOIT+2 |
| DLTFLD | DLTCNTNT+9 |
| DLTHFLD | DLTCNTNT+15 |
| DLTIFLD | DLTCNTNT+12 |
| DLTLINE | DLTCNTNT+18 |
| DLTLIST | DLTCNTNT+6 |
| DLTTEXT | DLTCNTNT+21 |
| JUSTDOIT | DLTBLK+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLOCK | DLTBLK~, DLTBLK+1, DLTBLK+4, DLTBLK+5, DLTBLK+9, DLTBLK+10, DLTBLK+13, JUSTDOIT+2, DLTCNTNT~, DLTCNTNT+1 , DLTCNTNT+6, DLTCNTNT+9, DLTCNTNT+12, DLTCNTNT+15, DLTCNTNT+18, DLTCNTNT+21, DLTLIST~, DLTLIST+1, DLTLIST+5, DLTFLD~ , DLTFLD+1, DLTFLD+5, DLTFLD+7, DLTIFLD~, DLTIFLD+1, DLTIFLD+5, DLTIFLD+7, DLTHFLD~, DLTHFLD+1, DLTHFLD+5 , DLTHFLD+7, DLTTEXT~, DLTTEXT+1, DLTTEXT+5, DLTTEXT+7, DLTLINE~, DLTLINE+1, DLTLINE+5, DLTLINE+7 |
| DA | DLTBLK+3~, DLTBLK+5!*, DLTCNTNT+3~, DLTLIST+2~, DLTLIST+3*, DLISTCNT+1~, DLISTCNT+7*, DLISTCNT+10*, DLISTCNT+16*, DLTFLD+3~ , DLTFLD+4*, DLTIFLD+3~, DLTIFLD+4*, DLTHFLD+3~, DLTHFLD+4*, DLTTEXT+3~, DLTTEXT+4*, DLTLINE+3~, DLTLINE+4* |
| DIK | DLTBLK+3~, DLTBLK+5*, DLTCNTNT+3~, DLTLIST+2~, DLTLIST+3*, DLISTCNT+1~, DLISTCNT+9*, DLISTCNT+10*, DLISTCNT+16*, DLTFLD+3~ , DLTFLD+4*, DLTIFLD+3~, DLTIFLD+4*, DLTHFLD+3~, DLTHFLD+4*, DLTTEXT+3~, DLTTEXT+4*, DLTLINE+3~, DLTLINE+4* |
| DIR | FASTEXIT+2!, FASTEXIT+4! |
| DIR("A" | FASTEXIT+2* |
| DIR("B" | FASTEXIT+2* |
| DIR(0 | FASTEXIT+2* |
| >> DIRUT | FASTEXIT+3 |
| FILE | DLTBLK~, DLTBLK+2, DLTBLK+4, DLTBLK+5, DLTBLK+9, DLTBLK+10, DLTBLK+13, JUSTDOIT+2, DLTCNTNT~, DLTCNTNT+1 , DLTCNTNT+2, DLTCNTNT+5, DLTCNTNT+8, DLTCNTNT+11, DLTCNTNT+14, DLTCNTNT+17, DLTCNTNT+20, DLTLIST~, DLTLIST+1, DLTLIST+3 , DLTLIST+5, DLTLIST+7, DLISTCNT~, DLISTCNT+2, DLISTCNT+3, DLISTCNT+4, DLISTCNT+5, DLTFLD~, DLTFLD+1, DLTFLD+2 , DLTFLD+4, DLTFLD+5, DLTFLD+7, DLTIFLD~, DLTIFLD+1, DLTIFLD+2, DLTIFLD+4, DLTIFLD+5, DLTIFLD+7, DLTHFLD~ , DLTHFLD+1, DLTHFLD+2, DLTHFLD+4, DLTHFLD+5, DLTHFLD+7, DLTTEXT~, DLTTEXT+1, DLTTEXT+2, DLTTEXT+4, DLTTEXT+5 , DLTTEXT+7, DLTLINE~, DLTLINE+1, DLTLINE+2, DLTLINE+4, DLTLINE+5, DLTLINE+7 |
| FLD | DLTCNTNT+3~, DLTCNTNT+9*, DLTCNTNT+12*, DLTCNTNT+15*, DLTFLD~, DLTFLD+1, DLTFLD+4, DLTFLD+5, DLTFLD+7, DLTIFLD~ , DLTIFLD+1, DLTIFLD+4, DLTIFLD+5, DLTIFLD+7, DLTHFLD~, DLTHFLD+1, DLTHFLD+4, DLTHFLD+5, DLTHFLD+7 |
| FORM | DLTBLK~, DLTBLK+10, DLTBLK+11, DLTBLK+13 |
| GFILE | DLISTCNT+1~, DLISTCNT+4*, DLISTCNT+7, DLISTCNT+8, DLISTCNT+9, DLISTCNT+15 |
| GRP | DLTLIST+2~, DLISTCNT+1~, DLISTCNT+7*, DLISTCNT+8, DLISTCNT+10, DLISTCNT+11, DLISTCNT+15 |
| >> IBFASTXT | FASTEXIT+3* |
| >> IBTKBLK | DLTBLK+7 |
| LINE | DLTCNTNT+3~, DLTCNTNT+18*, DLTLINE~, DLTLINE+1, DLTLINE+4, DLTLINE+5, DLTLINE+7 |
| LIST | DLTCNTNT+3~, DLTCNTNT+6*, DLTLIST~, DLTLIST+1, DLTLIST+3, DLTLIST+5, DLTLIST+7, DLISTCNT~, DLISTCNT+2, DLISTCNT+7 , DLISTCNT+8, DLISTCNT+13, DLISTCNT+15, DLISTCNT+16, DLISTCNT+17, DLISTCNT+19 |
| NODE | DLTBLK+3~, DLTBLK+4*, DLTBLK+8, DLTBLK+11 |
| SFILE | DLISTCNT+1~, DLISTCNT+5*, DLISTCNT+10, DLISTCNT+11, DLISTCNT+13, DLISTCNT+16, DLISTCNT+17, DLISTCNT+19 |
| SLCTN | DLTLIST+2~, DLISTCNT+1~, DLISTCNT+10*, DLISTCNT+11, DLISTCNT+13, DLISTCNT+16*, DLISTCNT+17, DLISTCNT+19 |
| TARGET | DLTCNTNT+3~, DLTCNTNT+5*, DLTCNTNT+6, DLTCNTNT+8*, DLTCNTNT+9, DLTCNTNT+11*, DLTCNTNT+12, DLTCNTNT+14*, DLTCNTNT+15, DLTCNTNT+17* , DLTCNTNT+18, DLTCNTNT+20*, DLTCNTNT+21 |
| TEXT | DLTCNTNT+3~, DLTCNTNT+21*, DLTTEXT~, DLTTEXT+1, DLTTEXT+4, DLTTEXT+5, DLTTEXT+7 |
| >> VALMBCK | FASTEXIT+1* |
| >> Y | FASTEXIT+3 |