PXAPIDEL ;ISL/dee - PCE's code for the DELVFILE api ;11/14/2018
Source file <PXAPIDEL.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 |
---|---|---|
PCE Patient Care Encounter | 3 | PXAPI PXBAPI1 PXICLN9B |
Name | Comments | DBIA/ICR reference |
---|---|---|
DELVFILE(PXAWHICH,PXAVISIT,PXAPKG,PXASOURC,PXAASK,PXAECHO,PXAUSER) | ;Deletes the requested data related to the visit.
; PXAWHICH is a ^ delimited string with the last two or three letters ; of the v-files to delete entries from and VISIT for the ; administrative data on the visit and STOP for the stop codes. ; (e.g. for immunization the v-file is AUPNVIMM so IMM is ; passed.) Or "ALL" to delete all of the data from the ; V-Files, the Stop Code and Visit. ; PXAVISIT is pointer to a visit for which the related data is be ; deleted. ; PACKAGE (optional) if passed will only delete items created by ; this package ; SOURCE (optional) if passed will only delete items created by ; this source ; PXAASK (optional) if passed and not 0 or "" then will ask the user ; if they are sure that they want to delete ; (suggest 1 if want to ask). ; PXAECHO (optional) if passed and not 0 or "" then will display to ; the user what is being deleted (suggest 1 if want to echo). ; PXAUSER (optional) this is the duz of a user if you only want to ; delete entries that this user created. If it is not passed ; or is 0 or "" then it will not matter who created the ; entries being deleted. |
|
STOP | ;Do Stop Codes first
|
|
DELCR | ;Do CREDIT Stop Code if it is the only entry except OE entry, not assoc. with apt
|
|
VERAPT(PXAVISIT,SCDXPOV) | ;FUNCTION CALLED TO VERIFY IF VISIT IS ASSOCIATED WITH APPOINTMENT
|
Name | Field # of Occurrence |
---|---|
WAIT^DICD | STOP+45 |
^DIR | DELVFILE+69 |
$$SOURCE^PXAPIUTL | DELVFILE+50, DELVFILE+78 |
PAUSE^PXCEHELP | STOP+9, DELCR+21 |
EN1^PXKMAIN | STOP+46 |
EVENT^PXKMAIN | STOP+47 |
$$LOCK^PXLOCK | DELVFILE+75 |
UNLOCK^PXLOCK | DELCR+25 |
$$STOPCODE^PXUTLSTP | STOP+8, DELCR+20 |
$$SDAPI^SDAMA301 | VERAPT+12 |
LISTVST^SDOERPC | VERAPT+19 |
$$PKG2IEN^VSIT | DELVFILE+43 |
$$DEC^VSITKIL | DELCR+12 |
$$KILL^VSITKIL | DELCR+24 |
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] | DELVFILE+37, STOP+4, STOP+5, STOP+6, STOP+15, DELCR+9, DELCR+10, VERAPT+3, VERAPT+4 |
^AUPNVSIT("AD" | STOP+3, DELCR+8 |
^DIC(9.4 - [#9.4] | DELVFILE+44 |
^SCE("AVSIT" | DELCR+18 |
^TMP("PXK" | DELVFILE+53!, STOP+11*, STOP+12*, STOP+13*, STOP+15*, STOP+20*, STOP+21*, STOP+32*, STOP+33*, STOP+34* , STOP+44, STOP+48! |
^TMP($J | VERAPT+2!, VERAPT+13, VERAPT+14, VERAPT+18! |
Name | Line Occurrences |
---|---|
$$VERAPT | DELCR+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | DELVFILE+64~ |
DIR("A" | DELVFILE+67* |
DIR("B" | DELVFILE+68* |
DIR(0 | DELVFILE+66* |
DUZ | DELVFILE+75, DELCR+25 |
ERROR | DELVFILE+74~, DELVFILE+75 |
ERROR("LOCK" | DELVFILE+77 |
INDEX | DELVFILE+54~, STOP+21* |
LOCK | DELVFILE+74~, DELVFILE+75*, DELVFILE+76 |
>> PACKAGE | DELVFILE+40*, DELVFILE+41, DELVFILE+42, DELVFILE+43 |
PXAASK | DELVFILE~, DELVFILE+63 |
PXACOUNT | DELVFILE+54~, DELVFILE+60*, STOP+3*, STOP+17*, DELCR+8* |
PXAECHO | DELVFILE~, DELVFILE+72, STOP+24, STOP+45, DELCR+3 |
PXAFILE | DELVFILE+54~, STOP+25*, STOP+27, STOP+28, STOP+29, STOP+30, STOP+31, STOP+32 |
PXAIEN | DELVFILE+55~, STOP+2*, STOP+3*, STOP+4, STOP+5, STOP+6, STOP+8, STOP+26*, STOP+27*, STOP+34 , DELCR+7*, DELCR+8*, DELCR+9, DELCR+10, DELCR+20 |
PXAINDX | DELVFILE+54~, STOP+27*, STOP+32, STOP+33, STOP+34 |
PXAKILL | DELCR+23~, DELCR+24*, DELCR+26 |
PXALEN | DELVFILE+55~, DELVFILE+58*, DELVFILE+59, DELVFILE+60, STOP+17 |
PXAMYSOR | DELVFILE+55~, DELVFILE+78*, STOP+8, STOP+12, DELCR+20 |
PXAPIECE | DELVFILE+55~, STOP+14*, STOP+15 |
PXAPKG | DELVFILE~, DELVFILE+41*, DELVFILE+42*, DELVFILE+43*, DELVFILE+44, STOP+11, STOP+30 |
PXARET | DELVFILE+54~, DELVFILE+56*, DELVFILE+60, DELVFILE+61*, DELVFILE+62, DELVFILE+63, DELVFILE+70*, DELVFILE+71, STOP+28*, DELCR+26 |
PXASOURC | DELVFILE~, DELVFILE+48*, DELVFILE+49*, DELVFILE+50*, DELVFILE+51, STOP+31 |
PXAUSER | DELVFILE~, STOP+4, STOP+29, DELCR+9 |
PXAVFILE | DELVFILE+54~, DELVFILE+60*, DELVFILE+61, STOP+17*, STOP+18, STOP+22, STOP+32, STOP+33, STOP+34, STOP+38 , STOP+39, STOP+40 |
PXAVISIT | DELVFILE~, DELVFILE+36, DELVFILE+37, DELVFILE+75, STOP+3, STOP+8, STOP+13, STOP+15, DELCR+1, DELCR+8 , DELCR+12, DELCR+18, DELCR+20, DELCR+24, DELCR+25, VERAPT~, VERAPT+3, VERAPT+4, VERAPT+19 |
PXAWFLAG | DELVFILE+54~, DELVFILE+72*, DELVFILE+77, STOP+7, STOP+9, STOP+24*, STOP+35, STOP+36*, DELCR+3*, DELCR+19 , DELCR+21 |
PXAWHICH | DELVFILE~, DELVFILE+57*, DELVFILE+58, DELVFILE+60, STOP+1, STOP+17, DELCR+4, DELCR+24 |
PXKERROR | STOP+43~, DELCR+26 |
PXPCNT | DELCR+12~*, DELCR+17 |
PXST | STOP+8~*, DELCR+20~* |
SCDXPOV | VERAPT~, VERAPT+1~, VERAPT+3, VERAPT+7, VERAPT+13, VERAPT+22*, VERAPT+23 |
SDAPP | VERAPT+1~, VERAPT+14*, VERAPT+15 |
SDARRAY | VERAPT+1~, VERAPT+12 |
SDARRAY("FLDS" | VERAPT+11* |
SDARRAY(1 | VERAPT+8* |
SDARRAY(2 | VERAPT+10* |
SDARRAY(4 | VERAPT+9* |
SDATE | VERAPT+1~, VERAPT+5*, VERAPT+8, VERAPT+13, VERAPT+14 |
SDCL | VERAPT+1~, VERAPT+5*, VERAPT+7, VERAPT+10, VERAPT+13, VERAPT+14 |
SDCOUNT | VERAPT+12~* |
SDD | DELCR+1~*, DELCR+2 |
SDENC | VERAPT+15~*, VERAPT+22 |
SDFN | VERAPT+1~, VERAPT+8*, VERAPT+9, VERAPT+13, VERAPT+14 |
SDOEP | VERAPT+17~, VERAPT+19, VERAPT+20*, VERAPT+21*, VERAPT+22 |
>> SOURCE | DELVFILE+47*, DELVFILE+48, DELVFILE+49, DELVFILE+50 |
SVSTSTR | VERAPT+1~, VERAPT+4*, VERAPT+5, VERAPT+8 |
U | STOP+5, STOP+6, DELCR+10, VERAPT+5, VERAPT+8, VERAPT+15 |
X | DELVFILE+64~ |
Y | DELVFILE+64~, DELVFILE+70 |
>> ZTQUEUED | DELVFILE+43, DELVFILE+44, DELVFILE+51, DELVFILE+72, STOP+24, STOP+45, DELCR+3 |
Name | Field # of Occurrence |
---|---|
$T(FORMAT^@(6) | STOP+25 |