LA7MUSFT.m

LA7MUSFT ;ihs/cmi/maw - MU2 SFT segment ; 22-Oct-2013 09:22 ; MAW

 ;;5.2;BLR IHS REFERENCE LAB;**1033**;NOV 01, 1997

 ;

SFT1(CS,SC,SFTA) ;-- sft 1 segmet

 N SFT1

 S SFT1=$P(SFTA,U)_CS_$P(SFTA,U,2)_CS_CS_CS_CS_$P(SFTA,U,3)_SC_$P(SFTA,U,4)_SC_$P(SFTA,U,5)_CS_$P(SFTA,U,6)_CS_CS_CS_$P(SFTA,U,7)

 Q SFT1

 ;

SFT2(SFTA) ; EP

 N SFT2

 S SFT2=$P(SFTA,U,8)

 Q SFT2

 ;

SFT3(SFTA) ; EP

 N SFT3

 S SFT3=$P(SFTA,U,9)

 Q SFT3

 ;

SFT4(SFTA) ; EP

 N SFT4

 S SFT4=$P(SFTA,U,10)

 Q SFT4

 ;

SFT6(SFTA) ; EP

 N LABI,LABII,LABDT,SFT6

 S LABI=$O(^DIC(9.4,"C","BLR",0))

 S LABII=$O(^DIC(9.4,LABI,22,"B",$G(^DIC(9.4,LABI,"VERSION")),0))

 S LABDT=$P($G(^DIC(9.4,LABI,22,LABII,0)),U,2)

 S SFT6=$$FMTHL7^XLFDT(LABDT)

 Q SFT6

LA7MUSFT  ;ihs/cmi/maw - MU2 SFT segment ; 22-Oct-2013 09:22 ; MAW

 +1       ;;5.2;BLR IHS REFERENCE LAB;**1033**;NOV 01, 1997

 +2       ;

SFT1(CS,SC,SFTA) ;-- sft 1 segmet

 +1        NEW SFT1

 +2        SET SFT1=$PIECE(SFTA,U)_CS_$PIECE(SFTA,U,2)_CS_CS_CS_CS_$PIECE(SFTA,U,3)_SC_$PIECE(SFTA,U,4)_SC_$PIECE(SFTA,U,5)_CS_$PIECE(SFTA,U,6)_CS_CS_CS_$PIECE(SFTA,U,7)

 +3        QUIT SFT1

 +4       ;

SFT2(SFTA) ; EP

 +1        NEW SFT2

 +2        SET SFT2=$PIECE(SFTA,U,8)

 +3        QUIT SFT2

 +4       ;

SFT3(SFTA) ; EP

 +1        NEW SFT3

 +2        SET SFT3=$PIECE(SFTA,U,9)

 +3        QUIT SFT3

 +4       ;

SFT4(SFTA) ; EP

 +1        NEW SFT4

 +2        SET SFT4=$PIECE(SFTA,U,10)

 +3        QUIT SFT4

 +4       ;

SFT6(SFTA) ; EP

 +1        NEW LABI,LABII,LABDT,SFT6

 +2        SET LABI=$ORDER(^DIC(9.4,"C","BLR",0))

 +3        SET LABII=$ORDER(^DIC(9.4,LABI,22,"B",$GET(^DIC(9.4,LABI,"VERSION")),0))

 +4        SET LABDT=$PIECE($GET(^DIC(9.4,LABI,22,LABII,0)),U,2)

 +5        SET SFT6=$$FMTHL7^XLFDT(LABDT)

 +6        QUIT SFT6