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 |  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 ; 12/17/02 8:23am

Source Information

Source file <PXCEVFI1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
PCE Patient Care Encounter 4 NEWCODE^PXCECPT  WAIT^PXCEHELP  DEL^PXCEVFI2  PROVIDER^PXCEVFI4  
VA Fileman 2 $$EXTERNAL^DILFD  ^DIR  
DRG Grouper 1 $$CODM^ICPTCOD  

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"
DUP(PXCEINP) ; -- Check for dup entries.
EDIT01 ;
ENDEDIT ;
REST

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD EDIT01+5, REST+12
^DIR EDIT01+15, REST+17, DUP+17
$$CODM^ICPTCOD EDIT01+29
NEWCODE^PXCECPT EDIT01+33
WAIT^PXCEHELP EDIT01+20
DEL^PXCEVFI2 EDIT01+21
PROVIDER^PXCEVFI4 REST+22

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+19
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 Are Allowed."
  • Line Location: DUP+11
Routine Call
  • DIR
  • Line Location:
    • EDIT01+15
    • REST+17
    • DUP+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.69 - [#357.69] DUP+11
^TMP("PXK" EDIT01+29, EDIT01+34*
^TMP("PXMODARR" EDIT01+30!

Label References

Name Line Occurrences
$$DUP EDIT01+26
@( EDIT01+9, REST+7
EDIT01 EDIT01+26
ENDEDIT EDIT01+16
REST EDIT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EDIT+1~, EDIT01+2!, REST+5!
DA EDIT+1~, EDIT01+2!, EDIT01+36!, REST+5!, REST+18!, DUP+13~
DIEER EDIT01+4~
DIERR EDIT01+6, REST+10~, REST+13
DIR EDIT+1~, EDIT01+2!, EDIT01+36!, REST+5!, REST+18!, DUP+13~
DIR("?" EDIT01+14*, REST+16*
DIR("A" EDIT01+13*, REST+15*, DUP+15*
DIR("B" EDIT01+11*, REST+13*, DUP+16*
DIR(0 EDIT01+12*, REST+14*, DUP+14*
DIRUT EDIT01+17~, EDIT01+22, EDIT01+23
>> DTOUT REST+20
>> DUOUT REST+20
>> PXCEAFTR( REST+9, REST+11, REST+21*
>> PXCEAFTR(0 EDIT01+3, EDIT01+5, EDIT01+6, EDIT01+18, EDIT01+22, EDIT01+31, EDIT01+35*
>> PXCEAUPN DUP+6
>> PXCECAT EDIT+5, EDIT01+21, EDIT01+28, REST+20, DUP+1, DUP+10, DUP+11
>> PXCECATS EDIT01+34
>> PXCECATT DUP+9
PXCEDILF EDIT01+4~, REST+10~
PXCEDIRB EDIT+2~, EDIT01+2!, EDIT01+6*, EDIT01+7*, EDIT01+11, EDIT01+26
PXCEDUP DUP+3~, DUP+4*, DUP+6*, DUP+7, DUP+8, DUP+18*, DUP+19
PXCEEND EDIT+1~, REST*, REST+1, REST+20*
PXCEEXT EDIT01+4~, EDIT01+5*, EDIT01+6, REST+10~, REST+12*, REST+13
PXCEFIEN EDIT01+32~, EDIT01+34, DUP+6
>> PXCEFILE EDIT01+5, EDIT01+12, REST+12, REST+14
PXCEIKEY EDIT+3~, REST+4*
PXCEIN01 EDIT+1~, EDIT01+25*
PXCEINDX DUP+3~, DUP+5*, DUP+6*
PXCEINP EDIT+1~, EDIT01+24*, EDIT01+26, EDIT01+35, DUP~, DUP+6, DUP+9, DUP+11, DUP+15
PXCEINT REST+10~, REST+11*, REST+12, REST+13
PXCEKEY EDIT+3~, REST+2*, REST+4*
>> PXCEKEYS REST+4
PXCELINE EDIT+2~, REST+1*
>> PXCELOOP EDIT01+22*
PXCEMOD EDIT+2~
PXCENKEY EDIT+3~, REST+3*, REST+4
>> PXCEQUIT EDIT01+23*, REST+20*
>> PXCESOR EDIT01+29
PXCETEXT EDIT+2~, EDIT01+1*, EDIT01+8, EDIT01+9, EDIT01+13, EDIT01+14, REST+1*, REST+2, REST+3, REST+4
, REST+6, REST+7, REST+9, REST+11, REST+12, REST+14, REST+15, REST+16, REST+21, REST+22
PXMDCNT EDIT+3~, EDIT01+29*, EDIT01+31
U DUP+11
X EDIT+1~, EDIT01+2!, EDIT01+16, EDIT01+25, EDIT01+26, REST+5!, REST+19, DUP+3~
Y EDIT+1~, EDIT01+2!, EDIT01+24, EDIT01+29, REST+5!, REST+19*, REST+21, REST+22, DUP+3~, DUP+18

Marked Items

Name Field # of Occurrence
$T(FORMAT+1^@PXCECODE EDIT01+1
$T(FORMAT+PXCELINE^@PXCECODE REST+1
$T(FORMAT^@PXCECODE DUP+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All