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

PSJAI002.m

Go to the documentation of this file. 
  1. PSJAI002 ; ; 20-MAR-1996
  1.  ;;4.5;Inpatient Medications;**27**;OCT 07, 1994
  1.  Q:'DIFQ(59.5)  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.  ;;^DD(59.5,.104,21,0)
  1.  ;;=^^4^4^2920612^^^^
  1.  ;;^DD(59.5,.104,21,1,0)
  1.  ;;=This number is used when the stop date of a new order is computed.
  1.  ;;^DD(59.5,.104,21,2,0)
  1.  ;;=In other words, if Large Volume IV's are good for 14 days and a new 
  1.  ;;^DD(59.5,.104,21,3,0)
  1.  ;;=order is input with a start date of today, the stop date will be 'T+14'.
  1.  ;;^DD(59.5,.104,21,4,0)
  1.  ;;= 
  1.  ;;^DD(59.5,.104,"DT")
  1.  ;;=2910312
  1.  ;;^DD(59.5,.105,0)
  1.  ;;=EXPIRE ALL ORDERS ON SAME DAY^S^0:NO;1:YES;^1;5^Q
  1.  ;;^DD(59.5,.105,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.105,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.105,21,0)
  1.  ;;=^^6^6^2860221^^^^
  1.  ;;^DD(59.5,.105,21,1,0)
  1.  ;;=Enter a '1' to stop all IV orders automatically on the same day.
  1.  ;;^DD(59.5,.105,21,2,0)
  1.  ;;=The day the orders are stopped will be the 'STOP DATE' of the
  1.  ;;^DD(59.5,.105,21,3,0)
  1.  ;;=FIRST ACTIVE IV order found in the file.  The stop/date that is
  1.  ;;^DD(59.5,.105,21,4,0)
  1.  ;;=found will be shown as a default for the stop/date of the IV ORDER.
  1.  ;;^DD(59.5,.105,21,5,0)
  1.  ;;= 
  1.  ;;^DD(59.5,.105,21,6,0)
  1.  ;;= 
  1.  ;;^DD(59.5,.105,"DT")
  1.  ;;=2840613
  1.  ;;^DD(59.5,.106,0)
  1.  ;;=*DC ORDERS ON WARD TRANSFER^S^0:NO;1:YES;^1;6^Q
  1.  ;;^DD(59.5,.106,3)
  1.  ;;=
  1.  ;;^DD(59.5,.106,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.106,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.106,21,0)
  1.  ;;=^^3^3^2890831^^^
  1.  ;;^DD(59.5,.106,21,1,0)
  1.  ;;=This only affects orders of patients transferring BETWEEN WARDS,
  1.  ;;^DD(59.5,.106,21,2,0)
  1.  ;;=and NOT transferring BETWEEN SERVICES.  Enter a '1' if you want
  1.  ;;^DD(59.5,.106,21,3,0)
  1.  ;;=this feature.
  1.  ;;^DD(59.5,.106,21,4,0)
  1.  ;;=** This is effective only for ward transfers not for transfers across
  1.  ;;^DD(59.5,.106,21,5,0)
  1.  ;;=   services !
  1.  ;;^DD(59.5,.106,"DT")
  1.  ;;=2840928
  1.  ;;^DD(59.5,.107,0)
  1.  ;;=HEADER LABEL^S^0:NO;1:YES;^1;7^Q
  1.  ;;^DD(59.5,.107,3)
  1.  ;;=
  1.  ;;^DD(59.5,.107,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.107,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.107,21,0)
  1.  ;;=5^^5^5^2940720^^
  1.  ;;^DD(59.5,.107,21,1,0)
  1.  ;;=When set to "YES", an extra label is generated to record lot #'s and 
  1.  ;;^DD(59.5,.107,21,2,0)
  1.  ;;=provide a record for new orders entered since the last printing of the 
  1.  ;;^DD(59.5,.107,21,3,0)
  1.  ;;=active order list. This extra label, together with the active order list 
  1.  ;;^DD(59.5,.107,21,4,0)
  1.  ;;=provides a paper backup system in the event that the computer system 
  1.  ;;^DD(59.5,.107,21,5,0)
  1.  ;;=becomes "unavailable" to the user.
  1.  ;;^DD(59.5,.107,22)
  1.  ;;=
  1.  ;;^DD(59.5,.107,"DT")
  1.  ;;=2850319
  1.  ;;^DD(59.5,.108,0)
  1.  ;;=ACTIVITY RULER^S^0:NO;1:YES;^1;8^Q
  1.  ;;^DD(59.5,.108,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.108,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.108,21,0)
  1.  ;;=^^5^5^2880708^^^^
  1.  ;;^DD(59.5,.108,21,1,0)
  1.  ;;=The 'ACTIVITY RULER' provides a visual representation of the relationship
  1.  ;;^DD(59.5,.108,21,2,0)
  1.  ;;=between coverage times, doses due and order start times.  The intent
  1.  ;;^DD(59.5,.108,21,3,0)
  1.  ;;=is to provide the 'on-the-floor' user with a means of 'tracking' activity
  1.  ;;^DD(59.5,.108,21,4,0)
  1.  ;;=in the IV room and determining when to call for doses before the normal
  1.  ;;^DD(59.5,.108,21,5,0)
  1.  ;;=delivery.
  1.  ;;^DD(59.5,.108,"DT")
  1.  ;;=2850321
  1.  ;;^DD(59.5,.109,0)
  1.  ;;=SHOW BED LOCATION ON LABEL^S^0:NO;1:YES;^1;9^Q
  1.  ;;^DD(59.5,.109,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.109,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.109,21,0)
  1.  ;;=^^4^4^2860128^^
  1.  ;;^DD(59.5,.109,21,1,0)
  1.  ;;=The patient's 'WARD LOCATION' is ALWAYS printed on the IV label.
  1.  ;;^DD(59.5,.109,21,2,0)
  1.  ;;=If the 'BED LOCATION' is available, and if it is desired to have
  1.  ;;^DD(59.5,.109,21,3,0)
  1.  ;;=this ADDITIONAL information on the IV label, respond with a 'Y' or
  1.  ;;^DD(59.5,.109,21,4,0)
  1.  ;;=a '1' at this 'IV ROOM' parameter prompt.
  1.  ;;^DD(59.5,.109,"DT")
  1.  ;;=2850327
  1.  ;;^DD(59.5,.11,0)
  1.  ;;=*SHOW UNIT NEEDS^S^0:NO;1:YES;^1;10^Q
  1.  ;;^DD(59.5,.11,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.11,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.11,21,0)
  1.  ;;=^^8^8^2860128^^^^
  1.  ;;^DD(59.5,.11,21,1,0)
  1.  ;;=If this parameter is turned on, a visual 'time scale' will be shown.
  1.  ;;^DD(59.5,.11,21,2,0)
  1.  ;;=This time scale will show what the orders' unit needs will be for 14
  1.  ;;^DD(59.5,.11,21,3,0)
  1.  ;;=24-hour periods.
  1.  ;;^DD(59.5,.11,21,4,0)
  1.  ;;=EXAMPLE:
  1.  ;;^DD(59.5,.11,21,5,0)
  1.  ;;=   If an order was given with an infusion rate of 220 ml/hr and a total
  1.  ;;^DD(59.5,.11,21,6,0)
  1.  ;;=   volume of 1000 ML, the unit needs would be:
  1.  ;;^DD(59.5,.11,21,7,0)
  1.  ;;=DAY  :  1   2   3   4   5   6   7   8   9  10  11  12  13  14
  1.  ;;^DD(59.5,.11,21,8,0)
  1.  ;;=UNIT :  5   5   5   6   5   5   6   5   5   5   6   5   5   6
  1.  ;;^DD(59.5,.11,"DT")
  1.  ;;=2850420
  1.  ;;^DD(59.5,.111,0)
  1.  ;;=HYPERAL GOOD FOR HOW MANY DAYS^NJ5,2^^1;17^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X