LRWOMEN.m

LRWOMEN ;DALOI/CYM/FT/CKA - LINK TO WOMEN'S HEALTH PROGRAM ;10/22/04  13:14

 ;;5.2;LAB SERVICE;**1030**;NOV 1, 1997

 ;;5.2;LAB SERVICE;**231,248,311,324,365**;Sep 27, 1994;Build 11

 ;

 ;Reference to CREATE^WVLRLINK supported by IA #2772

 ;Reference to DELETE^WVLRLINK supported by IA #2772

 ;Reference to CREATE^WVLABCHK supported by IA #4525

 ;

ADD ; From DD 63.08,.11 and 63.09,.11

 Q:+$G(LRDPF)'=2

 Q:'$D(LRSS)

 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)']""

 Q:$G(SEX)'["F"

 ; Q:$T(CREATE^WVLRLINK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 ; D CREATE^WVLRLINK(DFN,LRDFN,LRI,$G(LRA),LRSS)           ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 Q

 ;

 ;

DEL ; From LRAPM

 Q:$G(SEX)'["F"

 Q:+$G(LRDPF)'=2

 Q:'$D(LRSS)

 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)]""

 ; Q:$T(DELETE^WVLRLINK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 ; D DELETE^WVLRLINK(DFN,LRDFN,LRI,X,LRSS)                 ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 Q

 ;

 ;

MOVE ; From LRAPMV

 ; no longer used after LR*5.2*259

 Q

 ;

 ;

SNOMED ; From DD 63.08,10 and 63.09,10

 Q:+$G(LRDPF)'=2

 Q:'$D(LRSS)

 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)=""

 Q:$G(SEX)'["F"

 ; Q:$T(CREATE^WVLABCHK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 ; D CREATE^WVLABCHK(DFN,LRDFN,LRI,$G(LRA),LRSS)           ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 Q

LRWOMEN   ;DALOI/CYM/FT/CKA - LINK TO WOMEN'S HEALTH PROGRAM ;10/22/04  13:14

 +1       ;;5.2;LAB SERVICE;**1030**;NOV 1, 1997

 +2       ;;5.2;LAB SERVICE;**231,248,311,324,365**;Sep 27, 1994;Build 11

 +3       ;

 +4       ;Reference to CREATE^WVLRLINK supported by IA #2772

 +5       ;Reference to DELETE^WVLRLINK supported by IA #2772

 +6       ;Reference to CREATE^WVLABCHK supported by IA #4525

 +7       ;

ADD       ; From DD 63.08,.11 and 63.09,.11

 +1        IF +$GET(LRDPF)'=2

               QUIT 

 +2        IF '$DATA(LRSS)

               QUIT 

 +3        IF $PIECE(^LR(LRDFN,LRSS,LRI,0),U,11)']""

               QUIT 

 +4        IF $GET(SEX)'["F"

               QUIT 

 +5       ; Q:$T(CREATE^WVLRLINK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +6       ; D CREATE^WVLRLINK(DFN,LRDFN,LRI,$G(LRA),LRSS)           ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +7        QUIT 

 +8       ;

 +9       ;

DEL       ; From LRAPM

 +1        IF $GET(SEX)'["F"

               QUIT 

 +2        IF +$GET(LRDPF)'=2

               QUIT 

 +3        IF '$DATA(LRSS)

               QUIT 

 +4        IF $PIECE(^LR(LRDFN,LRSS,LRI,0),U,11)]""

               QUIT 

 +5       ; Q:$T(DELETE^WVLRLINK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +6       ; D DELETE^WVLRLINK(DFN,LRDFN,LRI,X,LRSS)                 ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +7        QUIT 

 +8       ;

 +9       ;

MOVE      ; From LRAPMV

 +1       ; no longer used after LR*5.2*259

 +2        QUIT 

 +3       ;

 +4       ;

SNOMED    ; From DD 63.08,10 and 63.09,10

 +1        IF +$GET(LRDPF)'=2

               QUIT 

 +2        IF '$DATA(LRSS)

               QUIT 

 +3        IF $PIECE(^LR(LRDFN,LRSS,LRI,0),U,11)=""

               QUIT 

 +4        IF $GET(SEX)'["F"

               QUIT 

 +5       ; Q:$T(CREATE^WVLABCHK)']""                               ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +6       ; D CREATE^WVLABCHK(DFN,LRDFN,LRI,$G(LRA),LRSS)           ; IHS/OIT/MKK - LR*5.2*1030 - RPMS does NOT use VA's LRWOMEN package

 +7        QUIT