©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
AQAOPAR1 ; IHS/ORDC/LJF - ADT SERVICE LINKS ;
Source file <AQAOPAR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDIT | ; >>> ask if user wants to edit or delete any current services
|
|
| CHOOSE2 | ||
| CHOOSE1 | ||
| CURRENT | ;ENTRY POINT >>> find all services currently linked
|
|
| ADD | ; >>> ask if user wants to add new services
|
|
| EXIT | ; >>> eoj
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(49 - [#49] | Classic Fileman Calls |
| ^AQAGP - [#9002166.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAGP - [#9002166.4] | CURRENT+7, CHOOSE2+2, CHOOSE2+3*, CHOOSE2+7 |
| ^DD(9002166.4 | CURRENT+5 |
| ^DD(9002166.42 | CURRENT+2 |
| ^UTILITY("DIQ1" | CURRENT+8!, CURRENT+11, CURRENT+12, CURRENT+20!, CURRENT+23 |
| Name | Line Occurrences |
|---|---|
| ADD | CURRENT+14, EDIT+3, CHOOSE1+2 |
| CHOOSE1 | CHOOSE1+2, CHOOSE1+5 |
| CHOOSE2 | CHOOSE2+1, CHOOSE2+9 |
| EXIT | EDIT+3, CHOOSE1+2, ADD+3, CHOOSE2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AQAOCUR | CURRENT+6!, CURRENT+14 |
| AQAOCUR( | CURRENT+12*, CURRENT+17, CURRENT+18 |
| >> AQAODA | CURRENT+9*, CURRENT+11, CURRENT+12, CURRENT+21*, CURRENT+23 |
| >> AQAODR | CURRENT+10*, CURRENT+22*, CURRENT+23 |
| >> AQAODR1 | CURRENT+1*, CURRENT+10, CURRENT+11, CHOOSE1+4, CHOOSE2+7 |
| >> AQAODR2 | CURRENT+2*, CURRENT+19, CURRENT+22, CHOOSE1+4, CHOOSE2+7 |
| >> AQAOFAC | CURRENT+7, CURRENT+8, CURRENT+20, CHOOSE1, CHOOSE1+3, CHOOSE1+4, CHOOSE2+2, CHOOSE2+3, CHOOSE2+4, CHOOSE2+6 , CHOOSE2+7 |
| >> AQAOI | CURRENT+1, CURRENT+2, CURRENT+5 |
| >> AQAOX | CURRENT+6*, CURRENT+7*, CURRENT+9, CURRENT+12, CURRENT+16*, CURRENT+17*, CURRENT+18, CURRENT+21 |
| >> AQAOY | CHOOSE2+1*, CHOOSE2+7 |
| >> DA | CURRENT+8*, CURRENT+20*, CHOOSE1+4*, CHOOSE2+7*, CHOOSE2+8 |
| >> DA( | CURRENT+9*, CURRENT+21* |
| >> DA(1 | CHOOSE1+4*, CHOOSE2+4*, CHOOSE2+6* |
| DIC | CURRENT+8*, CURRENT+20*, CHOOSE1!*, CHOOSE2!*, CHOOSE2+4* |
| DIC("S" | CHOOSE1+1* |
| DIC(0 | CHOOSE1*, CHOOSE2*, CHOOSE2+4* |
| DIE | CHOOSE1+3!*, CHOOSE2+6!* |
| DIQ | CURRENT+8! |
| DIR | EDIT+1!, CHOOSE1!, ADD+1!, CHOOSE2! |
| DIR("A" | EDIT+2*, ADD+2* |
| DIR("B" | EDIT+1*, ADD+1* |
| DIR(0 | EDIT+1*, ADD+1* |
| >> DIRUT | EDIT+3, ADD+3 |
| >> DR | CURRENT+8*, CURRENT+20*, CHOOSE1+4*, CHOOSE2+7* |
| >> DR( | CURRENT+10*, CURRENT+22* |
| >> DTOUT | CHOOSE1+2, CHOOSE2+1 |
| IOF | CURRENT+4 |
| U | CURRENT+5, CHOOSE1+2, CHOOSE2+1, CHOOSE2+5 |
| >> X | CURRENT+2*, CHOOSE1+2, CHOOSE2+1, CHOOSE2+5* |
| >> Y | EDIT+3, CHOOSE1+2, CHOOSE1+4, ADD+3, CHOOSE2+1, CHOOSE2+2, CHOOSE2+5 |