©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
IBDF10 ;ALB/CJM - ENCOUNTER FORM - (shift block contents) ;APRIL 22,1993
Source file <IBDF10.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 3 | (BLOCKS,FLDS,HFLDS,LINES,MFLDS,TXT)^IBDF10A LSTS^IBDF10B $$MAX^IBDF10C |
| Registration | 1 | RE^VALM4 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AMOUNT(MAX) | ;now ask user how far to shift - returns AMOUNT
|
|
| B | ;shift blocks
|
|
| E | ;shift everything
|
|
| D | ;shift data fields
|
|
| DIRECTN | ;asks user for direction of shift - returns WAY
|
|
| RANGE(HT,WIDTH) | ;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
|
|
| M | ;shift multiple choice fields
|
|
| L | ;shift lines
|
|
| SHIFT(TYPE) | ;shifts contents of blocks - prompts user for what to shift (unless TYPE is defined), and how much to shift
|
|
| TYPEHELP | ;help for TYPE
|
|
| S | ;shift selection lists
|
|
| T | ;shift text areas
|
|
| H | ;shift hand print fields
|
|
| TYPE | ;asks user for what should be shifted
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| @( | SHIFT+13 |
| AMOUNT | SHIFT+12 |
| DIRECTN | SHIFT+7 |
| RANGE | SHIFT+9 |
| TYPE | SHIFT+4 |
| TYPEHELP | TYPE+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMOUNT | SHIFT+2~, SHIFT+13, AMOUNT+5*, E+1, E+2, E+3, E+4, E+5, E+6, D+1 , M+1, H+1, S+1, T+1, L+1, B+1 |
| BOTTOM | SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+13*, RANGE+29*, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1 |
| DIR | TYPE+2!, TYPE+4!, DIRECTN+2!, AMOUNT+4!, RANGE+2!, RANGE+6!, RANGE+12!, RANGE+17!, RANGE+24! |
| DIR("?" | TYPE+3*, DIRECTN+1*, RANGE+9*, RANGE+21* |
| DIR("A" | TYPE+2*, DIRECTN+1*, AMOUNT+3*, RANGE+4*, RANGE+9*, RANGE+15*, RANGE+20* |
| DIR("B" | TYPE+2*, DIRECTN+1*, RANGE+5*, RANGE+10!, RANGE+16*, RANGE+22! |
| DIR(0 | TYPE+2*, DIRECTN+1*, AMOUNT+2*, RANGE+5*, RANGE+11*, RANGE+16*, RANGE+23* |
| >> DIRUT | TYPE+4, DIRECTN+2, AMOUNT+4, RANGE+6, RANGE+17 |
| >> DTOUT | RANGE+12, RANGE+24 |
| >> DUOUT | RANGE+12, RANGE+24 |
| HT | SHIFT+2~, SHIFT+5*, SHIFT+6*, SHIFT+9, SHIFT+10, RANGE~, RANGE+5, RANGE+11 |
| I | RANGE+1~ |
| >> IBBLK("H" | SHIFT+5 |
| >> IBBLK("W" | SHIFT+5 |
| >> IBFORM("HT" | SHIFT+6 |
| >> IBFORM("WIDTH" | SHIFT+6 |
| LEFT | SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+18*, RANGE+23, RANGE+28*, E+1, E+2, E+3, E+4 , E+5, E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1 |
| MAX | SHIFT+2~, SHIFT+10*, SHIFT+11*, SHIFT+12, AMOUNT~, AMOUNT+2 |
| QUIT | SHIFT+2~, SHIFT+3*, SHIFT+7, SHIFT+9, SHIFT+10, SHIFT+11, SHIFT+12, SHIFT+13, TYPE+4*, DIRECTN+2* , AMOUNT+4*, RANGE+6*, RANGE+12*, RANGE+17*, RANGE+24* |
| RIGHT | SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+25*, RANGE+30*, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1 |
| TOP | SHIFT+2~, SHIFT+10, SHIFT+11, RANGE+7*, RANGE+11, RANGE+28*, E+1, E+2, E+3, E+4 , E+5, E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1 |
| TYPE | SHIFT~, SHIFT+4~, SHIFT+5, SHIFT+6, SHIFT+11, SHIFT+13, TYPE+5* |
| >> VALMBCK | SHIFT+3*, SHIFT+14* |
| WAY | SHIFT+2~, SHIFT+10, SHIFT+11, DIRECTN+3*, AMOUNT+3, E+1, E+2, E+3, E+4, E+5 , E+6, D+1, M+1, H+1, S+1, T+1, L+1, B+1 |
| WIDTH | SHIFT+2~, SHIFT+5*, SHIFT+6*, SHIFT+9, SHIFT+10, RANGE~, RANGE+16, RANGE+23 |
| >> Y | TYPE+4, TYPE+5, DIRECTN+2, DIRECTN+3, AMOUNT+4, AMOUNT+5, RANGE+6, RANGE+7, RANGE+12, RANGE+13 , RANGE+17, RANGE+18, RANGE+24, RANGE+25 |