VAFCUTL.m

VAFCUTL ;BIR/LTL-utility for the ADT/HL7 PIVOT file 391.71, etc. ;22 Jul 97

 ;;5.3;Registration;**149**;Aug 13, 1993

FILERM(PIV,MSG) ;programmer entry point.

 ;INPUT   PIV - This is the IEN of the ADT/HL7 PIVOT file

 ;        MSG - This is either the message ID for a successfully

 ;sent message or an error message

 ;

 G:'$G(PIV) FILERMQ

 S MSG=$TRANSLATE(MSG,"^","")

 N DIE,DA,DR

 S DIE="^VAT(391.71,",DA=PIV,DR="1.1////"_$G(MSG)

 D ^DIE

 ;

FILERMQ Q

 ;

COMP(LOCAL,REMOTE) ;string translator

 ;INPUT  LOCAL - Local data element

 ;       REMOTE - Remote data element

 ;

 ;OUTPUT 1 - Match, 0 - No match

 ;

 ;strip some punctuation and spaces

 N STRIP S STRIP=".()- "

 S LOCAL=$TR(LOCAL,STRIP),REMOTE=$TR(REMOTE,STRIP)

 ;reduce all to lowercase

 S LOCAL=$$LOW^XLFSTR(LOCAL),REMOTE=$$LOW^XLFSTR(REMOTE)

 Q $S(LOCAL=REMOTE:1,1:0)

VAFCUTL   ;BIR/LTL-utility for the ADT/HL7 PIVOT file 391.71, etc. ;22 Jul 97

 +1       ;;5.3;Registration;**149**;Aug 13, 1993

FILERM(PIV,MSG) ;programmer entry point.

 +1       ;INPUT   PIV - This is the IEN of the ADT/HL7 PIVOT file

 +2       ;        MSG - This is either the message ID for a successfully

 +3       ;sent message or an error message

 +4       ;

 +5        IF '$GET(PIV)

               GOTO FILERMQ

 +6        SET MSG=$TRANSLATE(MSG,"^","")

 +7        NEW DIE,DA,DR

 +8        SET DIE="^VAT(391.71,"

           SET DA=PIV

           SET DR="1.1////"_$GET(MSG)

 +9        DO ^DIE

 +10      ;

FILERMQ    QUIT 

 +1       ;

COMP(LOCAL,REMOTE) ;string translator

 +1       ;INPUT  LOCAL - Local data element

 +2       ;       REMOTE - Remote data element

 +3       ;

 +4       ;OUTPUT 1 - Match, 0 - No match

 +5       ;

 +6       ;strip some punctuation and spaces

 +7        NEW STRIP

           SET STRIP=".()- "

 +8        SET LOCAL=$TRANSLATE(LOCAL,STRIP)

           SET REMOTE=$TRANSLATE(REMOTE,STRIP)

 +9       ;reduce all to lowercase

 +10       SET LOCAL=$$LOW^XLFSTR(LOCAL)

           SET REMOTE=$$LOW^XLFSTR(REMOTE)

 +11       QUIT $SELECT(LOCAL=REMOTE:1,1:0)