©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
AQAOPC8 ; IHS/ORDC/LJF - OCC BY PROVIDER ;
Source file <AQAOPC8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROFILE | ; -- SUBRTN for starting point for single provider profile
|
|
| MEDSTF | ; >> ask user to select which med staff functions to print
|
|
| DATES | ; >> ask for date range
|
|
| NAME | ; >> ask if user wants provider name to print on report
|
|
| FORMAT | ; >> individual indicators or grouped by med staff function?
|
|
| DEV | ; >> get print device
|
|
| EXIT | ; -- eoj
|
|
| IND | ; >> for MSF chosen get indicators
|
|
| MSF | ;;
|
|
| TYPE | ; -- ask user which provider report to print
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAO(2 - [#9002168.2] | IND+2 |
| Name | Line Occurrences |
|---|---|
| @( | TYPE+9 |
| DATES | DATES+2, FORMAT+12 |
| DEV | FORMAT+13 |
| EXIT | TYPE+2, TYPE+8, NAME+5, MEDSTF+7, DEV+1, DEV+5 |
| FORMAT | FORMAT+12, MEDSTF+7 |
| MEDSTF | MEDSTF+7, IND+1, IND+4 |
| NAME | PROFILE+1, DATES+1 |
| PROFILE | NAME+5, DATES+1 |
| TYPE | TYPE+8, TYPE+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+1* |
| >> AQAOBD | DATES+1* |
| >> AQAOED | DATES+2* |
| AQAOMP | IND+5! |
| AQAOMP( | MEDSTF+13* |
| AQAOMP(10 | FORMAT+14*, MEDSTF+14* |
| AQAOMSF | FORMAT+14*, MEDSTF+7*, MEDSTF+8*, MEDSTF+11, IND+1, IND+5! |
| AQAOMSF( | FORMAT+15*, IND+3* |
| AQAOMSF(0 | MEDSTF+8*, MEDSTF+14, IND+4 |
| >> AQAOPROV | NAME+6 |
| >> AQAOPRVN | NAME+6* |
| >> AQAOUA("USER" | TYPE+2 |
| >> AQAOX | IND+1*, IND+2 |
| >> AQAOY | IND+2*, IND+3 |
| DIR | TYPE+3!, NAME+1!, FORMAT+1!, MEDSTF+1! |
| DIR("?" | TYPE+4*, NAME+3*, NAME+4*, FORMAT+3*, FORMAT+4*, FORMAT+5*, FORMAT+6*, FORMAT+7*, FORMAT+8*, FORMAT+9* , FORMAT+10*, FORMAT+11* |
| DIR("A" | TYPE+3*, TYPE+5*, TYPE+6*, TYPE+7*, TYPE+8*, NAME+2*, FORMAT+1*, MEDSTF+2*, MEDSTF+3*, MEDSTF+4* , MEDSTF+5*, MEDSTF+6* |
| DIR("B" | NAME+1* |
| DIR(0 | TYPE+3*, NAME+1*, FORMAT+2*, MEDSTF+1* |
| >> DIRUT | TYPE+8, NAME+5, FORMAT+12, MEDSTF+7 |
| >> DTOUT | NAME+5, MEDSTF+7 |
| >> I | MEDSTF+4*, MEDSTF+11*, IND+1*, DEV+4* |
| IO | DEV+2 |
| IO("Q" | DEV+2, DEV+3! |
| >> POP | DEV+1 |
| U | TYPE+2, DATES+1, DATES+2, FORMAT+15, IND+1 |
| >> X | TYPE+9*, MEDSTF+12*, MEDSTF+13 |
| >> Y | TYPE+8, TYPE+9, NAME+6, FORMAT+12, FORMAT+13, FORMAT+15*, MEDSTF+7, MEDSTF+11*, MEDSTF+13, IND+1 |
| >> ZTDESC | DEV+3* |
| >> ZTRTN | DEV+3* |
| >> ZTSAVE( | DEV+4* |
| Name | Field # of Occurrence |
|---|---|
| $T(MSF+I | MEDSTF+4 |
| $T(MSF+Y | MEDSTF+12 |