©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
AQAOPV22 ; IHS/ORDC/LJF - PRINT QI CODES BY NUMBER ;
Source file <AQAOPV22.m>
| Package | Total | Call Graph |
|---|---|---|
| Quality Assurance | 4 | BYNUM2^AQAOHPRV (HEADING2,PERSON,VENDOR)^AQAOPV21 (HEADING,INIT,KILL,NEWPG)^AQAOUTIL PRTOPT^AQAOVAR |
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| IHS VA Utilities | 1 | $$VALI^XBDIQ1 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VENDOR | ; -- SUBRTN to print chs provider data
|
|
| PERSON | ; -- SUBRTN to print provider/person data
|
|
| DEV | ; -- SUBRTN to get print device and call print rtn
|
|
| ;EP; -- check user selections and call proper subrtn
|
||
| EXIT | ; -- SUBRTN for eoj
|
|
| ASK | ; -- ask for groups to include
|
|
| HEADING2 | ; -- SUBRTN to print second half of heading
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | DEV+1 |
| ^%ZISC | DEV+5, EXIT+2 |
| ^%ZTLOAD | DEV+5 |
| BYNUM2^AQAOHPRV | AQAOPV22+17 |
| HEADING2^AQAOPV21 | HEADING2+1 |
| PERSON^AQAOPV21 | PERSON+6 |
| VENDOR^AQAOPV21 | VENDOR+7 |
| HEADING^AQAOUTIL | PRINT+3 |
| INIT^AQAOUTIL | PRINT+1 |
| KILL^AQAOUTIL | EXIT+2 |
| NEWPG^AQAOUTIL | PERSON+5, VENDOR+6 |
| PRTOPT^AQAOVAR | DEV+6, EXIT+1 |
| ^DIR | ASK+7 |
| $$VALI^XBDIQ1 | VENDOR+4, VENDOR+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTVNDR - [#9999999.11] | VENDOR+2, VENDOR+3 |
| ^VA(200 - [#200] | PERSON+2, PERSON+3 |
| ^XUSEC("PROVIDER" | PERSON+4 |
| Name | Line Occurrences |
|---|---|
| EXIT | ASK+7, DEV+2, DEV+6, PRINT+7 |
| HEADING2 | PRINT+3, PERSON+5, VENDOR+6 |
| PERSON | PRINT+6 |
| DEV+3 | |
| VENDOR | PRINT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+1* |
| AQAO | PERSON+1~, VENDOR+1~ |
| >> AQAOHCON | PRINT+1* |
| >> AQAOSEL | ASK+8*, PRINT+5, PRINT+6, PERSON+4 |
| >> AQAOSTOP | PERSON+2, PERSON+5, VENDOR+2, VENDOR+6 |
| >> AQAOTY | PRINT+2* |
| AQAOX | PERSON+1~*, PERSON+2*, PERSON+3, PERSON+4, PERSON+6, VENDOR+1~*, VENDOR+2*, VENDOR+3, VENDOR+4, VENDOR+5 , VENDOR+7 |
| DIR | ASK+1! |
| DIR("A" | ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6* |
| DIR(0 | ASK+1* |
| >> DIRUT | ASK+7 |
| IO | PRINT+1 |
| IO("Q" | DEV+3, DEV+4! |
| IOSL | PERSON+5, VENDOR+6 |
| IOST | EXIT+1 |
| >> POP | DEV+2 |
| U | PERSON+2, PERSON+5, VENDOR+2, VENDOR+6 |
| >> Y | ASK+8 |
| >> ZTDESC | DEV+4* |
| >> ZTQUEUED | EXIT+1 |
| >> ZTRTN | DEV+4* |
| >> ZTSAVE("AQAOSEL" | DEV+5* |
| ZTSK | DEV+5! |