Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
828 bytes
|
Line | |
---|
1 | VAFCUTL ;BIR/LTL-utility for the ADT/HL7 PIVOT file 391.71, etc. ;22 Jul 97
|
---|
2 | ;;5.3;Registration;**149**;Aug 13, 1993
|
---|
3 | FILERM(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 | ;
|
---|
14 | FILERMQ Q
|
---|
15 | ;
|
---|
16 | COMP(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.