VAQREQ02 ;ALB/JFP - PDX, REQUEST PATIENT DATA, REQUEST SCREEN;01MAR93
Source file <VAQREQ02.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 (called from protocol
; vaq create request) ; -- K XQORS,VALMEVL (only kill on the first screen in) |
|
EP1 | ||
INIT | ; -- Initializes variables and defines screen
|
|
SETD | ;
|
|
WSEG | ;
|
|
TMP | ; -- Set the array used by list processor
|
|
HD | ; -- Make header line for list processor
|
|
REQ | ; -- Request Domain and Segment
|
|
COPY | ; -- Copies segments selected from one domain to main domains
|
|
TRAN | ; -- Transmits, Signature, Notify list)
|
|
TRANEX | ||
PAT | ; -- Change patient by exiting back to patient prompt
|
|
EXIT | ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here. |
|
EXIT1 | ||
END | ; -- End of code
|
Name | Field # of Occurrence |
---|---|
EN^VALM | EP1+1 |
$$SETFLD^VALM1 | SETD+2, SETD+3, SETD+7, WSEG+7 |
$$SETSTR^VALM1 | INIT+6, INIT+7, SETD+9, WSEG+5 |
CLEAR^VALM1 | REQ+1, COPY+3, TRAN+2 |
SEL^VALM2 | COPY+1 |
$$VRFYUSER^VAQAUT | TRAN+4 |
$$HLTHSEG^VAQDBIH1 | WSEG+3 |
SEGDIS^VAQEXT06 | WSEG+4 |
EP^VAQREQ03 | REQ+2 |
EP^VAQREQ05 | COPY+4 |
EP^VAQREQ06 | TRAN+8 |
EP^VAQREQ07 | TRAN+6 |
EP^VAQREQ08 | TRAN+7 |
PAUSE^VAQUTL95 | TRANEX |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VAQCOPY" | EP+3!, EXIT1+1! |
^TMP("VAQIDX" | TMP+4* |
^TMP("VAQNOTI" | EP+3!, EXIT1+1! |
^TMP("VAQR2" | INIT+1!, TMP+2*, TMP+3*, EXIT1+1! |
^TMP("VAQSEG" | EP+3!, INIT+5, INIT+8, SETD+5, TRAN+3, TRAN+9!, EXIT+3, EXIT+4, EXIT1+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DISX | EP1~, INIT+6*, INIT+7*, SETD+2*, SETD+3*, SETD+7*, SETD+9*, WSEG+7*, WSEG+9*, TMP+2 , EXIT1! |
DOM | EP1~, INIT+2*, INIT+8*, SETD+3, SETD+5, TMP+4, EXIT1! |
DTIME | EXIT+4 |
DUZ | TRAN+4 |
HSCOMPND | WSEG+3*, WSEG+4, EXIT1+3! |
K | EP1~, SETD+1*, SETD+6, WSEG+1*, WSEG+2, WSEG+6, WSEG+9*, EXIT1! |
LPDOM | EXIT1+3! |
OLDEF | EXIT1+3! |
OLIMIT | EXIT1+3! |
P1 | WSEG+2*, EXIT1+3! |
PARAMND | EXIT1+4! |
POS | WSEG+2*, WSEG+5, EXIT1+3! |
SEG | EP1~, INIT+2*, SETD+4*, SETD+5*, WSEG+3, WSEG+5, EXIT1! |
SEGMENT | EP1~, SETD+4*, SETD+7, WSEG+5*, WSEG+7, WSEG+9*, EXIT1! |
SEGND | EXIT1+3! |
SEGNME | EXIT1+3! |
SEGNO | EXIT1+3! |
SP50 | EP1~, HD+1*, HD+2, HD+3, EXIT1! |
TLDEF | EXIT1+3! |
TLIMIT | EXIT1+3! |
U | WSEG+4 |
>> VALM("TITLE" | INIT+4* |
VALMBCK | EP1+2!, REQ+4*, COPY+6*, TRANEX+1* |
>> VALMCNT | INIT+2*, TMP+1*, TMP+2, TMP+3 |
>> VALMHDR(1 | HD+2* |
>> VALMHDR(2 | HD+3* |
>> VALMY | COPY+2 |
VAQCMNT | TRAN+1*, EXIT1+2! |
VAQECNT | INIT+2*, SETD+1*, SETD+2, TMP+3, TMP+4, EXIT1+2! |
VAQEDOB | HD+3, EXIT1+2! |
VAQEELG | HD+2, EXIT1+2! |
VAQESSN | HD+3, EXIT1+2! |
VAQFLAG | TRAN+1*, TRANEX+1, EXIT1+2! |
VAQNM | HD+2, EXIT1+2! |
>> VAQOPT | INIT+4, TRAN+6, TRAN+7 |
X | EP1~, TRAN+4*, TRAN+5!, EXIT+4*, EXIT+5, EXIT+6, EXIT1! |