14 lines
848 B
Mathematica
14 lines
848 B
Mathematica
PSGWPST1 ;BHAM ISC/KKA - POST INIT CONVERSION ROUTINE-CONT. ; 03 Sep 93 / 9:32 AM
|
|
;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94
|
|
POST5 ;Reindex "WS" cross-reference
|
|
S CNT=0
|
|
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."
|
|
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 "."
|
|
K AOU,NAME,CNT
|
|
POST6 ;Delete unnecessary fields from options
|
|
F PSGWOPT="PSGW AOU INV GROUP EDIT","PSGW AREA OF USE EDIT","PSGW INV TYPE EDIT","PSGW ITEM LOC EDIT","PSGW SITE" D
|
|
.K DIC S DIC="^DIC(19,",DIC(0)="X",D="B"
|
|
.S X=PSGWOPT D MIX^DIC1 Q:Y<0
|
|
.K DA,DR,DIE,DIC S DA=+Y,DIE=19,DR="30///@;31///@;50///@;51///@" D ^DIE
|
|
K DIC,DIE,DR,DA,D,PSGWOPT,X,Y Q
|