Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PXAPIDEL

Package: PCE Patient Care Encounter

Routine: PXAPIDEL


Information

PXAPIDEL ;ISL/dee - PCE's code for the DELVFILE api ;11/14/2018

Source Information

Source file <PXAPIDEL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
PCE Patient Care Encounter 7 $$SOURCE^PXAPIUTL  PAUSE^PXCEHELP  (EN1,EVENT)^PXKMAIN  ($$LOCK,UNLOCK)^PXLOCK  $$STOPCODE^PXUTLSTP  $$PKG2IEN^VSIT  ($$DEC,$$KILL)^VSITKIL  
Scheduling 2 $$SDAPI^SDAMA301  LISTVST^SDOERPC  
VA FileMan 2 WAIT^DICD  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
PCE Patient Care Encounter 3 PXAPI  PXBAPI1  PXICLN9B  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ERROR("LOCK")
  • Line Location: DELVFILE+77
Function Call: WRITE
  • Prompt: !," ...deleting Stop Codes"
  • Line Location: STOP+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot edit at this time, try again later."
  • Line Location: STOP+9
Function Call: WRITE
  • Prompt: !," ...deleting "
  • Line Location: STOP+37
Function Call: WRITE
  • Prompt: $S("CPT"=PXAVFILE:"Procedure","IMM"=PXAVFILE:"Immunizations","PED"=PXAVFILE:"Patient Education","ICR"=PXAVFILE:"Contra/Refusal Event",1:"")
  • Line Location: STOP+38
Function Call: WRITE
  • Prompt: $S("POV"=PXAVFILE:"Diagnoses","PRV"=PXAVFILE:"Providers","SK"=PXAVFILE:"Skin Test","TRT"=PXAVFILE:"Treatments","HF"=PXAVFILE:"Health Factors","XAM"=PXAVFILE:"Exams",1:"")
  • Line Location: STOP+39
Function Call: WRITE
  • Prompt: $S("SC"=PXAVFILE:"Standard Codes",1:"")
  • Line Location: STOP+40
Function Call: WRITE
  • Prompt: !," ...deleting Credit Stop Codes"
  • Line Location: DELCR+19
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot edit/delete at this time, try again later."
  • Line Location: DELCR+21
Routine Call
  • DIR
  • Line Location:
    • DELVFILE+69

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$VERAPT DELCR+1

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(FORMAT^@(6) STOP+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All