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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PXCEVFI2

Package: PCE Patient Care Encounter

Routine: PXCEVFI2


Information

PXCEVFI2 ;ISL/DEE,ESW - Supporting routines for editing a visit or v-file entry ;Jun 19, 2018@15:13

Source Information

Source file <PXCEVFI2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
PCE Patient Care Encounter 6 $$SURE^PXCEAE2  (PAUSE,WAIT)^PXCEHELP  ($$CANDEL,SAVE)^PXCESK  (EN1,EVENT)^PXKMAIN  $$STOPCODE^PXUTLSTP  $$KILL^VSITKIL  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 $$EN^DGREGEEWS  
VA FileMan 1 ^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 PXBAPI21  PXCEVFI1  PXCEVFIL  

Entry Points

Name Comments DBIA/ICR reference
ASK(PXCVIEN,PXCFIEN,PXCEAUPN,PXCCATT,PXCCODE) ; -- Display a selection list from one V-File for this visit
ASKLOOP
SAVE ; -- Save this edited and quit editing.
DEL(PXCECAT) ; -- Delete this V-File entry from the List if all the visit information.
DELQUIT ;
SC(PXDFN) ;Service Connected Help
; Input -- DFN Patient file IEN
; Output -- Help

External References

Name Field # of Occurrence
$$EN^DGREGEEWS SC+7
^DIR ASKLOOP+9
$$GETICN^MPIF001 SC+6
$$SURE^PXCEAE2 DEL+36, DEL+43, DEL+68
PAUSE^PXCEHELP DEL+1, DEL+2
WAIT^PXCEHELP DEL+20, DEL+31, DEL+48
$$CANDEL^PXCESK DEL+8
SAVE^PXCESK SAVE+11
EN1^PXKMAIN SAVE+12, DEL+71
EVENT^PXKMAIN DEL+50
$$STOPCODE^PXUTLSTP SAVE+1, DEL+38
$$KILL^VSITKIL DEL+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(PXCECNT+1,3),?6,@("$$DISPLY01^"_PXCCODE_"("_PXCEAUPN_"(PXCEINDX,0),PXCEDT)")
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,$C(7),"Error: Cannot delete this an unknown V-File entry."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Error: You do not have delete access."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Error on deleting "_PXCECATT_" ",@("$$DISPLY01^"_PXCECODE_"(@(PXCEAUPN_""(PXCEFIEN,0)""),PXCEDT)")
  • Line Location: DEL+19
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete this entry it has been ""Verified""."
  • Line Location: DEL+20
Function Call: WRITE
  • Prompt: !!,"Error on deleting "_PXCECATT_" ",@("$$DISPLY01^"_PXCECODE_"(NODE0,PXCEDT)")
  • Line Location: DEL+30
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete an entry you did not create."
  • Line Location: DEL+31
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+34
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")),PXCEDT)")
  • Line Location: DEL+35
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+41
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")),PXCEDT)")
  • Line Location: DEL+42
Function Call: WRITE
  • Prompt: !,$C(7),"Could not delete the encounter. There are still users of it."
  • Line Location: DEL+48
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+66
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"(^TMP(""PXK"",$J,PXCECATS,1,0,""BEFORE""),PXCEDT)")
  • Line Location: DEL+67
Function Call: WRITE
  • Prompt: !!,"COMPACT Act Administrative Eligibility:"
  • Line Location: SC+18
Function Call: WRITE
  • Prompt: !," COMPACT Act: ",ELIG
  • Line Location: SC+19
Function Call: WRITE
  • Prompt: !!,"Patient's Service Connection and Rated Disabilities:"
  • Line Location: SC+20
Function Call: WRITE
  • Prompt: !!,$S($P($G(^DPT(PXDFN,.3)),"^")="Y":" SC Percent: "_$P(^(.3),"^",2)_"%",1:" Service Connected: No")
  • Line Location: SC+21
Function Call: WRITE
  • Prompt: !,"Rated Disabilities: "
  • Line Location: SC+22
Function Call: WRITE
  • Prompt: "Not a Veteran"
  • Line Location: SC+23
Routine Call
  • DIR
  • Line Location:
    • ASKLOOP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] ASK+5, ASK+6, ASK+10, DEL+17, DEL+56
^DIC(31 - [#31] SC+27, SC+29
^DIC(391 SC+23
^DIC(8 - [#8] SC+12
^DPT - [#2] SC+11, SC+21, SC+23, SC+25, SC+30
^SCE("AVSIT" DEL+47
^TMP("PXK" SAVE+9*, SAVE+10*, SAVE+11, SAVE+13, DEL+53!, DEL+54*, DEL+56*, DEL+58*, DEL+59*, DEL+63*
, DEL+70*, DELQUIT+1!

Label References

Name Line Occurrences
ASKLOOP ASKLOOP+14, ASKLOOP+15
SC ASK+5, ASK+6

Naked Globals

Name Field # of Occurrence
^( SC+21, SC+25
^(0 SC+23, SC+25, SC+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASK+2~, ASKLOOP+10!, DEL+65~
DGCOMP SC+3~, SC+4*, SC+7, SC+16, SC+17
DGKEY SC+3~, SC+4*, SC+6*, SC+7
DGREQNAME SC+3~, SC+4*, SC+6*, SC+7
DGRESP SC+3~, SC+4*, SC+7*, SC+9, SC+15
DIK DEL+65~
DIR ASK+2~, ASKLOOP+10!
DIR("?" ASKLOOP+4*, ASKLOOP+5*, ASKLOOP+8*
DIR("A" ASKLOOP+2*, ASKLOOP+3*, ASKLOOP+7*
DIR(0 ASKLOOP*
>> DIRUT ASKLOOP+11
DUZ DEL+26
ELIG SC+3~, SC+4*, SC+11, SC+12*, SC+16*, SC+17*, SC+19
ELIGSEQ SC+3~, SC+4*, SC+10*, SC+11*, SC+12
I SC+3~, SC+24*, SC+25*
NODE0 DEL+28~, DEL+29*
PXCCATT ASK~, ASK+5, ASK+6, ASK+7, ASKLOOP+4, ASKLOOP+5, ASKLOOP+8
PXCCODE ASK~, ASK+11
>> PXCEAFTR( SAVE+8, SAVE+9, SAVE+10
>> PXCEAFTR(0 SAVE+1
PXCEASK ASK+1~
PXCEASK( ASK+8*, ASKLOOP+15, ASKLOOP+16
PXCEAUPN ASK~, ASK+4, ASK+9, ASK+11, DEL+4~, DEL+12*, DEL+15, DEL+16, DEL+18, DEL+24
, DEL+25, DEL+29, DEL+63
PXCECAT ASKLOOP+1, SAVE+1, SAVE+11, SAVE+13, DEL~, DEL+8, DEL+10, DEL+11, DEL+33
PXCECATS SAVE+6, SAVE+9, SAVE+10, SAVE+11, DEL+4~, DEL+11*, DEL+24, DEL+40, DEL+59, DEL+63
, DEL+70
PXCECATT DEL+4~, DEL+13*, DEL+19, DEL+30, DEL+34, DEL+41, DEL+66
PXCECHK DEL+22~, DEL+24*, DEL+25*, DEL+26
PXCECNT ASK+1~, ASK+4*, ASK+5, ASK+6, ASK+7, ASK+8, ASK+11, ASK+12, ASKLOOP, ASKLOOP+2
, ASKLOOP+7, ASKLOOP+14
PXCECODE DEL+4~, DEL+10*, DEL+19, DEL+30, DEL+35, DEL+42, DEL+67
PXCEDT ASK+1~, ASK+9*, ASK+10*, DEL+5~, DEL+16*, DEL+17*
>> PXCEFIEN SAVE+1*, DEL+1, DEL+8, DEL+38, DEL+59
PXCEFOR SAVE+3~, SAVE+5*, DEL+4~, DEL+62*, DEL+70*
PXCEINDX ASK+1~, ASK+3*, ASK+4*, ASK+8
>> PXCEKEYS DEL+2, DEL+21
>> PXCELOOP DEL+39*, DEL+49*, DEL+72*
PXCENODE SAVE+3~, SAVE+5*, SAVE+6, SAVE+8, SAVE+9, SAVE+10, DEL+4~, DEL+55*, DEL+56, DEL+62*
, DEL+63, DEL+70*
PXCENODS SAVE+3~, SAVE+4*, SAVE+5, DEL+4~, DEL+61*, DEL+62, DEL+69*, DEL+70
>> PXCENOER DEL+49*, DEL+73*
PXCEQUIT ASKLOOP+11*, DEL+4~, DEL+21, DEL+23*, DEL+27*, DEL+49*
PXCEREF ASK+1~
PXCERESU DEL+37~, DEL+38*, DEL+44~, DEL+45*, DEL+46, DEL+47, DEL+49
PXCESEQ SAVE+3~, SAVE+7*, SAVE+8*, SAVE+9
>> PXCESOR SAVE+1, DEL+38, DEL+58
>> PXCEVDEL DEL+49*
>> PXCEVIEN ASK+5, ASK+6, ASK+10, SAVE+1, SAVE+13*, DEL+1, DEL+17, DEL+38, DEL+45, DEL+47
, DEL+54, DEL+56
PXCFIEN ASK~, ASKLOOP+16*
PXCVIEN ASK~
PXDFN SC~, SC+6, SC+11, SC+21, SC+23, SC+25, SC+30
>> PXVICR ASKLOOP+13*
SDCNT SC+3~, SC+24*, SC+26*, SC+28, SC+30
SDDC SC+3~, SC+27*, SC+29
SDRD0 SC+3~, SC+25*, SC+27, SC+29
U ASK+5, ASK+6, ASK+9, ASK+10, DEL+16, DEL+17
X ASK+2~
Y ASK+2~, ASKLOOP+12, ASKLOOP+13, ASKLOOP+14, ASKLOOP+15, ASKLOOP+16

Marked Items

Name Field # of Occurrence
$T(FORMAT^@PXCECODE SAVE+4, DEL+12, DEL+13, DEL+61, DEL+69
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All