©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
IBDF9C ;ALB/CJM - ENCOUNTER FORM - (edit header block) ;FEB 1,1993
Source file <IBDF9C.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 4 | UNCMPBLK^IBDF19 IDXFORM^IBDF5A DLTBLK^IBDFU3 TOPNBOT^IBDFU5 |
| Registration | 2 | FULL^VALM1 RE^VALM4 |
| VA Fileman | 2 | FILE^DICN ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DFLTCOL() | ;finds the column that would center the header block
|
|
| FINDBLK() | ;
|
|
| MAKEBLK() | ;
|
|
| MAKEFLD() | ;
|
|
| FINDFLD() | ;
|
|
| EDITBLK | ;allows the user to position the header block & draw a box around it
|
|
| MOVEFLD | ;centers each header line in the block
|
|
| EDITFLD | ;allows the user to edit the header lines
|
|
| EDITHDR | ;edit the header block
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.1 - [#357.1] | Classic Fileman Calls |
| ^IBE(357.5 - [#357.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | FINDBLK+1, MOVEFLD+3 |
| ^IBE(357.5 - [#357.5] | FINDFLD+1, EDITFLD+5, MOVEFLD+5, MOVEFLD+6* |
| Name | Line Occurrences |
|---|---|
| $$FINDBLK | EDITHDR+4 |
| $$FINDFLD | EDITHDR+6 |
| $$MAKEBLK | EDITHDR+4 |
| $$MAKEFLD | EDITHDR+6 |
| EDITBLK | EDITHDR+8 |
| EDITFLD | EDITHDR+7 |
| MOVEFLD | EDITHDR+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EDITFLD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BOT1 | EDITHDR+1~, EDITHDR+2*, EDITHDR+5, EDITHDR+10 |
| BOT2 | EDITHDR+1~, EDITHDR+2*, EDITHDR+9, EDITHDR+10 |
| DA | EDITFLD+2!*, EDITBLK+4!* |
| DD | MAKEBLK+2!, MAKEFLD+1! |
| DIC | MAKEBLK+2!*, MAKEBLK+3!, MAKEFLD+1!*, MAKEFLD+2! |
| DIC("DR" | MAKEBLK+2*, MAKEFLD+1* |
| DIC(0 | MAKEBLK+2*, MAKEFLD+1* |
| DIE | MAKEBLK+3!, MAKEFLD+2!, EDITFLD+2!*, EDITBLK+4!* |
| DIE("NO^" | EDITFLD+2*, EDITBLK+4* |
| DINUM | MAKEBLK+2!, MAKEFLD+1! |
| DO | MAKEBLK+2!, MAKEFLD+1! |
| DR | EDITFLD+2*!, EDITBLK+4*! |
| HDR | MOVEFLD+1~, MOVEFLD+5*, MOVEFLD+6 |
| HDRBLK | EDITHDR+1~, EDITHDR+4*, EDITHDR+5, EDITHDR+9, FINDBLK+1*, FINDBLK+2, FINDFLD+1, MAKEFLD+1, EDITFLD+6*, EDITBLK+4 , EDITBLK+5, MOVEFLD+3 |
| HDRFLD | EDITHDR+1~, EDITHDR+6*, FINDFLD+1*, FINDFLD+2, EDITFLD+2, EDITFLD+5, MOVEFLD+5, MOVEFLD+6 |
| HDRLINES | EDITHDR+1~, EDITFLD+4*, EDITFLD+5* |
| IBBOX | EDITBLK+1~, EDITBLK+2*, DFLTCOL+1 |
| IBDELETE | EDITBLK+1~, EDITBLK+2*, EDITBLK+5 |
| >> IBFORM | FINDBLK+1, MAKEBLK+2, EDITFLD+6, EDITBLK+5 |
| >> IBFORM("WIDTH" | DFLTCOL+1 |
| LINES | MOVEFLD+1~, MOVEFLD+2*, MOVEFLD+6* |
| MAXLEN | EDITHDR+1~, EDITFLD+4*, EDITFLD+5*, EDITFLD+6, DFLTCOL+1, MOVEFLD+6 |
| NEWBLOCK | EDITHDR+1~, EDITHDR+2*, MAKEBLK+1*, EDITBLK+5 |
| NODE | EDITFLD+1~, EDITFLD+5*, MOVEFLD+5*, MOVEFLD+6* |
| QUIT | EDITHDR+1~, EDITHDR+2*, EDITHDR+8, EDITFLD+6* |
| START | MOVEFLD+1~, MOVEFLD+3*, MOVEFLD+6 |
| SUBFLD | EDITFLD+1~, EDITFLD+5*, MOVEFLD+1~, MOVEFLD+4*, MOVEFLD+5*, MOVEFLD+6 |
| TOP1 | EDITHDR+1~, EDITHDR+2*, EDITHDR+5, EDITHDR+10 |
| TOP2 | EDITHDR+1~, EDITHDR+2*, EDITHDR+9, EDITHDR+10 |
| >> VALMBCK | EDITHDR+2*, EDITHDR+11* |
| >> X | MAKEBLK+2*, MAKEFLD+1* |
| >> Y | MAKEBLK+4, MAKEFLD+3 |