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

Package: Enrollment Application System

Routine: EASXDR


Information

EASXDR ;ALB/BRM - ROUTINE TO MERGE ENTRIES DURING PATIENT MERGE; ; 5/10/02 9:27am

Source Information

Source file <EASXDR.m>

Entry Points

Name Comments DBIA/ICR reference
EN(ARRAY) ;Entry point called with the name of the array containing the
; from and to pointers of the record being merged. The array is
; formatted as follows:
; ARRAY(FROM_IEN,TO_IEN,"FROM_IEN;DPT(","TO_IEN;DPT(")=""
OPTION ; entry point from 'Fix Duplicate Patient Relations' menu option
CHGACT(MRGFRIEN,MRGTOIEN,EFFDT) ;
FINDSSN(IEN40812,SSN) ;find SSN associated with Patient Relation entry
DELETE ; entry point from 'Delete Duplicate MT/Copay Dependents' menu option

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPTION+7
Function Call: WRITE
  • Prompt: !?2,Y(0)," Cannot be merged. Please select a new entry."
  • Line Location: OPTION+8
Function Call: WRITE
  • Prompt: !?2,Y(0)," Cannot be merged. Please select a new entry."
  • Line Location: OPTION+10
Function Call: WRITE
  • Prompt: !?2,"No Patient Relation entries were merged for this patient.",!!
  • Line Location: OPTION+29
Function Call: WRITE
  • Prompt: !?2,+MSG_" Patient Relation "_$S(+MSG=1:"entry was",1:"entries were")_" successfully merged."
  • Line Location: OPTION+30
Function Call: WRITE
  • Prompt: !!?2,"Data deleted during this merge will be stored for 10 days"
  • Line Location: OPTION+31
Function Call: WRITE
  • Prompt: !?2,"in the following global: ^XTMP(""EASXDR1"",""DATA"","_DFN_")",!!
  • Line Location: OPTION+32
Function Call: WRITE
  • Prompt: !!?2,Y(0)," Cannot be deleted. Please select a new entry.",!
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !?2,"No Patient Relation entries were deleted for this patient.",!!
  • Line Location: DELETE+19
Function Call: WRITE
  • Prompt: !?2,+MSG_" Patient Relation "_$S(+MSG=1:"entry was",1:"entries were")_" successfully deleted."
  • Line Location: DELETE+20
Function Call: WRITE
  • Prompt: !!?2,"Data deleted during this process will be stored for 10 days"
  • Line Location: DELETE+21
Function Call: WRITE
  • Prompt: !?2,"in the following global: ^XTMP(""EASXDR1"",""DATA"",""DELETE"",408.12,"_IEN12_")",!!
  • Line Location: DELETE+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPR(408.12 - [#408.12] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call