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 |