- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEFG1.m
r628 r636 1 1 IBCEFG1 ;ALB/TMP - OUTPUT FORMATTER DATA DEFINITION UTILITIES ;18-JAN-96 2 ;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349 ,371,377**;21-MAR-94;Build 232 ;;2.0;INTEGRATED BILLING;**52,51,137,181,197,232,288,349**;21-MAR-94;Build 46 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 86 86 ; the decimal and commas. 87 87 N DOLR,CENT 88 I AMT'="" S AMT=$TR(AMT,","),DOLR=$P(AMT,"."),CENT=$E($P(AMT,".",2)_"00",1,2),AMT=DOLR_CENT89 Q AMT88 I AMT'="" S DOLR=$P(AMT,"."),CENT=$E($P(AMT,".",2)_"00",1,2),AMT=DOLR_CENT 89 Q $TR(AMT,",") 90 90 ; 91 91 STATE(CODE) ;Return state code from state pointer … … 95 95 ; CODE = DHCP code for sex 96 96 Q $S(CODE="":"U","MF"[$E(CODE):$E(CODE),1:"U") 97 ; 98 RELATION(CODE) ;Return the X12 code for relationship 99 ; CODE = DHCP code for relationship 100 N X12 101 S X12="" 102 S:CODE'="" X12=$P($S(CODE="01":"18^SELF",CODE="02":"01^SPOUSE",CODE="03":"19^NATURAL CHILD",CODE="08":"20^EMPLOYEE",CODE="32":"32^MOTHER",CODE="33":"33^FATHER",CODE="11":"39^ORGAN DONOR",CODE="15":"41^INJURED PLAINTIFF",1:""),U) 103 Q X12 97 104 ; 98 105 EMPLST(CODE) ;Return the X12 code for employment status
Note:
See TracChangeset
for help on using the changeset viewer.