| [613] | 1 | GMRCPOS2 ; SLC/DLT - Consult postinit file maintenance ;2/18/99 15:04
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**2**;DEC 27, 1997
|
|---|
| 3 | EN ; -- postinit
|
|---|
| 4 | N GMRCEND
|
|---|
| 5 | D FIX101
|
|---|
| 6 | Q
|
|---|
| 7 | FIX101 ; 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
|
|---|
