Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357.69 - [#357.69] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call