PXAPIDEL ;ISL/DEE - PCE's code for the DELVFILE api ;Dec 15, 2025@09:33:11
Source file <PXAPIDEL.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 8 | $$SOURCE^PXAPIUTL PAUSE^PXCEHELP (EN1,EVENT)^PXKMAIN ($$LOCK,UNLOCK)^PXLOCK GETSAFORVISITDET^PXSPECAUTH $$STOPCODE^PXUTLSTP $$PKG2IEN^VSIT ($$DEC,$$KILL)^VSITKIL |
| Scheduling | 2 | $$SDAPI^SDAMA301 LISTVST^SDOERPC |
| VA FileMan | 2 | WAIT^DICD ^DIR |
| 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,ERRRET,PXAPROB) | ;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. ; ERRRET (optional) passed by reference. If present will return PXKERROR ; array elements to the caller. ; PXAPROB (optional) A dotted variable name. When errors and warnings ; occur, They will be passed back in the form of an array ; with the general description of the problem. |
|
| 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
|
|
| ADDERR(PXMSG) | ;
|
| Name | Field # of Occurrence |
|---|---|
| WAIT^DICD | STOP+61 |
| ^DIR | DELVFILE+91 |
| $$SOURCE^PXAPIUTL | DELVFILE+67, DELVFILE+101 |
| PAUSE^PXCEHELP | STOP+9, DELCR+21 |
| EN1^PXKMAIN | STOP+62 |
| EVENT^PXKMAIN | STOP+64 |
| $$LOCK^PXLOCK | DELVFILE+97 |
| UNLOCK^PXLOCK | DELCR+31 |
| GETSAFORVISITDET^PXSPECAUTH | STOP+18 |
| $$STOPCODE^PXUTLSTP | STOP+8, DELCR+20 |
| $$SDAPI^SDAMA301 | VERAPT+12 |
| LISTVST^SDOERPC | VERAPT+19 |
| $$PKG2IEN^VSIT | DELVFILE+54 |
| $$DEC^VSITKIL | DELCR+12 |
| $$KILL^VSITKIL | DELCR+26 |
| 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+47, STOP+4, STOP+5, STOP+6, STOP+16, DELCR+9, DELCR+10, VERAPT+3, VERAPT+4 |
| ^AUPNVSIT("AD" | STOP+3, DELCR+8 |
| ^AUPNVSK("APT" | STOP+40 |
| ^DIC(9.4 - [#9.4] | DELVFILE+58 |
| ^SCE("AVSIT" | DELCR+18 |
| ^TMP("PXK" | DELVFILE+73!, STOP+12*, STOP+13*, STOP+14*, STOP+16*, STOP+19*, STOP+20*, STOP+22*, STOP+23*, STOP+25* , STOP+26*, STOP+48*, STOP+49*, STOP+50*, STOP+60, STOP+65! |
| ^TMP($J | VERAPT+2!, VERAPT+13, VERAPT+14, VERAPT+18! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | DELVFILE+86~ |
| DIR("A" | DELVFILE+89* |
| DIR("B" | DELVFILE+90* |
| DIR(0 | DELVFILE+88* |
| DUZ | DELVFILE+97, DELCR+31 |
| ERROR | DELVFILE+96~, DELVFILE+97 |
| ERROR("LOCK" | DELVFILE+99, DELVFILE+100 |
| ERRRET | DELVFILE~, STOP+63* |
| INDEX | DELVFILE+74~ |
| LOCK | DELVFILE+96~, DELVFILE+97*, DELVFILE+98 |
| NODE800 | STOP+17~, STOP+18, STOP+19, STOP+25 |
| NODE900 | STOP+17~, STOP+18, STOP+20, STOP+26 |
| >> PACKAGE | DELVFILE+51*, DELVFILE+52, DELVFILE+53, DELVFILE+54 |
| PXAASK | DELVFILE~, DELVFILE+85 |
| PXACOUNT | DELVFILE+74~, DELVFILE+80*, STOP+3*, STOP+28*, DELCR+8* |
| PXAECHO | DELVFILE~, DELVFILE+94, STOP+32, STOP+61, DELCR+3 |
| PXAFILE | DELVFILE+74~, STOP+33*, STOP+35, STOP+36, STOP+37, STOP+38, STOP+45, STOP+48 |
| PXAIEN | DELVFILE+75~, STOP+2*, STOP+3*, STOP+4, STOP+5, STOP+6, STOP+8, STOP+10, STOP+34*, STOP+35* , STOP+40, STOP+42, STOP+47, STOP+50, DELCR+7*, DELCR+8*, DELCR+9, DELCR+10, DELCR+20, DELCR+22 |
| PXAINDX | DELVFILE+74~, STOP+35*, STOP+48, STOP+49, STOP+50 |
| PXAKILL | DELCR+24~, DELCR+26*, DELCR+27, DELCR+28, DELCR+32 |
| PXALEN | DELVFILE+75~, DELVFILE+78*, DELVFILE+79, DELVFILE+80, STOP+28 |
| PXAMYSOR | DELVFILE+75~, DELVFILE+101*, STOP+8, STOP+13, DELCR+20 |
| PXAPIECE | DELVFILE+75~, STOP+15*, STOP+16 |
| PXAPKG | DELVFILE~, DELVFILE+52*, DELVFILE+53*, DELVFILE+54*, DELVFILE+58, STOP+12, STOP+37 |
| PXAPROB | DELVFILE~ |
| PXAPROB( | ADDERR+2* |
| PXARET | DELVFILE+74~, DELVFILE+76*, DELVFILE+80, DELVFILE+82*, DELVFILE+84, DELVFILE+85, DELVFILE+92*, DELVFILE+93, STOP+41*, STOP+46* , DELCR+32 |
| PXASOURC | DELVFILE~, DELVFILE+65*, DELVFILE+66*, DELVFILE+67*, DELVFILE+68, STOP+38 |
| PXAUSER | DELVFILE~, STOP+4, STOP+36, DELCR+9 |
| PXAVFILE | DELVFILE+74~, DELVFILE+80*, DELVFILE+81, DELVFILE+83, STOP+28*, STOP+29, STOP+30, STOP+40, STOP+47, STOP+48 , STOP+49, STOP+50, STOP+54, STOP+55, STOP+56 |
| PXAVISIT | DELVFILE~, DELVFILE+45, DELVFILE+47, DELVFILE+48, DELVFILE+97, STOP+3, STOP+8, STOP+14, STOP+16, STOP+18 , DELCR+1, DELCR+8, DELCR+12, DELCR+18, DELCR+20, DELCR+26, DELCR+31, VERAPT~, VERAPT+3, VERAPT+4 , VERAPT+19 |
| PXAWFLAG | DELVFILE+74~, DELVFILE+94*, DELVFILE+99, STOP+7, STOP+9, STOP+32*, STOP+51, STOP+52*, DELCR+3*, DELCR+19 , DELCR+21 |
| PXAWHICH | DELVFILE~, DELVFILE+77*, DELVFILE+78, DELVFILE+80, STOP+1, STOP+21, STOP+28, DELCR+4, DELCR+25 |
| PXERRCNT | DELVFILE+40~, DELVFILE+42*, ADDERR+1*, ADDERR+2 |
| PXERRMSG | DELVFILE+40~, DELVFILE+55*, DELVFILE+56, DELVFILE+57, DELVFILE+59*, DELVFILE+60, DELVFILE+61, DELVFILE+69*, DELVFILE+70, DELVFILE+71 , STOP+42*, STOP+43*, STOP+44, DELCR+28*, DELCR+29*, DELCR+30 |
| PXKERROR | STOP+59~, STOP+63, STOP+65!, DELCR+32 |
| PXMSG | ADDERR~, ADDERR+2 |
| 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+64*, DELVFILE+65, DELVFILE+66, DELVFILE+67 |
| SVSTSTR | VERAPT+1~, VERAPT+4*, VERAPT+5, VERAPT+8 |
| U | STOP+5, STOP+6, DELCR+10, VERAPT+5, VERAPT+8, VERAPT+15 |
| X | DELVFILE+86~ |
| Y | DELVFILE+86~, DELVFILE+92 |
| >> ZTQUEUED | DELVFILE+56, DELVFILE+60, DELVFILE+70, DELVFILE+94, STOP+32, STOP+61, DELCR+3 |
| Name | Field # of Occurrence |
|---|---|
| $T(FORMAT^@(6) | STOP+33 |