©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
IBDFC2B ;ALB/CJM - ENCOUNTER FORM - converts a form for scanning ;MAR 3, 1995
Source file <IBDFC2B.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 2 | WARNING^IBDFC2 $$PADRIGHT^IBDFU |
| VA Fileman | 2 | ^DIE ^DIR |
| Kernel | 1 | $$UP^XLFSTR |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDFC IBDFC2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASKAUTQ | ||
| CHKVISIT | ;should the selection list use the new Package Interface for Type of Visit?
|
|
| ASKOTH() | ; Function
; -- ask if want to add other hand print field automatically ; Returns 1 if yes, 0 if no, or -1 if uparrow |
|
| CKVALUES | ;make sure the internal value to be passed matches the value displayed and is an active code
|
|
| ADDOTHER | ;add space to the list to write in other
|
|
| ASKOTHQ | ||
| ASKAUTO() | ; Function
; -- ask if want to automatically update codes ; Returns 1 if yes, 0 if no, or -1 if uparrow |
|
| CKACTIVE(X,PI) | ;returns 1 if the X=an active code, 0 otherwise
|
|
| DISPLAY(SLCTN) | ;returns selection display
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.2 - [#357.2] | ADDOTHER+2, ADDOTHER+3*, CHKVISIT+11*, CHKVISIT+13, CHKVISIT+14* |
| ^IBE(357.3 - [#357.3] | CKVALUES+9, CKVALUES+10, CKVALUES+25, CKVALUES+27, CHKVISIT+6, DISPLAY+3, DISPLAY+5, DISPLAY+7 |
| ^IBE(357.6 - [#357.6] | CHKVISIT+2, CHKVISIT+4, CKACTIVE+2 |
| ^IBE(357.69 - [#357.69] | CHKVISIT+6 |
| Name | Line Occurrences |
|---|---|
| $$CKACTIVE | CKVALUES+19, CKVALUES+31 |
| $$DISPLAY | CKVALUES+20 |
| ASKAUTQ | ASKAUTO+11 |
| ASKOTHQ | ASKOTH+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | ASKOTH+4~, ASKOTH+6*, ASKOTH+17*, ASKOTHQ, ASKAUTO+4~, ASKAUTO+6*, ASKAUTO+12*, ASKAUTQ |
| CHANGE | CHKVISIT+3~, CHKVISIT+6*, CHKVISIT+8, CHKVISIT+16 |
| CNT | CHKVISIT+9~*, CHKVISIT+13*, CHKVISIT+14 |
| CODE | CKVALUES+3~, CKVALUES+15*, CKVALUES+16, CKVALUES+19, CKVALUES+29, CKVALUES+34, CKVALUES+36, CHKVISIT+3~, CHKVISIT+6* |
| DA | CKVALUES+33*! |
| DIE | CKVALUES+33*! |
| DIR | ASKOTH+4~, ASKAUTO+4~ |
| DIR("?" | ASKOTH+7*, ASKOTH+8*, ASKOTH+9*, ASKOTH+10*, ASKOTH+11*, ASKOTH+12*, ASKAUTO+7* |
| DIR("A" | ASKOTH+14*, ASKAUTO+9* |
| DIR("B" | ASKOTH+13*, ASKAUTO+8* |
| DIR(0 | ASKOTH+13*, ASKAUTO+8* |
| >> DIRUT | ASKOTH+16, ASKAUTO+11 |
| DR | CKVALUES+33*! |
| I | CKVALUES+3~, CKVALUES+6* |
| >> IBBLK("NAME" | CHKVISIT+2, CHKVISIT+16 |
| >> IBDASK("AUTOCHG" | CKVALUES+31 |
| >> IBLIST | ADDOTHER+2, ADDOTHER+3, CKVALUES+9, CHKVISIT+6, CHKVISIT+11, CHKVISIT+13, CHKVISIT+14 |
| >> IBLIST("BTWN" | DISPLAY+6 |
| >> IBLIST("INPUT_RTN" | CKVALUES+2 |
| >> IBLIST("NAME" | CKVALUES+21, CKVALUES+34, CKVALUES+36, CHKVISIT+2, CHKVISIT+16 |
| >> IBLIST("RTN" | CKVALUES+19, CKVALUES+31, CHKVISIT+2 |
| >> IBLIST("SCPIECE" | CKVALUES+6 |
| >> IBLIST("SCTYPE" | CKVALUES+6, DISPLAY+6 |
| >> IBLIST("SCW" | DISPLAY+6 |
| IEN | CKVALUES+3~, CKVALUES+25*, CKVALUES+26, CKVALUES+27 |
| NODE | ADDOTHER+1~, ADDOTHER+2*, ADDOTHER+3*, CKVALUES+3~, CKVALUES+10*, CKVALUES+13, CKVALUES+15, CHKVISIT+9~, CHKVISIT+13*, CHKVISIT+14 , DISPLAY+1~, DISPLAY+3* |
| PI | CHKVISIT+3~, CHKVISIT+4*, CHKVISIT+5, CHKVISIT+11, CKACTIVE~, CKACTIVE+1, CKACTIVE+2 |
| RET | DISPLAY+1~, DISPLAY+4*, DISPLAY+8*, DISPLAY+10 |
| SC | CHKVISIT+9~*, CHKVISIT+13*, DISPLAY+1~, DISPLAY+4*, DISPLAY+5*, DISPLAY+6, DISPLAY+7 |
| SCDA | DISPLAY+1~, DISPLAY+5*, DISPLAY+7 |
| SLCTN | CKVALUES+3~, CKVALUES+9*, CKVALUES+10, CKVALUES+20, CKVALUES+25, CKVALUES+27, CKVALUES+33, CHKVISIT+3~, CHKVISIT+6*, DISPLAY~ , DISPLAY+3, DISPLAY+5, DISPLAY+7 |
| SUB | CHKVISIT+9~, CHKVISIT+13*, CHKVISIT+14 |
| SUBCOL | CKVALUES+3~, CKVALUES+6*, CKVALUES+24, CKVALUES+25 |
| TEXT | CKVALUES+3~, CKVALUES+20*, CKVALUES+21, CKVALUES+27*, CKVALUES+28, CKVALUES+29, CKVALUES+31, CKVALUES+34, CKVALUES+36 |
| VAL | DISPLAY+1~, DISPLAY+4*, DISPLAY+7*, DISPLAY+8, DISPLAY+9* |
| W | DISPLAY+1~ |
| W( | DISPLAY+6*, DISPLAY+7 |
| X | CKACTIVE~, CKACTIVE+3, ASKOTH+4~, ASKAUTO+4~ |
| Y | ASKOTH+4~, ASKOTH+17, ASKAUTO+4~, ASKAUTO+12 |