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

LRWOMEN.m

Go to the documentation of this file.
  1. LRWOMEN ;DALOI/CYM/FT/CKA - LINK TO WOMEN'S HEALTH PROGRAM ;10/22/04 13:14
  1. ;;5.2;LAB SERVICE;**231,248,311,324,365**;Sep 27, 1994;Build 9
  1. ;
  1. ;Reference to CREATE^WVLRLINK supported by IA #2772
  1. ;Reference to DELETE^WVLRLINK supported by IA #2772
  1. ;Reference to CREATE^WVLABCHK supported by IA #4525
  1. ;
  1. ADD ; From DD 63.08,.11 and 63.09,.11
  1. Q:+$G(LRDPF)'=2
  1. Q:'$D(LRSS)
  1. Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)']""
  1. Q:$G(SEX)'["F"
  1. Q:$T(CREATE^WVLRLINK)']""
  1. D CREATE^WVLRLINK(DFN,LRDFN,LRI,$G(LRA),LRSS)
  1. Q
  1. ;
  1. ;
  1. DEL ; From LRAPM
  1. Q:$G(SEX)'["F"
  1. Q:+$G(LRDPF)'=2
  1. Q:'$D(LRSS)
  1. Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)]""
  1. Q:$T(DELETE^WVLRLINK)']""
  1. D DELETE^WVLRLINK(DFN,LRDFN,LRI,X,LRSS)
  1. Q
  1. ;
  1. ;
  1. MOVE ; From LRAPMV
  1. ; no longer used after LR*5.2*259
  1. Q
  1. ;
  1. ;
  1. SNOMED ; From DD 63.08,10 and 63.09,10
  1. Q:+$G(LRDPF)'=2
  1. Q:'$D(LRSS)
  1. Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)=""
  1. Q:$G(SEX)'["F"
  1. Q:$T(CREATE^WVLABCHK)']""
  1. D CREATE^WVLABCHK(DFN,LRDFN,LRI,$G(LRA),LRSS)
  1. Q