RAIPS174.m

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 ---RAIPS174   827     printed  Apr 09, 2024@21:36:55                                                                                                                                                                                                     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      ;