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 ;06/22/2016

Source Information

Source file <PXCEVFI1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
PCE Patient Care Encounter 7 NEWCODE^PXCECPT  WAIT^PXCEHELP  CONTRA^PXCEICR  (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
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

External References

Name Field # of Occurrence
EN^DDIOL MUST+2
$$EXTERNAL^DILFD EDIT01+6, REST+25, EXTB+6, DEF+6
$$GET1^DIQ DUP+11
^DIR EDIT01+19, REST+32, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+2, DUP+18
$$CODM^ICPTCOD EDIT01+44
NEWCODE^PXCECPT EDIT01+48
WAIT^PXCEHELP EDIT01+24
CONTRA^PXCEICR EDIT01+32
DEL^PXCEVFI2 EDIT01+25
SC^PXCEVFI2 EDIT01+1
PROVIDER^PXCEVFI4 REST+38
$$INST^PXVRESP EXTB+3, DEF+3
$$ARTAPI^PXVUTIL EDIT01+41
$$SETUP1^XQALERT ARTALERT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !,"There is no entry to delete."
  • Line Location: EDIT01+23
Function Call: WRITE
  • Prompt: !!,"WARNING: This Health Factor is currently not set to",!?10,"display on a Health Summary report.",!!
  • Line Location: EDIT01+58
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+19
    • REST+32
    • 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+56
^AUTTIMM - [#9999999.14] REST+12
^PXV(920.05 - [#920.05] EXTB+5, DEF+5
^PXV(920.6 - [#920.6] SITE+1, SITE+2
^TMP("PXK" EDIT01+44, EDIT01+49*
^TMP("PXMODARR" EDIT01+45!

Label References

Name Line Occurrences
$$DUP EDIT01+30
$$HIST EDIT01+39, REST+3, REST+8, REST+9, REST+31, REST+33
$$REQF REST+33
@( EDIT01+10, REST+18
ARTALERT EDIT01+41
DEF REST+29
EDIT01 EDIT01+30
ENDEDIT EDIT01+20
EXTB REQ+2, REQ+4, REQ+6, SITE
MUST REST+33, REQ+2, REQ+4, REQ+6, SITE+1, SITE+2, MUST+4
REQ EDIT01+39
REST EDIT+5
SITE REST+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EDIT+1~, EDIT01+3!, REST+16!
DA EDIT+1~, EDIT01+3!, EDIT01+52!, REST+16!, REST+34!, SITE+2!, DUP+14~
DA(1 SITE+3*
DIEER EDIT01+5~
DIERR EDIT01+7, REST+23~, REST+26
DIR EDIT+1~, EDIT01+3!, EDIT01+52!, REST+16!, REST+34!, REQ+2!, REQ+4!, REQ+6!, SITE+1!, SITE+2!
, DUP+14~
DIR("?" EDIT01+15*, REST+30*, SITE+4*
DIR("A" EDIT01+14*, REST+28*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+16*
DIR("B" EDIT01+12*, REST+26*, REST+29, EXTB+7*, DUP+17*, DEF+7*
DIR("S" EDIT01+18*
DIR(0 EDIT01+13*, EDIT01+17*, REST+27*, REQ+2*, REQ+4*, REQ+6*, SITE+1*, SITE+3*, DUP+15*
DIRUT EDIT01+21~, EDIT01+26, EDIT01+27
>> DTOUT REST+36, MUST+3
>> DUOUT REST+36, MUST+3
DUZ ARTALERT+3
HFIEN EDIT01+55~, EDIT01+56*, EDIT01+59!
NODE EDIT01+55~, EDIT01+56*, EDIT01+57, EDIT01+58, EDIT01+59!
PXALERGY EDIT+2~, EDIT01+41*
>> PXCEAFTR( REST+22, REST+24, REST+37*
>> PXCEAFTR(0 EDIT01+4, EDIT01+6, EDIT01+7, EDIT01+22, EDIT01+26, EDIT01+46, EDIT01+50*, EDIT01+51*
>> PXCEAFTR(12 EDIT01+33*, EDIT01+36*
>> PXCEAFTR(13 EDIT01+39*, REST+20, REST+21*, REQ+3*, REQ+5*, REQ+7*, SITE+1*, SITE+2*
>> PXCEAFTR(16 EDIT01+33*, EDIT01+37*
>> PXCEAUPN DUP+6
>> PXCECAT EDIT+5, EDIT01+1, EDIT01+16, EDIT01+25, EDIT01+31, EDIT01+39, EDIT01+41, EDIT01+43, EDIT01+50, REST+2
, REST+3, REST+4, REST+5, REST+6, REST+7, REST+8, REST+9, REST+11, REST+20, REST+29
, REST+31, REST+33, REST+36, DUP+1, DUP+10, DUP+11
>> PXCECATS EDIT01+49
>> PXCECATT DUP+9
PXCEDILF EDIT01+5~, REST+23~
PXCEDIRB EDIT+2~, EDIT01+3!, EDIT01+7*, EDIT01+8*, EDIT01+12, EDIT01+30, EDIT01+50
PXCEDUP DUP+3~, DUP+4*, DUP+6*, DUP+7, DUP+8, DUP+19*, DUP+20
PXCEEND EDIT+1~, REST*, REST+1, REST+10, REST+11*, REST+12*, REST+36*
PXCEEXT EDIT01+5~, EDIT01+6*, EDIT01+7, REST+23~, REST+25*, REST+26, DEF+1~, DEF+6*, DEF+7
PXCEFIEN EDIT01+39, EDIT01+47~, EDIT01+49, REST+9, DUP+6
>> PXCEFILE EDIT01+6, EDIT01+13, REST+25, REST+27, EXTB+6, DEF+6
PXCEIKEY EDIT+3~, REST+15*
PXCEIN01 EDIT+1~, EDIT01+29*
PXCEINDX DUP+3~, DUP+5*, DUP+6*
PXCEINP EDIT+1~, EDIT01+28*, EDIT01+30, EDIT01+41, EDIT01+51, EDIT01+56, DUP~, DUP+6, DUP+9, DUP+11
, DUP+16
PXCEINT REST+23~, REST+24*, REST+25, REST+26
PXCEKEY EDIT+3~, REST+13*, REST+15*
>> PXCEKEYS REST+15
PXCELINE EDIT+2~, REST+1*
>> PXCELOOP EDIT01+26*
PXCEMOD EDIT+2~
PXCENKEY EDIT+3~, REST+14*, REST+15
>> PXCEPAT("NAME" ARTALERT+1, ARTALERT+5
>> PXCEPAT("SSN_BRIEF" ARTALERT+1, ARTALERT+5
>> PXCEQUIT EDIT01+27*, EDIT01+31, EDIT01+34*, EDIT01+39*, REST+36*
>> PXCESOR EDIT01+44
PXCETEXT EDIT+2~, EDIT01+2*, EDIT01+9, EDIT01+10, EDIT01+14, EDIT01+15, REST+1*, REST+2, REST+3, REST+4
, REST+5, REST+6, REST+7, REST+8, REST+9, REST+10, REST+13, REST+14, REST+15, REST+17
, REST+18, REST+20, REST+22, REST+24, REST+25, REST+27, REST+28, REST+30, REST+31, REST+37
, REST+38, REQF+2, DEF+5, DEF+6
>> PXCEVIEN EDIT01+1, EXTB+2, EXTB+3, DEF+2, DEF+3, HIST+2
PXCONTRA EDIT+1~, EDIT01+32*, EDIT01+33, EDIT01+34, EDIT01+35
PXD EDIT+1~, EDIT01+28*, REST+12, EXTB+4, DEF+4
PXEXT REQ+1~, EXTB+6*, EXTB+7
PXJUST EDIT+1~, EDIT01+32*, EDIT01+37
PXMDCNT EDIT+3~, EDIT01+44*, EDIT01+46
PXV294 REQF+1~, REQF+2*, REQF+3*, REQF+4
PXVACK EDIT+1~, EDIT01+32*, EDIT01+34, EDIT01+35
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+39*, 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+20*, REST+21, REQ+7*, REQ+8, SITE+1, SITE+2, SITE+3
PXVVAR ARTALERT+2~, ARTALERT+11*
PXVX MUST+2~*
U EDIT01+1, EDIT01+54, EDIT01+56, EDIT01+58
X EDIT+1~, EDIT01+3!, EDIT01+20, EDIT01+29, REST+16!, REST+35, 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+54
Y EDIT+1~, EDIT01+3!, EDIT01+28, EDIT01+30, EDIT01+44, REST+16!, REST+35*, REST+37, REST+38, 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 EDIT01+2
$T(FORMAT+PXCELINE^@PXCECODE REST+1
$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