source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA63PST.m@ 1599

Last change on this file since 1599 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1RA63PST ;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
Note: See TracBrowser for help on using the repository browser.