source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRPTSX.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 546 bytes
Line 
1XDRPTSX ;SF-IRMFO/IHS/OHPRD/JCM;COMPARES THE SEX OF TWO PATIENTS; ;8/28/96 09:26
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4START ;
5 D INIT
6 D COMPARE
7END D EOJ
8 Q
9 ;
10INIT ;
11 D EOJ
12 S XDRDSX=XDRCD(XDRFL,XDRCD,.02,"I"),XDRDSX2=XDRCD2(XDRFL,XDRCD2,.02,"I")
13 S XDRDSX("MATCH")=$P(XDRDTEST(XDRDTO),U,6)
14 S XDRDSX("NO MATCH")=$P(XDRDTEST(XDRDTO),U,7)
15 Q
16 ;
17COMPARE ;
18 I XDRDSX']""!(XDRDSX2']"") G COMPAREX
19 I XDRDSX=XDRDSX2 S XDRD("TEST SCORE")=XDRDSX("MATCH") G COMPAREX
20 S XDRD("TEST SCORE")=XDRDSX("NO MATCH")
21COMPAREX Q
22 ;
23EOJ ;
24 K XDRDSX,XDRDSX2
25 Q
Note: See TracBrowser for help on using the repository browser.