- APSPFNC7 ;IHS/MSC/PJJ/PLS - Number to Word Formatting ;25-Feb-2013 11:56;DKA
- ;;7.0;IHS PHARMACY MODIFICATIONS;**1015**;Sep 23, 2004;Build 62
- ;=================================================================
- ;Returns textual representation of a numeric value
- WRDFMT(INT) ;EP-
- N RET,COMP,X
- S RET=""
- Q:INT'=+INT RET
- ; DKA 2013-02-25 artf13536 Return null for decimal values, per grammatical standard.
- Q:INT'=(INT\1) RET
- S X=+INT
- Q:+INT=0 $$LABEL($T(BASE+1))
- F I=1:1:3 Q:X=0 D
- .S COMP(I)=X#1000
- .S X=X\1000
- F I=1:1:3 D
- .Q:'$G(COMP(4-I))
- .S RET=$$ADD(RET,$$ADD($$GRPTOWD(COMP(4-I)),$$LABEL($T(SCALES+4-I))),", ")
- K COMP,X
- Q RET
- ;
- LABEL(TEXT) ;EP-
- ;Q $E(TEXT,4,99)
- Q $P(TEXT,";;",2)
- ADD(RES,EXTRA,SEP) ;EP-
- Q RES_$S((RES'="")&(EXTRA'=""):$G(SEP," "),1:"")_EXTRA
- GRPTOWD(GROUP) ;EP-
- N HDRDS,TENMOD,TENS,ONES,RES
- S RES=""
- S HDRDS=GROUP\100
- S TENMOD=GROUP#100
- S TENS=TENMOD\10
- S ONES=TENMOD#10
- S:HDRDS'=0 RES=$$LABEL($T(BASE+HDRDS+1))_" Hundred"
- I TENS>1 D
- .S RES=$$ADD(RES,$$LABEL($T(TENS+TENS+1)))
- .S:ONES'=0 RES=$$ADD(RES,$$LABEL($T(BASE+ONES+1)))
- E I TENMOD'=0 D
- .S RES=$$ADD(RES,$$LABEL($T(BASE+TENMOD+1)))
- Q RES
- BASE ;EP-
- ;;Zero
- ;;One
- ;;Two
- ;;Three
- ;;Four
- ;;Five
- ;;Six
- ;;Seven
- ;;Eight
- ;;Nine
- ;;Ten
- ;;Eleven
- ;;Twelve
- ;;Thirteen
- ;;Fourteen
- ;;Fifteen
- ;;Sixteen
- ;;Seventeen
- ;;Eighteen
- ;;Nineteen
- TENS ;EP-
- ;
- ;
- ;;Twenty
- ;;Thirty
- ;;Forty
- ;;Fifty
- ;;Sixty
- ;;Seventy
- ;;Eighty
- ;;Ninety
- SCALES ;EP-
- ;
- ;;Thousand
- ;;Million
- ;;Billion
- ;;Trillion
- ASSERT(EXPR,MSG) ;EP-
- N Y
- X EXPR
- W $S(Y:"Passed",1:"Failed")_": "_MSG,!
- Q Y
- ASSRTEQ(EXP,ACTL) ;EP-
- Q $$ASSERT("S Y=$S("""_EXP_"""="""_ACTL_""":1,1:0)",EXP_" equal to "_ACTL)
- TEST ;EP-
- Q:'$$ASSRTEQ($$WRDFMT(0),"Zero")
- Q:'$$ASSRTEQ($$WRDFMT(60),"Sixty")
- Q:'$$ASSRTEQ($$WRDFMT(1),"One")
- Q:'$$ASSRTEQ($$WRDFMT(17),"Seventeen")
- Q:'$$ASSRTEQ($$WRDFMT(100),"One Hundred")
- Q:'$$ASSRTEQ($$WRDFMT(150),"One Hundred Fifty")
- Q:'$$ASSRTEQ($$WRDFMT(115),"One Hundred Fifteen")
- Q:'$$ASSRTEQ($$WRDFMT(1115),"One Thousand, One Hundred Fifteen")
- Q:'$$ASSRTEQ($$WRDFMT(2000114),"Two Million, One Hundred Fourteen")
- Q:'$$ASSRTEQ($$WRDFMT(6.5),"")
- APSPFNC7 ;IHS/MSC/PJJ/PLS - Number to Word Formatting ;25-Feb-2013 11:56;DKA
- +1 ;;7.0;IHS PHARMACY MODIFICATIONS;**1015**;Sep 23, 2004;Build 62
- +2 ;=================================================================
- +3 ;Returns textual representation of a numeric value
- WRDFMT(INT) ;EP-
- +1 NEW RET,COMP,X
- +2 SET RET=""
- +3 IF INT'=+INT
- QUIT RET
- +4 ; DKA 2013-02-25 artf13536 Return null for decimal values, per grammatical standard.
- +5 IF INT'=(INT\1)
- QUIT RET
- +6 SET X=+INT
- +7 IF +INT=0
- QUIT $$LABEL($TEXT(BASE+1))
- +8 FOR I=1:1:3
- IF X=0
- QUIT
- Begin DoDot:1
- +9 SET COMP(I)=X#1000
- +10 SET X=X\1000
- End DoDot:1
- +11 FOR I=1:1:3
- Begin DoDot:1
- +12 IF '$GET(COMP(4-I))
- QUIT
- +13 SET RET=$$ADD(RET,$$ADD($$GRPTOWD(COMP(4-I)),$$LABEL($TEXT(SCALES+4-I))),", ")
- End DoDot:1
- +14 KILL COMP,X
- +15 QUIT RET
- +16 ;
- LABEL(TEXT) ;EP-
- +1 ;Q $E(TEXT,4,99)
- +2 QUIT $PIECE(TEXT,";;",2)
- ADD(RES,EXTRA,SEP) ;EP-
- +1 QUIT RES_$SELECT((RES'="")&(EXTRA'=""):$GET(SEP," "),1:"")_EXTRA
- GRPTOWD(GROUP) ;EP-
- +1 NEW HDRDS,TENMOD,TENS,ONES,RES
- +2 SET RES=""
- +3 SET HDRDS=GROUP\100
- +4 SET TENMOD=GROUP#100
- +5 SET TENS=TENMOD\10
- +6 SET ONES=TENMOD#10
- +7 IF HDRDS'=0
- SET RES=$$LABEL($TEXT(BASE+HDRDS+1))_" Hundred"
- +8 IF TENS>1
- Begin DoDot:1
- +9 SET RES=$$ADD(RES,$$LABEL($TEXT(TENS+TENS+1)))
- +10 IF ONES'=0
- SET RES=$$ADD(RES,$$LABEL($TEXT(BASE+ONES+1)))
- End DoDot:1
- +11 IF '$TEST
- IF TENMOD'=0
- Begin DoDot:1
- +12 SET RES=$$ADD(RES,$$LABEL($TEXT(BASE+TENMOD+1)))
- End DoDot:1
- +13 QUIT RES
- BASE ;EP-
- +1 ;;Zero
- +2 ;;One
- +3 ;;Two
- +4 ;;Three
- +5 ;;Four
- +6 ;;Five
- +7 ;;Six
- +8 ;;Seven
- +9 ;;Eight
- +10 ;;Nine
- +11 ;;Ten
- +12 ;;Eleven
- +13 ;;Twelve
- +14 ;;Thirteen
- +15 ;;Fourteen
- +16 ;;Fifteen
- +17 ;;Sixteen
- +18 ;;Seventeen
- +19 ;;Eighteen
- +20 ;;Nineteen
- TENS ;EP-
- +1 ;
- +2 ;
- +3 ;;Twenty
- +4 ;;Thirty
- +5 ;;Forty
- +6 ;;Fifty
- +7 ;;Sixty
- +8 ;;Seventy
- +9 ;;Eighty
- +10 ;;Ninety
- SCALES ;EP-
- +1 ;
- +2 ;;Thousand
- +3 ;;Million
- +4 ;;Billion
- +5 ;;Trillion
- ASSERT(EXPR,MSG) ;EP-
- +1 NEW Y
- +2 XECUTE EXPR
- +3 WRITE $SELECT(Y:"Passed",1:"Failed")_": "_MSG,!
- +4 QUIT Y
- ASSRTEQ(EXP,ACTL) ;EP-
- +1 QUIT $$ASSERT("S Y=$S("""_EXP_"""="""_ACTL_""":1,1:0)",EXP_" equal to "_ACTL)
- TEST ;EP-
- +1 IF '$$ASSRTEQ($$WRDFMT(0),"Zero")
- QUIT
- +2 IF '$$ASSRTEQ($$WRDFMT(60),"Sixty")
- QUIT
- +3 IF '$$ASSRTEQ($$WRDFMT(1),"One")
- QUIT
- +4 IF '$$ASSRTEQ($$WRDFMT(17),"Seventeen")
- QUIT
- +5 IF '$$ASSRTEQ($$WRDFMT(100),"One Hundred")
- QUIT
- +6 IF '$$ASSRTEQ($$WRDFMT(150),"One Hundred Fifty")
- QUIT
- +7 IF '$$ASSRTEQ($$WRDFMT(115),"One Hundred Fifteen")
- QUIT
- +8 IF '$$ASSRTEQ($$WRDFMT(1115),"One Thousand, One Hundred Fifteen")
- QUIT
- +9 IF '$$ASSRTEQ($$WRDFMT(2000114),"Two Million, One Hundred Fourteen")
- QUIT
- +10 IF '$$ASSRTEQ($$WRDFMT(6.5),"")
- QUIT
