PSJON004 ; ; 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",88,1,3,0)
;;=Authorized Absence, and allows the physician to mark the appropriate
;;^UTILITY(U,$J,"PRO",88,1,4,0)
;;=action deemed necessary for each medication.
;;^UTILITY(U,$J,"PRO",88,5)
;;=
;;^UTILITY(U,$J,"PRO",88,20)
;;=D ^PSGDS
;;^UTILITY(U,$J,"PRO",88,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",89,0)
;;=PSJU OR PR^Patient Profile (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",89,1,0)
;;=^^7^7^2920122^^^^
;;^UTILITY(U,$J,"PRO",89,1,1,0)
;;= This allows a user to print to any device a profile (list) of patients'
;;^UTILITY(U,$J,"PRO",89,1,2,0)
;;=Unit Dose orders for the patient's current or last (if patient has been
;;^UTILITY(U,$J,"PRO",89,1,3,0)
;;=discharged) admission. If the user's terminal is selected as the printing
;;^UTILITY(U,$J,"PRO",89,1,4,0)
;;=device, this protocol will allow the user to select any of the printed
;;^UTILITY(U,$J,"PRO",89,1,5,0)
;;=orders to be shown in complete detail, including the activity logs, if any.
;;^UTILITY(U,$J,"PRO",89,1,6,0)
;;=The user may print patients' profiles for a single patient, or for an entire
;;^UTILITY(U,$J,"PRO",89,1,7,0)
;;=ward group or an entire ward.
;;^UTILITY(U,$J,"PRO",89,5)
;;=
;;^UTILITY(U,$J,"PRO",89,20)
;;=D ^PSGPR
;;^UTILITY(U,$J,"PRO",89,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",90,0)
;;=PSJU OR PAT 14D MAR^14 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",90,1,0)
;;=^^5^5^2940323^^^^
;;^UTILITY(U,$J,"PRO",90,1,1,0)
;;= This allows the user to print a selected patient's Unit Dose orders on a
;;^UTILITY(U,$J,"PRO",90,1,2,0)
;;=Medication Administration Record (MAR) for the charting of the
;;^UTILITY(U,$J,"PRO",90,1,3,0)
;;=administration of the orders over a fourteen day period. It is designed to
;;^UTILITY(U,$J,"PRO",90,1,4,0)
;;=replace the manual Continuing Medication Record (CMR). This protocol
;;^UTILITY(U,$J,"PRO",90,1,5,0)
;;=assumes that a patient has already been selected.
;;^UTILITY(U,$J,"PRO",90,5)
;;=
;;^UTILITY(U,$J,"PRO",90,20)
;;=S PSGMARDF=14 D ENOR^PSGMMAR
;;^UTILITY(U,$J,"PRO",90,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",91,0)
;;=PSJU OR PAT 7D MAR^7 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
;;^UTILITY(U,$J,"PRO",91,1,0)
;;=^^5^5^2920122^^^^
;;^UTILITY(U,$J,"PRO",91,1,1,0)
;;= This allows the user to print a selected patient's Unit Dose orders on a
;;^UTILITY(U,$J,"PRO",91,1,2,0)
;;=Medication Administration Record (MAR) for the charting of the
;;^UTILITY(U,$J,"PRO",91,1,3,0)
;;=administration of the orders over a seven day period. It is designed to
;;^UTILITY(U,$J,"PRO",91,1,4,0)
;;=replace the manual Continuing Medication Record (CMR). This protocol
;;^UTILITY(U,$J,"PRO",91,1,5,0)
;;=assumes that a patient has already been selected.
;;^UTILITY(U,$J,"PRO",91,5)
;;=
;;^UTILITY(U,$J,"PRO",91,20)
;;=S PSGMARDF=7 D ENOR^PSGMMAR
;;^UTILITY(U,$J,"PRO",91,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",92,0)
;;=PSJ OR PAT PR MENU^Inpatient Medications Profiles^^M^^^^^^^^INPATIENT MEDICATIONS
;;^UTILITY(U,$J,"PRO",92,1,0)
;;=^^3^3^2920625^^^^
;;^UTILITY(U,$J,"PRO",92,1,1,0)
;;= These are Inpatient Medications profiles for use with the OE/RR package.
;;^UTILITY(U,$J,"PRO",92,1,2,0)
;;=These protocols all assume that the patient has already been selected
;;^UTILITY(U,$J,"PRO",92,1,3,0)
;;=through the OE/RR package.
;;^UTILITY(U,$J,"PRO",92,4)
;;=40
;;^UTILITY(U,$J,"PRO",92,5)
;;=
;;^UTILITY(U,$J,"PRO",92,10,0)
;;=^101.01PA^4^4
;;^UTILITY(U,$J,"PRO",92,10,1,0)
;;=87^^97
;;^UTILITY(U,$J,"PRO",92,10,1,"^")
;;=PSJ OR PAT PR
;;^UTILITY(U,$J,"PRO",92,10,2,0)
;;=74^^96
;;^UTILITY(U,$J,"PRO",92,10,2,"^")
;;=PSJU OR PAT PR
;;^UTILITY(U,$J,"PRO",92,10,3,0)
;;=76^^95
;;^UTILITY(U,$J,"PRO",92,10,3,"^")
;;=PSJI OR PAT PR
;;^UTILITY(U,$J,"PRO",92,10,4,0)
;;=82^
;;^UTILITY(U,$J,"PRO",92,10,4,"^")
;;=PSJU OR 14D MAR
;;^UTILITY(U,$J,"PRO",92,26)
;;=
;;^UTILITY(U,$J,"PRO",92,99)
;;=56004,58415
;;^UTILITY(U,$J,"PRO",93,0)
;;=PSJ OR PR^Inpatient Medications Profile^^A^^^^^^^^INPATIENT MEDICATIONS
;;^UTILITY(U,$J,"PRO",93,1,0)
;;=^^2^2^2920122^^^^
;;^UTILITY(U,$J,"PRO",93,1,1,0)
;;= This allows the user to print Inpatient Medications orders for selected
;;^UTILITY(U,$J,"PRO",93,1,2,0)
;;=patients. Profiles can be printed by patient, ward, or ward group.
PSJON004 ; ; 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",88,1,3,0)
+2 ;;=Authorized Absence, and allows the physician to mark the appropriate
+3 ;;^UTILITY(U,$J,"PRO",88,1,4,0)
+4 ;;=action deemed necessary for each medication.
+5 ;;^UTILITY(U,$J,"PRO",88,5)
+6 ;;=
+7 ;;^UTILITY(U,$J,"PRO",88,20)
+8 ;;=D ^PSGDS
+9 ;;^UTILITY(U,$J,"PRO",88,99)
+10 ;;=56004,58415
+11 ;;^UTILITY(U,$J,"PRO",89,0)
+12 ;;=PSJU OR PR^Patient Profile (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+13 ;;^UTILITY(U,$J,"PRO",89,1,0)
+14 ;;=^^7^7^2920122^^^^
+15 ;;^UTILITY(U,$J,"PRO",89,1,1,0)
+16 ;;= This allows a user to print to any device a profile (list) of patients'
+17 ;;^UTILITY(U,$J,"PRO",89,1,2,0)
+18 ;;=Unit Dose orders for the patient's current or last (if patient has been
+19 ;;^UTILITY(U,$J,"PRO",89,1,3,0)
+20 ;;=discharged) admission. If the user's terminal is selected as the printing
+21 ;;^UTILITY(U,$J,"PRO",89,1,4,0)
+22 ;;=device, this protocol will allow the user to select any of the printed
+23 ;;^UTILITY(U,$J,"PRO",89,1,5,0)
+24 ;;=orders to be shown in complete detail, including the activity logs, if any.
+25 ;;^UTILITY(U,$J,"PRO",89,1,6,0)
+26 ;;=The user may print patients' profiles for a single patient, or for an entire
+27 ;;^UTILITY(U,$J,"PRO",89,1,7,0)
+28 ;;=ward group or an entire ward.
+29 ;;^UTILITY(U,$J,"PRO",89,5)
+30 ;;=
+31 ;;^UTILITY(U,$J,"PRO",89,20)
+32 ;;=D ^PSGPR
+33 ;;^UTILITY(U,$J,"PRO",89,99)
+34 ;;=56004,58415
+35 ;;^UTILITY(U,$J,"PRO",90,0)
+36 ;;=PSJU OR PAT 14D MAR^14 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+37 ;;^UTILITY(U,$J,"PRO",90,1,0)
+38 ;;=^^5^5^2940323^^^^
+39 ;;^UTILITY(U,$J,"PRO",90,1,1,0)
+40 ;;= This allows the user to print a selected patient's Unit Dose orders on a
+41 ;;^UTILITY(U,$J,"PRO",90,1,2,0)
+42 ;;=Medication Administration Record (MAR) for the charting of the
+43 ;;^UTILITY(U,$J,"PRO",90,1,3,0)
+44 ;;=administration of the orders over a fourteen day period. It is designed to
+45 ;;^UTILITY(U,$J,"PRO",90,1,4,0)
+46 ;;=replace the manual Continuing Medication Record (CMR). This protocol
+47 ;;^UTILITY(U,$J,"PRO",90,1,5,0)
+48 ;;=assumes that a patient has already been selected.
+49 ;;^UTILITY(U,$J,"PRO",90,5)
+50 ;;=
+51 ;;^UTILITY(U,$J,"PRO",90,20)
+52 ;;=S PSGMARDF=14 D ENOR^PSGMMAR
+53 ;;^UTILITY(U,$J,"PRO",90,99)
+54 ;;=56004,58415
+55 ;;^UTILITY(U,$J,"PRO",91,0)
+56 ;;=PSJU OR PAT 7D MAR^7 Day MAR (Unit Dose)^^A^^^^^^^^UNIT DOSE MEDICATIONS
+57 ;;^UTILITY(U,$J,"PRO",91,1,0)
+58 ;;=^^5^5^2920122^^^^
+59 ;;^UTILITY(U,$J,"PRO",91,1,1,0)
+60 ;;= This allows the user to print a selected patient's Unit Dose orders on a
+61 ;;^UTILITY(U,$J,"PRO",91,1,2,0)
+62 ;;=Medication Administration Record (MAR) for the charting of the
+63 ;;^UTILITY(U,$J,"PRO",91,1,3,0)
+64 ;;=administration of the orders over a seven day period. It is designed to
+65 ;;^UTILITY(U,$J,"PRO",91,1,4,0)
+66 ;;=replace the manual Continuing Medication Record (CMR). This protocol
+67 ;;^UTILITY(U,$J,"PRO",91,1,5,0)
+68 ;;=assumes that a patient has already been selected.
+69 ;;^UTILITY(U,$J,"PRO",91,5)
+70 ;;=
+71 ;;^UTILITY(U,$J,"PRO",91,20)
+72 ;;=S PSGMARDF=7 D ENOR^PSGMMAR
+73 ;;^UTILITY(U,$J,"PRO",91,99)
+74 ;;=56004,58415
+75 ;;^UTILITY(U,$J,"PRO",92,0)
+76 ;;=PSJ OR PAT PR MENU^Inpatient Medications Profiles^^M^^^^^^^^INPATIENT MEDICATIONS
+77 ;;^UTILITY(U,$J,"PRO",92,1,0)
+78 ;;=^^3^3^2920625^^^^
+79 ;;^UTILITY(U,$J,"PRO",92,1,1,0)
+80 ;;= These are Inpatient Medications profiles for use with the OE/RR package.
+81 ;;^UTILITY(U,$J,"PRO",92,1,2,0)
+82 ;;=These protocols all assume that the patient has already been selected
+83 ;;^UTILITY(U,$J,"PRO",92,1,3,0)
+84 ;;=through the OE/RR package.
+85 ;;^UTILITY(U,$J,"PRO",92,4)
+86 ;;=40
+87 ;;^UTILITY(U,$J,"PRO",92,5)
+88 ;;=
+89 ;;^UTILITY(U,$J,"PRO",92,10,0)
+90 ;;=^101.01PA^4^4
+91 ;;^UTILITY(U,$J,"PRO",92,10,1,0)
+92 ;;=87^^97
+93 ;;^UTILITY(U,$J,"PRO",92,10,1,"^")
+94 ;;=PSJ OR PAT PR
+95 ;;^UTILITY(U,$J,"PRO",92,10,2,0)
+96 ;;=74^^96
+97 ;;^UTILITY(U,$J,"PRO",92,10,2,"^")
+98 ;;=PSJU OR PAT PR
+99 ;;^UTILITY(U,$J,"PRO",92,10,3,0)
+100 ;;=76^^95
+101 ;;^UTILITY(U,$J,"PRO",92,10,3,"^")
+102 ;;=PSJI OR PAT PR
+103 ;;^UTILITY(U,$J,"PRO",92,10,4,0)
+104 ;;=82^
+105 ;;^UTILITY(U,$J,"PRO",92,10,4,"^")
+106 ;;=PSJU OR 14D MAR
+107 ;;^UTILITY(U,$J,"PRO",92,26)
+108 ;;=
+109 ;;^UTILITY(U,$J,"PRO",92,99)
+110 ;;=56004,58415
+111 ;;^UTILITY(U,$J,"PRO",93,0)
+112 ;;=PSJ OR PR^Inpatient Medications Profile^^A^^^^^^^^INPATIENT MEDICATIONS
+113 ;;^UTILITY(U,$J,"PRO",93,1,0)
+114 ;;=^^2^2^2920122^^^^
+115 ;;^UTILITY(U,$J,"PRO",93,1,1,0)
+116 ;;= This allows the user to print Inpatient Medications orders for selected
+117 ;;^UTILITY(U,$J,"PRO",93,1,2,0)
+118 ;;=patients. Profiles can be printed by patient, ward, or ward group.
