VAQDIS11 ;ALB/JFP - PDX,SELECTION SCREEN FOR DISPLAY BY PATIENT;01MAR93
Source file <VAQDIS11.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 |
|---|---|---|
| Patient Data Exchange | 5 | VAQ DIS PATIENT PDX9 VAQ DISPLAY SELECT VAQDIS10 VAQDIS12 VAQREQ01 |
| Registration | 2 | VAQ DIS PATIENT PDX9 VAQ DISPLAY SELECT |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ; -- Main entry point for the list processor
|
|
| INIT | ; -- Builds array of PDX trans for the patient entered (SSN) or name
|
|
| MAIN | ; -- Main processing loop
|
|
| SETD | ; -- Set data for display in list processor
|
|
| HD | ; -- Make header line for list processor
|
|
| SEL | ; -- Selects patient to display, checks sensative patient
|
|
| TMP | ; -- Set the array used by list processor
|
|
| WORKLD | ; -- Updates workload file
|
|
| MSG1 | ; -- Message 1
|
|
| MSG2 | ; -- Message 2
|
|
| EXIT | ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here. |
|
| END | ; -- End of code
|
| Name | Field # of Occurrence |
|---|---|
| EN^VALM | EP+3 |
| $$SETFLD^VALM1 | SETD+13, SETD+14, SETD+15, SETD+16 |
| $$SETSTR^VALM1 | SETD+18, MSG1+1, MSG1+2, MSG2+1, MSG2+2 |
| EN^VALM2 | SEL+3 |
| $$WORKDONE^VAQADS01 | WORKLD+1 |
| EP^VAQDIS15 | SEL+11 |
| HD1^VAQEXT02 | HD+2 |
| $$TRNDATA^VAQUTL92 | SETD+8, HD+1 |
| KILLTRN^VAQUTL92 | SETD+19, HD+3 |
| STATPTR^VAQUTL95 | INIT+8 |
| $$EXPTRN^VAQUTL97 | SETD+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("VAQD1" | INIT+1!, TMP+2*, TMP+3*, EXIT+6! |
| ^TMP("VAQIDX" | INIT+1!, SEL+7, TMP+4*, EXIT+6! |
| ^VAT(394.61 - [#394.61] | INIT+4, INIT+5, MAIN+1, SETD+1, SEL+9, SEL+10 |
| ^VAT(394.85 - [#394.85] | SETD+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATETIME | SETD+10*, SETD+11*, SETD+15, EXIT+5! |
| >> DFN | SEL+8*, SEL+9*, SEL+10, WORKLD+1 |
| DUZ | WORKLD+1 |
| ENTRY | EXIT+5! |
| SDAT | SEL+1~, SEL+7*, SEL+8 |
| SDI | SEL+1~, SEL+5*, SEL+6*, SEL+7 |
| STATUS | EP+2~, SETD+9*, EXIT+4! |
| TRDE | EP+2~, INIT+3*, MAIN+1*, SETD+1, SETD+5, SETD+8, EXIT+4! |
| U | INIT+4, INIT+5, SETD+1, SETD+9, SEL+8, SEL+10, WORKLD+2 |
| VALMBCK | SEL+12!, SEL+14* |
| >> VALMCNT | INIT+3*, TMP+1*, TMP+2, TMP+3, TMP+4 |
| VALMEVL | EP+1! |
| VALMY | SEL+1~, SEL+4 |
| VALMY( | SEL+6 |
| VAQADFL | EXIT+3! |
| >> VAQADOM | SETD+14 |
| >> VAQADT | SETD+10, SETD+11 |
| VAQBCK | SEL+2*, SEL+12, EXIT+4! |
| >> VAQCSTAT | SETD+1*, SETD+3, SETD+9 |
| >> VAQDFN | INIT+4, INIT+5, HD+1, SEL+9* |
| VAQECNT | EP+2~, INIT+3*, MAIN+2, SETD+12*, SETD+13, TMP+3, TMP+4, EXIT+4!, EXIT+5! |
| VAQFLAG | EP+2~, SETD+5*, SETD+6, EXIT+4! |
| VAQPAT | EP+2~, INIT+4*, INIT+6, MAIN+1, EXIT+4! |
| >> VAQRDT | SETD+11 |
| VAQRSLT | EP+2~, SETD+3, EXIT+4! |
| VAQSSN | EP+2~, INIT+5*, INIT+6, MAIN+1, EXIT+4! |
| >> VAQTRN | SETD+16, SEL+8*, SEL+9, TMP+4, MSG1+1*, MSG2+1* |
| VAQUNSOL | EP+2~, SETD+3, EXIT+4! |
| >> X | SETD+13*, SETD+14*, SETD+15*, SETD+16*, SETD+18*, TMP+2, WORKLD+1*, WORKLD+2, MSG1+1*, MSG1+2* , MSG2+1*, MSG2+2* |
| X0 | EP+2~, SETD+8*, HD+1*, EXIT+4! |
| >> XQORNOD(0 | SEL+3 |
| XQORS | EP+1! |
