©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
IBDFDE4 ;ALB/AAS - AICS Manual Data Entry, process multiple choice fields ; 29-APR-96IOIN
Source file <IBDFDE4.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 1 | IBDFDE2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MULT(RESULT,IBDF) | ; -- Procedure
; -- Manual Data entry routine for Multiple Choice Fields ; Input : Result := call by reference, used to output results ; IBDF("IEN") := pointer to hand print file (359.94) ; IBDF("PI") := pointer to input package interface ; IBDF("DFN") := pointer to patient ; IBDF("CLINIC") := pointer to hospital location |
|
| OVER | ; -- ask or re-ask for selection(s) from list
|
|
| ASKYNQ | ||
| ASKYN(DIR) | ; -- input dir
|
|
| TEST | ;
|
|
| MULTQ | ;
|
|
| MCOVER | ;
|
| Name | Field # of Occurrence |
|---|---|
| ENDR^%ZISS | MULT+11 |
| ^DIR | OVER+14, ASKYN+2 |
| ^IBDFDE | % |
| $$PARTLST^IBDFDE41 | OVER+37, OVER+42, OVER+43 |
| SEL^IBDFDE41 | OVER+30, OVER+34, OVER+35, OVER+40 |
| CHK^IBDFDE42 | OVER+18, OVER+30, OVER+34, OVER+35, OVER+40 |
| COMPLST^IBDFDE5 | MULT+17 |
| OBJLST^IBDFRPC1 | MULT+14 |
| $$UP^XLFSTR | MULT+20, OVER+16, OVER+20, ASKYN+5, ASKYN+8 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("IB" | MULTQ+4! |
| ^TMP("IBD-ASK" | MULT+20*, OVER+22, OVER+23, ASKYN+9, ASKYN+11 |
| ^TMP("IBD-LCODE" | MULTQ+3! |
| ^TMP("IBD-LST" | MULT+13, MULT+15*, MULT+18, MULT+19, MULT+21, MULTQ+1! |
| ^TMP("IBD-LTEXT" | MULTQ+2! |
| Name | Line Occurrences |
|---|---|
| ASKYNQ | ASKYN+3, ASKYN+6, ASKYN+7 |
| MCOVER | OVER+18, OVER+19, OVER+30, OVER+34, OVER+35, OVER+40 |
| MULT | TEST+11 |
| MULTQ | MULT+18, OVER+25 |
| OVER | OVER+47, MCOVER+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | MULT+10~, MULT+12*, OVER+16*, OVER+17, OVER+18, OVER+19, OVER+20, OVER+30, OVER+34, OVER+35 , OVER+37, OVER+40, OVER+41, OVER+42, OVER+43, OVER+44, OVER+47, ASKYN+1~, ASKYN+3*, ASKYN+5* , ASKYN+6, ASKYN+7, ASKYN+8, ASKYNQ |
| >> ARRAY | OVER+33*, OVER+34, OVER+35, OVER+37, OVER+40, OVER+42, OVER+43, OVER+45 |
| ASKOTHER | MULTQ+5! |
| CHOICE | MULT+10~, MULT+14, MULT+15, MULT+16! |
| DIR | MULT+10~, OVER+14!, ASKYN~, ASKYN+4! |
| DIR("?" | OVER+1*, OVER+2*, OVER+3*, OVER+4*, OVER+6*, OVER+7* |
| DIR("??" | OVER+9* |
| DIR("A" | OVER+13* |
| DIR("B" | ASKYN+3 |
| DIR(0 | OVER+11*, OVER+12* |
| DIRUT | MULT+10~, OVER+17, OVER+25, ASKYN+13 |
| DISPTXT | MULT+10~ |
| DTOUT | MULT+10~ |
| DUOUT | MULT+10~ |
| >> GOTO | OVER+20*, OVER+21, OVER+22, OVER+23, ASKYN+8*, ASKYN+9, ASKYN+11 |
| HDR | MULT+10~ |
| I | MULT+10~ |
| >> IBDASK | MULT+19*, MULT+20, OVER+1, OVER+2, OVER+3, OVER+4, OVER+12, OVER+13 |
| >> IBDEFLT( | OVER+15, OVER+17 |
| IBDF | MULT~, MULT+14, TEST+11 |
| IBDF("APPT" | TEST+2* |
| IBDF("CLINIC" | TEST+3* |
| IBDF("DFN" | TEST+4* |
| IBDF("FORM" | TEST+5* |
| IBDF("FRMDEF" | TEST+6* |
| IBDF("GOTO" | OVER+23*, ASKYN+11* |
| IBDF("IBDF" | MULT+20, TEST+7* |
| IBDF("IEN" | MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, MULTQ+1, MULTQ+2, MULTQ+3, TEST+8* |
| IBDF("OTHER" | MULTQ+5! |
| IBDF("PI" | MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, OVER+15, OVER+17, MULTQ+1, MULTQ+2, MULTQ+3 , TEST+10* |
| IBDF("TYPE" | TEST+9* |
| >> IBDFMIEN | MULT+13, MULT+15, MULT+18, MULT+19, MULT+20, MULT+21, OVER+22, OVER+23, MULTQ+1, MULTQ+2 , MULTQ+3, ASKYN+9, ASKYN+11, TEST+1* |
| >> IBDPI( | OVER+17! |
| >> IBDREDIT | OVER+23*, ASKYN+3, ASKYN+11* |
| >> IBDSEL( | OVER+17! |
| IBDX | MULT+10~ |
| >> IBQUIT | MULT+12*, OVER+24*, OVER+25*, ASKYN+12*, ASKYN+13* |
| >> IOINHI | OVER+1, OVER+2, OVER+3, OVER+4 |
| >> IOINORM | OVER+1, OVER+2, OVER+3, OVER+4 |
| J | MULT+10~ |
| >> NEXT | OVER+40*, OVER+41, OVER+42, OVER+43, OVER+44, OVER+45 |
| >> NEXT1 | OVER+43* |
| >> NUMBER( | OVER+30 |
| OVER | MULT+10~, MULT+12*, OVER+21*, MCOVER+1 |
| QLFR | MULT+10~, MULT+12* |
| RESULT | MULT~, TEST+11 |
| >> RULE | MULT+21*, OVER+1, OVER+2, OVER+3, OVER+4 |
| >> SELAST | OVER+17 |
| >> SELECT | OVER+26*, OVER+30*, OVER+34*, OVER+35, OVER+37*, OVER+40, OVER+42*, OVER+43*, OVER+45* |
| X | MULT+10~, MULT+11*, OVER+22*, OVER+23, ASKYN+1~, ASKYN+9*, ASKYN+11 |
| Y | MULT+10~, OVER+15*, OVER+16, ASKYN+3, ASKYN+5 |