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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PXCEVFI1

Package: PCE Patient Care Encounter

Routine: PXCEVFI1


Information

PXCEVFI1 ;ISL/dee,esw - Routine to edit a Visit or V-file entry ;May 14, 2021@11:51:23

Source Information

Source file <PXCEVFI1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
PCE Patient Care Encounter 8 NEWCODE^PXCECPT  WAIT^PXCEHELP  CONTRA^PXCEICR  ($$EDIT,$$NEW,$$PROMPT)^PXCESK  (DEL,SC)^PXCEVFI2  PROVIDER^PXCEVFI4  $$INST^PXVRESP  $$ARTAPI^PXVUTIL  
VA FileMan 4 EN^DDIOL  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
CPT HCPCS Codes 1 $$CODM^ICPTCOD  
Kernel 1 $$SETUP1^XQALERT  

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

Package Total Caller Graph
PCE Patient Care Encounter 1 PXCEVFIL  

Entry Points

Name Comments DBIA/ICR reference
EDIT ; -- edit the V-File stored in "AFTER"
EDIT01 ;
REST ;Edit the rest of the fields.
ENDEDIT ;
REQ ; prompt for dose, dose units, route and site for non-historical administrations ; PX*1*216
SITE
REQF() ; check if field is dose, dose unit, route or site ; PX*1*216
MUST ; prompt for required entries if not entered ; PX*1*216
EXTB ; get external value for DIR("B") ; PX*1*216
DUP(PXCEINP) ; -- Check for dup entries.
DEF ; get default response from file #920.05; PX*1*215
HIST() ; check if historical encounter; PX*1*215
ARTALERT ; Alert for Adverse Reaction Tracking (ART) ; PX*1*216
HL72IEN(PXFILE,PXHL7CODE) ;
IEN2HL7(PXFILE,PXIEN) ;

External References

Name Field # of Occurrence
EN^DDIOL EDIT+12, MUST+2
$$EXTERNAL^DILFD EDIT+18, REST+44, EXTB+6, DEF+6
$$GET1^DIQ DUP+11
^DIR EDIT01+15, REST+51, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+2, DUP+18
$$CODM^ICPTCOD EDIT+21, EDIT01+40
NEWCODE^PXCECPT EDIT01+44
WAIT^PXCEHELP EDIT01+20
CONTRA^PXCEICR EDIT01+28
$$EDIT^PXCESK REST+11
$$NEW^PXCESK REST+10
$$PROMPT^PXCESK REST+16
DEL^PXCEVFI2 EDIT01+21
SC^PXCEVFI2 EDIT01+1
PROVIDER^PXCEVFI4 REST+57
$$INST^PXVRESP EXTB+3, DEF+3
$$ARTAPI^PXVUTIL EDIT01+37
$$SETUP1^XQALERT ARTALERT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !,$P(PXCETEXT,"~",4),$$EXTERNAL^DILFD(PXCEFILE,.01,"",PT01)
  • Line Location: EDIT+18
Function Call: WRITE
  • Prompt: !,"There is no entry to delete."
  • Line Location: EDIT01+19
Function Call: WRITE
  • Prompt: !!,"WARNING: This Health Factor is currently not set to",!?10,"display on a Health Summary report.",!!
  • Line Location: EDIT01+54
Function Call: WRITE
  • Prompt: !,$P(PXCEINP,"^",2)," is already a "_PXCECATT_" for this Encounter."
  • Line Location: DUP+9
Function Call: WRITE
  • Prompt: !!,"Duplicate Diagnosis Not Allowed."
  • Line Location: DUP+10
Function Call: WRITE
  • Prompt: !,"No duplicate E&M codes allowed."
  • Line Location: DUP+12
Routine Call
  • DIR
  • Line Location:
    • EDIT01+15
    • REST+51
    • REQ+2
    • REQ+4
    • REQ+6
    • SITE+1
    • SITE+2
    • MUST+2
    • DUP+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357.69 - [#357.69] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] EDIT01+1, HIST+2
^AUTTHF - [#9999999.64] EDIT01+52
^AUTTIMM - [#9999999.14] REST+31
^PXV( HL72IEN+3, IEN2HL7+3
^PXV(920.05 - [#920.05] EXTB+5, DEF+5
^PXV(920.6 - [#920.6] SITE+1, SITE+2
^TMP("PXK" EDIT+21, EDIT01+40, EDIT01+45*
^TMP("PXMODARR" EDIT+22!, EDIT01+41!

Label References

Name Line Occurrences
$$DUP EDIT01+26
$$HIST EDIT01+35, REST+19, REST+25, REST+26, REST+50, REST+52
$$HL72IEN EDIT01+35
$$IEN2HL7 REST+39, REST+40, REQ+8
$$REQF REST+52
@( EDIT01+6, REST+37
ARTALERT EDIT01+37
DEF REST+48
EDIT01 EDIT01+26
ENDEDIT EDIT01+16
EXTB REQ+2, REQ+4, REQ+6, SITE
MUST REST+52, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+4
REQ EDIT01+35
REST EDIT+5, EDIT+16
SITE REST+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EDIT+1~, EDIT01+3!, REST+35!
DA EDIT+1~, EDIT01+3!, EDIT01+48!, REST+35!, REST+53!, SITE+2!, DUP+14~
DA(1 SITE+3*
DIERR REST+42~, REST+45
DIR EDIT+1~, EDIT01+3!, EDIT01+48!, REST+35!, REST+53!, REQ+2!, REQ+4!, REQ+6!, SITE+1!, SITE+2!
, DUP+14~
DIR("?" EDIT01+11*, REST+49*, SITE+4*
DIR("A" EDIT01+10*, REST+47*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+16*
DIR("B" EDIT01+8*, REST+45*, REST+48, EXTB+7*, DUP+17*, DEF+7*
DIR("S" EDIT01+14*
DIR(0 EDIT01+9*, EDIT01+13*, REST+46*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+15*
DIRUT EDIT01+17~, EDIT01+22, EDIT01+23
>> DTOUT REST+55, MUST+3
>> DUOUT REST+55, MUST+3
DUZ ARTALERT+3
FIELD REST+1~, REST+15*, REST+16, REST+17, REST+18, REST+19, REST+20, REST+21, REST+22, REST+23
, REST+24, REST+25, REST+26, REST+27, REST+39
HFIEN EDIT01+51~, EDIT01+52*, EDIT01+55!
IMMIEN REST+29~, REST+30*, REST+31
NODE EDIT01+51~, EDIT01+52*, EDIT01+53, EDIT01+54, EDIT01+55!
PT01 EDIT+1~, EDIT+15*, EDIT+16, EDIT+18, EDIT+21
PXALERGY EDIT+2~, EDIT01+37*
>> PXCEAFTR REST+10, REST+11
>> PXCEAFTR( REST+41, REST+43, REST+56*
>> PXCEAFTR(0 EDIT+15, EDIT01+18, EDIT01+22, EDIT01+42, EDIT01+46*, EDIT01+47*, REST+30
>> PXCEAFTR(12 EDIT01+29*, EDIT01+32*
>> PXCEAFTR(13 EDIT01+35*, REST+39, REST+40*, REQ+3*, REQ+5*, REQ+7*, SITE+1*, SITE+2*
>> PXCEAFTR(16 EDIT01+29*, EDIT01+33*
>> PXCEAFTR(300 EDIT+9
>> PXCEAUPN DUP+6
>> PXCECAT EDIT+5, EDIT+19, EDIT01+1, EDIT01+12, EDIT01+21, EDIT01+27, EDIT01+35, EDIT01+37, EDIT01+39, EDIT01+46
, REST+4, REST+8, REST+16, REST+18, REST+19, REST+20, REST+21, REST+22, REST+23, REST+24
, REST+25, REST+26, REST+28, REST+39, REST+48, REST+50, REST+52, REST+55, DUP+1, DUP+10
, DUP+11
>> PXCECATS EDIT01+45
>> PXCECATT DUP+9
PXCEDILF REST+42~
PXCEDIRB EDIT+2~, EDIT01+3!, EDIT01+4*, EDIT01+8, EDIT01+26, EDIT01+46
PXCEDUP DUP+3~, DUP+4*, DUP+6*, DUP+7, DUP+8, DUP+19*, DUP+20
PXCEEND EDIT+1~, REST+5*, REST+14, REST+27, REST+28*, REST+31*, REST+55*
PXCEEXT REST+42~, REST+44*, REST+45, DEF+1~, DEF+6*, DEF+7
PXCEFIEN EDIT01+35, EDIT01+43~, EDIT01+45, REST+10, REST+11, REST+26, DUP+6
>> PXCEFILE EDIT+18, EDIT01+9, REST+44, REST+46, EXTB+6, DEF+6
PXCEIKEY EDIT+3~, REST+34*
PXCEIN01 EDIT+1~, EDIT01+25*
PXCEINDX DUP+3~, DUP+5*, DUP+6*
PXCEINP EDIT+1~, EDIT01+24*, EDIT01+26, EDIT01+37, EDIT01+47, EDIT01+52, DUP~, DUP+6, DUP+9, DUP+11
, DUP+16
PXCEINT REST+42~, REST+43*, REST+44, REST+45
PXCEKEY EDIT+3~, REST+32*, REST+34*
>> PXCEKEYS REST+34
PXCELINE EDIT+2~, REST+14*
>> PXCELOOP EDIT+14*, EDIT01+22*
PXCEMOD EDIT+2~
PXCENKEY EDIT+3~, REST+33*, REST+34
>> PXCENOER REST+12*
>> PXCEPAT REST+10
>> PXCEPAT("NAME" ARTALERT+1, ARTALERT+5
>> PXCEPAT("SSN_BRIEF" ARTALERT+1, ARTALERT+5
>> PXCEQUIT EDIT01+23*, EDIT01+27, EDIT01+30*, EDIT01+35*, REST+8, REST+10*, REST+11*, REST+12, REST+55*
PXCESKTYP REST+1~, REST+9*, REST+10, REST+11, REST+16
>> PXCESOR EDIT+21, EDIT01+40
PXCETEXT EDIT+2~, EDIT+17*, EDIT+18, EDIT01+2*, EDIT01+5, EDIT01+10, EDIT01+11, REST+14*, REST+15, REST+32
, REST+33, REST+34, REST+36, REST+41, REST+43, REST+44, REST+46, REST+47, REST+49, REST+50
, REST+56, REST+57, REQF+2, DEF+5, DEF+6
>> PXCEVIEN EDIT01+1, REST+10, EXTB+2, EXTB+3, DEF+2, DEF+3, HIST+2
PXCONTRA EDIT+1~, EDIT01+28*, EDIT01+29, EDIT01+30, EDIT01+31
PXD EDIT+1~, EDIT01+24*, EXTB+4, DEF+4
PXEXT REQ+1~, EXTB+6*, EXTB+7
PXFILE HL72IEN~, HL72IEN+1, HL72IEN+3, IEN2HL7~, IEN2HL7+1, IEN2HL7+3
PXHL7CODE HL72IEN~, HL72IEN+2, HL72IEN+3
PXIEN IEN2HL7~, IEN2HL7+2, IEN2HL7+3
PXJUST EDIT+1~, EDIT01+28*, EDIT01+33
PXMDCNT EDIT+3~, EDIT+21*, EDIT01+40*, EDIT01+42
PXV294 REQF+1~, REQF+2*, REQF+3*, REQF+4
PXVACK EDIT+1~, EDIT01+28*, EDIT01+30, EDIT01+31
PXVDEF EXTB+1~, EXTB+5*, EXTB+6, DEF+1~, DEF+5*, DEF+6
PXVF REQ+1~, REQ+2*, REQ+4*, REQ+6*, SITE*, REQF+1~, REQF+2*, REQF+3, EXTB+6
PXVFAC EXTB+1~, EXTB+3*, EXTB+5, DEF+1~, DEF+3*, DEF+5
PXVHIST HIST+1~*, HIST+2*, HIST+3
PXVIMM EXTB+1~, EXTB+4*, EXTB+5, DEF+1~, DEF+4*, DEF+5
PXVMISS EDIT+2~, EDIT01+35*, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+1*, MUST+3*
PXVP REQ+1~, REQ+2*, REQ+4*, REQ+6*, SITE*, EXTB+5
PXVRT EDIT+2~, REST+39*, REST+40, REQ+7*, REQ+8, SITE+1, SITE+2, SITE+3
PXVVAR ARTALERT+2~, ARTALERT+11*
PXVX MUST+2~*
SKIPEVDT REST+1~, REST+4*, REST+17
TEMP EDIT01+3!, EDIT01+5*, EDIT01+6, EDIT01+7, REST+1~, REST+36*, REST+37, REST+38
TEXT EDIT+10~, EDIT+12
TEXT(1 EDIT+11*
U EDIT+15, EDIT01+1, EDIT01+47, EDIT01+50, EDIT01+52, EDIT01+54, REST+30, REST+31, IEN2HL7+3
X EDIT+1~, EDIT01+3!, EDIT01+16, EDIT01+25, REST+35!, REST+54, MUST+2, MUST+4, DUP+3~
XQA ARTALERT+2~
XQA( ARTALERT+3*
XQADATA ARTALERT+2~, ARTALERT+5*, ARTALERT+6
XQAID ARTALERT+2~, ARTALERT+4*
XQAMSG ARTALERT+2~, ARTALERT+6*
XQATEXT ARTALERT+2~
XQATEXT(1 ARTALERT+7*
XQATEXT(2 ARTALERT+8*
XQATEXT(3 ARTALERT+9*
XQATEXT(4 ARTALERT+10*
>> XQORNOD(0 EDIT01+50
Y EDIT+1~, EDIT01+3!, EDIT01+24, EDIT01+26, EDIT01+40, REST+35!, REST+54*, REST+56, REST+57, REQ+3
, REQ+5, REQ+7, SITE+1, SITE+2, MUST+2, MUST+4, DUP+3~, DUP+19

Marked Items

Name Field # of Occurrence
$T(FORMAT+1^@PXCECODE EDIT+17, EDIT01+2
$T(FORMAT+PXCELINE^@PXCECODE REST+14
$T(FORMAT^@PXCECODE DUP+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All