Routine: PSGWI030

PSGWI030 ; ; 04-JAN-1994

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

 F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,"DIPT",56,"F",1)

;;=

 ;;^UTILITY(U,$J,"DIPT",56,"F",2)

 ;;=1,2,X $P(^DD(58.12,5,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C6;"STOCK ON HAND";Z;"$J(PERCENTAGE OF STOCK ON HAND,6,2)"~

 ;;^UTILITY(U,$J,"DIPT",56,"F",3)

 ;;=1,2,"%";C12;""~1,2,1;C18;"STOCK LEVEL"~1,2,.01;C28~1,.01~.01~

 ;;^UTILITY(U,$J,"DIPT",56,"H")

 ;;=PERCENTAGE OF STOCK ON HAND

 ;;^UTILITY(U,$J,"DIPT",68,0)

 ;;=PSGW SHOW AREA OF USE^2890627.1447^^58.1^^^^

 ;;^UTILITY(U,$J,"DIPT",68,"F",2)

 ;;=.01;S1~2,.01~2,1~2,2,.01~2,2,1~

 ;;^UTILITY(U,$J,"DIPT",68,"H")

 ;;=AREA OF USE / WARDS AND SERVICES

 ;;^UTILITY(U,$J,"FUN",107,0)

 ;;=PSGW BO LOCATION

 ;;^UTILITY(U,$J,"FUN",107,1)

 ;;=S X=$P(^PSI(58.3,D0,0),"^",1),DIC(0)="N",DIC="^PSI(58.1,D1,1," D ^DIC Q:Y<0  S X=$S($D(^PSI(58.1,D1,1,+Y,0)):$P(^(0),"^",8),1:"")

 ;;^UTILITY(U,$J,"FUN",107,3)

 ;;=0

 ;;^UTILITY(U,$J,"FUN",107,9)

 ;;=Lookup and then print the AOU item location for a backordered item

 ;;^UTILITY(U,$J,"KEY",6,0)

 ;;=PSGW PURGE

 ;;^UTILITY(U,$J,"KEY",6,1,0)

 ;;=^^2^2^2930323^^^^

 ;;^UTILITY(U,$J,"KEY",6,1,1,0)

 ;;=This key should be given to the Inpatient Pharmacy Package Coordinator

 ;;^UTILITY(U,$J,"KEY",6,1,2,0)

 ;;=or designee who is allowed to purge data from the AR/WS files.

 ;;^UTILITY(U,$J,"KEY",7,0)

 ;;=PSGWMGR

 ;;^UTILITY(U,$J,"KEY",7,1,0)

 ;;=^^5^5^2930505^^^^

 ;;^UTILITY(U,$J,"KEY",7,1,1,0)

 ;;=This key locks the "Supervisor's" portion of the AR/WS package.

 ;;^UTILITY(U,$J,"KEY",7,1,2,0)

 ;;=The key should be given to the Inpatient Pharmacy Package Coordinator

 ;;^UTILITY(U,$J,"KEY",7,1,3,0)

 ;;=or his/her designee.  Also, any Pharmacist who is allowed to build,

 ;;^UTILITY(U,$J,"KEY",7,1,4,0)

 ;;=enter, or edit AR/WS files should be given the key.  The lock also controls

 ;;^UTILITY(U,$J,"KEY",7,1,5,0)

 ;;=preparation and printing of the AMIS report.

 ;;^UTILITY(U,$J,"KEY",8,0)

 ;;=PSGW PARAM

 ;;^UTILITY(U,$J,"KEY",8,1,0)

 ;;=^^3^3^2930505^^^^

 ;;^UTILITY(U,$J,"KEY",8,1,1,0)

 ;;=This key should be given ONLY to the Inpatient Pharmacy Package Coordinator.

 ;;^UTILITY(U,$J,"KEY",8,1,2,0)

 ;;=The key locks the AR/WS Site Parameters.  One of these parameters controls

 ;;^UTILITY(U,$J,"KEY",8,1,3,0)

 ;;=WHEN the collection of AMIS data begins - thus the need for security.

 ;;^UTILITY(U,$J,"KEY",9,0)

 ;;=PSGW TRAN

 ;;^UTILITY(U,$J,"KEY",9,1,0)

 ;;=^^5^5^2930323^^^^

 ;;^UTILITY(U,$J,"KEY",9,1,1,0)

 ;;=This key should be given ONLY to the Inpatient Pharmacy Package

 ;;^UTILITY(U,$J,"KEY",9,1,2,0)

 ;;=Coordinator or his/her designee.  The key controls access to the

 ;;^UTILITY(U,$J,"KEY",9,1,3,0)

 ;;="Transfer AOU Stock Entries" option.  Using the Transfer option,

 ;;^UTILITY(U,$J,"KEY",9,1,4,0)

 ;;=users may "copy" the stock entries from one Area of Use into

 ;;^UTILITY(U,$J,"KEY",9,1,5,0)

 ;;=other Areas.

 ;;^UTILITY(U,$J,"OPT",151,0)

 ;;=PSGW EDIT AOU STOCK^Stock Items - Enter/Edit^^R^^^^^^^^

 ;;^UTILITY(U,$J,"OPT",151,1,0)

 ;;=^^2^2^2930301^^^^

 ;;^UTILITY(U,$J,"OPT",151,1,1,0)

 ;;=Provides access to enter or edit items stocked in an Area of Use.  This is

 ;;^UTILITY(U,$J,"OPT",151,1,2,0)

 ;;=how the list of items an AOU stocks is created or changed.

 ;;^UTILITY(U,$J,"OPT",151,25)

 ;;=PSGWSTKI

 ;;^UTILITY(U,$J,"OPT",151,"U")

 ;;=STOCK ITEMS - ENTER/EDIT

 ;;^UTILITY(U,$J,"OPT",152,0)

 ;;=PSGW INACTIVATE AOU STOCK ITEM^Inactivate AOU Stock Item^^R^^^^^^^^

 ;;^UTILITY(U,$J,"OPT",152,1,0)

 ;;=^^2^2^2930518^^^^

 ;;^UTILITY(U,$J,"OPT",152,1,1,0)

 ;;=Use this option to inactivate an item that is currently on an AOU's

 ;;^UTILITY(U,$J,"OPT",152,1,2,0)

 ;;=stock list.  Items should not be deleted, but simply made inactive.

 ;;^UTILITY(U,$J,"OPT",152,25)

 ;;=PSGWBGIN

 ;;^UTILITY(U,$J,"OPT",152,"U")

 ;;=INACTIVATE AOU STOCK ITEM

 ;;^UTILITY(U,$J,"OPT",153,0)

 ;;=PSGW WARD STOCK MAINT^Supervisor's Menu^^M^^PSGWMGR^^^^^^

 ;;^UTILITY(U,$J,"OPT",153,1,0)

 ;;=^^5^5^2930603^^^^

 ;;^UTILITY(U,$J,"OPT",153,1,1,0)

 ;;=This option supports activities to build and maintain the files needed to

 ;;^UTILITY(U,$J,"OPT",153,1,2,0)

 ;;=operate Automatic Replenishment/Ward Stock.  It also contains the necessary

PSGWI030  ; ; 04-JAN-1994

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

 +2        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"DIPT",56,"F",1)

 +2       ;;=

 +3       ;;^UTILITY(U,$J,"DIPT",56,"F",2)

 +4       ;;=1,2,X $P(^DD(58.12,5,0),U,5,99) S DIP(1)=X S X=DIP(1),DIP(2)=X S X=6,DIP(3)=X S X=2,X=$J(DIP(2),DIP(3),X) W X K DIP;C6;"STOCK ON HAND";Z;"$J(PERCENTAGE OF STOCK ON HAND,6,2)"~

 +5       ;;^UTILITY(U,$J,"DIPT",56,"F",3)

 +6       ;;=1,2,"%";C12;""~1,2,1;C18;"STOCK LEVEL"~1,2,.01;C28~1,.01~.01~

 +7       ;;^UTILITY(U,$J,"DIPT",56,"H")

 +8       ;;=PERCENTAGE OF STOCK ON HAND

 +9       ;;^UTILITY(U,$J,"DIPT",68,0)

 +10      ;;=PSGW SHOW AREA OF USE^2890627.1447^^58.1^^^^

 +11      ;;^UTILITY(U,$J,"DIPT",68,"F",2)

 +12      ;;=.01;S1~2,.01~2,1~2,2,.01~2,2,1~

 +13      ;;^UTILITY(U,$J,"DIPT",68,"H")

 +14      ;;=AREA OF USE / WARDS AND SERVICES

 +15      ;;^UTILITY(U,$J,"FUN",107,0)

 +16      ;;=PSGW BO LOCATION

 +17      ;;^UTILITY(U,$J,"FUN",107,1)

 +18      ;;=S X=$P(^PSI(58.3,D0,0),"^",1),DIC(0)="N",DIC="^PSI(58.1,D1,1," D ^DIC Q:Y<0  S X=$S($D(^PSI(58.1,D1,1,+Y,0)):$P(^(0),"^",8),1:"")

 +19      ;;^UTILITY(U,$J,"FUN",107,3)

 +20      ;;=0

 +21      ;;^UTILITY(U,$J,"FUN",107,9)

 +22      ;;=Lookup and then print the AOU item location for a backordered item

 +23      ;;^UTILITY(U,$J,"KEY",6,0)

 +24      ;;=PSGW PURGE

 +25      ;;^UTILITY(U,$J,"KEY",6,1,0)

 +26      ;;=^^2^2^2930323^^^^

 +27      ;;^UTILITY(U,$J,"KEY",6,1,1,0)

 +28      ;;=This key should be given to the Inpatient Pharmacy Package Coordinator

 +29      ;;^UTILITY(U,$J,"KEY",6,1,2,0)

 +30      ;;=or designee who is allowed to purge data from the AR/WS files.

 +31      ;;^UTILITY(U,$J,"KEY",7,0)

 +32      ;;=PSGWMGR

 +33      ;;^UTILITY(U,$J,"KEY",7,1,0)

 +34      ;;=^^5^5^2930505^^^^

 +35      ;;^UTILITY(U,$J,"KEY",7,1,1,0)

 +36      ;;=This key locks the "Supervisor's" portion of the AR/WS package.

 +37      ;;^UTILITY(U,$J,"KEY",7,1,2,0)

 +38      ;;=The key should be given to the Inpatient Pharmacy Package Coordinator

 +39      ;;^UTILITY(U,$J,"KEY",7,1,3,0)

 +40      ;;=or his/her designee.  Also, any Pharmacist who is allowed to build,

 +41      ;;^UTILITY(U,$J,"KEY",7,1,4,0)

 +42      ;;=enter, or edit AR/WS files should be given the key.  The lock also controls

 +43      ;;^UTILITY(U,$J,"KEY",7,1,5,0)

 +44      ;;=preparation and printing of the AMIS report.

 +45      ;;^UTILITY(U,$J,"KEY",8,0)

 +46      ;;=PSGW PARAM

 +47      ;;^UTILITY(U,$J,"KEY",8,1,0)

 +48      ;;=^^3^3^2930505^^^^

 +49      ;;^UTILITY(U,$J,"KEY",8,1,1,0)

 +50      ;;=This key should be given ONLY to the Inpatient Pharmacy Package Coordinator.

 +51      ;;^UTILITY(U,$J,"KEY",8,1,2,0)

 +52      ;;=The key locks the AR/WS Site Parameters.  One of these parameters controls

 +53      ;;^UTILITY(U,$J,"KEY",8,1,3,0)

 +54      ;;=WHEN the collection of AMIS data begins - thus the need for security.

 +55      ;;^UTILITY(U,$J,"KEY",9,0)

 +56      ;;=PSGW TRAN

 +57      ;;^UTILITY(U,$J,"KEY",9,1,0)

 +58      ;;=^^5^5^2930323^^^^

 +59      ;;^UTILITY(U,$J,"KEY",9,1,1,0)

 +60      ;;=This key should be given ONLY to the Inpatient Pharmacy Package

 +61      ;;^UTILITY(U,$J,"KEY",9,1,2,0)

 +62      ;;=Coordinator or his/her designee.  The key controls access to the

 +63      ;;^UTILITY(U,$J,"KEY",9,1,3,0)

 +64      ;;="Transfer AOU Stock Entries" option.  Using the Transfer option,

 +65      ;;^UTILITY(U,$J,"KEY",9,1,4,0)

 +66      ;;=users may "copy" the stock entries from one Area of Use into

 +67      ;;^UTILITY(U,$J,"KEY",9,1,5,0)

 +68      ;;=other Areas.

 +69      ;;^UTILITY(U,$J,"OPT",151,0)

 +70      ;;=PSGW EDIT AOU STOCK^Stock Items - Enter/Edit^^R^^^^^^^^

 +71      ;;^UTILITY(U,$J,"OPT",151,1,0)

 +72      ;;=^^2^2^2930301^^^^

 +73      ;;^UTILITY(U,$J,"OPT",151,1,1,0)

 +74      ;;=Provides access to enter or edit items stocked in an Area of Use.  This is

 +75      ;;^UTILITY(U,$J,"OPT",151,1,2,0)

 +76      ;;=how the list of items an AOU stocks is created or changed.

 +77      ;;^UTILITY(U,$J,"OPT",151,25)

 +78      ;;=PSGWSTKI

 +79      ;;^UTILITY(U,$J,"OPT",151,"U")

 +80      ;;=STOCK ITEMS - ENTER/EDIT

 +81      ;;^UTILITY(U,$J,"OPT",152,0)

 +82      ;;=PSGW INACTIVATE AOU STOCK ITEM^Inactivate AOU Stock Item^^R^^^^^^^^

 +83      ;;^UTILITY(U,$J,"OPT",152,1,0)

 +84      ;;=^^2^2^2930518^^^^

 +85      ;;^UTILITY(U,$J,"OPT",152,1,1,0)

 +86      ;;=Use this option to inactivate an item that is currently on an AOU's

 +87      ;;^UTILITY(U,$J,"OPT",152,1,2,0)

 +88      ;;=stock list.  Items should not be deleted, but simply made inactive.

 +89      ;;^UTILITY(U,$J,"OPT",152,25)

 +90      ;;=PSGWBGIN

 +91      ;;^UTILITY(U,$J,"OPT",152,"U")

 +92      ;;=INACTIVATE AOU STOCK ITEM

 +93      ;;^UTILITY(U,$J,"OPT",153,0)

 +94      ;;=PSGW WARD STOCK MAINT^Supervisor's Menu^^M^^PSGWMGR^^^^^^

 +95      ;;^UTILITY(U,$J,"OPT",153,1,0)

 +96      ;;=^^5^5^2930603^^^^

 +97      ;;^UTILITY(U,$J,"OPT",153,1,1,0)

 +98      ;;=This option supports activities to build and maintain the files needed to

 +99      ;;^UTILITY(U,$J,"OPT",153,1,2,0)

 +100     ;;=operate Automatic Replenishment/Ward Stock.  It also contains the necessary

PSGWI030.m