|
Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
828 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
