PSGWI040.m

PSGWI040 ; ; 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",204,1,3,0)

 ;;=(It will print only Bottom Totals if desired.)

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

 ;;=The report gives a total of all quantities dispensed and all drug costs

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

 ;;=for that AOU.  Also, if wards/locations and services have been defined

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

 ;;=for the AOU, a breakdown report will print.  It shows the defined 

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

 ;;=wards/locations percentage of total, and cost per ward/location.

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

 ;;=If services are defined, it shows the defined services, percentage of

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

 ;;=ward/location and cost per service.  The report may be queued to print 

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

 ;;=at a later time.

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

 ;;=PSGWCPA

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

 ;;=COST REPORT PER AOU (80 COLUMN

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

 ;;=PSGW SHOW AREA OF USE^Show AOU/Ward/Service (132 column)^^P^^^^^^^^

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

 ;;=^^2^2^2890906^^^^

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

 ;;=This option allows the user to see the AOUs/wards/services created in the

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

 ;;="Create the Area of Use" option.

 ;;^UTILITY(U,$J,"OPT",205,60)

 ;;=PSI(58.1,

 ;;^UTILITY(U,$J,"OPT",205,62)

 ;;=0

 ;;^UTILITY(U,$J,"OPT",205,63)

 ;;=[PSGW SHOW AREA OF USE]

 ;;^UTILITY(U,$J,"OPT",205,64)

 ;;=[PSGW SHOW AREA OF USE]

 ;;^UTILITY(U,$J,"OPT",205,65)

 ;;=FIRST

 ;;^UTILITY(U,$J,"OPT",205,66)

 ;;=LAST

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

 ;;=SHOW AOU/WARD/SERVICE (132 COL

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

 ;;=PSGW HIGH COST^High Cost Report (80 column)^^R^^^^^^^^

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

 ;;=^^5^5^2910212^^^^

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

 ;;=This option allows the user to see drugs/items dispensed in AR/WS

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

 ;;=in alphabetical or cost order.  The user selects a date range, and

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

 ;;=a "cut off" amount for the report.  The report may be calculated for

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

 ;;=a single AOU, or cumulatively for all AOUs.  Report may be queued to

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

 ;;=print at a later time.

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

 ;;=PSGWHC

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

 ;;=HIGH COST REPORT (80 COLUMN)

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

 ;;=PSGW HIGH VOLUME^High Volume Report (80 column)^^R^^^^^^^^

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

 ;;=^^3^3^2870902^^

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

 ;;=For a selected date range, the user may print a report showing

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

 ;;=drug usage in decreasing order for either a selected AOU or

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

 ;;=for all AOUs combined.

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

 ;;=^19.01IP^0^0

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

 ;;=PSGWHV

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

 ;;=HIGH VOLUME REPORT (80 COLUMN)

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

 ;;=PSGW PRINT SETUP LISTS^Print Set Up Lists^^M^^^^^^^^

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

 ;;=^^2^2^2870902^^

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

 ;;=This option contains all "reports" or lists associated with setting

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

 ;;=up the files for AR/WS.

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

 ;;=^19.01PI^6^6

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

 ;;=166^^1

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

 ;;=PSGW INV TYPE

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

 ;;=164^^3

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

 ;;=PSGW ITEM LOC PRINT

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

 ;;=205^^5

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

 ;;=PSGW SHOW AREA OF USE

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

 ;;=160^^7

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

 ;;=PSGW PRINT AOU STOCK

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

 ;;=159^^9

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

 ;;=PSGW AOU INV GROUP PRINT

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

 ;;=608^^6

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

 ;;=PSGW STOCK ITEM DATA

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

 ;;=55612,32994

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

 ;;=PRINT SET UP LISTS

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

 ;;=PSGW ZERO USAGE^Zero Usage Report (80 column)^^R^^^^^^^^

PSGWI040  ; ; 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",204,1,3,0)

 +2       ;;=(It will print only Bottom Totals if desired.)

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

 +4       ;;=The report gives a total of all quantities dispensed and all drug costs

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

 +6       ;;=for that AOU.  Also, if wards/locations and services have been defined

 +7       ;;^UTILITY(U,$J,"OPT",204,1,6,0)

 +8       ;;=for the AOU, a breakdown report will print.  It shows the defined 

 +9       ;;^UTILITY(U,$J,"OPT",204,1,7,0)

 +10      ;;=wards/locations percentage of total, and cost per ward/location.

 +11      ;;^UTILITY(U,$J,"OPT",204,1,8,0)

 +12      ;;=If services are defined, it shows the defined services, percentage of

 +13      ;;^UTILITY(U,$J,"OPT",204,1,9,0)

 +14      ;;=ward/location and cost per service.  The report may be queued to print 

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

 +16      ;;=at a later time.

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

 +18      ;;=PSGWCPA

 +19      ;;^UTILITY(U,$J,"OPT",204,"U")

 +20      ;;=COST REPORT PER AOU (80 COLUMN

 +21      ;;^UTILITY(U,$J,"OPT",205,0)

 +22      ;;=PSGW SHOW AREA OF USE^Show AOU/Ward/Service (132 column)^^P^^^^^^^^

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

 +24      ;;=^^2^2^2890906^^^^

 +25      ;;^UTILITY(U,$J,"OPT",205,1,1,0)

 +26      ;;=This option allows the user to see the AOUs/wards/services created in the

 +27      ;;^UTILITY(U,$J,"OPT",205,1,2,0)

 +28      ;;="Create the Area of Use" option.

 +29      ;;^UTILITY(U,$J,"OPT",205,60)

 +30      ;;=PSI(58.1,

 +31      ;;^UTILITY(U,$J,"OPT",205,62)

 +32      ;;=0

 +33      ;;^UTILITY(U,$J,"OPT",205,63)

 +34      ;;=[PSGW SHOW AREA OF USE]

 +35      ;;^UTILITY(U,$J,"OPT",205,64)

 +36      ;;=[PSGW SHOW AREA OF USE]

 +37      ;;^UTILITY(U,$J,"OPT",205,65)

 +38      ;;=FIRST

 +39      ;;^UTILITY(U,$J,"OPT",205,66)

 +40      ;;=LAST

 +41      ;;^UTILITY(U,$J,"OPT",205,"U")

 +42      ;;=SHOW AOU/WARD/SERVICE (132 COL

 +43      ;;^UTILITY(U,$J,"OPT",206,0)

 +44      ;;=PSGW HIGH COST^High Cost Report (80 column)^^R^^^^^^^^

 +45      ;;^UTILITY(U,$J,"OPT",206,1,0)

 +46      ;;=^^5^5^2910212^^^^

 +47      ;;^UTILITY(U,$J,"OPT",206,1,1,0)

 +48      ;;=This option allows the user to see drugs/items dispensed in AR/WS

 +49      ;;^UTILITY(U,$J,"OPT",206,1,2,0)

 +50      ;;=in alphabetical or cost order.  The user selects a date range, and

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

 +52      ;;=a "cut off" amount for the report.  The report may be calculated for

 +53      ;;^UTILITY(U,$J,"OPT",206,1,4,0)

 +54      ;;=a single AOU, or cumulatively for all AOUs.  Report may be queued to

 +55      ;;^UTILITY(U,$J,"OPT",206,1,5,0)

 +56      ;;=print at a later time.

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

 +58      ;;=PSGWHC

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

 +60      ;;=HIGH COST REPORT (80 COLUMN)

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

 +62      ;;=PSGW HIGH VOLUME^High Volume Report (80 column)^^R^^^^^^^^

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

 +64      ;;=^^3^3^2870902^^

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

 +66      ;;=For a selected date range, the user may print a report showing

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

 +68      ;;=drug usage in decreasing order for either a selected AOU or

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

 +70      ;;=for all AOUs combined.

 +71      ;;^UTILITY(U,$J,"OPT",207,10,0)

 +72      ;;=^19.01IP^0^0

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

 +74      ;;=PSGWHV

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

 +76      ;;=HIGH VOLUME REPORT (80 COLUMN)

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

 +78      ;;=PSGW PRINT SETUP LISTS^Print Set Up Lists^^M^^^^^^^^

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

 +80      ;;=^^2^2^2870902^^

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

 +82      ;;=This option contains all "reports" or lists associated with setting

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

 +84      ;;=up the files for AR/WS.

 +85      ;;^UTILITY(U,$J,"OPT",208,10,0)

 +86      ;;=^19.01PI^6^6

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

 +88      ;;=166^^1

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

 +90      ;;=PSGW INV TYPE

 +91      ;;^UTILITY(U,$J,"OPT",208,10,2,0)

 +92      ;;=164^^3

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

 +94      ;;=PSGW ITEM LOC PRINT

 +95      ;;^UTILITY(U,$J,"OPT",208,10,3,0)

 +96      ;;=205^^5

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

 +98      ;;=PSGW SHOW AREA OF USE

 +99      ;;^UTILITY(U,$J,"OPT",208,10,4,0)

 +100     ;;=160^^7

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

 +102     ;;=PSGW PRINT AOU STOCK

 +103     ;;^UTILITY(U,$J,"OPT",208,10,5,0)

 +104     ;;=159^^9

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

 +106     ;;=PSGW AOU INV GROUP PRINT

 +107     ;;^UTILITY(U,$J,"OPT",208,10,6,0)

 +108     ;;=608^^6

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

 +110     ;;=PSGW STOCK ITEM DATA

 +111     ;;^UTILITY(U,$J,"OPT",208,99)

 +112     ;;=55612,32994

 +113     ;;^UTILITY(U,$J,"OPT",208,"U")

 +114     ;;=PRINT SET UP LISTS

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

 +116     ;;=PSGW ZERO USAGE^Zero Usage Report (80 column)^^R^^^^^^^^