PSJVI002 ;BIR/-APR-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,"OPT",3755,1,2,0)
;;=drug linked to them. This print may be run for all additives and solutions,
;;^UTILITY(U,$J,"OPT",3755,1,3,0)
;;=or only those linked to a generic drug that has been matched to a primary
;;^UTILITY(U,$J,"OPT",3755,1,4,0)
;;=drug. This report may help in matching primary drugs to IV drugs.
;;^UTILITY(U,$J,"OPT",3755,25)
;;=ENPD^PSJPRE48
;;^UTILITY(U,$J,"OPT",3755,99)
;;=55115,52388
;;^UTILITY(U,$J,"OPT",3755,"U")
;;=IV DRUG MATCHED TO PRIMARY DRU
;;^UTILITY(U,$J,"OPT",3757,0)
;;=PSJV IV FLUID SOLUTIONS PRINT^IV Fluid Solutions Print^^R^^^^^^^^PSJV
;;^UTILITY(U,$J,"OPT",3757,1,0)
;;=^^3^3^2911002^
;;^UTILITY(U,$J,"OPT",3757,1,1,0)
;;= This print lists solutions and the USED IN IV FLUID ORDER ENTRY field.
;;^UTILITY(U,$J,"OPT",3757,1,2,0)
;;=This report may be run to list all solutions, or only those marked for
;;^UTILITY(U,$J,"OPT",3757,1,3,0)
;;=use when entering IV Fluid orders through OE/RR.
;;^UTILITY(U,$J,"OPT",3757,25)
;;=ENSOL^PSJPRE48
;;^UTILITY(U,$J,"OPT",3757,"U")
;;=IV FLUID SOLUTIONS PRINT
;;^UTILITY(U,$J,"OPT",3758,0)
;;=PSJV PD/DD PRINT^Primary Drug/Dispense Drug Report^^R^^^^^^^^PSJV
;;^UTILITY(U,$J,"OPT",3758,1,0)
;;=^^4^4^2911002^
;;^UTILITY(U,$J,"OPT",3758,1,1,0)
;;= Allows the user to print primary drugs and the dispense drugs tied to
;;^UTILITY(U,$J,"OPT",3758,1,2,0)
;;=them. The report can be sorted by primary drug or dispense drug. The
;;^UTILITY(U,$J,"OPT",3758,1,3,0)
;;=report can also show exceptions - dispense drugs not yet tied to a primary
;;^UTILITY(U,$J,"OPT",3758,1,4,0)
;;=drug.
;;^UTILITY(U,$J,"OPT",3758,25)
;;=PSJPRE40
;;^UTILITY(U,$J,"OPT",3758,"U")
;;=PRIMARY DRUG/DISPENSE DRUG REP
;;^UTILITY(U,$J,"OPT",3829,0)
;;=PSJV EDIT PROVIDER^Edit Provider Fields in New Person File^^R^^^^^^^^PSJV
;;^UTILITY(U,$J,"OPT",3829,1,0)
;;=^^4^4^2920319^^^^
;;^UTILITY(U,$J,"OPT",3829,1,1,0)
;;= Allows editing of the AUTHORIZED TO WRITE MED ORDERS and INACTIVE DATE
;;^UTILITY(U,$J,"OPT",3829,1,2,0)
;;=(Pharmacy) fields of the NEW PERSON file (200). Only providers who are
;;^UTILITY(U,$J,"OPT",3829,1,3,0)
;;=marked as AUTHORIZED TO WRITE MED ORDERS in the NEW PERSON file are
;;^UTILITY(U,$J,"OPT",3829,1,4,0)
;;=selectable through Inpatient Medications version 4.0.
;;^UTILITY(U,$J,"OPT",3829,25)
;;=ENE^PSJPRE49
;;^UTILITY(U,$J,"OPT",3829,"U")
;;=EDIT PROVIDER FIELDS IN NEW PE
;;^UTILITY(U,$J,"OPT",3830,0)
;;=PSJV PROVIDER PRINT^Active Provider Report^^R^^^^^^^^PSJV
;;^UTILITY(U,$J,"OPT",3830,1,0)
;;=^^11^11^2920319^^
;;^UTILITY(U,$J,"OPT",3830,1,1,0)
;;= This lists all active providers in the PROVIDER File (6). The report
;;^UTILITY(U,$J,"OPT",3830,1,2,0)
;;=includes the following fields:
;;^UTILITY(U,$J,"OPT",3830,1,3,0)
;;=
;;^UTILITY(U,$J,"OPT",3830,1,4,0)
;;= NAME (From the NEW PERSON File)
;;^UTILITY(U,$J,"OPT",3830,1,5,0)
;;= INACTIVATION DATE (From the PROVIDER File)
;;^UTILITY(U,$J,"OPT",3830,1,6,0)
;;= INACTIVE DATE (For Pharmacy, from the NEW PERSON File)
;;^UTILITY(U,$J,"OPT",3830,1,7,0)
;;= AUTHORIZED TO WRITE MED ORDERS (From the NEW PERSON File)
;;^UTILITY(U,$J,"OPT",3830,1,8,0)
;;=
;;^UTILITY(U,$J,"OPT",3830,1,9,0)
;;= Only providers who are marked as AUTHORIZED TO WRITE MED ORDERS in the
;;^UTILITY(U,$J,"OPT",3830,1,10,0)
;;=NEW PERSON File (200) are selectable through Inpatient Medications
;;^UTILITY(U,$J,"OPT",3830,1,11,0)
;;=version 4.0
;;^UTILITY(U,$J,"OPT",3830,25)
;;=ENP^PSJPRE49
;;^UTILITY(U,$J,"OPT",3830,"U")
;;=ACTIVE PROVIDER REPORT
;;^UTILITY(U,$J,"OPT",3831,0)
;;=PSJV SYNONYM MOVE^Synonym Move From Drug File To Primary Drug File^^R^^^^^^^^PSJV
;;^UTILITY(U,$J,"OPT",3831,1,0)
;;=^^5^5^2920323^^
;;^UTILITY(U,$J,"OPT",3831,1,1,0)
;;= This allows the user to copy the synonyms in the Drug file to the Primary
;;^UTILITY(U,$J,"OPT",3831,1,2,0)
;;=Drug file for those items in the Drug file that have a Primary drug. Only
;;^UTILITY(U,$J,"OPT",3831,1,3,0)
;;=synonyms that have been marked as TRADE NAMES are copied. This should not
;;^UTILITY(U,$J,"OPT",3831,1,4,0)
;;=be run until the Primary Drug Manual Create option has been run to
;;^UTILITY(U,$J,"OPT",3831,1,5,0)
;;=completion.
;;^UTILITY(U,$J,"OPT",3831,25)
;;=ENSYN^PSJPRE41
;;^UTILITY(U,$J,"OPT",3831,"U")
;;=SYNONYM MOVE FROM DRUG FILE TO
PSJVI002 ;BIR/-APR-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,"OPT",3755,1,2,0)
+2 ;;=drug linked to them. This print may be run for all additives and solutions,
+3 ;;^UTILITY(U,$J,"OPT",3755,1,3,0)
+4 ;;=or only those linked to a generic drug that has been matched to a primary
+5 ;;^UTILITY(U,$J,"OPT",3755,1,4,0)
+6 ;;=drug. This report may help in matching primary drugs to IV drugs.
+7 ;;^UTILITY(U,$J,"OPT",3755,25)
+8 ;;=ENPD^PSJPRE48
+9 ;;^UTILITY(U,$J,"OPT",3755,99)
+10 ;;=55115,52388
+11 ;;^UTILITY(U,$J,"OPT",3755,"U")
+12 ;;=IV DRUG MATCHED TO PRIMARY DRU
+13 ;;^UTILITY(U,$J,"OPT",3757,0)
+14 ;;=PSJV IV FLUID SOLUTIONS PRINT^IV Fluid Solutions Print^^R^^^^^^^^PSJV
+15 ;;^UTILITY(U,$J,"OPT",3757,1,0)
+16 ;;=^^3^3^2911002^
+17 ;;^UTILITY(U,$J,"OPT",3757,1,1,0)
+18 ;;= This print lists solutions and the USED IN IV FLUID ORDER ENTRY field.
+19 ;;^UTILITY(U,$J,"OPT",3757,1,2,0)
+20 ;;=This report may be run to list all solutions, or only those marked for
+21 ;;^UTILITY(U,$J,"OPT",3757,1,3,0)
+22 ;;=use when entering IV Fluid orders through OE/RR.
+23 ;;^UTILITY(U,$J,"OPT",3757,25)
+24 ;;=ENSOL^PSJPRE48
+25 ;;^UTILITY(U,$J,"OPT",3757,"U")
+26 ;;=IV FLUID SOLUTIONS PRINT
+27 ;;^UTILITY(U,$J,"OPT",3758,0)
+28 ;;=PSJV PD/DD PRINT^Primary Drug/Dispense Drug Report^^R^^^^^^^^PSJV
+29 ;;^UTILITY(U,$J,"OPT",3758,1,0)
+30 ;;=^^4^4^2911002^
+31 ;;^UTILITY(U,$J,"OPT",3758,1,1,0)
+32 ;;= Allows the user to print primary drugs and the dispense drugs tied to
+33 ;;^UTILITY(U,$J,"OPT",3758,1,2,0)
+34 ;;=them. The report can be sorted by primary drug or dispense drug. The
+35 ;;^UTILITY(U,$J,"OPT",3758,1,3,0)
+36 ;;=report can also show exceptions - dispense drugs not yet tied to a primary
+37 ;;^UTILITY(U,$J,"OPT",3758,1,4,0)
+38 ;;=drug.
+39 ;;^UTILITY(U,$J,"OPT",3758,25)
+40 ;;=PSJPRE40
+41 ;;^UTILITY(U,$J,"OPT",3758,"U")
+42 ;;=PRIMARY DRUG/DISPENSE DRUG REP
+43 ;;^UTILITY(U,$J,"OPT",3829,0)
+44 ;;=PSJV EDIT PROVIDER^Edit Provider Fields in New Person File^^R^^^^^^^^PSJV
+45 ;;^UTILITY(U,$J,"OPT",3829,1,0)
+46 ;;=^^4^4^2920319^^^^
+47 ;;^UTILITY(U,$J,"OPT",3829,1,1,0)
+48 ;;= Allows editing of the AUTHORIZED TO WRITE MED ORDERS and INACTIVE DATE
+49 ;;^UTILITY(U,$J,"OPT",3829,1,2,0)
+50 ;;=(Pharmacy) fields of the NEW PERSON file (200). Only providers who are
+51 ;;^UTILITY(U,$J,"OPT",3829,1,3,0)
+52 ;;=marked as AUTHORIZED TO WRITE MED ORDERS in the NEW PERSON file are
+53 ;;^UTILITY(U,$J,"OPT",3829,1,4,0)
+54 ;;=selectable through Inpatient Medications version 4.0.
+55 ;;^UTILITY(U,$J,"OPT",3829,25)
+56 ;;=ENE^PSJPRE49
+57 ;;^UTILITY(U,$J,"OPT",3829,"U")
+58 ;;=EDIT PROVIDER FIELDS IN NEW PE
+59 ;;^UTILITY(U,$J,"OPT",3830,0)
+60 ;;=PSJV PROVIDER PRINT^Active Provider Report^^R^^^^^^^^PSJV
+61 ;;^UTILITY(U,$J,"OPT",3830,1,0)
+62 ;;=^^11^11^2920319^^
+63 ;;^UTILITY(U,$J,"OPT",3830,1,1,0)
+64 ;;= This lists all active providers in the PROVIDER File (6). The report
+65 ;;^UTILITY(U,$J,"OPT",3830,1,2,0)
+66 ;;=includes the following fields:
+67 ;;^UTILITY(U,$J,"OPT",3830,1,3,0)
+68 ;;=
+69 ;;^UTILITY(U,$J,"OPT",3830,1,4,0)
+70 ;;= NAME (From the NEW PERSON File)
+71 ;;^UTILITY(U,$J,"OPT",3830,1,5,0)
+72 ;;= INACTIVATION DATE (From the PROVIDER File)
+73 ;;^UTILITY(U,$J,"OPT",3830,1,6,0)
+74 ;;= INACTIVE DATE (For Pharmacy, from the NEW PERSON File)
+75 ;;^UTILITY(U,$J,"OPT",3830,1,7,0)
+76 ;;= AUTHORIZED TO WRITE MED ORDERS (From the NEW PERSON File)
+77 ;;^UTILITY(U,$J,"OPT",3830,1,8,0)
+78 ;;=
+79 ;;^UTILITY(U,$J,"OPT",3830,1,9,0)
+80 ;;= Only providers who are marked as AUTHORIZED TO WRITE MED ORDERS in the
+81 ;;^UTILITY(U,$J,"OPT",3830,1,10,0)
+82 ;;=NEW PERSON File (200) are selectable through Inpatient Medications
+83 ;;^UTILITY(U,$J,"OPT",3830,1,11,0)
+84 ;;=version 4.0
+85 ;;^UTILITY(U,$J,"OPT",3830,25)
+86 ;;=ENP^PSJPRE49
+87 ;;^UTILITY(U,$J,"OPT",3830,"U")
+88 ;;=ACTIVE PROVIDER REPORT
+89 ;;^UTILITY(U,$J,"OPT",3831,0)
+90 ;;=PSJV SYNONYM MOVE^Synonym Move From Drug File To Primary Drug File^^R^^^^^^^^PSJV
+91 ;;^UTILITY(U,$J,"OPT",3831,1,0)
+92 ;;=^^5^5^2920323^^
+93 ;;^UTILITY(U,$J,"OPT",3831,1,1,0)
+94 ;;= This allows the user to copy the synonyms in the Drug file to the Primary
+95 ;;^UTILITY(U,$J,"OPT",3831,1,2,0)
+96 ;;=Drug file for those items in the Drug file that have a Primary drug. Only
+97 ;;^UTILITY(U,$J,"OPT",3831,1,3,0)
+98 ;;=synonyms that have been marked as TRADE NAMES are copied. This should not
+99 ;;^UTILITY(U,$J,"OPT",3831,1,4,0)
+100 ;;=be run until the Primary Drug Manual Create option has been run to
+101 ;;^UTILITY(U,$J,"OPT",3831,1,5,0)
+102 ;;=completion.
+103 ;;^UTILITY(U,$J,"OPT",3831,25)
+104 ;;=ENSYN^PSJPRE41
+105 ;;^UTILITY(U,$J,"OPT",3831,"U")
+106 ;;=SYNONYM MOVE FROM DRUG FILE TO