PSX41NDX.m

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 ---PSX41NDX   501     printed  Apr 09, 2024@20:49:15                                                                                                                                                                                                     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