source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRWOMEN.m@ 789

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

revised back to 6/30/08 version

File size: 1.1 KB
Line 
1LRWOMEN ;DALOI/CYM/FT - LINK TO WOMEN'S HEALTH PROGRAM ;10/22/04 13:14
2 ;;5.2;LAB SERVICE;**231,248,311,324**;Sep 27, 1994
3 ;
4 ;Reference to CREATE^WVLRLINK supported by IA #2772
5 ;Reference to DELETE^WVLRLINK supported by IA #2772
6 ;Reference to MOVE^WVLRLINK supported by IA #2772
7 ;Reference to ^XPDUTL supported by IA #10141
8 ;Reference to ^ORB3LAB supported by IA #4287
9 ;Reference to CREATE^WVLABCHK supported by IA #4525
10 ;
11ADD ; From DD 63.08,.11 and 63.09,.11
12 Q:+$G(LRDPF)'=2
13 Q:'$D(LRSS)
14 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)']""
15 I $$PATCH^XPDUTL("OR*3.0*210") D
16 .Q:$G(LRAPOLDF)=1
17 .D LAB^ORB3LAB(DFN,LRDFN,LRI,$G(LRA),LRSS)
18 Q:$G(SEX)'["F"
19 Q:$T(CREATE^WVLRLINK)']""
20 D CREATE^WVLRLINK(DFN,LRDFN,LRI,$G(LRA),LRSS)
21 Q
22DEL ; From LRAPM
23 Q:$G(SEX)'["F"
24 Q:+$G(LRDPF)'=2
25 Q:'$D(LRSS)
26 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)]""
27 Q:$T(DELETE^WVLRLINK)']""
28 D DELETE^WVLRLINK(DFN,LRDFN,LRI,X,LRSS)
29 Q
30MOVE ; From LRAPMV
31 ; no longer used after LR*5.2*259
32 Q
33SNOMED ; From DD 63.08,10 and 63.09,10
34 Q:+$G(LRDPF)'=2
35 Q:'$D(LRSS)
36 Q:$P(^LR(LRDFN,LRSS,LRI,0),U,11)=""
37 Q:$G(SEX)'["F"
38 Q:$T(CREATE^WVLABCHK)']""
39 D CREATE^WVLABCHK(DFN,LRDFN,LRI,$G(LRA),LRSS)
40 Q
Note: See TracBrowser for help on using the repository browser.