| 1 | RA63PST ;HIOFO/SWM-Post install ;4/11/2006 05:21
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**63,VOE**;Mar 16, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ; 2006 04 11 (WV/TOAD): fix null subscript error at
|
|---|
| 5 | ; RA63PST+15 during post-install of RA*5.0*63 when run
|
|---|
| 6 | ; in an account with no Radiology data.
|
|---|
| 7 | ;
|
|---|
| 8 | ; This is the post-install routine for patch RA*5.0*63
|
|---|
| 9 | ; It will loop thru the first record in file 79
|
|---|
| 10 | ; and insert "Y" for the new field, "IS THIS FOR HQ?" only if
|
|---|
| 11 | ; the SMTP address is "VHARADIOLOGYREPORTS@HQ.MED.VA.GOV"
|
|---|
| 12 | ;
|
|---|
| 13 | ; This routine may be deleted after RA*5.0*63 is installed.
|
|---|
| 14 | ;
|
|---|
| 15 | N RA1,RA2,RASTR,RAVAL,RAFDA,RAIEN
|
|---|
| 16 | S RATXT(1)=""
|
|---|
| 17 | S RATXT(2)="** File 79, RAD/NUC MED DIVISION,"
|
|---|
| 18 | S RATXT(3)=" new field ""OQP PERFORMANCE MGMT?"" "
|
|---|
| 19 | S RATXT(4)=" has been updated with data. **"
|
|---|
| 20 | S RA1=$O(^RA(79,0)),RA2=0,RAC=0
|
|---|
| 21 | I RA1 F S RA2=$O(^RA(79,RA1,1,RA2)) Q:'RA2 D ; added IF for VOE
|
|---|
| 22 | . S RAC=RAC+1 ;counter
|
|---|
| 23 | . S RASTR=$G(^RA(79,RA1,1,RA2,0)) Q:RASTR=""
|
|---|
| 24 | . S RAIEN=RA2_","_RA1_","
|
|---|
| 25 | . S RAVAL=$P(RASTR,"^"),RAVAL=$$UP^XLFSTR(RAVAL) ;smtp address all caps
|
|---|
| 26 | . I RAVAL="VHARADIOLOGYREPORTS@HQ.MED.VA.GOV" S RAFDA(79.0175,RAIEN,1)="Y"
|
|---|
| 27 | . E S RAFDA(79.0175,RAIEN,1)="N"
|
|---|
| 28 | . D FILE^DIE("","RAFDA") K RAFDA,RAIEN
|
|---|
| 29 | . Q
|
|---|
| 30 | I RAC=0 S RATXT(4)=" has NO data because there are NO Outlook mail groups in this file."
|
|---|
| 31 | D MES^XPDUTL(.RATXT)
|
|---|
| 32 | Q
|
|---|
