©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
AQAOPA4 ; IHS/ORDC/LJF - PRINT ACTION PLANS ;
Source file <AQAOPA4.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 3 | ^DIC EN1^DIP ^DIR |
| Quality Assurance | 1 | KILL^AQAOUTIL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASK | ; >>> ask for action plans by number or category
|
|
| ; >>> print each summary by looping through array & call ^dip
|
||
| END | ; >>> eoj
|
|
| DEV | ; >>> get print device
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AQAO(5 - [#9002168.5] | Classic Fileman Calls |
| Name | Line Occurrences |
|---|---|
| END | ASK+8, DEV+1, DEV+5 |
| DEV+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+1* |
| AQAOARR | ASK+1!, ASK+4, ASK+8 |
| AQAOARR( | ASK+7*, PRINT+2, PRINT+3 |
| >> AQAOCHK("OK" | PRINT+7! |
| >> AQAODEV | DEV+1*, PRINT+5, PRINT+6 |
| >> AQAONUM | PRINT+1*, PRINT+2*, PRINT+3 |
| >> AQAOPN | PRINT+3*, PRINT+5 |
| >> BY | PRINT+5* |
| DIC | ASK+2!*, PRINT+4* |
| DIC("A" | ASK+3*, ASK+4* |
| DIC("S" | ASK+5* |
| DIC(0 | ASK+2* |
| DIR | PRINT+8! |
| DIR("A" | PRINT+8* |
| DIR(0 | PRINT+8* |
| >> DQTIME | PRINT+6* |
| >> FLDS | PRINT+4* |
| >> FR | PRINT+5* |
| IO("Q" | DEV+2, DEV+3! |
| ION | DEV+1 |
| IOP | PRINT+5*, PRINT+6*, PRINT+7! |
| IOST | PRINT+8 |
| >> L | PRINT+4* |
| >> POP | DEV+1 |
| >> TO | PRINT+5* |
| U | ASK+1, ASK+7 |
| >> X | ASK+1*, ASK+6 |
| >> Y | ASK+1*, ASK+6, ASK+7 |
| >> ZTDESC | DEV+3* |
| >> ZTQUEUED | PRINT+6, PRINT+8 |
| >> ZTRTN | DEV+3* |
| >> ZTSAVE("AQAOARR(" | DEV+4* |
| >> ZTSAVE("AQAODEV" | DEV+4* |
| ZTSK | DEV+5! |