Routine: PSJON002

PSJON002 ; ; 06-OCT-1994

 ;;4.5; Inpatient Medications ;;7 Oct 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,"PRO",77,1,6,0)

 ;;=this protocol will show patients with orders not verified by a nurse, but

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

 ;;=not allow any action to be taken.

 ;;^UTILITY(U,$J,"PRO",77,5)

;;=

 ;;^UTILITY(U,$J,"PRO",77,20)

 ;;=D ^PSGVBW

 ;;^UTILITY(U,$J,"PRO",77,99)

 ;;=56004,58414

 ;;^UTILITY(U,$J,"PRO",78,0)

 ;;=PSJ OR MENU^Inpatient Medications Ward Reports^^Q^^^^^^^^INPATIENT MEDICATIONS

 ;;^UTILITY(U,$J,"PRO",78,1,0)

 ;;=^^2^2^2920121^^^^

 ;;^UTILITY(U,$J,"PRO",78,1,1,0)

 ;;=  This contains Inpatient (Unit Dose and IV) Medications reports that may be

 ;;^UTILITY(U,$J,"PRO",78,1,2,0)

 ;;=run by ward personnel through the OE/RR package.

 ;;^UTILITY(U,$J,"PRO",78,4)

 ;;=40

 ;;^UTILITY(U,$J,"PRO",78,5)

;;=

 ;;^UTILITY(U,$J,"PRO",78,10,0)

 ;;=^101.01PA^9^9

 ;;^UTILITY(U,$J,"PRO",78,10,1,0)

 ;;=77^

 ;;^UTILITY(U,$J,"PRO",78,10,1,"^")

 ;;=PSJU OR VBW

 ;;^UTILITY(U,$J,"PRO",78,10,2,0)

 ;;=82^

 ;;^UTILITY(U,$J,"PRO",78,10,2,"^")

 ;;=PSJU OR 14D MAR

 ;;^UTILITY(U,$J,"PRO",78,10,3,0)

 ;;=81^

 ;;^UTILITY(U,$J,"PRO",78,10,3,"^")

 ;;=PSJU OR 7D MAR

 ;;^UTILITY(U,$J,"PRO",78,10,4,0)

 ;;=79^

 ;;^UTILITY(U,$J,"PRO",78,10,4,"^")

 ;;=PSJU OR AP-1

 ;;^UTILITY(U,$J,"PRO",78,10,5,0)

 ;;=80^

 ;;^UTILITY(U,$J,"PRO",78,10,5,"^")

 ;;=PSJU OR AP-2

 ;;^UTILITY(U,$J,"PRO",78,10,6,0)

 ;;=88^

 ;;^UTILITY(U,$J,"PRO",78,10,6,"^")

 ;;=PSJU OR DS

 ;;^UTILITY(U,$J,"PRO",78,10,7,0)

 ;;=89^

 ;;^UTILITY(U,$J,"PRO",78,10,7,"^")

 ;;=PSJU OR PR

 ;;^UTILITY(U,$J,"PRO",78,10,8,0)

 ;;=93^

 ;;^UTILITY(U,$J,"PRO",78,10,8,"^")

 ;;=PSJ OR PR

 ;;^UTILITY(U,$J,"PRO",78,10,9,0)

 ;;=94^

 ;;^UTILITY(U,$J,"PRO",78,10,9,"^")

 ;;=PSJI OR PR

 ;;^UTILITY(U,$J,"PRO",78,99)

 ;;=56097,51057

 ;;^UTILITY(U,$J,"PRO",79,0)

 ;;=PSJU OR AP-1^Action Profile #1^^A^^^^^^^^UNIT DOSE MEDICATIONS

 ;;^UTILITY(U,$J,"PRO",79,1,0)

 ;;=^^4^4^2940803^^^^

 ;;^UTILITY(U,$J,"PRO",79,1,1,0)

 ;;=  This allows the user to print a profile of patients' active Unit Dose

 ;;^UTILITY(U,$J,"PRO",79,1,2,0)

 ;;=orders for review by the physician.  It includes places for the physician

 ;;^UTILITY(U,$J,"PRO",79,1,3,0)

 ;;=to mark each order and sign the profile.  When possible, space is also

 ;;^UTILITY(U,$J,"PRO",79,1,4,0)

 ;;=included for new orders.

 ;;^UTILITY(U,$J,"PRO",79,5)

;;=

 ;;^UTILITY(U,$J,"PRO",79,20)

 ;;=D ^PSGAP

 ;;^UTILITY(U,$J,"PRO",79,99)

 ;;=56097,50997

 ;;^UTILITY(U,$J,"PRO",80,0)

 ;;=PSJU OR AP-2^Action Profile #2^^A^^^^^^^^UNIT DOSE MEDICATIONS

 ;;^UTILITY(U,$J,"PRO",80,1,0)

 ;;=^^4^4^2920122^^^^

 ;;^UTILITY(U,$J,"PRO",80,1,1,0)

 ;;=  This allows the user to print a profile of patients' active Unit Dose

 ;;^UTILITY(U,$J,"PRO",80,1,2,0)

 ;;=orders for review by the physician.  It includes places for the physician

 ;;^UTILITY(U,$J,"PRO",80,1,3,0)

 ;;=to mark each order and sign the profile.  When possible, space is also

 ;;^UTILITY(U,$J,"PRO",80,1,4,0)

 ;;=included for new orders.

 ;;^UTILITY(U,$J,"PRO",80,5)

;;=

 ;;^UTILITY(U,$J,"PRO",80,20)

 ;;=D ^PSGCAP

 ;;^UTILITY(U,$J,"PRO",80,99)

 ;;=56097,51057

 ;;^UTILITY(U,$J,"PRO",81,0)

 ;;=PSJU OR 7D MAR^7 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS

 ;;^UTILITY(U,$J,"PRO",81,1,0)

 ;;=^^4^4^2940308^^^^

 ;;^UTILITY(U,$J,"PRO",81,1,1,0)

 ;;=  This allows the user to print selected patients' Unit Dose orders on a

 ;;^UTILITY(U,$J,"PRO",81,1,2,0)

 ;;=Medication Administration Record (MAR) for the charting of the

 ;;^UTILITY(U,$J,"PRO",81,1,3,0)

 ;;=administration of the orders over a seven day period.  It is designed to

 ;;^UTILITY(U,$J,"PRO",81,1,4,0)

 ;;=replace the manual Continuing Medication Record (CMR).

 ;;^UTILITY(U,$J,"PRO",81,5)

;;=

 ;;^UTILITY(U,$J,"PRO",81,20)

 ;;=D EN7^PSGMMAR

 ;;^UTILITY(U,$J,"PRO",81,99)

 ;;=56004,58415

 ;;^UTILITY(U,$J,"PRO",82,0)

 ;;=PSJU OR 14D MAR^14 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS

 ;;^UTILITY(U,$J,"PRO",82,1,0)

 ;;=^^4^4^2920122^^^^

 ;;^UTILITY(U,$J,"PRO",82,1,1,0)

 ;;=  This allows the user to print selected patients' Unit Dose orders on a

 ;;^UTILITY(U,$J,"PRO",82,1,2,0)

 ;;=Medication Administration Record (MAR) for the charting of the

 ;;^UTILITY(U,$J,"PRO",82,1,3,0)

 ;;=administration of the orders over a fourteen day period.  It is designed to

 ;;^UTILITY(U,$J,"PRO",82,1,4,0)

 ;;=replace the manual Continuing Medication Record (CMR).

 ;;^UTILITY(U,$J,"PRO",82,5)

;;=

 ;;^UTILITY(U,$J,"PRO",82,20)

 ;;=D EN14^PSGMMAR

 ;;^UTILITY(U,$J,"PRO",82,99)

 ;;=56004,58415

PSJON002  ; ; 06-OCT-1994

 +1       ;;4.5; Inpatient Medications ;;7 Oct 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,"PRO",77,1,6,0)

 +2       ;;=this protocol will show patients with orders not verified by a nurse, but

 +3       ;;^UTILITY(U,$J,"PRO",77,1,7,0)

 +4       ;;=not allow any action to be taken.

 +5       ;;^UTILITY(U,$J,"PRO",77,5)

 +6       ;;=

 +7       ;;^UTILITY(U,$J,"PRO",77,20)

 +8       ;;=D ^PSGVBW

 +9       ;;^UTILITY(U,$J,"PRO",77,99)

 +10      ;;=56004,58414

 +11      ;;^UTILITY(U,$J,"PRO",78,0)

 +12      ;;=PSJ OR MENU^Inpatient Medications Ward Reports^^Q^^^^^^^^INPATIENT MEDICATIONS

 +13      ;;^UTILITY(U,$J,"PRO",78,1,0)

 +14      ;;=^^2^2^2920121^^^^

 +15      ;;^UTILITY(U,$J,"PRO",78,1,1,0)

 +16      ;;=  This contains Inpatient (Unit Dose and IV) Medications reports that may be

 +17      ;;^UTILITY(U,$J,"PRO",78,1,2,0)

 +18      ;;=run by ward personnel through the OE/RR package.

 +19      ;;^UTILITY(U,$J,"PRO",78,4)

 +20      ;;=40

 +21      ;;^UTILITY(U,$J,"PRO",78,5)

 +22      ;;=

 +23      ;;^UTILITY(U,$J,"PRO",78,10,0)

 +24      ;;=^101.01PA^9^9

 +25      ;;^UTILITY(U,$J,"PRO",78,10,1,0)

 +26      ;;=77^

 +27      ;;^UTILITY(U,$J,"PRO",78,10,1,"^")

 +28      ;;=PSJU OR VBW

 +29      ;;^UTILITY(U,$J,"PRO",78,10,2,0)

 +30      ;;=82^

 +31      ;;^UTILITY(U,$J,"PRO",78,10,2,"^")

 +32      ;;=PSJU OR 14D MAR

 +33      ;;^UTILITY(U,$J,"PRO",78,10,3,0)

 +34      ;;=81^

 +35      ;;^UTILITY(U,$J,"PRO",78,10,3,"^")

 +36      ;;=PSJU OR 7D MAR

 +37      ;;^UTILITY(U,$J,"PRO",78,10,4,0)

 +38      ;;=79^

 +39      ;;^UTILITY(U,$J,"PRO",78,10,4,"^")

 +40      ;;=PSJU OR AP-1

 +41      ;;^UTILITY(U,$J,"PRO",78,10,5,0)

 +42      ;;=80^

 +43      ;;^UTILITY(U,$J,"PRO",78,10,5,"^")

 +44      ;;=PSJU OR AP-2

 +45      ;;^UTILITY(U,$J,"PRO",78,10,6,0)

 +46      ;;=88^

 +47      ;;^UTILITY(U,$J,"PRO",78,10,6,"^")

 +48      ;;=PSJU OR DS

 +49      ;;^UTILITY(U,$J,"PRO",78,10,7,0)

 +50      ;;=89^

 +51      ;;^UTILITY(U,$J,"PRO",78,10,7,"^")

 +52      ;;=PSJU OR PR

 +53      ;;^UTILITY(U,$J,"PRO",78,10,8,0)

 +54      ;;=93^

 +55      ;;^UTILITY(U,$J,"PRO",78,10,8,"^")

 +56      ;;=PSJ OR PR

 +57      ;;^UTILITY(U,$J,"PRO",78,10,9,0)

 +58      ;;=94^

 +59      ;;^UTILITY(U,$J,"PRO",78,10,9,"^")

 +60      ;;=PSJI OR PR

 +61      ;;^UTILITY(U,$J,"PRO",78,99)

 +62      ;;=56097,51057

 +63      ;;^UTILITY(U,$J,"PRO",79,0)

 +64      ;;=PSJU OR AP-1^Action Profile #1^^A^^^^^^^^UNIT DOSE MEDICATIONS

 +65      ;;^UTILITY(U,$J,"PRO",79,1,0)

 +66      ;;=^^4^4^2940803^^^^

 +67      ;;^UTILITY(U,$J,"PRO",79,1,1,0)

 +68      ;;=  This allows the user to print a profile of patients' active Unit Dose

 +69      ;;^UTILITY(U,$J,"PRO",79,1,2,0)

 +70      ;;=orders for review by the physician.  It includes places for the physician

 +71      ;;^UTILITY(U,$J,"PRO",79,1,3,0)

 +72      ;;=to mark each order and sign the profile.  When possible, space is also

 +73      ;;^UTILITY(U,$J,"PRO",79,1,4,0)

 +74      ;;=included for new orders.

 +75      ;;^UTILITY(U,$J,"PRO",79,5)

 +76      ;;=

 +77      ;;^UTILITY(U,$J,"PRO",79,20)

 +78      ;;=D ^PSGAP

 +79      ;;^UTILITY(U,$J,"PRO",79,99)

 +80      ;;=56097,50997

 +81      ;;^UTILITY(U,$J,"PRO",80,0)

 +82      ;;=PSJU OR AP-2^Action Profile #2^^A^^^^^^^^UNIT DOSE MEDICATIONS

 +83      ;;^UTILITY(U,$J,"PRO",80,1,0)

 +84      ;;=^^4^4^2920122^^^^

 +85      ;;^UTILITY(U,$J,"PRO",80,1,1,0)

 +86      ;;=  This allows the user to print a profile of patients' active Unit Dose

 +87      ;;^UTILITY(U,$J,"PRO",80,1,2,0)

 +88      ;;=orders for review by the physician.  It includes places for the physician

 +89      ;;^UTILITY(U,$J,"PRO",80,1,3,0)

 +90      ;;=to mark each order and sign the profile.  When possible, space is also

 +91      ;;^UTILITY(U,$J,"PRO",80,1,4,0)

 +92      ;;=included for new orders.

 +93      ;;^UTILITY(U,$J,"PRO",80,5)

 +94      ;;=

 +95      ;;^UTILITY(U,$J,"PRO",80,20)

 +96      ;;=D ^PSGCAP

 +97      ;;^UTILITY(U,$J,"PRO",80,99)

 +98      ;;=56097,51057

 +99      ;;^UTILITY(U,$J,"PRO",81,0)

 +100     ;;=PSJU OR 7D MAR^7 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS

 +101     ;;^UTILITY(U,$J,"PRO",81,1,0)

 +102     ;;=^^4^4^2940308^^^^

 +103     ;;^UTILITY(U,$J,"PRO",81,1,1,0)

 +104     ;;=  This allows the user to print selected patients' Unit Dose orders on a

 +105     ;;^UTILITY(U,$J,"PRO",81,1,2,0)

 +106     ;;=Medication Administration Record (MAR) for the charting of the

 +107     ;;^UTILITY(U,$J,"PRO",81,1,3,0)

 +108     ;;=administration of the orders over a seven day period.  It is designed to

 +109     ;;^UTILITY(U,$J,"PRO",81,1,4,0)

 +110     ;;=replace the manual Continuing Medication Record (CMR).

 +111     ;;^UTILITY(U,$J,"PRO",81,5)

 +112     ;;=

 +113     ;;^UTILITY(U,$J,"PRO",81,20)

 +114     ;;=D EN7^PSGMMAR

 +115     ;;^UTILITY(U,$J,"PRO",81,99)

 +116     ;;=56004,58415

 +117     ;;^UTILITY(U,$J,"PRO",82,0)

 +118     ;;=PSJU OR 14D MAR^14 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS

 +119     ;;^UTILITY(U,$J,"PRO",82,1,0)

 +120     ;;=^^4^4^2920122^^^^

 +121     ;;^UTILITY(U,$J,"PRO",82,1,1,0)

 +122     ;;=  This allows the user to print selected patients' Unit Dose orders on a

 +123     ;;^UTILITY(U,$J,"PRO",82,1,2,0)

 +124     ;;=Medication Administration Record (MAR) for the charting of the

 +125     ;;^UTILITY(U,$J,"PRO",82,1,3,0)

 +126     ;;=administration of the orders over a fourteen day period.  It is designed to

 +127     ;;^UTILITY(U,$J,"PRO",82,1,4,0)

 +128     ;;=replace the manual Continuing Medication Record (CMR).

 +129     ;;^UTILITY(U,$J,"PRO",82,5)

 +130     ;;=

 +131     ;;^UTILITY(U,$J,"PRO",82,20)

 +132     ;;=D EN14^PSGMMAR

 +133     ;;^UTILITY(U,$J,"PRO",82,99)

 +134     ;;=56004,58415

PSJON002.m