INHPSAL2.m

INHPSAL2 ;KN; 16 Apr 96 14:50; MFN Loader Control - applications - data

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

 ;COPYRIGHT 1991-2000 SAIC

 ;

 Q

 ;

TEXT(INTER,LI) ;Return a line of data or "" if line not found

 ;INPUT:

 ;  INTER - interface application identifier

 ;  LI - offset from DATA tag to get data from

 ;

 Q:'$G(LI)!'$L($G(INTER)) ""

 N X,INLINE,INROU

 F X=1,2 S INROU="INHPSAL"_X,INLINE=$T(@INTER+LI^@INROU) Q:$L(INLINE)

 Q INLINE

 ;

DATA ;data - INHPSAM for description of structure 

 ;;;       DESTINATION:   EMPTY

AP ;;DESTINATION: ANATOMIC PATHOLOGY

 ;;4000^^HL MASTER FILE NOTIFICATION LOAD (AP)

 ;;

BB ;;       DESTINATION: HL BLOOD BANK

 ;;4000^^HL MASTER FILE NOTIFICATION LOAD (BB)

 ;;

CIW ;;     DESTINATION: HL CIW - OUT

 ;;4000^^HL MASTER FILE NOTIFICATION LOAD (CIW)

 ;;

TSC ;;     DESTINATION: HL TSC

 ;;4000^^HL MASTER FILE NOTIFICATION LOAD (TSC)

 ;;

INHPSAL2  ;KN; 16 Apr 96 14:50; MFN Loader Control - applications - data

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

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4        QUIT 

 +5       ;

TEXT(INTER,LI) ;Return a line of data or "" if line not found

 +1       ;INPUT:

 +2       ;  INTER - interface application identifier

 +3       ;  LI - offset from DATA tag to get data from

 +4       ;

 +5        IF '$GET(LI)!'$LENGTH($GET(INTER))

               QUIT ""

 +6        NEW X,INLINE,INROU

 +7        FOR X=1,2

               SET INROU="INHPSAL"_X

               SET INLINE=$TEXT(@INTER+LI^@INROU)

               IF $LENGTH(INLINE)

                   QUIT 

 +8        QUIT INLINE

 +9       ;

DATA      ;data - INHPSAM for description of structure 

 +1       ;;;       DESTINATION:   EMPTY

AP        ;;DESTINATION: ANATOMIC PATHOLOGY

 +1       ;;4000^^HL MASTER FILE NOTIFICATION LOAD (AP)

 +2       ;;

BB        ;;       DESTINATION: HL BLOOD BANK

 +1       ;;4000^^HL MASTER FILE NOTIFICATION LOAD (BB)

 +2       ;;

CIW       ;;     DESTINATION: HL CIW - OUT

 +1       ;;4000^^HL MASTER FILE NOTIFICATION LOAD (CIW)

 +2       ;;

TSC       ;;     DESTINATION: HL TSC

 +1       ;;4000^^HL MASTER FILE NOTIFICATION LOAD (TSC)

 +2       ;;