Routine: GMTSPSI

GMTSPSI ; SLC/JER,KER - IV Rx Summary Component (V4.5) ; 08/27/2002

 ;;2.7;Health Summary;**15,28,56**;Oct 20, 1995

 ; External References

 ;   DBIA 10141  $$VERSION^XPDUTL

 ;   DBIA    68  ENHS^PSJEEU0

MAIN ; Controls Branching

 I $$VERSION^XPDUTL("PSJ")'<5 G MAIN^GMTSPSI5

 N GMI,GMTSIDT,MAX,ON,PS,PSIVREA,PSJEDT,PSJNKF,PSJPFWD,TN

 S PSJEDT=$S(GMTS2'=9999999:(9999999-GMTS2),1:""),PSJNKF=1

 K ^UTILITY("PSIV",$J) I '$L($T(ENHS^PSJEEU0)) D NOPSJ Q

 D ENHS^PSJEEU0

 I '$D(^UTILITY("PSIV",$J)) Q

 S GMI=0

 S GMTSIDT=-9999999 F  S GMTSIDT=$O(^UTILITY("PSIV",$J,GMTSIDT)) Q:'GMTSIDT  D WRT  Q:$D(GMTSQIT)

 K ^UTILITY("PSIV",$J),^UTILITY("PSG",$J)

NOPSJ ; Handles case where ^PSJEEU0 not present

 D CKP^GMTSUP Q:$D(GMTSQIT)  W "Inpatient Pharmacy version 3.2 or greater is required.",!

WRT ; Prints IV Pharmacy order

 N GMV,GMW,GMTSAD,GMTSDRUG,SOL,SD,SLN,FD,STAT,IR,SCH

 S SD=$P(^UTILITY("PSIV",$J,GMTSIDT,0),U),FD=$P(^(0),U,2),STAT=$P($P(^(0),U,4),";"),IR=$P(^(0),U,5),SCH=$P(^(0),U,6)

 ;   Don't display data when start date is after To Date

 Q:+$G(GMRANGE)&(SD>(9999999-GMTS1))

 F GMV="SD","FD" S X=@GMV D REGDT4^GMTSU S @GMV=X K X

 I GMI'>0 D HEAD

 D CKP^GMTSUP Q:$D(GMTSQIT)  W:GMI>0&('GMTSNPG) !

 S GMI=1

 I $D(^UTILITY("PSIV",$J,GMTSIDT,"A",1)) D CKP^GMTSUP Q:$D(GMTSQIT)  D:GMTSNPG HEAD W $E($P($P(^UTILITY("PSIV",$J,GMTSIDT,"A",1),";",2),U),1,36),?38,$P(^(1),U,2),?50,STAT,?57,SD,?69,FD,!

 S GMTSAD=1

 F  S GMTSAD=$O(^UTILITY("PSIV",$J,GMTSIDT,"A",GMTSAD)) Q:GMTSAD'>0  S GMTSDRUG=^(GMTSAD) D CKP^GMTSUP Q:$D(GMTSQIT)  D:GMTSNPG HEAD W $E($P($P(GMTSDRUG,";",2),U),1,36),?38,$P(GMTSDRUG,U,2),!

LSTSOL ; Write Solutions

 S SOL=0

 F  S SOL=$O(^UTILITY("PSIV",$J,GMTSIDT,"S",SOL)) Q:SOL'>0  S SLN=^(SOL) D CKP^GMTSUP Q:$D(GMTSQIT)  D

 . D:GMTSNPG HEAD

 . W ?3,$S(SOL=1!GMTSNPG:"In: ",1:"    ")

 . W $P($P(SLN,";",2),U)," ",$P(SLN,U,2)," ",IR," ",SCH,!

HEAD ; Prints Header

 I 'GMTSNPG D CKP^GMTSUP Q:$D(GMTSQIT)

 W "Drug",?38,"Dose",?50,"Status",?58,"Start",?68,"Stop",! W:$Y'>(IOSL-GMTSLO) !

GMTSPSI.m