©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
AQAOPC80 ; IHS/ORDC/LJF - OCC BY PROVIDER ;
Source file <AQAOPC80.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIC ^DIR |
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 |
| Quality Assurance | 1 | KILL^AQAOUTIL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPT | ; -- ask user to select report to run
|
|
| PROV | ; -- ask for provider or person or vendor
|
|
| RTN | ;;
|
|
| PROFILE1 | ;EP; -- SUBRTN to ask for provider or person or vendor
; called by AQAOPC8 |
|
| EXIT | ; -- eoj
|
|
| ASKP(DIC,DICA,DICS,AQAOPROV,AQAOPRVN) | ; -- SUBRTN to ask prov,pers,vendr name
|
|
| ASK(DIC,DICA,DICS) | ; -- SUBRTN to ask user to choose one item
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAO1(9 - [#9002169.9] | AQAOPC80+9 |
| ^AUTTVNDR - [#9999999.11] | ASK+13 |
| ^DIC(19.1 - [#19.1] | ASK+5 |
| ^VA(200 - [#200] | ASK+7, ASK+8, ASK+9 |
| Name | Line Occurrences |
|---|---|
| @( | RPT+5 |
| ASK | PROV+27, PROV+28, PROV+29, PROV+30, PROV+31 |
| ASKP | PROFILE1+13, PROFILE1+14, PROFILE1+15 |
| EXIT | AQAOPC80+9, PROV+21, RPT+4 |
| PROFILE1 | PROFILE1+16 |
| PROV | PROV+32, RPT+4 |
| RPT | PROV+24, RPT+4 |
| Name | Field # of Occurrence |
|---|---|
| ^("PS" | ASK+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AQAOK | ASK+5*, ASK+7 |
| AQAOPROV | PROFILE1+13, PROFILE1+14, PROFILE1+15, PROFILE1+16, ASKP~, ASKP+3* |
| AQAOPRVN | PROFILE1+13, PROFILE1+14, PROFILE1+15, ASKP~, ASKP+4* |
| >> AQAORTN | RPT+5* |
| >> AQAOSRT | PROV+23*, PROV+26, PROV+27, PROV+28, PROV+29, PROV+30, PROV+31, ASK+3, ASK+5 |
| AQAOXS | PROV+23!, PROV+32 |
| AQAOXS(0 | PROV+24* |
| AQAOXS(1 | ASK+3*, ASK+10*, ASK+16* |
| >> AQAOXSM | AQAOPC80+8* |
| >> AQAOXSN | AQAOPC80+9* |
| DIC | ASK~, ASKP~, ASKP+3 |
| DIC("A" | ASK+1*, ASKP+1* |
| DIC("S" | ASK+1*, ASKP+1* |
| DIC(0 | ASK+2*, ASKP+2* |
| DICA | ASK~, ASK+1, ASKP~, ASKP+1 |
| DICS | ASK~, ASK+1, ASKP~, ASKP+1 |
| DIR | PROV+1!, RPT+1!, PROFILE1+2! |
| DIR("?" | PROV+12*, PROV+13*, PROV+14*, PROV+15*, PROV+16*, PROV+17*, PROV+18*, PROV+19*, PROV+20*, PROFILE1+7* , PROFILE1+8*, PROFILE1+9*, PROFILE1+10* |
| DIR("A" | PROV+2*, PROV+3*, PROV+4*, PROV+5*, PROV+6*, PROV+7*, PROV+8*, PROV+9*, PROV+10*, PROV+11* , RPT+2*, RPT+3*, RPT+4*, PROFILE1+3*, PROFILE1+4*, PROFILE1+5*, PROFILE1+6* |
| DIR("B" | PROV+1*, PROFILE1+2* |
| DIR(0 | PROV+1*, RPT+1*, PROFILE1+2* |
| >> DIRUT | RPT+4 |
| DT | ASK+8 |
| >> DTOUT | PROV+21, RPT+4, ASK+2, PROFILE1+11, ASKP+2 |
| >> DUOUT | PROV+21, ASK+2, PROFILE1+11, ASKP+2 |
| >> I | RPT+3* |
| U | ASK+8, ASK+9, ASKP+3 |
| X | PROV+26*, PROV+27, PROV+28, PROV+29, PROV+30, PROV+31, ASK+7*, ASK+8, ASK+9, ASK+10 , ASK+13*, ASK+14, ASK+15, ASK+16, PROFILE1+12*, PROFILE1+13, PROFILE1+14, PROFILE1+15, ASKP+1~ |
| >> Y | PROV+23, PROV+24, RPT+4, ASK+2, ASK+3, ASK+9, ASK+15, PROFILE1+12, PROFILE1+13, PROFILE1+14 , PROFILE1+15, ASKP+2, ASKP+3 |
| >> Y(0 | ASKP+4 |
| Name | Field # of Occurrence |
|---|---|
| $T(RTN+I | RPT+3 |
| $T(RTN+Y | RPT+5 |