PXCEAE ;ISL/dee,ISA/KWP - Main routine for the List Manager display of a visit and related v-files ;11/08/2019
Source file <PXCEAE.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 13 | ($$SEL1,DONE)^PXCE EXIT^PXCEAE BUILD^PXCEAE1 $$SEL^PXCEAE2 $$DISPLY08^PXCECSTP $$DATE^PXCEDATE SEC^PXCEEXP (PAUSE,WAIT)^PXCEHELP PATINFO^PXCEPAT APPCHECK^PXCESDAM CHECK^PXCEVFI5 EVENT^PXKMAIN ($$PXCEAE,UNLOCK)^PXLOCK |
| List Manager | 3 | EN^VALM FULL^VALM1 CLEAN^VALM10 |
| Kernel | 1 | DISP^XQORM1 |
| 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 |
|---|---|---|
| EN | ;+ -- main entry point for PXCE DISPLAY VISIT
|
|
| GETVIEN | ;Ask the user which visit.
|
|
| HDR | ; -- header code
|
|
| KEYS(PXCEPROT,PXCEEND) | ;Set up ^XQORM("KEY") array so that can edit an item by having its
; number be and action to edit it. |
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| EDIT | ; -- edit a V-File entry
|
|
| DEL | ; -- delete a V-File entries
|
|
| DOMANY(PXCEFIDX,WHATDO,WHATTODO) | ;Process one or more V-File entries
|
|
| DO1(PXCEFIDX,WHATDO,WHATTODO) | ;Process one V-File entry
|
|
| QUIT |
| Name | Field # of Occurrence |
|---|---|
| $$SEL1^PXCE | GETVIEN+3 |
| DONE^PXCE | EXPND+3 |
| EXIT^PXCEAE | GETVIEN+11 |
| BUILD^PXCEAE1 | INIT+1, EXPND+2 |
| $$SEL^PXCEAE2 | DOMANY+7, DOMANY+9 |
| $$DISPLY08^PXCECSTP | HDR+13 |
| $$DATE^PXCEDATE | HDR+12 |
| SEC^PXCEEXP | EN+12 |
| PAUSE^PXCEHELP | GETVIEN+25 |
| WAIT^PXCEHELP | GETVIEN+18, DEL+1, DO1+10 |
| PATINFO^PXCEPAT | EN+14 |
| APPCHECK^PXCESDAM | GETVIEN+13 |
| CHECK^PXCEVFI5 | EXIT+5 |
| EVENT^PXKMAIN | EXIT+10 |
| $$PXCEAE^PXLOCK | EN+23 |
| UNLOCK^PXLOCK | EN+26 |
| EN^VALM | EN+25 |
| FULL^VALM1 | GETVIEN+9, DOMANY+5 |
| CLEAN^VALM10 | EXIT+7 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | EN+9, EN+16, EN+18, GETVIEN+8, GETVIEN+16, GETVIEN+21, HDR+1, HDR+6, EXIT+10, DO1+11 |
| ^DPT - [#2] | EN+11, GETVIEN+21 |
| ^ORD(101 - [#101] | KEYS+3 |
| ^SC - [#44] | HDR+9 |
| ^TMP("PXCEAE" | EXIT+8! |
| ^TMP("PXCEAEIX" | EXIT+8!, DO1+7 |
| ^TMP("PXCEIDX" | GETVIEN+5 |
| ^TMP("VALM DATA" | EN+27 |
| Name | Field # of Occurrence |
|---|---|
| ^("EXP" | EN+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | GETVIEN+16 |
| DUZ | EN+11 |
| PXCEAEVW | EN+5~*, INIT+1, EXPND+1*, EXPND+2 |
| PXCEAPDT | EN+18~* |
| PXCEAPPM | GETVIEN+21*, EXIT+11! |
| PXCECAT | EN+14*!, DO1+6~, DO1+9*, DO1+10, DO1+11*, DO1+12 |
| PXCEDELV | DOMANY+4~*, DOMANY+15*, DOMANY+18*, DOMANY+20 |
| PXCEEND | KEYS~, KEYS+4 |
| >> PXCEEXIT | EXIT+5 |
| PXCEFIDX | EDIT+1~, EDIT+2*, EDIT+3, DOMANY~, DOMANY+7*, DOMANY+9*, DOMANY+11, DOMANY+13, DO1~, DO1+7 |
| PXCEFIEN | DO1+6~, DO1+8*, DO1+11 |
| PXCEFIX1 | DOMANY+12~, DOMANY+13*, DOMANY+14, DOMANY+15, DOMANY+16, DOMANY+17 |
| PXCEFIX2 | DOMANY+12~, DOMANY+17*, DOMANY+18, DOMANY+19 |
| PXCEHLOC | EN+16~* |
| PXCEHLST | EN+3~ |
| PXCEINDX | KEYS+2~, KEYS+4*, DOMANY+12~, DOMANY+13* |
| >> PXCEKEYS | EN+20, EN+27, DEL+1 |
| >> PXCENOER | DO1+10* |
| PXCEONE | DO1+6~, DO1+7*, DO1+8, DO1+9 |
| PXCEPAT | EN+8~, EN+9*, EN+11, EN+14 |
| PXCEPAT("NAME" | HDR+7 |
| PXCEPAT("SSN" | HDR+8 |
| PXCEPIEN | KEYS+2~, KEYS+3*, KEYS+4 |
| PXCEPROT | KEYS~, KEYS+3 |
| PXCEVDEL | EN+6~* |
| PXCEVIDX | GETVIEN+1~, GETVIEN+2*, GETVIEN+3*, GETVIEN+4, GETVIEN+5 |
| PXCEVIEN | EN+1, EN+9, EN+16, EN+18, EN+22, GETVIEN+5*, GETVIEN+8, GETVIEN+13, GETVIEN+14, GETVIEN+16 , GETVIEN+19!, GETVIEN+21, GETVIEN+22!, HDR+1, HDR+6, INIT+1, EXIT+10, EXIT+11!, EXPND+2 |
| PXDUZ | EN+11~*, EN+12, EN+23, EN+26 |
| PXPTSSN | EN+11~*, EN+12 |
| PXQUIT | EXIT+3~, EXIT+4* |
| PXREC | EN+11~, EN+12, EN+13 |
| PXRESVAL | EN+21~, EN+23*, EN+24 |
| PXVISIEN | EN+21~, EN+22*, EN+23, EN+26 |
| U | EN+11 |
| >> VALMBCK | INIT+2* |
| >> VALMEVL | EN+27 |
| VALMHDR | HDR+2!, INIT+2! |
| VALMHDR(1 | HDR+7*, HDR+8*, HDR+9* |
| VALMHDR(2 | HDR+12*, HDR+13* |
| >> VALMQUIT | HDR+1* |
| >> VALMSG | HDR+15* |
| VISIT0 | HDR+3~, HDR+6*, HDR+9, HDR+12, HDR+13 |
| WHATDO | DOMANY~, DOMANY+4, DOMANY+6, DOMANY+8, DOMANY+15, DOMANY+16, DOMANY+18, DOMANY+19, DOMANY+20, DO1~ , DO1+10 |
| WHATTODO | DOMANY~, DOMANY+16, DOMANY+19, DOMANY+20, DO1~, DO1+12 |
| >> X | HELP+1* |
| >> XQORM("KEY" | KEYS+4* |
| >> XQORNOD(0 | GETVIEN+2, EDIT+2 |
| >> Y | GETVIEN+22 |