PSX41NDX ;BIR/PDW-Execute new indexes in PSX patch 41 ;08/12/2002
;;2.0;CMOP;**41**;11 Apr 97
Q
EN ; populates new indexes brought in with PSX*2*41
SYS550 ;index
I ^XMB("NETNAME")?1"CMOP-".E Q
; new status index "ST"
K ^PSX(550,"ST")
K DIK S DIK="^PSX(550,",DIK(1)="1^ST" D ENALL^DIK
;new transmit index "TR"
K ^PSX(550,"TR")
K DIK S DIK="^PSX(550,",DIK(1)="2^TR" D ENALL^DIK
;new Task index "AG"
K ^PSX(550,"AG")
K DIK S DIK="^PSX(550,",DIK(1)="9^AG" D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSX41NDX 501 printed Dec 13, 2024@01:43:13 Page 2
PSX41NDX ;BIR/PDW-Execute new indexes in PSX patch 41 ;08/12/2002
+1 ;;2.0;CMOP;**41**;11 Apr 97
+2 QUIT
EN ; populates new indexes brought in with PSX*2*41
SYS550 ;index
+1 IF ^XMB("NETNAME")?1"CMOP-".E
QUIT
+2 ; new status index "ST"
+3 KILL ^PSX(550,"ST")
+4 KILL DIK
SET DIK="^PSX(550,"
SET DIK(1)="1^ST"
DO ENALL^DIK
+5 ;new transmit index "TR"
+6 KILL ^PSX(550,"TR")
+7 KILL DIK
SET DIK="^PSX(550,"
SET DIK(1)="2^TR"
DO ENALL^DIK
+8 ;new Task index "AG"
+9 KILL ^PSX(550,"AG")
+10 KILL DIK
SET DIK="^PSX(550,"
SET DIK(1)="9^AG"
DO ENALL^DIK
+11 QUIT
