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