RA63PST.m

RA63PST ;HIOFO/SWM-Post install

 ;;5.0;Radiology/Nuclear Medicine;**63**;Mar 16, 1998

 ; This is the post-install routine for patch RA*5.0*63

 ; It will loop thru the first record in file 79

 ; and insert "Y" for the new field, "IS THIS FOR HQ?" only if

 ; the SMTP address is "VHARADIOLOGYREPORTS@HQ.DOMAIN.EXT"

 ;

 ; This routine may be deleted after RA*5.0*63 is installed.

 ;

 N RA1,RA2,RASTR,RAVAL,RAFDA,RAIEN

 S RATXT(1)=""

 S RATXT(2)="** File 79, RAD/NUC MED DIVISION,"

 S RATXT(3)="   new field ""OQP PERFORMANCE MGMT?"" "

 S RATXT(4)="   has been updated with data. **"

 S RA1=$O(^RA(79,0)),RA2=0,RAC=0

 F  S RA2=$O(^RA(79,RA1,1,RA2)) Q:'RA2  D

 . S RAC=RAC+1 ;counter

 . S RASTR=$G(^RA(79,RA1,1,RA2,0)) Q:RASTR=""

 . S RAIEN=RA2_","_RA1_","

 . S RAVAL=$P(RASTR,"^"),RAVAL=$$UP^XLFSTR(RAVAL) ;smtp address all caps

 . I RAVAL="VHARADIOLOGYREPORTS@HQ.DOMAIN.EXT" S RAFDA(79.0175,RAIEN,1)="Y"

 . E  S RAFDA(79.0175,RAIEN,1)="N"

 . D FILE^DIE("","RAFDA") K RAFDA,RAIEN

 . Q

 I RAC=0 S RATXT(4)="   has NO data because there are NO Outlook mail groups in this file."

 D MES^XPDUTL(.RATXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA63PST   1125     printed  Apr 09, 2024@21:39                                                                                                                                                                                                        Page 2

RA63PST   ;HIOFO/SWM-Post install

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

 +2       ; This is the post-install routine for patch RA*5.0*63

 +3       ; It will loop thru the first record in file 79

 +4       ; and insert "Y" for the new field, "IS THIS FOR HQ?" only if

 +5       ; the SMTP address is "VHARADIOLOGYREPORTS@HQ.DOMAIN.EXT"

 +6       ;

 +7       ; This routine may be deleted after RA*5.0*63 is installed.

 +8       ;

 +9        NEW RA1,RA2,RASTR,RAVAL,RAFDA,RAIEN

 +10       SET RATXT(1)=""

 +11       SET RATXT(2)="** File 79, RAD/NUC MED DIVISION,"

 +12       SET RATXT(3)="   new field ""OQP PERFORMANCE MGMT?"" "

 +13       SET RATXT(4)="   has been updated with data. **"

 +14       SET RA1=$ORDER(^RA(79,0))

           SET RA2=0

           SET RAC=0

 +15       FOR 

               SET RA2=$ORDER(^RA(79,RA1,1,RA2))

               if 'RA2

                   QUIT 

               Begin DoDot:1

 +16      ;counter

                   SET RAC=RAC+1

 +17               SET RASTR=$GET(^RA(79,RA1,1,RA2,0))

                   if RASTR=""

                       QUIT 

 +18               SET RAIEN=RA2_","_RA1_","

 +19      ;smtp address all caps

                   SET RAVAL=$PIECE(RASTR,"^")

                   SET RAVAL=$$UP^XLFSTR(RAVAL)

 +20               IF RAVAL="VHARADIOLOGYREPORTS@HQ.DOMAIN.EXT"

                       SET RAFDA(79.0175,RAIEN,1)="Y"

 +21              IF '$TEST

                       SET RAFDA(79.0175,RAIEN,1)="N"

 +22               DO FILE^DIE("","RAFDA")

                   KILL RAFDA,RAIEN

 +23               QUIT 

               End DoDot:1

 +24       IF RAC=0

               SET RATXT(4)="   has NO data because there are NO Outlook mail groups in this file."

 +25       DO MES^XPDUTL(.RATXT)

 +26       QUIT