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

PSOQ0236.m

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