| [613] | 1 | PSGWPST1 ;BHAM ISC/KKA - POST INIT CONVERSION ROUTINE-CONT. ; 03 Sep 93 / 9:32 AM
|
|---|
| 2 | ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
|---|
| 3 | POST5 ;Reindex "WS" cross-reference
|
|---|
| 4 | S CNT=0
|
|---|
| 5 | W !!,"Now reindexing the ""WS"" cross-reference on the AREA OF USE (AOU) field of the",!,"AREA OF USE (AOU) subfile of the AOU INVENTORY GROUP file."
|
|---|
| 6 | S NAME=0 F S NAME=$O(^PSI(58.2,NAME)) Q:'NAME S AOU=0 F S AOU=$O(^PSI(58.2,NAME,1,AOU)) Q:'AOU S ^PSI(58.2,"WS",NAME,AOU)="" S CNT=CNT+1 W:CNT#10=0 "."
|
|---|
| 7 | K AOU,NAME,CNT
|
|---|
| 8 | POST6 ;Delete unnecessary fields from options
|
|---|
| 9 | F PSGWOPT="PSGW AOU INV GROUP EDIT","PSGW AREA OF USE EDIT","PSGW INV TYPE EDIT","PSGW ITEM LOC EDIT","PSGW SITE" D
|
|---|
| 10 | .K DIC S DIC="^DIC(19,",DIC(0)="X",D="B"
|
|---|
| 11 | .S X=PSGWOPT D MIX^DIC1 Q:Y<0
|
|---|
| 12 | .K DA,DR,DIE,DIC S DA=+Y,DIE=19,DR="30///@;31///@;50///@;51///@" D ^DIE
|
|---|
| 13 | K DIC,DIE,DR,DA,D,PSGWOPT,X,Y Q
|
|---|
