Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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 ;05/03/2024@10:58

Source Information

Source file <PXCEVFI2.m>

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

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: !!,"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
Info |  Source |  Entry Points |  Interaction Calls