| 1 | GMRCPOS ;SLC/DLT - Consult postinit file maintenance ;10/28/98 14:31
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
|---|
| 3 | EN ; -- postinit
|
|---|
| 4 | N DA,DIK,ACTION,SITE
|
|---|
| 5 | ; Move the PREINIT actions from temporary storage in XTMP("GMRC"
|
|---|
| 6 | ; to the CONSULTS PARAMETERS FILE 123.9 for future clean-up
|
|---|
| 7 | S DA(1)=$O(^GMR(123.9,0)) I 'DA(1) S SITE=+$$SITE^VASITE,^GMR(123.9,1,0)=SITE,^GMR(123.9,"B",SITE,1)="",DA(1)=1
|
|---|
| 8 | ;
|
|---|
| 9 | S:'$D(^GMR(123.9,DA(1),"OLD",0)) ^GMR(123.9,DA(1),"OLD",0)="^123.9999^"
|
|---|
| 10 | S ACTION=0 F S ACTION=$O(^XTMP("GMRC","PREINIT",ACTION)) Q:'ACTION D
|
|---|
| 11 | .S ^GMR(123.9,DA(1),"OLD",+ACTION,0)=$P($G(^XTMP("GMRC","PREINIT",ACTION)),U,1,3)
|
|---|
| 12 | .S $P(^GMR(123.9,DA(1),"OLD",0),U,3)=$P(^GMR(123.9,DA(1),"OLD",0),U,3)+1
|
|---|
| 13 | .S $P(^GMR(123.9,DA(1),"OLD",0),U,4)=+ACTION
|
|---|
| 14 | ;
|
|---|
| 15 | ; -- Re-index Request Action Types in 123.1
|
|---|
| 16 | S DIK="^GMR(123.1," D IXALL^DIK
|
|---|
| 17 | ; -- Re-index old Request Action Types in 123.9
|
|---|
| 18 | S DA(1)=$O(^GMR(123.9,0)) Q:'DA(1)
|
|---|
| 19 | S DIK="^GMR(123.9,"_DA(1)_",""OLD"",",DIK(1)=.01
|
|---|
| 20 | D ENALL^DIK ;only executes the SET logic
|
|---|
| 21 | ; -- RJS -- RECREATE 63 CHARACTER 'B' CROSS REFERENCE
|
|---|
| 22 | S DIK="^GMR(123.5,",DIK(1)=".01^B"
|
|---|
| 23 | D ENALL^DIK ;only executes the SET logic
|
|---|
| 24 | ; -- CREATE NEW CROSS REFERENCE FOR APC and AC on sub-file (10th node)
|
|---|
| 25 | K DA S DIK(1)="10^APC^AC",DA(1)=0
|
|---|
| 26 | F S DA(1)=$O(^GMR(123.5,DA(1))) Q:'DA(1) D
|
|---|
| 27 | . S DIK="^GMR(123.5,"_DA(1)_",10,"
|
|---|
| 28 | . S DIK(1)=".01^APC^AC" D ENALL^DIK
|
|---|
| 29 | Q
|
|---|
