- 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 Feb 19, 2025@00:02:29 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 ;