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

PSJAI004.m

Go to the documentation of this file. 
  1. PSJAI004 ; ; 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,9,21,2,0)
  1.  ;;=If you do not enter data into this field, the system will use '30' as
  1.  ;;^DD(59.5,9,21,3,0)
  1.  ;;=the default.  If a line of print cannot fit within the width you define 
  1.  ;;^DD(59.5,9,21,4,0)
  1.  ;;=here, it will continue on the next line of the label.
  1.  ;;^DD(59.5,9,"DT")
  1.  ;;=2850827
  1.  ;;^DD(59.5,10,0)
  1.  ;;=STOP TIME FOR ORDER^NJ4,0X^^1;14^K:X>2400!($L(X)<4)!(X<1)!(X?.E1"."1N.N) X I $D(X) S PSIVX=X,PSIVY=$G(Y) S %DT="T",Y=DT_"."_X X ^DD("DD") S X=Y D ^%DT S X=PSIVX K:Y<0 X S Y=PSIVY K PSIVX,PSIVY
  1.  ;;^DD(59.5,10,3)
  1.  ;;=Type a whole number between 0001 and 2400.
  1.  ;;^DD(59.5,10,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,10,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,10,21,0)
  1.  ;;=^^4^4^2910306^^^^
  1.  ;;^DD(59.5,10,21,1,0)
  1.  ;;=  Enter the TIME of the day that orders should end.  For example
  1.  ;;^DD(59.5,10,21,2,0)
  1.  ;;=if IV's are good for 14 days and an order's start date/time is 
  1.  ;;^DD(59.5,10,21,3,0)
  1.  ;;=MAY 01 1985@1200 and 2200 is entered at this prompt,
  1.  ;;^DD(59.5,10,21,4,0)
  1.  ;;=then the default stop date/time will be MAY 14 1985@22:00.
  1.  ;;^DD(59.5,10,"DT")
  1.  ;;=2860128
  1.  ;;^DD(59.5,11,0)
  1.  ;;=*DC ORDERS ON SERVICE TRANSFER^S^0:NO;1:YES;^1;15^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.  ;;=^^4^4^2910306^^^
  1.  ;;^DD(59.5,11,21,1,0)
  1.  ;;=If you want all IV ORDERS to be dc'd automatically when a patient
  1.  ;;^DD(59.5,11,21,2,0)
  1.  ;;=transfers between SERVICE, enter a '1' or 'YES'.  If a '0' or 'NO'
  1.  ;;^DD(59.5,11,21,3,0)
  1.  ;;=is entered in this site parameter, no orders will be automatically
  1.  ;;^DD(59.5,11,21,4,0)
  1.  ;;=dc'd due to service transfer.
  1.  ;;^DD(59.5,11,"DT")
  1.  ;;=2850907
  1.  ;;^DD(59.5,12,0)
  1.  ;;=LINE FEEDS BETWEEN LABELS^NJ1,0^^1;16^K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X
  1.  ;;^DD(59.5,12,3)
  1.  ;;=Type a whole number between 0 and 6.
  1.  ;;^DD(59.5,12,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,12,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,12,21,0)
  1.  ;;=^^4^4^2910306^^^^
  1.  ;;^DD(59.5,12,21,1,0)
  1.  ;;=  Type the number of line feeds between each IV label.  Ex. If
  1.  ;;^DD(59.5,12,21,2,0)
  1.  ;;=you type '1', there will be one line feed between each IV label.
  1.  ;;^DD(59.5,12,21,3,0)
  1.  ;;=This parameter makes it possible to have a top and bottom margin
  1.  ;;^DD(59.5,12,21,4,0)
  1.  ;;=on your IV LABELS.
  1.  ;;^DD(59.5,12,"DT")
  1.  ;;=2851218
  1.  ;;^DD(59.5,13,0)
  1.  ;;=LABEL DEVICE^FX^^0;2^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
  1.  ;;^DD(59.5,13,3)
  1.  ;;=Enter a device on which labels may be printed.
  1.  ;;^DD(59.5,13,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,13,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,13,21,0)
  1.  ;;=^^4^4^2910313^^^^
  1.  ;;^DD(59.5,13,21,1,0)
  1.  ;;=  Enter the device number or name that will be used most frequently
  1.  ;;^DD(59.5,13,21,2,0)
  1.  ;;=as the LABEL device for this IV ROOM.  This field will be shown as
  1.  ;;^DD(59.5,13,21,3,0)
  1.  ;;=the default for the 'Printer label device: ' prompt when signing
  1.  ;;^DD(59.5,13,21,4,0)
  1.  ;;=into the IV PACKAGE.
  1.  ;;^DD(59.5,13,"DT")
  1.  ;;=2910313
  1.  ;;^DD(59.5,14,0)
  1.  ;;=REPORT DEVICE^FX^^0;3^K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET K:X="" X
  1.  ;;^DD(59.5,14,3)
  1.  ;;=Enter a device on which reports may be printed.
  1.  ;;^DD(59.5,14,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,14,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,14,21,0)
  1.  ;;=^^4^4^2940714^^^^
  1.  ;;^DD(59.5,14,21,1,0)
  1.  ;;= Enter the PROFILE device number or name that will be used most frequently
  1.  ;;^DD(59.5,14,21,2,0)
  1.  ;;=by this IV ROOM.  This field will be shown as the default for the 'Printer
  1.  ;;^DD(59.5,14,21,3,0)
  1.  ;;=profile device: ' prompt when signing into the IV PACKAGE.
  1.  ;;^DD(59.5,14,21,4,0)
  1.  ;;= 
  1.  ;;^DD(59.5,14,"DT")
  1.  ;;=2910313
  1.  ;;^DD(59.5,15,0)
  1.  ;;=END OF LABEL TEXT^F^^4;E1,245^K:$L(X)>245!($L(X)<1) X
  1.  ;;^DD(59.5,15,3)
  1.  ;;=Answer must be 1-245 characters in length.
  1.  ;;^DD(59.5,15,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,15,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,15,21,0)
  1.  ;;=^^7^7^2910306^^^^
  1.  ;;^DD(59.5,15,21,1,0)
  1.  ;;=  Enter any END OF LABEL TEXT, separated by '^', that you wish to print
  1.  ;;^DD(59.5,15,21,2,0)
  1.  ;;=at the bottom of every IV LABEL.  For example:
  1.  ;;^DD(59.5,15,21,3,0)
  1.  ;;=  To have 'RETURN TO IV ROOM IN 24-HOURS'
  1.  ;;^DD(59.5,15,21,4,0)
  1.  ;;=          'FILLED BY: ____  CHECKED BY: ____'
  1.  ;;^DD(59.5,15,21,5,0)
  1.  ;;=printed at the bottom of your IV LABELS, enter:
  1.  ;;^DD(59.5,15,21,6,0)
  1.  ;;=  'RETURN TO IV ROOM IN 24-HOURS^FILLED BY: ____  CHECKED BY: ____' in
  1.  ;;^DD(59.5,15,21,7,0)
  1.  ;;=this field.
  1.  ;;^DD(59.5,15,"DT")
  1.  ;;=2860519
  1.  ;;^DD(59.5,17,0)
  1.  ;;=SYRN'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;1^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
  1.  ;;^DD(59.5,17,3)
  1.  ;;=Type a Number between 1 and 31, 2 Decimal Digits
  1.  ;;^DD(59.5,17,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,17,20,1,0)
  1.  ;;=PSJI