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

YSLRP.m

Go to the documentation of this file.
  1. YSLRP ;ALB/ASF,HIOFO/FT - LOOKUP PATIENT ;9/12/11 15:29
  1. ;;5.01;MENTAL HEALTH;**60**;Dec 30, 1994;Build 47
  1. ;
  1. ;Reference to ^DPT( supported by DBIA #10035
  1. ;
  1. ;Lookup patient
  1. ;Called by routines YSDX3, YSDX3R, YSDX3R1, YSGAF, YSGAF1, YSGAF2, YSHX1, YSMV, YSSR, YSSR1
  1. ; YTCHECK, YTEXT, YTKIL, YTMBMD, YTMCMI3, YTMMPI2A, YTONLY, YTQAPI14, YTQAPI15
  1. N DIC S DIC(0)="ACEQMZ",DIC="^DPT(",YSDFN=-1
  1. D ^DIC S YSTOUT=$D(DTOUT),YSUOUT=$D(DUOUT) S:Y>0 YSDFN=+Y,Z1=Y
  1. I $D(Y(0)) S:'$D(YSDFN(0)) YSDFN(0)=Y(0)
  1. I YSTOUT!YSUOUT!(YSDFN'>0) S YSQT=1 Q
  1. PTVAR ;Patient Variables
  1. S DFN=YSDFN D DEM^VADPT,PID^VADPT
  1. S YSNM=VADM(1),YSSEX=$P(VADM(5),U),YSDOB=$P(VADM(3),U,2),YSAGE=VADM(4),YSSSN=VA("PID")
  1. END ;
  1. Q
  1. ;