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

Package: Enrollment Application System

Routine: EASXDR1


Information

EASXDR1 ;ALB/BRM/PHH - CHECK RELATIONS DURING XDR PATIENT MERGE; ; 5/30/03 12:29pm

Source Information

Source file <EASXDR1.m>

Entry Points

Name Comments DBIA/ICR reference
CHKRELAT(DFNFR,DFNTO,SILENT) ;can the relations on these 2 records be merged?
LOOP ;
CHKACT() ; ensure both records contain the same active flag for eff. date
UPDATE(MRGTOIEN,FRDATA,MRGFRIEN) ;
DEL(ROOT,IEN) ;delete entries
MRGOTHR(MRGFRIEN,MRGTOIEN) ;
SUCCESS(MRGFRIEN,MRGTOIEN) ;display message when merge is successful
FAILED(MRGFRIEN,MRGTOIEN,MSG) ;display message when merge fails
REMOVE(MRGFRIEN,MRGTOIEN) ;delete and/or repoint "old" entries
SSNMATCH(FRIEN,TOIEN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,MRGFRIEN," ",NAMEFR," was merged into ",MRGTOIEN," ",NAMETO
  • Line Location: SUCCESS+6
Function Call: WRITE
  • Prompt: !!?2,MRGFRIEN," ",NAMEFR," could not be merged into ",MRGTOIEN," ",NAMETO,"."
  • Line Location: FAILED+7
Function Call: WRITE
  • Prompt: !?2,"Reason: ",$G(MSG)
  • Line Location: FAILED+8

FileMan Files Accessed Via FileMan Db Call

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