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

Package: PCE Patient Care Encounter

Routine: PXCEVFIL


Information

PXCEVFIL ;ISL/dee - Main routine to edit a visit or v-file entry ;3/28/97

Source Information

Source file <PXCEVFIL.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
PCE Patient Care Encounter 5 (PAUSE,WAIT)^PXCEHELP  EDIT^PXCEVFI1  (ASK,SAVE)^PXCEVFI2  $$ELIGIBIL^PXCEVSIT  $$VSTAPPT^PXUTL1  
VA Fileman 2 FILE^DICN  ^DIK  
Registration 1 FULL^VALM1  
Scheduling 1 ($$DATE,$$FMDATE,DATE)^SCDXUTL  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
PCE Patient Care Encounter 4 PXBMCPT2  PXBPMOD  PXCESDAM  PXKMAIN  

Entry Points

Name Comments DBIA/ICR reference
DOONE2 ;
EXIT ; -- exit code
INIT ; -- init variables and list array
DOONE ;
REMOVE(DA) ;REMOVE INCOMPLETE CPT ENTRY
EN(PXCECAT) ; -- main entry point for PXCE pxcecat EDIT
MODUPD ;Update the MODIFIER list for the currently edited CPT code when all

External References

Name Field # of Occurrence
FILE^DICN MODUPD+16
^DIK MODUPD+8, REMOVE+3
PAUSE^PXCEHELP INIT+6, INIT+11
WAIT^PXCEHELP EN+8, DOONE2+13
EDIT^PXCEVFI1 DOONE2+3
ASK^PXCEVFI2 EN+21
SAVE^PXCEVFI2 DOONE2+14
$$ELIGIBIL^PXCEVSIT INIT+54
$$VSTAPPT^PXUTL1 EN+26
$$DATE^SCDXUTL EN+3
$$FMDATE^SCDXUTL EN+3
DATE^SCDXUTL EN+3
FULL^VALM1 EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Stop Codes can not be added to encounters after "_$$FMDATE^SCDXUTL
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Historical Encounters cannot have Stop Codes."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$C(7),"The last entry did not have all of the required data and NOTHING was CHANGED."
  • Line Location: DOONE2+11
Function Call: WRITE
  • Prompt: !,$C(7),"The last entry did not have all of the required data and NOTHING was STORED."
  • Line Location: DOONE2+12
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot edit at this time, try again later."
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot edit at this time, try again later."
  • Line Location: INIT+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVCPT - [#9000010.18] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] EN+3, EN+7, EN+26, INIT+8, INIT+13
^DD(9000010.18 MODUPD+15
^TMP("PXK" DOONE2+7, INIT+2!, INIT+3*, INIT+4*, INIT+9*, INIT+13*, INIT+14*, INIT+16*, INIT+24*, INIT+25
, INIT+27*, INIT+28, INIT+31*, INIT+32*, INIT+33, EXIT+4!, MODUPD+9, MODUPD+10

Label References

Name Line Occurrences
DOONE EN+29
EXIT DOONE2+15
INIT DOONE+3
MODUPD DOONE2+10
REMOVE DOONE2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MODUPD+3~, MODUPD+6*, REMOVE~
DA(1 MODUPD+6*, MODUPD+7, MODUPD+13*, MODUPD+14
DD MODUPD+12!
DIC MODUPD+3~, MODUPD+14*
DIC("P" MODUPD+15*
DIC(0 MODUPD+15*
DIK MODUPD+3~, MODUPD+7*, REMOVE+1~, REMOVE+2*
DO MODUPD+12!
>> PXCAAFTR EN+21, EN+28
PXCEAFTR DOONE+2~, INIT+2!, EXIT+5!
PXCEAFTR( INIT+8*, INIT+9, INIT+25*, INIT+28*, INIT+33*
PXCEAFTR(0 DOONE2+4, INIT+38*, INIT+39*, INIT+40, INIT+45, INIT+50*, INIT+51, INIT+55*, INIT+56*, INIT+57*
PXCEAFTR(1 MODUPD+5
PXCEAFTR(812 INIT+41*, INIT+42*, INIT+46*, INIT+47*
>> PXCEAPDT INIT+49, INIT+50, INIT+54
PXCEAUPN EN+13~, EN+17*, EN+21, INIT+6, INIT+11, INIT+23, INIT+24, INIT+27, INIT+36, EXIT+1
, EXIT+2
PXCECAT EN~, EN+1, EN+3, EN+5, EN+8, EN+15, EN+16, EN+21, EN+23, EN+25
, DOONE2+6, DOONE2+7, DOONE2+10, INIT+5, INIT+20, INIT+30, EXIT+1
PXCECATS EN+13~, EN+15*, INIT+16, INIT+24, INIT+25, INIT+27, INIT+28, INIT+31, INIT+32, INIT+33
PXCECATT EN+13~, EN+18*, EN+21
PXCECODE EN+13~, EN+16*, EN+21
PXCEELIG INIT+53~, INIT+54*, INIT+55
PXCEFIEN EN+1, EN+21, EN+23, EN+24*, EN+30!, DOONE2+6, DOONE2+9, INIT+11, INIT+16, INIT+19
, EXIT+2, EXIT+3*, MODUPD+6, MODUPD+13
PXCEFILE EN+13~, EN+19*
PXCEFOR INIT+1~, INIT+18*
>> PXCEHLOC EN+2, EN+26, INIT+54, INIT+57
PXCELOOP EN+12~, EN+23*, EN+24*, EN+26*, EN+27*, EN+28*, EN+29
PXCENODE INIT+1~, INIT+7*, INIT+8, INIT+9, INIT+12*, INIT+13, INIT+14, INIT+18*, INIT+20, INIT+24
, INIT+25, INIT+27, INIT+28, INIT+30, INIT+31, INIT+32, INIT+33
PXCENODS INIT+1~, INIT+17*, INIT+18
PXCENOER EN+12~, DOONE2+2*, DOONE2+8
>> PXCEPAT EN+1, EN+2, EN+26, INIT+38, INIT+54, INIT+56
>> PXCEPKG INIT+41, INIT+46
PXCEPSCC EN+14~
PXCEQUIT EN+4~, EN+5, EN+6*, EN+7, EN+8*, EN+9!, EN+20*, EN+22, DOONE+4, DOONE2+5
, INIT+6*, INIT+11*, INIT+34, EXIT+6*
>> PXCESEQ INIT+22*, INIT+23*, INIT+24, INIT+25
>> PXCESOR INIT+3, INIT+42, INIT+47
PXCEUP DOONE+1~
PXCEVFIL EN+12~
>> PXCEVIEN EN+1, EN+3, EN+7, EN+21, EN+24, EN+26, INIT+4, INIT+6, INIT+8, INIT+13
, INIT+39, EXIT+1
>> PXCEVIEW EN+2
PXELAP DOONE+1~
PXKERROR DOONE2+1!
SQ MODUPD+3~, MODUPD+4*, MODUPD+5*, MODUPD+6, MODUPD+9*, MODUPD+10
X MODUPD+3~, MODUPD+10*, MODUPD+11

Marked Items

Name Field # of Occurrence
$T(DATE^SCDXUTL EN+3
$T(FORMAT^@PXCECODE EN+17, EN+18, EN+19, INIT+17
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