source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOQ0236.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 941 bytes
Line 
1PSOQ0236 ;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
6RPT 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
Note: See TracBrowser for help on using the repository browser.