Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RAIPS174

RAIPS174.m

Go to the documentation of this file.
  1. RAIPS174 ;Hines OIFO/GJC-Rad/NM Post-init Driver, patch 174; Oct 01, 2020@13:32:40
  1. ;;5.0;Radiology/Nuclear Medicine;**174**;Mar 16, 1998;Build 2
  1. ;New standardized Cerner Millinium cancel reason
  1. ;
  1. EN ;start here
  1. N RAERR,RAFDA,RANOA,RANTL,RAREA,RAR,RASYN,RATXT,RATYP
  1. S RAR="RAFDA(75.2,""?+1,"")" ;add only if new
  1. S RAREA="MILLENNIUM CONVERSION",RASYN="CERNER CUTOVER"
  1. S RATYP=1,RANOA="i",RANTL="Y"
  1. S @RAR@(.01)=RAREA ;Reason
  1. S @RAR@(2)=RATYP ;Type of Reason (1=cancel)
  1. S @RAR@(3)=RASYN ;Synonym
  1. S @RAR@(4)=RANOA ;Nature of Order Activity: 'i' = 'Policy'
  1. S @RAR@(5)=RANTL ;NATIONAL flag = YES
  1. D UPDATE^DIE(,"RAFDA","","RAERR(175)") ;only internal FM values
  1. I $D(RAERR(175,"DIERR"))#2 S RATXT="Error when filing data for "_RAREA
  1. E S RATXT=RAREA_" filed."
  1. D MES^XPDUTL(RATXT)
  1. Q
  1. ;