RAIPS174 ;Hines OIFO/GJC-Rad/NM Post-init Driver, patch 174; Oct 01, 2020@13:32:40
;;5.0;Radiology/Nuclear Medicine;**174**;Mar 16, 1998;Build 2
;New standardized Cerner Millinium cancel reason
;
EN ;start here
N RAERR,RAFDA,RANOA,RANTL,RAREA,RAR,RASYN,RATXT,RATYP
S RAR="RAFDA(75.2,""?+1,"")" ;add only if new
S RAREA="MILLENNIUM CONVERSION",RASYN="CERNER CUTOVER"
S RATYP=1,RANOA="i",RANTL="Y"
S @RAR@(.01)=RAREA ;Reason
S @RAR@(2)=RATYP ;Type of Reason (1=cancel)
S @RAR@(3)=RASYN ;Synonym
S @RAR@(4)=RANOA ;Nature of Order Activity: 'i' = 'Policy'
S @RAR@(5)=RANTL ;NATIONAL flag = YES
D UPDATE^DIE(,"RAFDA","","RAERR(175)") ;only internal FM values
I $D(RAERR(175,"DIERR"))#2 S RATXT="Error when filing data for "_RAREA
E S RATXT=RAREA_" filed."
D MES^XPDUTL(RATXT)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS174 827 printed Dec 13, 2024@02:36:13 Page 2
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
+2 ;New standardized Cerner Millinium cancel reason
+3 ;
EN ;start here
+1 NEW RAERR,RAFDA,RANOA,RANTL,RAREA,RAR,RASYN,RATXT,RATYP
+2 ;add only if new
SET RAR="RAFDA(75.2,""?+1,"")"
+3 SET RAREA="MILLENNIUM CONVERSION"
SET RASYN="CERNER CUTOVER"
+4 SET RATYP=1
SET RANOA="i"
SET RANTL="Y"
+5 ;Reason
SET @RAR@(.01)=RAREA
+6 ;Type of Reason (1=cancel)
SET @RAR@(2)=RATYP
+7 ;Synonym
SET @RAR@(3)=RASYN
+8 ;Nature of Order Activity: 'i' = 'Policy'
SET @RAR@(4)=RANOA
+9 ;NATIONAL flag = YES
SET @RAR@(5)=RANTL
+10 ;only internal FM values
DO UPDATE^DIE(,"RAFDA","","RAERR(175)")
+11 IF $DATA(RAERR(175,"DIERR"))#2
SET RATXT="Error when filing data for "_RAREA
+12 IF '$TEST
SET RATXT=RAREA_" filed."
+13 DO MES^XPDUTL(RATXT)
+14 QUIT
+15 ;
