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! |