WVREFUSE ;HCIOFO/JWR - Add/Enter/Manipulate procedure refusals ;12/9/98 15:56
Source file <WVREFUSE.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Womens Health | 2 | WV REFUSED PROC-ADD WV REFUSED PROC-EDIT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EDREF | ;EDIT AN EXISTING REFUSAL
|
|
ADDREF | ;ADD A NEW REFUSAL (not used now, use UNIV for adding a refusal)
|
|
CHECK | ;Checks for existing refusals for this patient within 30 day period
; for this procedure. |
|
UNIV | ;Add new Refusal & check other recent (within 30 days) Refusals
|
|
EXIT | ;kill variables
|
|
LOOP | ;Loop though the array of refuals for this patient & write them out
|
Name | Field # of Occurrence |
---|---|
DD^%DT | CHECK+11 |
C^%DTC | CHECK+4, CHECK+5 |
^DIC | EDREF+4, UNIV+5 |
FILE^DICN | ADDREF+8, UNIV+22 |
^DIR | ADDREF+5, CHECK+20, CHECK+23, UNIV+9, UNIV+12 |
DDS^WVFMAN | EDREF+7, ADDREF+11, UNIV+17, UNIV+26 |
SETVARS^WVUTL5 | EDREF+1, ADDREF+1, UNIV+1 |
TITLE^WVUTL5 | EDREF+2, ADDREF+2, UNIV+2 |
KILLALL^WVUTL8 | EXIT+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^WV(790 - [#790] | Classic Fileman Calls |
^WV(790.3 - [#790.3] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^WV(790.2 - [#790.2] | CHECK+10 |
^WV(790.3 - [#790.3] | EDREF+6, ADDREF+10, CHECK+2, CHECK+6, UNIV+19, UNIV+23, UNIV+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | CHECK+3~, CHECK+4*, CHECK+7, CHECK+13*, CHECK+14 |
B | CHECK+3~, CHECK+5*, CHECK+7, CHECK+13*, CHECK+14 |
C | CHECK+3~, CHECK+13*, CHECK+14*, CHECK+15 |
D | CHECK+3~, CHECK+9*, CHECK+11, CHECK+12, LOOP+1*, LOOP+2 |
DA | CHECK+3! |
DD | ADDREF+8!, UNIV+22! |
DIC | EDREF+3!, EDREF+4*, ADDREF+7*, CHECK+3!, UNIV+3!, UNIV+4*, UNIV+5!, UNIV+20* |
DIC("A" | EDREF+3*, UNIV+3* |
DIC("DR" | ADDREF+6*, UNIV+21* |
DIC("W" | UNIV+4* |
DIC(0 | EDREF+4*, ADDREF+7*, UNIV+4*, UNIV+20* |
>> DIDEL | EDREF+6*, UNIV+16* |
DIR | ADDREF+3!, ADDREF+5!, CHECK+19!, CHECK+20!, CHECK+23!, UNIV+9!, UNIV+12! |
DIR("A" | ADDREF+3*, CHECK+19*, CHECK+21*, UNIV+7*, UNIV+11* |
DIR("B" | ADDREF+4*, CHECK+20* |
DIR(0 | ADDREF+4*, CHECK+19*, CHECK+22*, UNIV+8*, UNIV+11* |
DIRUT | CHECK+20, UNIV+14! |
DO | ADDREF+8!, UNIV+22! |
DR | CHECK+3! |
DT | CHECK+4, CHECK+5 |
>> DTOUT | EDREF+5 |
>> DUOUT | EDREF+5 |
E | CHECK+3~, CHECK+9*, CHECK+10*, CHECK+12 |
F | CHECK+3~, CHECK+11*, CHECK+12 |
>> G | CHECK+6*, CHECK+12 |
>> H | CHECK+6*, CHECK+7, CHECK+8, CHECK+9 |
U | EDREF+6, ADDREF+10, CHECK+7, CHECK+8, CHECK+9, CHECK+10, UNIV+25, LOOP+2 |
>> WVC | CHECK+15*, CHECK+22 |
>> WVDFN | EDREF+6*, ADDREF+3*, ADDREF+10*, CHECK+2, CHECK+6, UNIV+6*, UNIV+25* |
WVEDREF | CHECK+23*, UNIV+14!, UNIV+15, UNIV+17, UNIV+18, EXIT+1! |
WVJDAY | UNIV+10*, UNIV+20, EXIT+1! |
WVJPR | CHECK+8, UNIV+13*, EXIT+1! |
WVJR | CHECK+3! |
WVJR( | CHECK+12*, CHECK+13, CHECK+14 |
WVJR1 | CHECK+3!, CHECK+15 |
WVJR1( | CHECK+14*, UNIV+17, LOOP+1, LOOP+2 |
>> WVPOP | EDREF+3* |
>> X | ADDREF+7*, CHECK+4, CHECK+5, UNIV+20* |
>> X1 | CHECK+4*, CHECK+5* |
>> X2 | CHECK+4*, CHECK+5* |
>> Y | EDREF+5, EDREF+6, EDREF+7, ADDREF+5, ADDREF+7, ADDREF+9, ADDREF+10, ADDREF+11, CHECK+11*, CHECK+20 , CHECK+23, UNIV+5, UNIV+6, UNIV+9, UNIV+10, UNIV+12, UNIV+13, UNIV+24, UNIV+25, UNIV+26 |