PXCEVFI1 ;ISL/dee,esw - Routine to edit a visit or v-file entry ;06/22/2016
Source file <PXCEVFI1.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 |
---|---|---|
EDIT | ; -- edit the V-File stored in "AFTER"
|
|
EDIT01 | ;
|
|
REST | ||
ENDEDIT | ;
|
|
REQ | ; prompt for dose, dose units, route and site for non-historical administrations ; PX*1*216
|
|
SITE | ||
REQF() | ; check if field is dose, dose unit, route or site ; PX*1*216
|
|
MUST | ; prompt for required entries if not entered ; PX*1*216
|
|
EXTB | ; get external value for DIR("B") ; PX*1*216
|
|
DUP(PXCEINP) | ; -- Check for dup entries.
|
|
DEF | ; get default response from file #920.05; PX*1*215
|
|
HIST() | ; check if historical encounter; PX*1*215
|
|
ARTALERT | ; Alert for Adverse Reaction Tracking (ART) ; PX*1*216
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | MUST+2 |
$$EXTERNAL^DILFD | EDIT01+6, REST+25, EXTB+6, DEF+6 |
$$GET1^DIQ | DUP+11 |
^DIR | EDIT01+19, REST+32, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+2, DUP+18 |
$$CODM^ICPTCOD | EDIT01+44 |
NEWCODE^PXCECPT | EDIT01+48 |
WAIT^PXCEHELP | EDIT01+24 |
CONTRA^PXCEICR | EDIT01+32 |
DEL^PXCEVFI2 | EDIT01+25 |
SC^PXCEVFI2 | EDIT01+1 |
PROVIDER^PXCEVFI4 | REST+38 |
$$INST^PXVRESP | EXTB+3, DEF+3 |
$$ARTAPI^PXVUTIL | EDIT01+41 |
$$SETUP1^XQALERT | ARTALERT+11 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^IBE(357.69 - [#357.69] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | EDIT01+1, HIST+2 |
^AUTTHF - [#9999999.64] | EDIT01+56 |
^AUTTIMM - [#9999999.14] | REST+12 |
^PXV(920.05 - [#920.05] | EXTB+5, DEF+5 |
^PXV(920.6 - [#920.6] | SITE+1, SITE+2 |
^TMP("PXK" | EDIT01+44, EDIT01+49* |
^TMP("PXMODARR" | EDIT01+45! |
Name | Line Occurrences |
---|---|
$$DUP | EDIT01+30 |
$$HIST | EDIT01+39, REST+3, REST+8, REST+9, REST+31, REST+33 |
$$REQF | REST+33 |
@( | EDIT01+10, REST+18 |
ARTALERT | EDIT01+41 |
DEF | REST+29 |
EDIT01 | EDIT01+30 |
ENDEDIT | EDIT01+20 |
EXTB | REQ+2, REQ+4, REQ+6, SITE |
MUST | REST+33, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+4 |
REQ | EDIT01+39 |
REST | EDIT+5 |
SITE | REST+31 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | EDIT+1~, EDIT01+3!, REST+16! |
DA | EDIT+1~, EDIT01+3!, EDIT01+52!, REST+16!, REST+34!, SITE+2!, DUP+14~ |
DA(1 | SITE+3* |
DIEER | EDIT01+5~ |
DIERR | EDIT01+7, REST+23~, REST+26 |
DIR | EDIT+1~, EDIT01+3!, EDIT01+52!, REST+16!, REST+34!, REQ+2!, REQ+4!, REQ+6!, SITE+1!, SITE+2! , DUP+14~ |
DIR("?" | EDIT01+15*, REST+30*, SITE+4* |
DIR("A" | EDIT01+14*, REST+28*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+16* |
DIR("B" | EDIT01+12*, REST+26*, REST+29, EXTB+7*, DUP+17*, DEF+7* |
DIR("S" | EDIT01+18* |
DIR(0 | EDIT01+13*, EDIT01+17*, REST+27*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+15* |
DIRUT | EDIT01+21~, EDIT01+26, EDIT01+27 |
>> DTOUT | REST+36, MUST+3 |
>> DUOUT | REST+36, MUST+3 |
DUZ | ARTALERT+3 |
HFIEN | EDIT01+55~, EDIT01+56*, EDIT01+59! |
NODE | EDIT01+55~, EDIT01+56*, EDIT01+57, EDIT01+58, EDIT01+59! |
PXALERGY | EDIT+2~, EDIT01+41* |
>> PXCEAFTR( | REST+22, REST+24, REST+37* |
>> PXCEAFTR(0 | EDIT01+4, EDIT01+6, EDIT01+7, EDIT01+22, EDIT01+26, EDIT01+46, EDIT01+50*, EDIT01+51* |
>> PXCEAFTR(12 | EDIT01+33*, EDIT01+36* |
>> PXCEAFTR(13 | EDIT01+39*, REST+20, REST+21*, REQ+3*, REQ+5*, REQ+7*, SITE+1*, SITE+2* |
>> PXCEAFTR(16 | EDIT01+33*, EDIT01+37* |
>> PXCEAUPN | DUP+6 |
>> PXCECAT | EDIT+5, EDIT01+1, EDIT01+16, EDIT01+25, EDIT01+31, EDIT01+39, EDIT01+41, EDIT01+43, EDIT01+50, REST+2 , REST+3, REST+4, REST+5, REST+6, REST+7, REST+8, REST+9, REST+11, REST+20, REST+29 , REST+31, REST+33, REST+36, DUP+1, DUP+10, DUP+11 |
>> PXCECATS | EDIT01+49 |
>> PXCECATT | DUP+9 |
PXCEDILF | EDIT01+5~, REST+23~ |
PXCEDIRB | EDIT+2~, EDIT01+3!, EDIT01+7*, EDIT01+8*, EDIT01+12, EDIT01+30, EDIT01+50 |
PXCEDUP | DUP+3~, DUP+4*, DUP+6*, DUP+7, DUP+8, DUP+19*, DUP+20 |
PXCEEND | EDIT+1~, REST*, REST+1, REST+10, REST+11*, REST+12*, REST+36* |
PXCEEXT | EDIT01+5~, EDIT01+6*, EDIT01+7, REST+23~, REST+25*, REST+26, DEF+1~, DEF+6*, DEF+7 |
PXCEFIEN | EDIT01+39, EDIT01+47~, EDIT01+49, REST+9, DUP+6 |
>> PXCEFILE | EDIT01+6, EDIT01+13, REST+25, REST+27, EXTB+6, DEF+6 |
PXCEIKEY | EDIT+3~, REST+15* |
PXCEIN01 | EDIT+1~, EDIT01+29* |
PXCEINDX | DUP+3~, DUP+5*, DUP+6* |
PXCEINP | EDIT+1~, EDIT01+28*, EDIT01+30, EDIT01+41, EDIT01+51, EDIT01+56, DUP~, DUP+6, DUP+9, DUP+11 , DUP+16 |
PXCEINT | REST+23~, REST+24*, REST+25, REST+26 |
PXCEKEY | EDIT+3~, REST+13*, REST+15* |
>> PXCEKEYS | REST+15 |
PXCELINE | EDIT+2~, REST+1* |
>> PXCELOOP | EDIT01+26* |
PXCEMOD | EDIT+2~ |
PXCENKEY | EDIT+3~, REST+14*, REST+15 |
>> PXCEPAT("NAME" | ARTALERT+1, ARTALERT+5 |
>> PXCEPAT("SSN_BRIEF" | ARTALERT+1, ARTALERT+5 |
>> PXCEQUIT | EDIT01+27*, EDIT01+31, EDIT01+34*, EDIT01+39*, REST+36* |
>> PXCESOR | EDIT01+44 |
PXCETEXT | EDIT+2~, EDIT01+2*, EDIT01+9, EDIT01+10, EDIT01+14, EDIT01+15, REST+1*, REST+2, REST+3, REST+4 , REST+5, REST+6, REST+7, REST+8, REST+9, REST+10, REST+13, REST+14, REST+15, REST+17 , REST+18, REST+20, REST+22, REST+24, REST+25, REST+27, REST+28, REST+30, REST+31, REST+37 , REST+38, REQF+2, DEF+5, DEF+6 |
>> PXCEVIEN | EDIT01+1, EXTB+2, EXTB+3, DEF+2, DEF+3, HIST+2 |
PXCONTRA | EDIT+1~, EDIT01+32*, EDIT01+33, EDIT01+34, EDIT01+35 |
PXD | EDIT+1~, EDIT01+28*, REST+12, EXTB+4, DEF+4 |
PXEXT | REQ+1~, EXTB+6*, EXTB+7 |
PXJUST | EDIT+1~, EDIT01+32*, EDIT01+37 |
PXMDCNT | EDIT+3~, EDIT01+44*, EDIT01+46 |
PXV294 | REQF+1~, REQF+2*, REQF+3*, REQF+4 |
PXVACK | EDIT+1~, EDIT01+32*, EDIT01+34, EDIT01+35 |
PXVDEF | EXTB+1~, EXTB+5*, EXTB+6, DEF+1~, DEF+5*, DEF+6 |
PXVF | REQ+1~, REQ+2*, REQ+4*, REQ+6*, SITE*, REQF+1~, REQF+2*, REQF+3, EXTB+6 |
PXVFAC | EXTB+1~, EXTB+3*, EXTB+5, DEF+1~, DEF+3*, DEF+5 |
PXVHIST | HIST+1~*, HIST+2*, HIST+3 |
PXVIMM | EXTB+1~, EXTB+4*, EXTB+5, DEF+1~, DEF+4*, DEF+5 |
PXVMISS | EDIT+2~, EDIT01+39*, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+1*, MUST+3* |
PXVP | REQ+1~, REQ+2*, REQ+4*, REQ+6*, SITE*, EXTB+5 |
PXVRT | EDIT+2~, REST+20*, REST+21, REQ+7*, REQ+8, SITE+1, SITE+2, SITE+3 |
PXVVAR | ARTALERT+2~, ARTALERT+11* |
PXVX | MUST+2~* |
U | EDIT01+1, EDIT01+54, EDIT01+56, EDIT01+58 |
X | EDIT+1~, EDIT01+3!, EDIT01+20, EDIT01+29, REST+16!, REST+35, MUST+2, MUST+4, DUP+3~ |
XQA | ARTALERT+2~ |
XQA( | ARTALERT+3* |
XQADATA | ARTALERT+2~, ARTALERT+5*, ARTALERT+6 |
XQAID | ARTALERT+2~, ARTALERT+4* |
XQAMSG | ARTALERT+2~, ARTALERT+6* |
XQATEXT | ARTALERT+2~ |
XQATEXT(1 | ARTALERT+7* |
XQATEXT(2 | ARTALERT+8* |
XQATEXT(3 | ARTALERT+9* |
XQATEXT(4 | ARTALERT+10* |
>> XQORNOD(0 | EDIT01+54 |
Y | EDIT+1~, EDIT01+3!, EDIT01+28, EDIT01+30, EDIT01+44, REST+16!, REST+35*, REST+37, REST+38, REQ+3 , REQ+5, REQ+7, SITE+1, SITE+2, MUST+2, MUST+4, DUP+3~, DUP+19 |