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 ;12/03/2015

Source Information

Source file <PXCEVFI2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 6 $$SURE^PXCEAE2  (PAUSE,WAIT)^PXCEHELP  SAVE^PXCESK  (EN1,EVENT)^PXKMAIN  $$STOPCODE^PXUTLSTP  $$KILL^VSITKIL  
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
^DIR ASKLOOP+9
$$SURE^PXCEAE2 DEL+29, DEL+36, DEL+61
PAUSE^PXCEHELP DEL+1, DEL+2
WAIT^PXCEHELP DEL+13, DEL+24, DEL+41
SAVE^PXCESK SAVE+11
EN1^PXKMAIN SAVE+12, DEL+64
EVENT^PXKMAIN DEL+43
$$STOPCODE^PXUTLSTP SAVE+1, DEL+31
$$KILL^VSITKIL DEL+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(PXCECNT+1,3),?6,@("$$DISPLY01^"_PXCCODE_"("_PXCEAUPN_"(PXCEINDX,0))")
  • Line Location: ASK+9
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)""))")
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete this entry it has been ""Verified""."
  • Line Location: DEL+13
Function Call: WRITE
  • Prompt: !!,"Error on deleting "_PXCECATT_" ",@("$$DISPLY01^"_PXCECODE_"(NODE0)")
  • Line Location: DEL+23
Function Call: WRITE
  • Prompt: !,"Error: You cannot delete an entry you did not create."
  • Line Location: DEL+24
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+27
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")))")
  • Line Location: DEL+28
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+34
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"($G(@(PXCEAUPN_""(PXCEFIEN,0)"")))")
  • Line Location: DEL+35
Function Call: WRITE
  • Prompt: !,$C(7),"Could not delete the encounter. There are still users of it."
  • Line Location: DEL+41
Function Call: WRITE
  • Prompt: !!,"Deleting "_PXCECATT_" "
  • Line Location: DEL+59
Function Call: WRITE
  • Prompt: @("$$DISPLY01^"_PXCECODE_"(^TMP(""PXK"",$J,PXCECATS,1,0,""BEFORE""))")
  • Line Location: DEL+60
Function Call: WRITE
  • Prompt: !!,"Patient's Service Connection and Rated Disabilities:"
  • Line Location: SC+4
Function Call: WRITE
  • Prompt: !!,$S($P($G(^DPT(PXDFN,.3)),"^")="Y":" SC Percent: "_$P(^(.3),"^",2)_"%",1:" Service Connected: No")
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !,"Rated Disabilities: "
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: "Not a Veteran"
  • Line Location: SC+7
Routine Call
  • DIR
  • Line Location:
    • ASKLOOP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] ASK+5, ASK+6, DEL+49
^DIC(31 - [#31] SC+11, SC+13
^DIC(391 SC+7
^DPT - [#2] SC+5, SC+7, SC+9, SC+14
^SCE("AVSIT" DEL+40
^TMP("PXK" SAVE+9*, SAVE+10*, SAVE+11, SAVE+13, DEL+46!, DEL+47*, DEL+49*, DEL+51*, DEL+52*, DEL+56*
, DEL+63*, DELQUIT+1!

Label References

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

Naked Globals

Name Field # of Occurrence
^( SC+5, SC+9
^(0 SC+7, SC+9, SC+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASK+2~, ASKLOOP+10!, DEL+58~
DIK DEL+58~
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+19
I SC+3~, SC+8*, SC+9*
NODE0 DEL+21~, DEL+22*
PXCCATT ASK~, ASK+5, ASK+6, ASK+7, ASKLOOP+4, ASKLOOP+5, ASKLOOP+8
PXCCODE ASK~, ASK+9
>> 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, DEL+4~, DEL+7*, DEL+10, DEL+11, DEL+17, DEL+18, DEL+22
, DEL+56
PXCECAT ASKLOOP+1, SAVE+1, SAVE+11, SAVE+13, DEL~, DEL+5, DEL+6, DEL+26
PXCECATS SAVE+6, SAVE+9, SAVE+10, SAVE+11, DEL+4~, DEL+6*, DEL+17, DEL+33, DEL+52, DEL+56
, DEL+63
PXCECATT DEL+4~, DEL+8*, DEL+12, DEL+23, DEL+27, DEL+34, DEL+59
PXCECHK DEL+15~, DEL+17*, DEL+18*, DEL+19
PXCECNT ASK+1~, ASK+4*, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9, ASK+10, ASKLOOPASKLOOP+2
ASKLOOP+7, ASKLOOP+14
PXCECODE DEL+4~, DEL+5*, DEL+12, DEL+23, DEL+28, DEL+35, DEL+60
>> PXCEFIEN SAVE+1*, DEL+1, DEL+31, DEL+52
PXCEFOR SAVE+3~, SAVE+5*, DEL+4~, DEL+55*, DEL+63*
PXCEINDX ASK+1~, ASK+3*, ASK+4*, ASK+8
>> PXCEKEYS DEL+2, DEL+14
>> PXCELOOP DEL+32*, DEL+42*, DEL+65*
PXCENODE SAVE+3~, SAVE+5*, SAVE+6, SAVE+8, SAVE+9, SAVE+10, DEL+4~, DEL+48*, DEL+49, DEL+55*
, DEL+56, DEL+63*
PXCENODS SAVE+3~, SAVE+4*, SAVE+5, DEL+4~, DEL+54*, DEL+55, DEL+62*, DEL+63
>> PXCENOER DEL+42*, DEL+66*
PXCEQUIT ASKLOOP+11*, DEL+4~, DEL+14, DEL+16*, DEL+20*, DEL+42*
PXCEREF ASK+1~
PXCERESU DEL+30~, DEL+31*, DEL+37~, DEL+38*, DEL+39, DEL+40, DEL+42
PXCESEQ SAVE+3~, SAVE+7*, SAVE+8*, SAVE+9
>> PXCESOR SAVE+1, DEL+31, DEL+51
>> PXCEVDEL DEL+42*
>> PXCEVIEN ASK+5, ASK+6, SAVE+1, SAVE+13*, DEL+1, DEL+31, DEL+38, DEL+40, DEL+47, DEL+49
PXCFIEN ASK~, ASKLOOP+16*
PXCVIEN ASK~
PXDFN SC~, SC+5, SC+7, SC+9, SC+14
>> PXVICR ASKLOOP+13*
SDCNT SC+3~, SC+8*, SC+10*, SC+12, SC+14
SDDC SC+3~, SC+11*, SC+13
SDRD0 SC+3~, SC+9*, SC+11, SC+13
U ASK+5, ASK+6
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+7, DEL+8, DEL+54, DEL+62
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