INHSZ23.m

INHSZ23 ;DGH; 9 Apr 99 13:14;NCPDP compiler functions ; 11 Nov 91   6:42 AM

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;CHCS TOOLS_460; GEN 4; 4-SEP-1997

 ;COPYRIGHT 1988, 1989, 1990 SAIC

 ;

 ;This routine is to hold specialized logic used only for

 ;compiling NCPDP messages. Currently only has one function.

L G L^INHSZ1

 ;

 ;

LINENC ;For NCPDP, a LINE(NC) script command will preceed the

 ;regular LINE command. The format of this is

 ;LINE NCID FIELD NO=<value>,<value>,etc

 ;This tag sets variables INIDF and INIDV that are used in the

 ;"real" LINE command. Both variables are required for NCPDP

 N %1,%2

 S %1=$$LBTB^UTIL($P(LINE," ",3))

 S INIDF=$P(%1,"="),INIDV=$P(%1,"=",2)

 I 'INIDF D ERROR^INHSZ0("ID FIELD is required for NCPDP.",1) Q

 I '$L(INIDV) D ERROR^INHSZ0("ID FIELD is specified, but ID VALUES have not.",1) Q

 Q

 ;

 ;

INHSZ23   ;DGH; 9 Apr 99 13:14;NCPDP compiler functions ; 11 Nov 91   6:42 AM

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;CHCS TOOLS_460; GEN 4; 4-SEP-1997

 +4       ;COPYRIGHT 1988, 1989, 1990 SAIC

 +5       ;

 +6       ;This routine is to hold specialized logic used only for

 +7       ;compiling NCPDP messages. Currently only has one function.

L          GOTO L^INHSZ1

 +1       ;

 +2       ;

LINENC    ;For NCPDP, a LINE(NC) script command will preceed the

 +1       ;regular LINE command. The format of this is

 +2       ;LINE NCID FIELD NO=<value>,<value>,etc

 +3       ;This tag sets variables INIDF and INIDV that are used in the

 +4       ;"real" LINE command. Both variables are required for NCPDP

 +5        NEW %1,%2

 +6        SET %1=$$LBTB^UTIL($PIECE(LINE," ",3))

 +7        SET INIDF=$PIECE(%1,"=")

           SET INIDV=$PIECE(%1,"=",2)

 +8        IF 'INIDF

               DO ERROR^INHSZ0("ID FIELD is required for NCPDP.",1)

               QUIT 

 +9        IF '$LENGTH(INIDV)

               DO ERROR^INHSZ0("ID FIELD is specified, but ID VALUES have not.",1)

               QUIT 

 +10       QUIT 

 +11      ;

 +12      ;