©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
AQAQEDT ;IHS/ANMC/LJF - MAIN DRIVER FOR DATA ENTRY; [ 09/15/95 8:46 AM ]
Source file <AQAQEDT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC Y^DIQ ^DIR |
| Quality Assurance | 2 | (ITEMFIND,MULTFIND)^AQAQEDTS KILL^AQAQUTIL |
| Kernel | 1 | $$REPLACE^XLFSTR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAGELOOP | ;>>subrtn to get each page (screen), display items and do edit<<
|
|
| END | ;***> eoj
|
|
| SETOPT | ||
| GETPROV | ;>>subrtn ask for provider & find/create entry in Credentialing file<<
|
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^AQAQX - [#9002166.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AQAQC - [#9002165] | PAGELOOP+19 |
| ^AQAQX - [#9002166.1] | PAGELOOP+2, PAGELOOP+7, PAGELOOP+9, PAGELOOP+10, PAGELOOP+11, PAGELOOP+32, PAGELOOP+33, PAGELOOP+38, PAGELOOP+39 |
| ^DD(6 | GETPROV+7 |
| ^DD(9002166.11 | PAGELOOP+34 |
| ^DIC(16 - [#16] | GETPROV+5 |
| ^DIC(6 - [#6] | GETPROV+6 |
| Name | Line Occurrences |
|---|---|
| END | SETOPT+1 |
| GETPROV | SETOPT+5, GETPROV+4 |
| PAGELOOP | SETOPT+6, PAGELOOP+18, PAGELOOP+44 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | PAGELOOP+38 |
| ^(2 | PAGELOOP+19*, PAGELOOP+39 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AQAQ | PAGELOOP+27* |
| >> AQAQDIR | PAGELOOP+34* |
| >> AQAQO | PAGELOOP+24*, PAGELOOP+25*, PAGELOOP+26*, PAGELOOP+27 |
| >> AQAQOPTN | SETOPT |
| >> AQAQOPTT | PAGELOOP+2*, PAGELOOP+3 |
| >> AQAQP( | PAGELOOP+12*, PAGELOOP+24, PAGELOOP+28 |
| >> AQAQPG | PAGELOOP+2*, PAGELOOP+7*, PAGELOOP+8, PAGELOOP+9, PAGELOOP+12 |
| >> AQAQPN | PAGELOOP+8*, PAGELOOP+9*, PAGELOOP+10, PAGELOOP+11, PAGELOOP+12, PAGELOOP+28*, PAGELOOP+32, PAGELOOP+33, PAGELOOP+38, PAGELOOP+39 |
| >> AQAQPRV | GETPROV+4*, GETPROV+5, GETPROV+6, PAGELOOP+19, PAGELOOP+39 |
| >> AQAQPRVC | GETPROV+6*, GETPROV+7*, PAGELOOP+5, PAGELOOP+31 |
| >> AQAQPRVN | GETPROV+5*, PAGELOOP+4, PAGELOOP+30 |
| >> AQAQPT | SETOPT+1*, PAGELOOP+2, PAGELOOP+7, PAGELOOP+9, PAGELOOP+10, PAGELOOP+11, PAGELOOP+32, PAGELOOP+33, PAGELOOP+38, PAGELOOP+39 |
| >> AQAQPTL | PAGELOOP+11*, PAGELOOP+12, PAGELOOP+28*, PAGELOOP+29 |
| >> AQAQSTR | PAGELOOP+38*, PAGELOOP+40, PAGELOOP+41 |
| >> AQAQTM | PAGELOOP+37* |
| AQAQXLF | PAGELOOP+23! |
| AQAQXLF("." | PAGELOOP+23* |
| >> C | GETPROV+7*, PAGELOOP+34* |
| >> DA | PAGELOOP+39* |
| DIC | SETOPT!*, GETPROV+2!, GETPROV+3* |
| DIC("A" | GETPROV+2* |
| DIC(0 | SETOPT*, GETPROV+2* |
| DIR | PAGELOOP+8!, PAGELOOP+33! |
| DIR("A" | PAGELOOP+17*, PAGELOOP+34* |
| DIR(0 | PAGELOOP+8* |
| DIROUT | PAGELOOP+22!, PAGELOOP+27, PAGELOOP+43 |
| DIRUT | SETOPT+4, SETOPT+6!, PAGELOOP+18 |
| >> DLAYGO | GETPROV+3* |
| DT | PAGELOOP+19 |
| >> DUOUT | PAGELOOP+27 |
| DUZ | PAGELOOP+19 |
| IOF | PAGELOOP+3, PAGELOOP+29 |
| U | SETOPT+5, GETPROV+4, GETPROV+5, GETPROV+6, GETPROV+7, PAGELOOP+2, PAGELOOP+11, PAGELOOP+12, PAGELOOP+19, PAGELOOP+28 , PAGELOOP+32, PAGELOOP+33, PAGELOOP+34, PAGELOOP+40, PAGELOOP+41 |
| >> X | SETOPT*, SETOPT+5, GETPROV+4, PAGELOOP+24*, PAGELOOP+43 |
| >> Y | SETOPT+1, SETOPT+4, GETPROV+4, GETPROV+6*, GETPROV+7, PAGELOOP+18*, PAGELOOP+23*, PAGELOOP+24, PAGELOOP+25, PAGELOOP+27* , PAGELOOP+28, PAGELOOP+33*, PAGELOOP+34 |