PSOQ0236 ;HINES/RMS - HS VERSION PRE-ADMISSION RX PROFILE ; 11 Feb 2008  9:42 AM
 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
 ;
 ;Reference to BCMALG^PSJMUTL supported by DBIA 5058
 ;Reference to LIST^TIULMED supported by DBIA 5129
RPT S PSOQDFN=DFN
 S TIUDATE=180,PSOQT=$$LIST^TIULMED(PSOQDFN,"PSOQR",0,0,3)
 S PSOQPTNM=$P(^DPT(PSOQDFN,0),"^")
 D CKP^GMTSUP Q:$D(GMTSQIT)  ;->
 D CKP^GMTSUP Q:$D(GMTSQIT)
 D ATS^PSJMUTL(68,68,1) W !,"Allergies: " D:+PSGVALG
 . F I=1:1 W PSGVALG(I)_", " Q:'$D(PSGVALG(I+1))
 D CKP^GMTSUP Q:$D(GMTSQIT)
 W !,"Adverse Reactions: " D:+PSGVADR  W:'+PSGVADR "NONE"
 . F I=1:1 W PSGVADR(I)_", " Q:'$D(PSGVADR(I+1))
 W !! S PSOQL=0 F  S PSOQL=$O(PSOQR(PSOQL)) Q:PSOQL'=+PSOQL  Q:$G(PSOQSTOP)  D  ;
 . W !,PSOQR(PSOQL,0) D CKP^GMTSUP Q:$D(GMTSQIT)  ;->
 K PSOQ,PSOQDFN,PSOQL,PSOQR,PSOQT,PSOQPTNM,VADM,PSGP,PSGVALG,PSGVADR
 K PSOQSTOP,DIR,DIROUT,DIRUT,DTOUT,DUOUT,I,X,Y,VA,VAERR,PSGADR,PSGALG
 K TIUDATE
 Q