- 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 Mar 13, 2025@21:38:12 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
