Routine: PSGWI041

PSGWI041 ; ; 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,"OPT",209,1,0)

 ;;=^^3^3^2910206^^^

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

 ;;=For a user selected time frame, this report prints all items with no

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

 ;;=usage.  The report may be printed for a one AOU, several AOUs, or

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

 ;;=for ALL AOUs.

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

 ;;=PSGWNU

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

 ;;=ZERO USAGE REPORT (80 COLUMN)

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

 ;;=PSGW RETURNS BREAKDOWN^Returns Analysis Report (80 column)^^R^^^^^^^^

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

 ;;=^^4^4^2910212^^^^

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

 ;;=For a user selected date range, this report shows the break down of

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

 ;;=returns information.  The report may be printed for one AOU, several

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

 ;;=AOUs or for all AOUs.  Return date, return quantity, and return

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

 ;;=reason are shown for each drug.

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

 ;;=PSGWDR

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

 ;;=RETURNS ANALYSIS REPORT (80 CO

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

 ;;=PSGW RN^Auto Replenishment/Ward Stock Nurses' Menu^^M^^^^^^^^AR/WS PATCH NAMESPACE^^1^1

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

 ;;=^^2^2^2930325^^^^

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

 ;;=This is the main menu driver for Automatic Replenishment/Ward Stock

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

 ;;=options for Nurses.

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

 ;;=^19.01PI^3^3

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

 ;;=188^

 ;;^UTILITY(U,$J,"OPT",211,10,1,"^")

 ;;=PSGW ON-DEMAND NURSING EDIT

 ;;^UTILITY(U,$J,"OPT",211,10,2,0)

 ;;=186^

 ;;^UTILITY(U,$J,"OPT",211,10,2,"^")

 ;;=PSGW LOOKUP ITEM

 ;;^UTILITY(U,$J,"OPT",211,10,3,0)

 ;;=160^

 ;;^UTILITY(U,$J,"OPT",211,10,3,"^")

 ;;=PSGW PRINT AOU STOCK

 ;;^UTILITY(U,$J,"OPT",211,15)

 ;;=K PSGWSITE

 ;;^UTILITY(U,$J,"OPT",211,20)

 ;;=I '$D(PSGWSITE) D ^PSGWSET

 ;;^UTILITY(U,$J,"OPT",211,99)

 ;;=55612,32991

 ;;^UTILITY(U,$J,"OPT",211,99.1)

 ;;=54871,46744

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

 ;;=AUTO REPLENISHMENT/WARD STOCK

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

 ;;=PSGW UPDATE AMIS STATS^Update AMIS Stats File^^R^^^^^^^^

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

 ;;=^^4^4^2930518^^^^

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

 ;;=This option is a background job scheduled to run each night.  The purpose

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

 ;;=of the option is to loop through the "temporary" inventory global and move

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

 ;;=the data into the AMIS sub-file. The rescheduling frequency for this

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

 ;;=option is one day.

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

 ;;=PSGWUAS

 ;;^UTILITY(U,$J,"OPT",212,200)

 ;;=2910731.22^^1D

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

 ;;=UPDATE AMIS STATS FILE

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

 ;;=PSGW MGT REPORTS^Management Reports^^M^^^^^^^^

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

 ;;=^^2^2^2930817^^^^

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

 ;;=This menu gives access to various management reports, including the

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

 ;;=printing of the AMIS report.

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

 ;;=^19.01PI^7^7

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

 ;;=196^^1

 ;;^UTILITY(U,$J,"OPT",213,10,1,"^")

 ;;=PSGW AMIS

 ;;^UTILITY(U,$J,"OPT",213,10,2,0)

 ;;=204^^3

 ;;^UTILITY(U,$J,"OPT",213,10,2,"^")

 ;;=PSGW COST PER AOU

 ;;^UTILITY(U,$J,"OPT",213,10,3,0)

 ;;=206^^7

 ;;^UTILITY(U,$J,"OPT",213,10,3,"^")

 ;;=PSGW HIGH COST

 ;;^UTILITY(U,$J,"OPT",213,10,4,0)

 ;;=207^^9

 ;;^UTILITY(U,$J,"OPT",213,10,4,"^")

 ;;=PSGW HIGH VOLUME

 ;;^UTILITY(U,$J,"OPT",213,10,5,0)

 ;;=216^^5

 ;;^UTILITY(U,$J,"OPT",213,10,5,"^")

 ;;=PSGW SINGLE ITEM COST

 ;;^UTILITY(U,$J,"OPT",213,10,6,0)

 ;;=1314

 ;;^UTILITY(U,$J,"OPT",213,10,6,"^")

 ;;=PSGW DUPLICATE REPORT

 ;;^UTILITY(U,$J,"OPT",213,10,7,0)

 ;;=1316

 ;;^UTILITY(U,$J,"OPT",213,10,7,"^")

 ;;=PSGW STANDARD COST REPORT

 ;;^UTILITY(U,$J,"OPT",213,99)

 ;;=55746,45030

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

 ;;=MANAGEMENT REPORTS

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

 ;;=PSGW TRANSFER ENTRIES^Transfer AOU Stock Entries^^R^^PSGW TRAN^^^^^^

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

 ;;=^^8^8^2871210^^^

PSGWI041  ; ; 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,"OPT",209,1,0)

 +2       ;;=^^3^3^2910206^^^

 +3       ;;^UTILITY(U,$J,"OPT",209,1,1,0)

 +4       ;;=For a user selected time frame, this report prints all items with no

 +5       ;;^UTILITY(U,$J,"OPT",209,1,2,0)

 +6       ;;=usage.  The report may be printed for a one AOU, several AOUs, or

 +7       ;;^UTILITY(U,$J,"OPT",209,1,3,0)

 +8       ;;=for ALL AOUs.

 +9       ;;^UTILITY(U,$J,"OPT",209,25)

 +10      ;;=PSGWNU

 +11      ;;^UTILITY(U,$J,"OPT",209,"U")

 +12      ;;=ZERO USAGE REPORT (80 COLUMN)

 +13      ;;^UTILITY(U,$J,"OPT",210,0)

 +14      ;;=PSGW RETURNS BREAKDOWN^Returns Analysis Report (80 column)^^R^^^^^^^^

 +15      ;;^UTILITY(U,$J,"OPT",210,1,0)

 +16      ;;=^^4^4^2910212^^^^

 +17      ;;^UTILITY(U,$J,"OPT",210,1,1,0)

 +18      ;;=For a user selected date range, this report shows the break down of

 +19      ;;^UTILITY(U,$J,"OPT",210,1,2,0)

 +20      ;;=returns information.  The report may be printed for one AOU, several

 +21      ;;^UTILITY(U,$J,"OPT",210,1,3,0)

 +22      ;;=AOUs or for all AOUs.  Return date, return quantity, and return

 +23      ;;^UTILITY(U,$J,"OPT",210,1,4,0)

 +24      ;;=reason are shown for each drug.

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

 +26      ;;=PSGWDR

 +27      ;;^UTILITY(U,$J,"OPT",210,"U")

 +28      ;;=RETURNS ANALYSIS REPORT (80 CO

 +29      ;;^UTILITY(U,$J,"OPT",211,0)

 +30      ;;=PSGW RN^Auto Replenishment/Ward Stock Nurses' Menu^^M^^^^^^^^AR/WS PATCH NAMESPACE^^1^1

 +31      ;;^UTILITY(U,$J,"OPT",211,1,0)

 +32      ;;=^^2^2^2930325^^^^

 +33      ;;^UTILITY(U,$J,"OPT",211,1,1,0)

 +34      ;;=This is the main menu driver for Automatic Replenishment/Ward Stock

 +35      ;;^UTILITY(U,$J,"OPT",211,1,2,0)

 +36      ;;=options for Nurses.

 +37      ;;^UTILITY(U,$J,"OPT",211,10,0)

 +38      ;;=^19.01PI^3^3

 +39      ;;^UTILITY(U,$J,"OPT",211,10,1,0)

 +40      ;;=188^

 +41      ;;^UTILITY(U,$J,"OPT",211,10,1,"^")

 +42      ;;=PSGW ON-DEMAND NURSING EDIT

 +43      ;;^UTILITY(U,$J,"OPT",211,10,2,0)

 +44      ;;=186^

 +45      ;;^UTILITY(U,$J,"OPT",211,10,2,"^")

 +46      ;;=PSGW LOOKUP ITEM

 +47      ;;^UTILITY(U,$J,"OPT",211,10,3,0)

 +48      ;;=160^

 +49      ;;^UTILITY(U,$J,"OPT",211,10,3,"^")

 +50      ;;=PSGW PRINT AOU STOCK

 +51      ;;^UTILITY(U,$J,"OPT",211,15)

 +52      ;;=K PSGWSITE

 +53      ;;^UTILITY(U,$J,"OPT",211,20)

 +54      ;;=I '$D(PSGWSITE) D ^PSGWSET

 +55      ;;^UTILITY(U,$J,"OPT",211,99)

 +56      ;;=55612,32991

 +57      ;;^UTILITY(U,$J,"OPT",211,99.1)

 +58      ;;=54871,46744

 +59      ;;^UTILITY(U,$J,"OPT",211,"U")

 +60      ;;=AUTO REPLENISHMENT/WARD STOCK

 +61      ;;^UTILITY(U,$J,"OPT",212,0)

 +62      ;;=PSGW UPDATE AMIS STATS^Update AMIS Stats File^^R^^^^^^^^

 +63      ;;^UTILITY(U,$J,"OPT",212,1,0)

 +64      ;;=^^4^4^2930518^^^^

 +65      ;;^UTILITY(U,$J,"OPT",212,1,1,0)

 +66      ;;=This option is a background job scheduled to run each night.  The purpose

 +67      ;;^UTILITY(U,$J,"OPT",212,1,2,0)

 +68      ;;=of the option is to loop through the "temporary" inventory global and move

 +69      ;;^UTILITY(U,$J,"OPT",212,1,3,0)

 +70      ;;=the data into the AMIS sub-file. The rescheduling frequency for this

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

 +72      ;;=option is one day.

 +73      ;;^UTILITY(U,$J,"OPT",212,25)

 +74      ;;=PSGWUAS

 +75      ;;^UTILITY(U,$J,"OPT",212,200)

 +76      ;;=2910731.22^^1D

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

 +78      ;;=UPDATE AMIS STATS FILE

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

 +80      ;;=PSGW MGT REPORTS^Management Reports^^M^^^^^^^^

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

 +82      ;;=^^2^2^2930817^^^^

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

 +84      ;;=This menu gives access to various management reports, including the

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

 +86      ;;=printing of the AMIS report.

 +87      ;;^UTILITY(U,$J,"OPT",213,10,0)

 +88      ;;=^19.01PI^7^7

 +89      ;;^UTILITY(U,$J,"OPT",213,10,1,0)

 +90      ;;=196^^1

 +91      ;;^UTILITY(U,$J,"OPT",213,10,1,"^")

 +92      ;;=PSGW AMIS

 +93      ;;^UTILITY(U,$J,"OPT",213,10,2,0)

 +94      ;;=204^^3

 +95      ;;^UTILITY(U,$J,"OPT",213,10,2,"^")

 +96      ;;=PSGW COST PER AOU

 +97      ;;^UTILITY(U,$J,"OPT",213,10,3,0)

 +98      ;;=206^^7

 +99      ;;^UTILITY(U,$J,"OPT",213,10,3,"^")

 +100     ;;=PSGW HIGH COST

 +101     ;;^UTILITY(U,$J,"OPT",213,10,4,0)

 +102     ;;=207^^9

 +103     ;;^UTILITY(U,$J,"OPT",213,10,4,"^")

 +104     ;;=PSGW HIGH VOLUME

 +105     ;;^UTILITY(U,$J,"OPT",213,10,5,0)

 +106     ;;=216^^5

 +107     ;;^UTILITY(U,$J,"OPT",213,10,5,"^")

 +108     ;;=PSGW SINGLE ITEM COST

 +109     ;;^UTILITY(U,$J,"OPT",213,10,6,0)

 +110     ;;=1314

 +111     ;;^UTILITY(U,$J,"OPT",213,10,6,"^")

 +112     ;;=PSGW DUPLICATE REPORT

 +113     ;;^UTILITY(U,$J,"OPT",213,10,7,0)

 +114     ;;=1316

 +115     ;;^UTILITY(U,$J,"OPT",213,10,7,"^")

 +116     ;;=PSGW STANDARD COST REPORT

 +117     ;;^UTILITY(U,$J,"OPT",213,99)

 +118     ;;=55746,45030

 +119     ;;^UTILITY(U,$J,"OPT",213,"U")

 +120     ;;=MANAGEMENT REPORTS

 +121     ;;^UTILITY(U,$J,"OPT",214,0)

 +122     ;;=PSGW TRANSFER ENTRIES^Transfer AOU Stock Entries^^R^^PSGW TRAN^^^^^^

 +123     ;;^UTILITY(U,$J,"OPT",214,1,0)

 +124     ;;=^^8^8^2871210^^^

PSGWI041.m