source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCUTL.m@ 1641

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

initial load of FOIAVistA 6/30/08 version

File size: 828 bytes
Line 
1VAFCUTL ;BIR/LTL-utility for the ADT/HL7 PIVOT file 391.71, etc. ;22 Jul 97
2 ;;5.3;Registration;**149**;Aug 13, 1993
3FILERM(PIV,MSG) ;programmer entry point.
4 ;INPUT PIV - This is the IEN of the ADT/HL7 PIVOT file
5 ; MSG - This is either the message ID for a successfully
6 ;sent message or an error message
7 ;
8 G:'$G(PIV) FILERMQ
9 S MSG=$TRANSLATE(MSG,"^","")
10 N DIE,DA,DR
11 S DIE="^VAT(391.71,",DA=PIV,DR="1.1////"_$G(MSG)
12 D ^DIE
13 ;
14FILERMQ Q
15 ;
16COMP(LOCAL,REMOTE) ;string translator
17 ;INPUT LOCAL - Local data element
18 ; REMOTE - Remote data element
19 ;
20 ;OUTPUT 1 - Match, 0 - No match
21 ;
22 ;strip some punctuation and spaces
23 N STRIP S STRIP=".()- "
24 S LOCAL=$TR(LOCAL,STRIP),REMOTE=$TR(REMOTE,STRIP)
25 ;reduce all to lowercase
26 S LOCAL=$$LOW^XLFSTR(LOCAL),REMOTE=$$LOW^XLFSTR(REMOTE)
27 Q $S(LOCAL=REMOTE:1,1:0)
Note: See TracBrowser for help on using the repository browser.