source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCPOS2.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1GMRCPOS2 ; SLC/DLT - Consult postinit file maintenance ;2/18/99 15:04
2 ;;3.0;CONSULT/REQUEST TRACKING;**2**;DEC 27, 1997
3EN ; -- postinit
4 N GMRCEND
5 D FIX101
6 Q
7FIX101 ; Move the GMRCR prefixed protocols "File Link" values from the
8 ; CONSULTS PARAMETERS FILE 123.9 to the GMRCR protocol entry
9 ;
10 N DA,DIE,DR,FILELINK,SITE,NAME,SERVICE
11 S SITE=$O(^GMR(123.9,0)) I 'SITE D BMES^XPDUTL("CONSULTS PARAMETERS FILE not defined. Stopped PROTOCOL FILE cleanup!") S GMRCEND=1 Q
12 ;
13 I '$D(^GMR(123.9,SITE,99,0)) D Q:GMRCEND
14 .D BMES^XPDUTL("No GMRCR protocols saved before CONSULT/REQUEST TRACKING V 3.0 installation")
15 .D BMES^XPDUTL("Need to MANUALLY correct the GMRCR-prefixed PROTOCOL FILE, FILE LINK field")
16 .S GMRCEND=1 Q
17 ;
18 S DA=0 F S DA=$O(^GMR(123.9,SITE,99,DA)) Q:'DA D
19 . S FILELINK=$P($G(^GMR(123.9,SITE,99,DA,0)),"^",2)
20 . S NAME=$P($G(^ORD(101,DA,0)),U,1) I '$L(NAME) D Q
21 .. D BMES^XPDUTL("No FILE LINK update for PROTOCOL: PROTOCOL "_DA_" no longer defined")
22 . S SERVICE=$P($G(^GMR(123.5,+FILELINK,0)),"^",1)
23 . Q:FILELINK=$P($G(^ORD(101,DA,5)),"^",1) ;no update needed
24 . S DIE="^ORD(101,",DR="6////^S X=FILELINK"
25 . D ^DIE
26 . D BMES^XPDUTL("Changed PROTOCOL: "_NAME_", FILE LINK field to: "_SERVICE)
27 . Q
28 Q
Note: See TracBrowser for help on using the repository browser.