PSGWPERE.m

PSGWPERE ;BHAM ISC/CML-Edit person doing inventory ; 06 Dec 93 / 11:09 AM

 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 W !!,"This option will allow editing of the PERSON DOING INVENTORY field",!,"in the Pharmacy AOU Inventory file for a selected Date/Time for Inventory."

EN ;

 F II=0:0 S DIC="^PSI(58.19,",DIC(0)="QEAM" W ! D ^DIC K DIC Q:Y<0  S DA=+Y,DR=1,DIE="^PSI(58.19," D ^DIE K DIE Q:$D(Y)

QUIT K %,D0,DI,DISYS,QR,DR,GRP,II,LP,PC,DA,X,Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGWPERE   462     printed  Apr 09, 2024@20:43:47                                                                                                                                                                                                     Page 2

PSGWPERE  ;BHAM ISC/CML-Edit person doing inventory ; 06 Dec 93 / 11:09 AM

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 +2        WRITE !!,"This option will allow editing of the PERSON DOING INVENTORY field",!,"in the Pharmacy AOU Inventory file for a selected Date/Time for Inventory."

EN        ;

 +1        FOR II=0:0

               SET DIC="^PSI(58.19,"

               SET DIC(0)="QEAM"

               WRITE !

               DO ^DIC

               KILL DIC

               if Y<0

                   QUIT 

               SET DA=+Y

               SET DR=1

               SET DIE="^PSI(58.19,"

               DO ^DIE

               KILL DIE

               if $DATA(Y)

                   QUIT 

QUIT       KILL %,D0,DI,DISYS,QR,DR,GRP,II,LP,PC,DA,X,Y

           QUIT