©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
AQAQPR21 ;IHS/ANMC/LJF - PROCEDURES BY PROVIDER; [ 05/27/92 11:28 AM ]
Source file <AQAQPR21.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FINDPROC | ;***> SUBRTN to get procedures for visits that passed screens
|
|
| HOSPERR | ;***> SUBRTN to find all prov for inpt proc without oper provider
|
|
| FINDPROV | ;***> SUBRTN to find primary provider for ambulatory visits
|
|
| NEXT | ;>>> go to print rtn <<<
|
| Name | Field # of Occurrence |
|---|---|
| ^AQAQPR22 | NEXT+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("BRK" | AQAQPR21+4 |
| ^%ZOSF("TRAP" | AQAQPR21+4 |
| ^AQAQC - [#9002165] | FINDPROC+12 |
| ^AUPNVPRC - [#9000010.08] | FINDPROC+3 |
| ^AUPNVPRC("AD" | FINDPROC+2 |
| ^AUPNVPRV - [#9000010.06] | FINDPROV+3, HOSPERR+3 |
| ^AUPNVPRV("AD" | FINDPROV+2, HOSPERR+2 |
| ^AUPNVSIT - [#9000010] | AQAQPR21+12 |
| ^AUPNVSIT("B" | AQAQPR21+9, AQAQPR21+11 |
| ^DIC(16 - [#16] | FINDPROC+16 |
| ^DIC(6 - [#6] | FINDPROC+10, FINDPROC+14 |
| ^DIC(7 - [#7] | FINDPROC+15 |
| ^ICD0 - [#80.1] | FINDPROC+4, FINDPROC+5 |
| ^UTILITY("AQAQPR2" | AQAQPR21+5!, FINDPROC+19*, HOSPERR+5* |
| Name | Line Occurrences |
|---|---|
| FINDPROC | AQAQPR21+17 |
| FINDPROV | FINDPROC+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | AQAQPR21+12, FINDPROC+3, FINDPROV+3, HOSPERR+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AQAQBDT | AQAQPR21+6 |
| >> AQAQCAT | FINDPROC+12*, FINDPROC+13 |
| >> AQAQCLS | FINDPROC+10*, FINDPROC+11 |
| >> AQAQDT | AQAQPR21+6*, AQAQPR21+9*, AQAQPR21+11, FINDPROC+19, HOSPERR+4 |
| >> AQAQEDT | AQAQPR21+6 |
| >> AQAQEND | AQAQPR21+6*, AQAQPR21+9 |
| >> AQAQICD | FINDPROC+4*, FINDPROC+19, HOSPERR+5 |
| >> AQAQICDN | FINDPROC+5*, FINDPROC+18, HOSPERR+4 |
| >> AQAQP | FINDPROC+3*, FINDPROC+4, FINDPROC+5, FINDPROC+6 |
| >> AQAQPDFN | FINDPROC+1*, FINDPROC+2*, FINDPROC+3, FINDPROC+18, HOSPERR+4 |
| >> AQAQPRV | FINDPROC+1*, FINDPROC+6*, FINDPROC+8, FINDPROC+9, FINDPROC+10, FINDPROC+12, FINDPROC+14, FINDPROC+16*, FINDPROC+19, FINDPROV+5* |
| >> AQAQR | FINDPROV+3*, FINDPROV+4, FINDPROV+5, HOSPERR+3* |
| >> AQAQRDFN | FINDPROV+1*, FINDPROV+2*, FINDPROV+3, HOSPERR+1*, HOSPERR+2*, HOSPERR+3, HOSPERR+5 |
| >> AQAQSRT | FINDPROC+9, FINDPROC+11, FINDPROC+13 |
| >> AQAQSTR | FINDPROC+18*, FINDPROC+19, HOSPERR+4*, HOSPERR+5 |
| >> AQAQTYP | FINDPROC+9, FINDPROC+11, FINDPROC+13 |
| >> AQAQV | AQAQPR21+12*, AQAQPR21+13, AQAQPR21+14, AQAQPR21+15, AQAQPR21+16, FINDPROC+6 |
| >> AQAQVDFN | AQAQPR21+10*, AQAQPR21+11*, AQAQPR21+12, FINDPROC+2, FINDPROC+19, FINDPROV+2, HOSPERR+2, HOSPERR+4, HOSPERR+5 |
| >> AQAQX | FINDPROC+14*, FINDPROC+15*, FINDPROC+16 |
| DUZ(2 | AQAQPR21+16 |
| U | AQAQPR21+13, AQAQPR21+14, AQAQPR21+15, AQAQPR21+16, FINDPROC+4, FINDPROC+5, FINDPROC+6, FINDPROC+10, FINDPROC+12, FINDPROC+14 , FINDPROC+15, FINDPROC+16, FINDPROC+18, FINDPROV+4, FINDPROV+5, HOSPERR+4 |
| >> X | AQAQPR21+4* |