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

PSJAI005.m

Go to the documentation of this file. 
  1. PSJAI005 ; ; 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,17,21,0)
  1.  ;;=^^2^2^2940714^^^^
  1.  ;;^DD(59.5,17,21,1,0)
  1.  ;;=This field is used to determine the stop date for the Syringes order.
  1.  ;;^DD(59.5,17,21,2,0)
  1.  ;;= 
  1.  ;;^DD(59.5,17,"DT")
  1.  ;;=2910312
  1.  ;;^DD(59.5,18,0)
  1.  ;;=CHEMO'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;2^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
  1.  ;;^DD(59.5,18,3)
  1.  ;;=Type a Number between 1 and 31, 2 Decimal Digits
  1.  ;;^DD(59.5,18,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,18,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,18,21,0)
  1.  ;;=^^2^2^2940714^^^^
  1.  ;;^DD(59.5,18,21,1,0)
  1.  ;;=This field is used to determined the stop date for the Chemo order.
  1.  ;;^DD(59.5,18,21,2,0)
  1.  ;;= 
  1.  ;;^DD(59.5,18,"DT")
  1.  ;;=2910312
  1.  ;;^DD(59.5,19,0)
  1.  ;;=INACTIVATION DATE^D^^I;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(59.5,19,3)
  1.  ;;=Enter the date this IV Room will no longer be used.
  1.  ;;^DD(59.5,19,21,0)
  1.  ;;=^^4^4^2920220^^^
  1.  ;;^DD(59.5,19,21,1,0)
  1.  ;;=  This is used to place an IV Room out of service. An IV Room should 
  1.  ;;^DD(59.5,19,21,2,0)
  1.  ;;=NEVER be deleted as some IV orders may still be using it. Once the
  1.  ;;^DD(59.5,19,21,3,0)
  1.  ;;=inactivation date entered is reached, the IV Room will no longer be
  1.  ;;^DD(59.5,19,21,4,0)
  1.  ;;=selectable in IV order entry options.
  1.  ;;^DD(59.5,19,23,0)
  1.  ;;=^^3^3^2920220^^
  1.  ;;^DD(59.5,19,23,1,0)
  1.  ;;= Used to place an IV Room out of service. Once the IV Room's inactivation
  1.  ;;^DD(59.5,19,23,2,0)
  1.  ;;=date has been reached, it will no longer be selectable in the Inpatient
  1.  ;;^DD(59.5,19,23,3,0)
  1.  ;;=Medications package.
  1.  ;;^DD(59.5,19,"DT")
  1.  ;;=2910923
  1.  ;;^DD(59.5,20,0)
  1.  ;;=DAYS TO RETAIN IV STATS^NJ4,0^^1;19^K:+X'=X!(X>2000)!(X<100)!(X?.E1"."1N.N) X
  1.  ;;^DD(59.5,20,3)
  1.  ;;=Type a Number between 100 and 2000, 0 Decimal Digits
  1.  ;;^DD(59.5,20,21,0)
  1.  ;;=^^3^3^2920528^^
  1.  ;;^DD(59.5,20,21,1,0)
  1.  ;;=  This is used to allow the site to specify the number of days to keep
  1.  ;;^DD(59.5,20,21,2,0)
  1.  ;;=data in the IV STATS file (50.8). Information may be retained in the
  1.  ;;^DD(59.5,20,21,3,0)
  1.  ;;=IV STATS file for 100 to 2000 days.
  1.  ;;^DD(59.5,20,23,0)
  1.  ;;=^^3^3^2920528^
  1.  ;;^DD(59.5,20,23,1,0)
  1.  ;;=  This is used to allow the site to specify the number of days to keep
  1.  ;;^DD(59.5,20,23,2,0)
  1.  ;;=data in the IV STATS file (50.8). If no value is found for this field,
  1.  ;;^DD(59.5,20,23,3,0)
  1.  ;;=the IV STATS data will be retained for 100 days.
  1.  ;;^DD(59.5,20,"DT")
  1.  ;;=2920528
  1.  ;;^DD(59.51,0)
  1.  ;;=START OF COVERAGE SUB-FIELD^NL^.06^6
  1.  ;;^DD(59.51,0,"DT")
  1.  ;;=2940708
  1.  ;;^DD(59.51,0,"ID","WRITE")
  1.  ;;=W "   ",$P(^(0),"^",2)_" covering from "_$P(^(0),"^",3)
  1.  ;;^DD(59.51,0,"IX","AC",59.51,.02)
  1.  ;;=
  1.  ;;^DD(59.51,0,"NM","START OF COVERAGE")
  1.  ;;=
  1.  ;;^DD(59.51,0,"UP")
  1.  ;;=59.5
  1.  ;;^DD(59.51,.01,0)
  1.  ;;=START OF COVERAGE^MRFX^^0;1^K:$L(X)>4!($L(X)<4)!'(X?1N.N)!(+X>2400)!(X#100>59) X
  1.  ;;^DD(59.51,.01,3)
  1.  ;;=Answer must be in military time (i.e., 4 NUMBERS)!
  1.  ;;^DD(59.51,.01,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.51,.01,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.51,.01,21,0)
  1.  ;;=^^4^4^2940708^^^^
  1.  ;;^DD(59.51,.01,21,1,0)
  1.  ;;=Enter the military time that designates the first administration time
  1.  ;;^DD(59.51,.01,21,2,0)
  1.  ;;=covered by this manufacturing run.  In other words, if the previous
  1.  ;;^DD(59.51,.01,21,3,0)
  1.  ;;=manufacturing period covered up to and including the 0900 dose,
  1.  ;;^DD(59.51,.01,21,4,0)
  1.  ;;=the start of coverage would begin at 0901.
  1.  ;;^DD(59.51,.01,"DT")
  1.  ;;=2940708
  1.  ;;^DD(59.51,.02,0)
  1.  ;;=TYPE^RS^A:ADMIXTURES AND PRIMARIES;P:PIGGYBACKS;H:HYPERALS;S:SYRINGE;C:CHEMOTHERAPY;^0;2^Q
  1.  ;;^DD(59.51,.02,1,0)
  1.  ;;=^.1
  1.  ;;^DD(59.51,.02,1,1,0)
  1.  ;;=59.51^AC
  1.  ;;^DD(59.51,.02,1,1,1)
  1.  ;;=S ^PS(59.5,DA(1),2,"AC",$E(X,1,30),DA)=""
  1.  ;;^DD(59.51,.02,1,1,2)
  1.  ;;=K ^PS(59.5,DA(1),2,"AC",$E(X,1,30),DA)
  1.  ;;^DD(59.51,.02,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.51,.02,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.51,.02,21,0)
  1.  ;;=^^2^2^2920519^^^^
  1.  ;;^DD(59.51,.02,21,1,0)
  1.  ;;=Enter the IV type for this queue.  You may enter ONLY ONE type
  1.  ;;^DD(59.51,.02,21,2,0)
  1.  ;;=for each queue that you define.
  1.  ;;^DD(59.51,.02,"DT")
  1.  ;;=2920519
  1.  ;;^DD(59.51,.03,0)
  1.  ;;=DESCRIPTION^F^^0;3^K:$L(X)>30!($L(X)<3) X
  1.  ;;^DD(59.51,.03,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(59.51,.03,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.51,.03,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.51,.03,21,0)
  1.  ;;=^^5^5^2940714^^^^
  1.  ;;^DD(59.51,.03,21,1,0)
  1.  ;;=You may enter a description for each delivery time (3 to 30 characters).
  1.  ;;^DD(59.51,.03,21,2,0)
  1.  ;;=You will be prompted with a default description and you are
  1.  ;;^DD(59.51,.03,21,3,0)
  1.  ;;=encouraged to USE IT!  This description will appear when you
  1.  ;;^DD(59.51,.03,21,4,0)
  1.  ;;=request manufacturing records and ward lists.  Using the default
  1.  ;;^DD(59.51,.03,21,5,0)
  1.  ;;=prompt will probably lead to less confusion for your users.