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 ---[H[J[2J[HRA63PST 1125 printed Dec 13, 2024@02:33:27 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
