VAQEXT02 ;ALB/JFP - PDX, PROCESS EXTERNAL (MANUAL),PROCESS SCREEN;01MAR93
Source file <VAQEXT02.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EP | ; -- Main entry point for the list processor
; -- K XQORS,VALMEVL ;(only kill on the first screen in) |
|
INIT | ; -- Builds array of Patients based on PDX transactions for manual
; processing |
|
TMP | ; -- Set the array used by list processor
|
|
HD | ; -- Make header line for list processor
|
|
HD1 | ||
REJ | ; -- Reject PDX with comment
|
|
REL | ; -- Release PDX with comment
|
|
NFND | ; -- Not found (reject)
|
|
EXP | ; -- Expand entry
|
|
TRANEX | ; -- Pauses screen
|
|
EXIT | ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here. |
|
END | ; -- End of code
|
Name | Field # of Occurrence |
---|---|
^DIR | NFND+4 |
DEM^VADPT | INIT+10 |
EN^VALM | EP+2 |
$$SETFLD^VALM1 | INIT+11, INIT+12, INIT+13, INIT+15, INIT+16 |
$$SETSTR^VALM1 | HD1+2, HD1+3, HD1+4, HD1+5 |
CLEAR^VALM1 | REJ+2, REL+6, NFND+1 |
SEL^VALM2 | REL+1, EXP+1 |
$$VRFYUSER^VAQAUT | REJ+3, REL+7, NFND+6 |
EP^VAQDIS01 | EXP+5 |
EP^VAQEXT03 | REJ+6, REL+10, NFND+10 |
EP^VAQREQ08 | REJ+5, REL+9 |
PAUSE^VAQUTL95 | TRANEX+1 |
$$DOBFMT^VAQUTL99 | INIT+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | INIT+7*, INIT+8*, TMP+4, REL+4*, NFND+8*, EXP+4*, EXIT+5! |
DIR | NFND+4! |
DIR("A" | NFND+3* |
DIR("B" | NFND+2* |
DIR(0 | NFND+2* |
>> DPTD( | INIT+8 |
>> DTOUT | NFND+5 |
>> DUOUT | NFND+5 |
DUZ | REJ+3, REL+7, NFND+6 |
ENT | REL+3~*, REL+4, EXP+3~*, EXP+4 |
SP50 | HD1~, HD1+1*, EXIT+5! |
U | INIT+13, INIT+14 |
VA | INIT+5~ |
VA("DOB" | INIT+14*, INIT+15 |
VA("PID" | INIT+16 |
VADM | INIT+5~, EXIT+5! |
VADM(1 | INIT+12 |
VADM(2 | INIT+13 |
VADM(3 | INIT+14 |
VAERR | INIT+5~ |
>> VALMBCK | NFND+5*, EXP+6*, TRANEX+3* |
VALMCNT | EP+3~*, INIT+7*, TMP+1*, TMP+2, TMP+3, TMP+4, EXIT+5! |
>> VALMHDR(1 | HD1+6* |
>> VALMHDR(2 | HD1+7* |
>> VALMHDR(3 | HD1+8* |
>> VALMY | HD+1, REL+2, EXP+2 |
>> VALMY("" | REL+3, EXP+3 |
VAQCMNT | INIT+4~, REJ+1*, REL+5*, EXIT+4! |
VAQDFN | INIT+4~, INIT+7*, EXIT+4! |
VAQECNT | INIT+4~, INIT+7*, INIT+9*, INIT+11, TMP+3, TMP+4, EXIT+4! |
>> VAQEDOB | HD1+5 |
>> VAQESSN | HD1+3 |
VAQFLAG | INIT+4~, REJ+1*, REL+5*, TRANEX+2*, TRANEX+3, EXIT+4! |
>> VAQPTID | HD1+3, HD1+4 |
>> VAQPTNM | HD1+2 |
VAQSIG | REJ+3*, REJ+4!, REL+7*, REL+8!, NFND+6*, NFND+7! |
VAQST | INIT+4~, REJ+1*, REL+5*, NFND+9*, EXIT+4! |
>> VAQTRDE | TMP+4 |
X | INIT+11*, INIT+12*, INIT+13*, INIT+15*, INIT+16*, TMP+2, HD1~, HD1+2*, HD1+3*, HD1+4* , HD1+5*, HD1+7 |
>> Y | NFND+5, NFND+10 |