PSJON003 ; ; 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",83,0)
;;=PSJU OR PAT AP-1^Action Profile #1 (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",83,1,0)
;;=^^5^5^2940720^^^^
;;^UTILITY(U,$J,"PRO",83,1,1,0)
;;= This allows the user to print a profile of a patient's active Unit Dose
;;^UTILITY(U,$J,"PRO",83,1,2,0)
;;=orders for review by the physician. It includes places for the physician
;;^UTILITY(U,$J,"PRO",83,1,3,0)
;;=to mark each order and sign the profile. When possible, space is also
;;^UTILITY(U,$J,"PRO",83,1,4,0)
;;=included for new orders. This protocol assumes that a patient has already
;;^UTILITY(U,$J,"PRO",83,1,5,0)
;;=been selected.
;;^UTILITY(U,$J,"PRO",83,5)
;;=
;;^UTILITY(U,$J,"PRO",83,20)
;;=D ENOR^PSGAP
;;^UTILITY(U,$J,"PRO",83,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",84,0)
;;=PSJU OR PAT AP-2^Action Profile #2 (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",84,1,0)
;;=^^5^5^2920122^^^^
;;^UTILITY(U,$J,"PRO",84,1,1,0)
;;= This allows the user to print a profile of a patient's active Unit Dose
;;^UTILITY(U,$J,"PRO",84,1,2,0)
;;=orders for review by the physician. It includes places for the physician
;;^UTILITY(U,$J,"PRO",84,1,3,0)
;;=to mark each order and sign the profile. When possible, space is also
;;^UTILITY(U,$J,"PRO",84,1,4,0)
;;=included for new orders. This protocol assumes that a patient has already
;;^UTILITY(U,$J,"PRO",84,1,5,0)
;;=been selected.
;;^UTILITY(U,$J,"PRO",84,5)
;;=
;;^UTILITY(U,$J,"PRO",84,20)
;;=D ENOR^PSGCAP0
;;^UTILITY(U,$J,"PRO",84,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",85,0)
;;=PSJU OR PAT VBW^Non-Verified Orders (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",85,1,0)
;;=^^7^7^2920122^^^^
;;^UTILITY(U,$J,"PRO",85,1,1,0)
;;= This allows the user to verify (or take other actions) on non-verified
;;^UTILITY(U,$J,"PRO",85,1,2,0)
;;=Unit Dose orders for a patient. If the user is a pharmacist, this protocol
;;^UTILITY(U,$J,"PRO",85,1,3,0)
;;=will show all orders not verified by a pharmacist for a selected patient.
;;^UTILITY(U,$J,"PRO",85,1,4,0)
;;=If the user is a nurse, this protocol will show all orders not verified by
;;^UTILITY(U,$J,"PRO",85,1,5,0)
;;=a nurse. If the user is ward staff, this protocol will show the patient's
;;^UTILITY(U,$J,"PRO",85,1,6,0)
;;=orders not verified by a nurse, but not allow any action to be taken.
;;^UTILITY(U,$J,"PRO",85,1,7,0)
;;= This protocol assumes that a patient has already been selected.
;;^UTILITY(U,$J,"PRO",85,5)
;;=
;;^UTILITY(U,$J,"PRO",85,20)
;;=D ENOR^PSGVBW
;;^UTILITY(U,$J,"PRO",85,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",86,0)
;;=PSJU OR PAT DS^Discharge Summary (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",86,1,0)
;;=^^5^5^2940720^^^^
;;^UTILITY(U,$J,"PRO",86,1,1,0)
;;= This gives the physician and/or Outpatient Pharmacy a report of the active
;;^UTILITY(U,$J,"PRO",86,1,2,0)
;;=Unit Dose medications for a patient about to be discharged or transferred to
;;^UTILITY(U,$J,"PRO",86,1,3,0)
;;=Authorized Absence, and allows the physician to mark the appropriate
;;^UTILITY(U,$J,"PRO",86,1,4,0)
;;=action deemed necessary for each medication. This protocol assumes that a
;;^UTILITY(U,$J,"PRO",86,1,5,0)
;;=patient has already been selected.
;;^UTILITY(U,$J,"PRO",86,5)
;;=
;;^UTILITY(U,$J,"PRO",86,20)
;;=D ENOR^PSGDS
;;^UTILITY(U,$J,"PRO",86,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",87,0)
;;=PSJ OR PAT PR^Inpatient Medications Profile^^A^^^^^^^^INPATIENT MEDICATIONS
;;^UTILITY(U,$J,"PRO",87,1,0)
;;=^^2^2^2920121^^^^
;;^UTILITY(U,$J,"PRO",87,1,1,0)
;;= This allows the user to print Inpatient Medications orders for a selected
;;^UTILITY(U,$J,"PRO",87,1,2,0)
;;=patient. This protocol assumes that the patient has already been selected.
;;^UTILITY(U,$J,"PRO",87,5)
;;=
;;^UTILITY(U,$J,"PRO",87,20)
;;=D ENOR^PSJPR
;;^UTILITY(U,$J,"PRO",87,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",88,0)
;;=PSJU OR DS^Authorized Absence/Discharge Summary (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",88,1,0)
;;=^^4^4^2920122^^^^
;;^UTILITY(U,$J,"PRO",88,1,1,0)
;;= This gives the physician and/or Outpatient Pharmacy a report of the active
;;^UTILITY(U,$J,"PRO",88,1,2,0)
;;=Unit Dose medications for patients about to be discharged or transferred to
PSJON003 ; ; 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",83,0)
+2 ;;=PSJU OR PAT AP-1^Action Profile #1 (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+3 ;;^UTILITY(U,$J,"PRO",83,1,0)
+4 ;;=^^5^5^2940720^^^^
+5 ;;^UTILITY(U,$J,"PRO",83,1,1,0)
+6 ;;= This allows the user to print a profile of a patient's active Unit Dose
+7 ;;^UTILITY(U,$J,"PRO",83,1,2,0)
+8 ;;=orders for review by the physician. It includes places for the physician
+9 ;;^UTILITY(U,$J,"PRO",83,1,3,0)
+10 ;;=to mark each order and sign the profile. When possible, space is also
+11 ;;^UTILITY(U,$J,"PRO",83,1,4,0)
+12 ;;=included for new orders. This protocol assumes that a patient has already
+13 ;;^UTILITY(U,$J,"PRO",83,1,5,0)
+14 ;;=been selected.
+15 ;;^UTILITY(U,$J,"PRO",83,5)
+16 ;;=
+17 ;;^UTILITY(U,$J,"PRO",83,20)
+18 ;;=D ENOR^PSGAP
+19 ;;^UTILITY(U,$J,"PRO",83,99)
+20 ;;=56004,58415
+21 ;;^UTILITY(U,$J,"PRO",84,0)
+22 ;;=PSJU OR PAT AP-2^Action Profile #2 (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+23 ;;^UTILITY(U,$J,"PRO",84,1,0)
+24 ;;=^^5^5^2920122^^^^
+25 ;;^UTILITY(U,$J,"PRO",84,1,1,0)
+26 ;;= This allows the user to print a profile of a patient's active Unit Dose
+27 ;;^UTILITY(U,$J,"PRO",84,1,2,0)
+28 ;;=orders for review by the physician. It includes places for the physician
+29 ;;^UTILITY(U,$J,"PRO",84,1,3,0)
+30 ;;=to mark each order and sign the profile. When possible, space is also
+31 ;;^UTILITY(U,$J,"PRO",84,1,4,0)
+32 ;;=included for new orders. This protocol assumes that a patient has already
+33 ;;^UTILITY(U,$J,"PRO",84,1,5,0)
+34 ;;=been selected.
+35 ;;^UTILITY(U,$J,"PRO",84,5)
+36 ;;=
+37 ;;^UTILITY(U,$J,"PRO",84,20)
+38 ;;=D ENOR^PSGCAP0
+39 ;;^UTILITY(U,$J,"PRO",84,99)
+40 ;;=56004,58415
+41 ;;^UTILITY(U,$J,"PRO",85,0)
+42 ;;=PSJU OR PAT VBW^Non-Verified Orders (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+43 ;;^UTILITY(U,$J,"PRO",85,1,0)
+44 ;;=^^7^7^2920122^^^^
+45 ;;^UTILITY(U,$J,"PRO",85,1,1,0)
+46 ;;= This allows the user to verify (or take other actions) on non-verified
+47 ;;^UTILITY(U,$J,"PRO",85,1,2,0)
+48 ;;=Unit Dose orders for a patient. If the user is a pharmacist, this protocol
+49 ;;^UTILITY(U,$J,"PRO",85,1,3,0)
+50 ;;=will show all orders not verified by a pharmacist for a selected patient.
+51 ;;^UTILITY(U,$J,"PRO",85,1,4,0)
+52 ;;=If the user is a nurse, this protocol will show all orders not verified by
+53 ;;^UTILITY(U,$J,"PRO",85,1,5,0)
+54 ;;=a nurse. If the user is ward staff, this protocol will show the patient's
+55 ;;^UTILITY(U,$J,"PRO",85,1,6,0)
+56 ;;=orders not verified by a nurse, but not allow any action to be taken.
+57 ;;^UTILITY(U,$J,"PRO",85,1,7,0)
+58 ;;= This protocol assumes that a patient has already been selected.
+59 ;;^UTILITY(U,$J,"PRO",85,5)
+60 ;;=
+61 ;;^UTILITY(U,$J,"PRO",85,20)
+62 ;;=D ENOR^PSGVBW
+63 ;;^UTILITY(U,$J,"PRO",85,99)
+64 ;;=56004,58415
+65 ;;^UTILITY(U,$J,"PRO",86,0)
+66 ;;=PSJU OR PAT DS^Discharge Summary (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+67 ;;^UTILITY(U,$J,"PRO",86,1,0)
+68 ;;=^^5^5^2940720^^^^
+69 ;;^UTILITY(U,$J,"PRO",86,1,1,0)
+70 ;;= This gives the physician and/or Outpatient Pharmacy a report of the active
+71 ;;^UTILITY(U,$J,"PRO",86,1,2,0)
+72 ;;=Unit Dose medications for a patient about to be discharged or transferred to
+73 ;;^UTILITY(U,$J,"PRO",86,1,3,0)
+74 ;;=Authorized Absence, and allows the physician to mark the appropriate
+75 ;;^UTILITY(U,$J,"PRO",86,1,4,0)
+76 ;;=action deemed necessary for each medication. This protocol assumes that a
+77 ;;^UTILITY(U,$J,"PRO",86,1,5,0)
+78 ;;=patient has already been selected.
+79 ;;^UTILITY(U,$J,"PRO",86,5)
+80 ;;=
+81 ;;^UTILITY(U,$J,"PRO",86,20)
+82 ;;=D ENOR^PSGDS
+83 ;;^UTILITY(U,$J,"PRO",86,99)
+84 ;;=56004,58415
+85 ;;^UTILITY(U,$J,"PRO",87,0)
+86 ;;=PSJ OR PAT PR^Inpatient Medications Profile^^A^^^^^^^^INPATIENT MEDICATIONS
+87 ;;^UTILITY(U,$J,"PRO",87,1,0)
+88 ;;=^^2^2^2920121^^^^
+89 ;;^UTILITY(U,$J,"PRO",87,1,1,0)
+90 ;;= This allows the user to print Inpatient Medications orders for a selected
+91 ;;^UTILITY(U,$J,"PRO",87,1,2,0)
+92 ;;=patient. This protocol assumes that the patient has already been selected.
+93 ;;^UTILITY(U,$J,"PRO",87,5)
+94 ;;=
+95 ;;^UTILITY(U,$J,"PRO",87,20)
+96 ;;=D ENOR^PSJPR
+97 ;;^UTILITY(U,$J,"PRO",87,99)
+98 ;;=56004,58415
+99 ;;^UTILITY(U,$J,"PRO",88,0)
+100 ;;=PSJU OR DS^Authorized Absence/Discharge Summary (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+101 ;;^UTILITY(U,$J,"PRO",88,1,0)
+102 ;;=^^4^4^2920122^^^^
+103 ;;^UTILITY(U,$J,"PRO",88,1,1,0)
+104 ;;= This gives the physician and/or Outpatient Pharmacy a report of the active
+105 ;;^UTILITY(U,$J,"PRO",88,1,2,0)
+106 ;;=Unit Dose medications for patients about to be discharged or transferred to
