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

PSJDDUT2.m

Go to the documentation of this file.
  1. PSJDDUT2 ;BIR/LDT-INPATIENT MEDICATIONS DD UTILITY ; 7/28/09 6:48am
  1. ;;5.0;INPATIENT MEDICATIONS ;**184,248**;16 DEC 97;Build 6
  1. ;
  1. ENDLP ;Called from Inpatient User Parameters file (53.45), Label Printer
  1. ;field .07 (Replaces ENDLP^PSGSET)
  1. ;BHW - HD168525 - Don't default when user exits (POP) if LABEL DEVICE or REPORT DEVICE already defined.
  1. ;PSJ*5*248 - Fix label and report devices
  1. I POP,(DIFLD=13)&($L($P($G(^PS(59.5,DA,0)),U,2))) S X=$P($G(^PS(59.5,DA,0)),U,2) Q ;HD168525 - Check LABEL DEVICE
  1. I POP,(DIFLD=14)&($L($P($G(^PS(59.5,DA,0)),U,3))) S X=$P($G(^PS(59.5,DA,0)),U,3) Q ;HD168525 - Check REPORT DEVICE
  1. S PSGION=$S($D(ION):ION,1:"HOME") K %ZIS S %ZIS="QN",IOP=X D ^%ZIS I POP S IOP=PSGION D ^%ZIS K %ZIS,IOP,PSGION S X="" Q
  1. D EN^DDIOL($S(X=$E(ION,1,$L(X)):$E(ION,$L(X)+1,$L(ION)),1:" "_ION),"","?0") S X=ION D ^%ZISC K %ZIS,PSGION,IOP Q
  1. ;
  1. ADTM ;Called from Unit Dose Multiple of the Pharmacy Patient file (55.06),
  1. ;Admin Times field 41
  1. S PSJHLP(1)="THE TIMES MUST BE TWO (2) OR FOUR (4) DIGITS, SEPARATED WITH DASHES"
  1. S PSJHLP(2)="(-), AND BE IN ASCENDING ORDER. (IE. 01-05-13)"
  1. D WRITE
  1. Q
  1. ;
  1. ;
  1. SITE ;Called from Inpatient Site file (59.4), field .01 (Replaces ^PSGRPNT)
  1. S Q=0 F QQ=-1:1 S Q=$O(^PS(59.4,Q)) Q:'Q
  1. I 'QQ S PSJHLP(1)="THIS IS YOUR ONLY SITE!",PSJHLP(1,"F")="$C(7),!!",PSJHLP(2)="(You must create another site before you can delete this one.)",PSJHLP(2,"F")="!" D WRITE Q
  1. ;
  1. ENMARD() ; validate MAR SELECTION DEFAULT string in WARD PARMS file (59.6).
  1. ;(Replaces ENMARD^PSJUTL())
  1. N PSJANS,PSJX1,PSJX2,RANGE,Q
  1. S RANGE="1:6" F PSJX1=1:1:6 S RANGE(PSJX1)=""
  1. S:$E(X)="-" X=+RANGE_X S:$E($L(X))="-" X=X_$P(RANGE,":",2)
  1. S PSJANS="" F Q=1:1:$L(X,",") S PSJX1=$P(X,",",Q) D FS Q:'$D(PSJANS)
  1. Q:'$G(PSJANS) 0
  1. S PSJANS=$E(PSJANS,1,$L(PSJANS)-1) F Q=1:1:$L(PSJANS,",") D Q:'$D(PSJANS)
  1. .I $P(PSJANS,",",Q)=1,$L(PSJANS,",")>1 D EN^DDIOL("All Medications (1) may not be selected in combination with other types.","","!!") K PSJANS Q
  1. .D EN^DDIOL($P(PSJANS,",",Q)_" - "_$P($T(@$P(PSJANS,",",Q)),";;",2),"","!?47")
  1. S:$G(PSJANS) X=PSJANS Q $G(PSJANS)
  1. ;
  1. FS ;
  1. I $S(PSJX1?1.N1"-"1.N:0,PSJX1'?1.N:1,'$D(RANGE(PSJX1)):1,1:","_PSJANS[PSJX1) K PSJANS Q
  1. I PSJX1'["-" S PSJANS=PSJANS_PSJX1_"," Q
  1. S PSJX2=+PSJX1,PSJANS=PSJANS_PSJX2_","
  1. F S PSJX2=$O(RANGE(PSJX2)) K:$S(X="":1,","_PSJANS[PSJX2:1,1:PSJX2>$P(PSJX1,"-",2)) PSJANS Q:'$D(PSJANS) S PSJANS=PSJANS_PSJX2_"," Q:PSJX2=$P(PSJX1,"-",2)
  1. Q
  1. ;
  1. ENMARDH ;Help text for MAR default answer. (Replaces ENMARDH^PSJUTL)
  1. S PSJHLP(1)="Enter the number corresponding to the type of orders to be included on"
  1. S PSJHLP(1,"F")="!!?2"
  1. S PSJHLP(2)="MARs printed for this ward. Multiple types (except 1) may be selected"
  1. S PSJHLP(3)="using ""-"" or "","" as delimiters."
  1. S PSJHLP(4)="Choose from: "
  1. S PSJHLP(4,"F")="!!"
  1. S PSJHLP(5)="1 - All Medications"
  1. S PSJHLP(5,"F")="!?13"
  1. S PSJHLP(6)="2 - Non-IV Medications only"
  1. S PSJHLP(6,"F")="!?13"
  1. S PSJHLP(7)="3 - IV Piggybacks"
  1. S PSJHLP(7,"F")="!?13"
  1. S PSJHLP(8)="4 - LVPs"
  1. S PSJHLP(8,"F")="!?13"
  1. S PSJHLP(9)="5 - TPNs"
  1. S PSJHLP(9,"F")="!?13"
  1. S PSJHLP(10)="6 - Chemotherapy Medications (IV)"
  1. S PSJHLP(10,"F")="!?13"
  1. D WRITE
  1. Q
  1. ;
  1. ENSTH ;Executable help for type of schedule. (Replaces ENSTH^PSJSV0)
  1. N PSJX S PSJX=1
  1. S PSJHLP(PSJX)="The TYPE OF SCHEDULE determines how the schedule will be processed."
  1. S PSJHLP(PSJX,"F")="!!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="A CONTINUOUS schedule is one in which an action is to take place on a"
  1. S PSJHLP(PSJX,"F")="!!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="regular basis, such as 'three times a day' or 'once every two days'."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="A DAY OF THE WEEK schedule is one in which the action is to take"
  1. S PSJHLP(PSJX,"F")="!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="place only on specific days of the week. This type of schedule"
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="should have admin times entered with it. If not, the start time of"
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="the order is used as the admin time. Whenever this type is chosen,"
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="the name of the schedule must be in the form of 'MO-WE-FR'."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. G:$S('$D(PSJPP):1,PSJPP="":1,1:PSJPP="PSJ") HOT
  1. S PSJHLP(PSJX)="A DAY OF THE WEEK-RANGE schedule is one in which the action to take"
  1. S PSJHLP(PSJX,"F")="!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="place only on specific days of the week, but at no specific time of"
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="day (no admin times). Whenever this type is chosen, the name of the"
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="schedule must be in the form of 'MO-WE-FR'."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. HOT S PSJHLP(PSJX)="A ONE-TIME schedule is one in which the action is to take place once"
  1. S PSJHLP(PSJX,"F")="!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="only at a specific date and time."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. I $S('$D(PSJPP):1,PSJPP="":1,1:PSJPP="PSJ") D WRITE Q
  1. S PSJHLP(PSJX)="A RANGE schedule is one in which the action will take place within a"
  1. S PSJHLP(PSJX,"F")="!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="given date range."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="A SHIFT schedule is one in which the action will take place within a"
  1. S PSJHLP(PSJX,"F")="!?2",PSJX=PSJX+1
  1. S PSJHLP(PSJX)="given range of times of day."
  1. S PSJHLP(PSJX,"F")="!",PSJX=PSJX+1
  1. D WRITE
  1. Q
  1. WRITE ;Calls EN^DDIOL to write text
  1. D EN^DDIOL(.PSJHLP) K PSJHLP
  1. Q
  1. 1 ;;All Medications
  1. 2 ;;Non-IV Medications only
  1. 3 ;;IV Piggybacks
  1. 4 ;;LVPs
  1. 5 ;;TPNs
  1. 6 ;;Chemotherapy Medications (IV)