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 ;11/18/2015

Source Information

Source file <PXCEVFIL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
PCE Patient Care Encounter 7 (PAUSE,WAIT)^PXCEHELP  PATINFO^PXCEPAT  EDIT^PXCEVFI1  (ASK,SAVE)^PXCEVFI2  EVIS^PXCEVIS  $$ELIGIBIL^PXCEVSIT  $$VSTAPPT^PXUTL1  
VA FileMan 2 FILE^DICN  ^DIK  
List Manager 1 FULL^VALM1  
Scheduling 1 ($$DATE,$$FMDATE,DATE)^SCDXUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
PCE Patient Care Encounter 18 PXBMCPT2  PXBPMOD  PXCE CPT ADD  PXCE ENCOUNTER EDIT  PXCE EXAM ADD  PXCE HEALTH FACTORS ADD  PXCE HISTORICAL ENCOUNTER  PXCE ICR ADD  
PXCE IMMUNIZATION ADD  PXCE NEW ENCOUNTER  PXCE PATIENT ED ADD  PXCE POV ADD  PXCE PROVIDER ADD  PXCE SDAM STANDALONE  PXCE SKIN TEST ADD  PXCE TREATMENT ADD  
PXCESDAM  PXKMAIN  
Kernel 1 ^ORD(101  

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+9, DOONE2+9, DOONE2+19
PATINFO^PXCEPAT EN+1
EDIT^PXCEVFI1 DOONE2+4
ASK^PXCEVFI2 EN+22
SAVE^PXCEVFI2 DOONE2+20
EVIS^PXCEVIS DOONE2+21
$$ELIGIBIL^PXCEVSIT INIT+54
$$VSTAPPT^PXUTL1 EN+28
$$DATE^SCDXUTL EN+4
$$FMDATE^SCDXUTL EN+4
DATE^SCDXUTL EN+4
FULL^VALM1 EN+11

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+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Historical Encounters cannot have Stop Codes."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot create encounter for appointment date/time and clinic that was previously cancelled, NOTHING was STORED"
  • Line Location: DOONE2+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+17
Function Call: WRITE
  • Prompt: !,$C(7),"The last entry did not have all of the required data and NOTHING was STORED."
  • Line Location: DOONE2+18
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+4, EN+8, EN+28, INIT+8, INIT+13
^DD(9000010.18 MODUPD+15
^DPT - [#2] DOONE2+6
^TMP("PXK" DOONE2+13, 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+31
EN EN+24
EXIT DOONE2+22
INIT DOONE+3
MODUPD DOONE2+16
REMOVE DOONE2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MODUPD+3~, MODUPD+6*, REMOVE~, REMOVE+3
DA(1 MODUPD+6*, MODUPD+7, MODUPD+13*, MODUPD+14
DD MODUPD+12!
>> DFN DOONE2+6
DIC MODUPD+3~, MODUPD+14*
DIC("P" MODUPD+15*
DIC(0 MODUPD+15*
DIK MODUPD+3~, MODUPD+7*, REMOVE+1~, REMOVE+2*
>> DIRUT EN+1
DO MODUPD+12!
>> PXCAAFTR EN+22, EN+30
PXCEAFTR DOONE+2~, INIT+2!, EXIT+5!
PXCEAFTR( INIT+8*, INIT+9, INIT+25*, INIT+28*, INIT+33*
PXCEAFTR(0 DOONE2+5, DOONE2+6, DOONE2+7*, DOONE2+10, 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+14~, EN+18*, EN+22, INIT+6, INIT+11, INIT+23, INIT+24, INIT+27, INIT+36, EXIT+1
, EXIT+2
PXCECAT EN~, EN+1, EN+2, EN+4, EN+6, EN+9, EN+16, EN+17, EN+22, EN+25
, EN+27, DOONE2+3, DOONE2+5, DOONE2+12, DOONE2+13, DOONE2+16, DOONE2+21, INIT+5, INIT+20, INIT+30
, EXIT+1
PXCECATS EN+14~, EN+16*, INIT+16, INIT+24, INIT+25, INIT+27, INIT+28, INIT+31, INIT+32, INIT+33
PXCECATT EN+14~, EN+19*, EN+22
PXCECODE EN+14~, EN+17*, EN+22
PXCEELIG INIT+53~, INIT+54*, INIT+55
PXCEFIEN EN+2, EN+22, EN+24*, EN+25, EN+26*, EN+32!, DOONE2+12, DOONE2+15, INIT+11, INIT+16
, INIT+19, EXIT+2, EXIT+3*, MODUPD+6, MODUPD+13
PXCEFILE EN+14~, EN+20*
PXCEFOR INIT+1~, INIT+18*
>> PXCEHLOC EN+3, EN+28, INIT+54, INIT+57
PXCELOOP EN+13~, EN+25*, EN+26*, EN+28*, EN+29*, EN+30*, EN+31
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+13~, DOONE2+2*, DOONE2+14
>> PXCEPAT EN+1, EN+2, EN+3, EN+28, INIT+38, INIT+54, INIT+56
>> PXCEPKG INIT+41, INIT+46
PXCEPSCC EN+15~
PXCEQUIT EN+5~, EN+6, EN+7*, EN+8, EN+9*, EN+10!, EN+21*, EN+23, DOONE+4, DOONE2+5
, DOONE2+7*, DOONE2+11, 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+13~
>> PXCEVIEN EN+2, EN+4, EN+8, EN+22, EN+26, EN+28, INIT+4, INIT+6, INIT+8, INIT+13
, INIT+39, EXIT+1
>> PXCEVIEW EN+3
PXELAP DOONE+1~
PXKERROR DOONE2+1!
PXVICR EN+14~, EN+21*, EN+24
PXVNEWDA DOONE2+3*, DOONE2+21!
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+4
$T(FORMAT^@PXCECODE EN+18, EN+19, EN+20, 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