Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSJVI002

PSJVI002.m

Go to the documentation of this file. 
  1. PSJVI002 ;BIR/-APR-1994;
  1.  ;;4.5; Inpatient Medications ;;7 Oct 94
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,"OPT",3755,1,2,0)
  1.  ;;=drug linked to them. This print may be run for all additives and solutions, 
  1.  ;;^UTILITY(U,$J,"OPT",3755,1,3,0)
  1.  ;;=or only those linked to a generic drug that has been matched to a primary 
  1.  ;;^UTILITY(U,$J,"OPT",3755,1,4,0)
  1.  ;;=drug. This report may help in matching primary drugs to IV drugs.
  1.  ;;^UTILITY(U,$J,"OPT",3755,25)
  1.  ;;=ENPD^PSJPRE48
  1.  ;;^UTILITY(U,$J,"OPT",3755,99)
  1.  ;;=55115,52388
  1.  ;;^UTILITY(U,$J,"OPT",3755,"U")
  1.  ;;=IV DRUG MATCHED TO PRIMARY DRU
  1.  ;;^UTILITY(U,$J,"OPT",3757,0)
  1.  ;;=PSJV IV FLUID SOLUTIONS PRINT^IV Fluid Solutions Print^^R^^^^^^^^PSJV
  1.  ;;^UTILITY(U,$J,"OPT",3757,1,0)
  1.  ;;=^^3^3^2911002^
  1.  ;;^UTILITY(U,$J,"OPT",3757,1,1,0)
  1.  ;;=  This print lists solutions and the USED IN IV FLUID ORDER ENTRY field.
  1.  ;;^UTILITY(U,$J,"OPT",3757,1,2,0)
  1.  ;;=This report may be run to list all solutions, or only those marked for
  1.  ;;^UTILITY(U,$J,"OPT",3757,1,3,0)
  1.  ;;=use when entering IV Fluid orders through OE/RR.
  1.  ;;^UTILITY(U,$J,"OPT",3757,25)
  1.  ;;=ENSOL^PSJPRE48
  1.  ;;^UTILITY(U,$J,"OPT",3757,"U")
  1.  ;;=IV FLUID SOLUTIONS PRINT
  1.  ;;^UTILITY(U,$J,"OPT",3758,0)
  1.  ;;=PSJV PD/DD PRINT^Primary Drug/Dispense Drug Report^^R^^^^^^^^PSJV
  1.  ;;^UTILITY(U,$J,"OPT",3758,1,0)
  1.  ;;=^^4^4^2911002^
  1.  ;;^UTILITY(U,$J,"OPT",3758,1,1,0)
  1.  ;;=  Allows the user to print primary drugs and the dispense drugs tied to
  1.  ;;^UTILITY(U,$J,"OPT",3758,1,2,0)
  1.  ;;=them.  The report can be sorted by primary drug or dispense drug.  The
  1.  ;;^UTILITY(U,$J,"OPT",3758,1,3,0)
  1.  ;;=report can also show exceptions - dispense drugs not yet tied to a primary
  1.  ;;^UTILITY(U,$J,"OPT",3758,1,4,0)
  1.  ;;=drug.
  1.  ;;^UTILITY(U,$J,"OPT",3758,25)
  1.  ;;=PSJPRE40
  1.  ;;^UTILITY(U,$J,"OPT",3758,"U")
  1.  ;;=PRIMARY DRUG/DISPENSE DRUG REP
  1.  ;;^UTILITY(U,$J,"OPT",3829,0)
  1.  ;;=PSJV EDIT PROVIDER^Edit Provider Fields in New Person File^^R^^^^^^^^PSJV
  1.  ;;^UTILITY(U,$J,"OPT",3829,1,0)
  1.  ;;=^^4^4^2920319^^^^
  1.  ;;^UTILITY(U,$J,"OPT",3829,1,1,0)
  1.  ;;= Allows editing of the AUTHORIZED TO WRITE MED ORDERS and INACTIVE DATE 
  1.  ;;^UTILITY(U,$J,"OPT",3829,1,2,0)
  1.  ;;=(Pharmacy) fields of the NEW PERSON file (200). Only providers who are 
  1.  ;;^UTILITY(U,$J,"OPT",3829,1,3,0)
  1.  ;;=marked as AUTHORIZED TO WRITE MED ORDERS in the NEW PERSON file are 
  1.  ;;^UTILITY(U,$J,"OPT",3829,1,4,0)
  1.  ;;=selectable through Inpatient Medications version 4.0.
  1.  ;;^UTILITY(U,$J,"OPT",3829,25)
  1.  ;;=ENE^PSJPRE49
  1.  ;;^UTILITY(U,$J,"OPT",3829,"U")
  1.  ;;=EDIT PROVIDER FIELDS IN NEW PE
  1.  ;;^UTILITY(U,$J,"OPT",3830,0)
  1.  ;;=PSJV PROVIDER PRINT^Active Provider Report^^R^^^^^^^^PSJV
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,0)
  1.  ;;=^^11^11^2920319^^
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,1,0)
  1.  ;;=  This lists all active providers in the PROVIDER File (6). The report
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,2,0)
  1.  ;;=includes the following fields:
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,3,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,4,0)
  1.  ;;=     NAME (From the NEW PERSON File)
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,5,0)
  1.  ;;=     INACTIVATION DATE (From the PROVIDER File)
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,6,0)
  1.  ;;=     INACTIVE DATE (For Pharmacy, from the NEW PERSON File)
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,7,0)
  1.  ;;=     AUTHORIZED TO WRITE MED ORDERS (From the NEW PERSON File)
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,8,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,9,0)
  1.  ;;=  Only providers who are marked as AUTHORIZED TO WRITE MED ORDERS in the
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,10,0)
  1.  ;;=NEW PERSON File (200) are selectable through Inpatient Medications
  1.  ;;^UTILITY(U,$J,"OPT",3830,1,11,0)
  1.  ;;=version 4.0
  1.  ;;^UTILITY(U,$J,"OPT",3830,25)
  1.  ;;=ENP^PSJPRE49
  1.  ;;^UTILITY(U,$J,"OPT",3830,"U")
  1.  ;;=ACTIVE PROVIDER REPORT
  1.  ;;^UTILITY(U,$J,"OPT",3831,0)
  1.  ;;=PSJV SYNONYM MOVE^Synonym Move From Drug File To Primary Drug File^^R^^^^^^^^PSJV
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,0)
  1.  ;;=^^5^5^2920323^^
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,1,0)
  1.  ;;=  This allows the user to copy the synonyms in the Drug file to the Primary
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,2,0)
  1.  ;;=Drug file for those items in the Drug file that have a Primary drug.  Only
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,3,0)
  1.  ;;=synonyms that have been marked as TRADE NAMES are copied.  This should not
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,4,0)
  1.  ;;=be run until the Primary Drug Manual Create option has been run to
  1.  ;;^UTILITY(U,$J,"OPT",3831,1,5,0)
  1.  ;;=completion.
  1.  ;;^UTILITY(U,$J,"OPT",3831,25)
  1.  ;;=ENSYN^PSJPRE41
  1.  ;;^UTILITY(U,$J,"OPT",3831,"U")
  1.  ;;=SYNONYM MOVE FROM DRUG FILE TO