PSDNVT.m

PSDNVT ;BIR/JPW-Enter/Edit Inventory Types ; 6 July 94

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

INVEN ;entry for inventory types into file 58.16

 K DA,DIC,DLAYGO F  W ! S (DIC,DLAYGO)=58.16,DIC("A")="Select NAOU INVENTORY TYPE NAME: ",DIC(0)="QEAL" D ^DIC K DIC,DLAYGO Q:Y<0  K DA,DIE,DR S DIE=58.16,DA=+Y,DR=".01 NAOU INVENTORY TYPE NAME;1" D ^DIE K DIE,DR

END K DA,DIC,DIE,DLAYGO,DR,DTOUT,DUOUT,X,Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSDNVT   407     printed  Apr 09, 2024@20:51:43                                                                                                                                                                                                       Page 2

PSDNVT    ;BIR/JPW-Enter/Edit Inventory Types ; 6 July 94

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

INVEN     ;entry for inventory types into file 58.16

 +1        KILL DA,DIC,DLAYGO

           FOR 

               WRITE !

               SET (DIC,DLAYGO)=58.16

               SET DIC("A")="Select NAOU INVENTORY TYPE NAME: "

               SET DIC(0)="QEAL"

               DO ^DIC

               KILL DIC,DLAYGO

               if Y<0

                   QUIT 

               KILL DA,DIE,DR

               SET DIE=58.16

               SET DA=+Y

               SET DR=".01 NAOU INVENTORY TYPE NAME;1"

               DO ^DIE

               KILL DIE,DR

END        KILL DA,DIC,DIE,DLAYGO,DR,DTOUT,DUOUT,X,Y