RAIPS172.m

RAIPS172 ;WOIFO/KLM-Rad/NM Post-init Driver, patch 172; Jul 13, 2020@15:08:20

 ;;5.0;Radiology/Nuclear Medicine;**172**;Mar 16, 1998;Build 1

 ;New standardized Cancel/Hold reasons

 ;

EN      ;Entry pt for post-install

 N RAI,RAREA,RAMSG

 F RAI=1:1 S RAREA=$T(REA+RAI) Q:RAREA=""  D

 .S RA01=$P(RAREA,";",3),RA3=$P(RAREA,";",4),RA2=$P(RAREA,";",5)

 .N RAFDA,RAR S RAR="RAFDA(75.2,""?+1,"")" ;FDA root -Check for existing entry

 .S @RAR@(.01)=RA01 ;Reason

 .S @RAR@(2)=RA2    ;Type of reason (1=cancel,3=hold,9=general)

 .S @RAR@(3)=RA3    ;Synonym

 .S @RAR@(4)="i"    ;Nature of order activity=Policy

 .S @RAR@(5)="Y"    ;NATIONAL flag = YES prevents local modifications

 .D UPDATE^DIE(,"RAFDA","","RAMSG(1)") K RAFDA

 .I $D(RAMSG(1,"DIERR"))#2 S RATXT="An error occured filing data for "_RA01

 .E  S RATXT=RA01_" filed"

 .D MES^XPDUTL(RATXT)  K RATXT,RAMSG

 Q

REA     ;REASON;SYNONYM;TYPE OF REASON

 ;;IMPORT REQUEST OBSOLETE BY POLICY;IMPORT OBSOLETE;1

 ;;IMPORT INSUFFICIENT JUSTIFICATION;JUSTIFICATION IMPORT;1

 ;;INCORRECT DESIRED DATE ENTERED;INC DD ENTERED;1

 ;;PER RADIOLOGIST - NOT CLINICALLY INDICATED;PER RAD NOT CLIN IND;1

 ;;PATIENT ALREADY SCREENED;PT ALREADY SCREENED;1

 ;;PER POLICY - RESCHED ATTEMPTS;PER POL R/S ATTEMPT;1

 ;;TEST PATIENT/ACCOUNT;TEST PT;1

 ;;PATIENT NOT PREPPED - RESCHEDULE;PT NOT PREP - R/S;3

 ;;REGISTERED IN ERROR - RESCHEDULE;REG ERROR - R/S;3

 ;;WALK IN - REGISTERED IN ERROR;WALK IN REG ERROR;3

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RAIPS172   1466     printed  Apr 09, 2024@21:36:53                                                                                                                                                                                                    Page 2

RAIPS172  ;WOIFO/KLM-Rad/NM Post-init Driver, patch 172; Jul 13, 2020@15:08:20

 +1       ;;5.0;Radiology/Nuclear Medicine;**172**;Mar 16, 1998;Build 1

 +2       ;New standardized Cancel/Hold reasons

 +3       ;

EN        ;Entry pt for post-install

 +1        NEW RAI,RAREA,RAMSG

 +2        FOR RAI=1:1

               SET RAREA=$TEXT(REA+RAI)

               if RAREA=""

                   QUIT 

               Begin DoDot:1

 +3                SET RA01=$PIECE(RAREA,";",3)

                   SET RA3=$PIECE(RAREA,";",4)

                   SET RA2=$PIECE(RAREA,";",5)

 +4       ;FDA root -Check for existing entry

                   NEW RAFDA,RAR

                   SET RAR="RAFDA(75.2,""?+1,"")"

 +5       ;Reason

                   SET @RAR@(.01)=RA01

 +6       ;Type of reason (1=cancel,3=hold,9=general)

                   SET @RAR@(2)=RA2

 +7       ;Synonym

                   SET @RAR@(3)=RA3

 +8       ;Nature of order activity=Policy

                   SET @RAR@(4)="i"

 +9       ;NATIONAL flag = YES prevents local modifications

                   SET @RAR@(5)="Y"

 +10               DO UPDATE^DIE(,"RAFDA","","RAMSG(1)")

                   KILL RAFDA

 +11               IF $DATA(RAMSG(1,"DIERR"))#2

                       SET RATXT="An error occured filing data for "_RA01

 +12              IF '$TEST

                       SET RATXT=RA01_" filed"

 +13               DO MES^XPDUTL(RATXT)

                   KILL RATXT,RAMSG

               End DoDot:1

 +14       QUIT 

REA       ;REASON;SYNONYM;TYPE OF REASON

 +1       ;;IMPORT REQUEST OBSOLETE BY POLICY;IMPORT OBSOLETE;1

 +2       ;;IMPORT INSUFFICIENT JUSTIFICATION;JUSTIFICATION IMPORT;1

 +3       ;;INCORRECT DESIRED DATE ENTERED;INC DD ENTERED;1

 +4       ;;PER RADIOLOGIST - NOT CLINICALLY INDICATED;PER RAD NOT CLIN IND;1

 +5       ;;PATIENT ALREADY SCREENED;PT ALREADY SCREENED;1

 +6       ;;PER POLICY - RESCHED ATTEMPTS;PER POL R/S ATTEMPT;1

 +7       ;;TEST PATIENT/ACCOUNT;TEST PT;1

 +8       ;;PATIENT NOT PREPPED - RESCHEDULE;PT NOT PREP - R/S;3

 +9       ;;REGISTERED IN ERROR - RESCHEDULE;REG ERROR - R/S;3

 +10      ;;WALK IN - REGISTERED IN ERROR;WALK IN REG ERROR;3