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

PSJAI003.m

Go to the documentation of this file. 
  1. PSJAI003 ; ; 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,.111,3)
  1.  ;;=Type a Number between 1 and 31, 2 Decimal Digits
  1.  ;;^DD(59.5,.111,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.111,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.111,21,0)
  1.  ;;=^^4^4^2910312^^^
  1.  ;;^DD(59.5,.111,21,1,0)
  1.  ;;=This number is used when the stop date of a new order is 
  1.  ;;^DD(59.5,.111,21,2,0)
  1.  ;;=computed. In other words, if a hyperal order is good for
  1.  ;;^DD(59.5,.111,21,3,0)
  1.  ;;=14 days and a new order is entered today, the default stop
  1.  ;;^DD(59.5,.111,21,4,0)
  1.  ;;=date will be 14 days from today.
  1.  ;;^DD(59.5,.111,"DT")
  1.  ;;=2910312
  1.  ;;^DD(59.5,.112,0)
  1.  ;;=PB'S GOOD FOR HOW MANY DAYS^NJ5,2^^1;18^K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X
  1.  ;;^DD(59.5,.112,3)
  1.  ;;=Type a Number between 1 and 31, 2 Decimal Digits
  1.  ;;^DD(59.5,.112,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,.112,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,.112,21,0)
  1.  ;;=^^3^3^2910312^^^^
  1.  ;;^DD(59.5,.112,21,1,0)
  1.  ;;=This number is used when the stop date of a new order is computed.
  1.  ;;^DD(59.5,.112,21,2,0)
  1.  ;;=In other words, if a piggyback order is good for 14 days and a new order
  1.  ;;^DD(59.5,.112,21,3,0)
  1.  ;;=is entered today, the default stop date will be 14 days from now.
  1.  ;;^DD(59.5,.112,"DT")
  1.  ;;=2910312
  1.  ;;^DD(59.5,2,0)
  1.  ;;=START OF COVERAGE^59.51I^^2;0
  1.  ;;^DD(59.5,2,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,2,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,2,21,0)
  1.  ;;=^^5^5^2940714^^^^
  1.  ;;^DD(59.5,2,21,1,0)
  1.  ;;=An 'IV ROOM' may have one or more 'MANUFACTURING QUEUES'.  A queue
  1.  ;;^DD(59.5,2,21,2,0)
  1.  ;;=will contain all IV orders of a SPECIFIED TYPE, that require
  1.  ;;^DD(59.5,2,21,3,0)
  1.  ;;=distribution to the wards during a SPECIFIED TIME INTERVAL.
  1.  ;;^DD(59.5,2,21,4,0)
  1.  ;;=EACH 'MANUFACTURING QUEUE' IS DEFINED FOR ONE TYPE AND ONE TYPE ONLY!
  1.  ;;^DD(59.5,2,21,5,0)
  1.  ;;=Enter midnight as 2400.
  1.  ;;^DD(59.5,3,0)
  1.  ;;=DELIVERY TIME^59.52^^3;0
  1.  ;;^DD(59.5,3,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,3,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,3,21,0)
  1.  ;;=^^2^2^2940714^^^^
  1.  ;;^DD(59.5,3,21,1,0)
  1.  ;;=These are the times which IV orders are to be prepared for delivery
  1.  ;;^DD(59.5,3,21,2,0)
  1.  ;;=to the wards.
  1.  ;;^DD(59.5,4,0)
  1.  ;;=PIGGYBACK WARD LIST RUN FLAG^F^^P;E1,250^K:$L(X)>250!($L(X)<10) X
  1.  ;;^DD(59.5,4,3)
  1.  ;;=Answer must be 10-250 characters in length.
  1.  ;;^DD(59.5,4,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,4,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,4,21,0)
  1.  ;;=^^1^1^2880708^^
  1.  ;;^DD(59.5,4,21,1,0)
  1.  ;;=This flag gets set when the ward list has been run.
  1.  ;;^DD(59.5,4,21,2,0)
  1.  ;;= 
  1.  ;;^DD(59.5,4,21,3,0)
  1.  ;;=THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED.
  1.  ;;^DD(59.5,4,"DT")
  1.  ;;=2850326
  1.  ;;^DD(59.5,5,0)
  1.  ;;=ADMIXTURES WARD LIST RUN FLAG^F^^A;E1,250^K:$L(X)>250!($L(X)<10) X
  1.  ;;^DD(59.5,5,3)
  1.  ;;=Answer must be 10-250 characters in length.
  1.  ;;^DD(59.5,5,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,5,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,5,21,0)
  1.  ;;=^^1^1^2880708^^
  1.  ;;^DD(59.5,5,21,1,0)
  1.  ;;=This flag gets set when the ward list has been run.
  1.  ;;^DD(59.5,5,21,2,0)
  1.  ;;= 
  1.  ;;^DD(59.5,5,21,3,0)
  1.  ;;=THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED.
  1.  ;;^DD(59.5,5,"DT")
  1.  ;;=2850326
  1.  ;;^DD(59.5,6,0)
  1.  ;;=HYPERAL WARD LIST RUN FLAG^F^^H;E1,250^K:$L(X)>250!($L(X)<10) X
  1.  ;;^DD(59.5,6,3)
  1.  ;;=Answer must be 10-250 characters in length.
  1.  ;;^DD(59.5,6,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,6,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,6,21,0)
  1.  ;;=^^1^1^2880708^^
  1.  ;;^DD(59.5,6,21,1,0)
  1.  ;;=This flag gets set when the ward list is run.
  1.  ;;^DD(59.5,6,21,2,0)
  1.  ;;= 
  1.  ;;^DD(59.5,6,21,3,0)
  1.  ;;=THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED.
  1.  ;;^DD(59.5,6,"DT")
  1.  ;;=2850326
  1.  ;;^DD(59.5,7,0)
  1.  ;;=*FILLED/CHECKED BY LABEL LINE^S^0:NO;1:YES;^1;11^Q
  1.  ;;^DD(59.5,7,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,7,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,7,21,0)
  1.  ;;=^^2^2^2880708^^
  1.  ;;^DD(59.5,7,21,1,0)
  1.  ;;=To have the 'Filled by: ____ Checked by: ____" line printed on every
  1.  ;;^DD(59.5,7,21,2,0)
  1.  ;;=label, answer 'YES' to this field.
  1.  ;;^DD(59.5,7,"DT")
  1.  ;;=2860519
  1.  ;;^DD(59.5,8,0)
  1.  ;;=TOTAL VOL. ON HYPERAL LABELS^S^0:NO;1:YES;^1;12^Q
  1.  ;;^DD(59.5,8,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,8,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,8,21,0)
  1.  ;;=^^2^2^2940708^^^^
  1.  ;;^DD(59.5,8,21,1,0)
  1.  ;;=To have the total volume of solutions and additives printed
  1.  ;;^DD(59.5,8,21,2,0)
  1.  ;;=on all hyperal labels, answer 'YES' to this site parameter.
  1.  ;;^DD(59.5,8,"DT")
  1.  ;;=2850621
  1.  ;;^DD(59.5,9,0)
  1.  ;;=WIDTH OF LABEL^RNJ3,0^^1;13^K:+X'=X!(X>100)!(X<10)!(X?.E1"."1N.N) X
  1.  ;;^DD(59.5,9,3)
  1.  ;;=Enter a number between 10 and 100 of maximum characters that may print on a single line of your labels.
  1.  ;;^DD(59.5,9,20,0)
  1.  ;;=^.3LA^1^1
  1.  ;;^DD(59.5,9,20,1,0)
  1.  ;;=PSJI
  1.  ;;^DD(59.5,9,21,0)
  1.  ;;=^^4^4^2940802^^^^
  1.  ;;^DD(59.5,9,21,1,0)
  1.  ;;=  Enter the maximum allowable width of your label in number of characters.