IBACCWLVE3 ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER (cont'd); 12-SEP-2023 ; 12-SEP-2023
;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
;;Per VA Directive 6402, this routine should not be modified.
Q
;THIS ROUTINE ALLOWS THE USER TO VIEW THE X12 ENCOUNTER IN READABLE FORMAT.
;
SV1 ; Professional Service
N CNT,INFO
S INFO=$P(DATA,D,2) D
. S CODE=$P(INFO,D1,1) D D SET("Product/Service ID",CODE)
.. I CODE="ER" S CODE="Jurisdiction Specific Procedure and Supply Code" Q
.. I CODE="HC" S CODE="HCPCS Code",$P(INFO,D1,2)=$$HCPCS($P(INFO,D1,2)) Q
.. I CODE="IV" S CODE="HIEC Product/Service Code" Q
.. I CODE="WK" S CODE="Advanced Billing Concepts Code" Q
.. S CODE="UNKNOWN"
. D SET("Procedure Code",$P(INFO,D1,2))
. F CNT=3:1:6 S CODE=$P(INFO,D1,CNT) Q:CODE="" S TITLE=$S(CNT=3:"Procedure Modifier",1:"") D SET(TITLE,$$CPTMOD(CODE))
. S CODE=$P(INFO,D1,7) I $L(CODE) D SET("Description",CODE)
D SET("Line Item Charge",$$DOL($P(DATA,D,3)))
D SET("Quantity",$P(DATA,D,5)_$S($P(DATA,D,4)="MJ":" Minute(s)",1:" Unit(s)"))
S CODE=$P(DATA,D,6) I $L(CODE) D SET("Place of Service",CODE)
;S INFO=$P(DATA,D,8) F CNT=1:1:4 S CODE=$P(INFO,D1,CNT) I $L(CODE) S TITLE=$S(CNT=1:"Diagnosis Code Pointer",1:"") D SET(TITLE,CODE) ;TPF;IB*2*770v38;EBILL-5483
S INFO=$P(DATA,D,8) F CNT=1:1:4 S CODE=$P(INFO,D1,CNT) I $L(CODE) S:$D(DIAGPTRARR(CODE)) CODE=DIAGPTRARR(CODE) S TITLE=$S(CNT=1:"Diagnosis Code Pointer",1:"") D SET(TITLE,CODE)
S CODE=$P(DATA,D,10) I $L(CODE) D SET("Emergency Indicator",$$YN(CODE))
S CODE=$P(DATA,D,12) I $L(CODE) D SET("EPSDT Indicator",$$YN(CODE))
S CODE=$P(DATA,D,13) I $L(CODE) D SET("Family Planning Indicator",$$YN(CODE))
S CODE=$P(DATA,D,16) I $L(CODE) D SET("Co-Pay Status Code",$S(CODE=0:"Copay Exempt",1:"UNKNOWN"))
Q
;
SV2 ;Institutional Service Line
N CNT,INFO
D SET("Service Line Revenue Code",$P(DATA,D,2))
S INFO=$P(DATA,D,3) D
. S CODE=$P(INFO,D1,1) D D SET("Product/Service ID",CODE)
.. I CODE="ER" S CODE="Jurusdiction Specific Procedure and Supply Code" Q
.. I CODE="HC" S CODE="HCPCS Code",$P(INFO,D1,2)=$$HCPCS($P(INFO,D1,2)) Q
.. I CODE="HP" S CODE="HIPPS Skilled Nursing Facility Rate Code" Q
.. I CODE="IV" S CODE="HIEC Product/Service Code" Q
.. I CODE="WK" S CODE="Advanced Billing Concepts Code" Q
. D SET("Procedure Code",$P(INFO,D1,2))
. F CNT=3:1:6 S CODE=$P(INFO,D1,CNT) Q:CODE="" S TITLE=$S(CNT=3:"Procedure Modifier",1:"") D SET(TITLE,$$CPTMOD(CODE))
. S CODE=$P(INFO,D1,7) I $L(CODE) D SET("Description",$$CPTMOD(CODE))
D SET("Line Item Charge",$$DOL($P(DATA,D,4)))
D SET("Quantity",$P(DATA,D,6)_$S($P(DATA,D,5)="DA":" Day(s)",1:" Unit(s)"))
S CODE=$P(DATA,D,8) I $L(CODE) D SET("Line Item Denied Charge or Non-Covered Charge Amount",CODE)
Q
;
SV3 ;Dental Service
N CNT
S INFO=$P(DATA,D,2) D
. S CODE=$P(INFO,D1,1) D D SET("Product/Service ID",CODE)
.. I CODE="AD" S CODE="American Dental Association Codes" Q
.. I CODE="CDT" S CODE="Current Dental Terminology" Q
. D SET("Procedure Code",$P(INFO,D1,2))
. F CNT=3:1:6 S CODE=$P(INFO,D1,CNT) Q:CODE="" S TITLE=$S(CNT=3:"Procedure Modifier",1:"") D SET(TITLE,$$CPTMOD(CODE))
. S CODE=$P(INFO,D1,7) I $L(CODE) D SET("Description",$$CPTMOD(CODE))
D SET("Line Item Charge",$$DOL($P(DATA,D,3)))
D SET("Place of Service Code",$P(DATA,D,4))
S CODE=$P(DATA,D,5) F CNT=1:1:5 D SET($S(CNT=1:"Oral Cavity Designation Code",1:""),$P(CODE,D1,CNT))
S CODE=$P(DATA,D,6) I $L(CODE) D D SET("Prothesis, Crown, or Inlay Code",CODE)
. I CODE="I" S CODE="Initial Placement" Q
. I CODE="R" S CODE="Replacement" Q
S CODE=$P(DATA,D,7) I $L(CODE) D SET("Procedure Count",CODE)
S CODE=$P(DATA,D,12) F CNT=1:1:4 D SET($S(CNT=1:"Diagnosis Code",1:""),$P(CODE,D1,CNT))
Q
;
SV5 ;DME Service
N INFO
S INFO=$P(DATA,D,2) D
. S CODE=$P(INFO,D1,1) D D SET("Product/Service ID",CODE)
.. I CODE="HC" S CODE="HCPCS Code",$P(INFO,D1,2)=$$HCPCS($P(INFO,D1,2))
. D SET("Procedure Code",$P(INFO,D1,2))
D SET("Length of Medical Necessity",$P(DATA,D,4)_$S($P(DATA,D,3)="DA":" Day(s)",1:""))
D SET("DME Rental Price",$$DOL($P(DATA,D,5)))
D SET("DME Purchase Price",$$DOL($P(DATA,D,6)))
S CODE=$P(DATA,D,7) D D SET("Rental Unit Price Indicator",CODE)
. I CODE=1 S CODE="Weekly" Q
. I CODE=4 S CODE="Monthly" Q
. I CODE=1 S CODE="Daily" Q
Q
;
SVD ;Line Adjudication Information
N CNT
D SET("Other Payer Primary Identifier",$P(DATA,D,2))
D SET("Service Line Paid Amount",$P(DATA,D,3))
S INFO=$P(DATA,D,4) D
. S CODE=$P(INFO,D1,1) D D SET("Product/Service ID",CODE)
.. I CODE="AD" S CODE="American Dental Association Codes" Q
.. I CODE="ER" S CODE="Jurusdiction Specific Procedure and Supply Code" Q
.. I CODE="HC" S CODE="HCPCS Code",$P(INFO,D1,2)=$$HCPCS($P(INFO,D1,2)) Q
.. I CODE="HP" S CODE="HIPPS Skilled Nursing Facility Rate Code" Q
.. I CODE="IV" S CODE="HIEC Product/Service Code" Q
.. I CODE="WK" S CODE="Advanced Billing Concepts Code" Q
. D SET("Procedure Code",$P(INFO,D1,2))
. F CNT=3:1:6 S CODE=$P(INFO,D1,CNT) Q:CODE="" S TITLE=$S(CNT=3:"Procedure Modifier",1:"") D SET(TITLE,$$CPTMOD(CODE))
. S CODE=$P(INFO,D1,7) I $L(CODE) D SET("Description",$$CPTMOD(CODE))
S CODE=$P(DATA,D,5) I $L(CODE) D SET("Service Line Revenue Code",CODE)
D SET("Paid Service Unit Count",$P(DATA,D,6))
S CODE=$P(DATA,D,7) I $L(CODE) D SET("Bundled or Unbundled Line Number",CODE)
Q
;
CPTMOD(CODE) ;CPT Code Modifier lookup v12
N CPTARY,RSLT
S RSLT=$$MOD^ICPTMOD(CODE,.CPTARY) ;ICR #1996 (Supported)
I RSLT'["" S CODE=CODE_" - Unknown Code" G CPTMODQ
S CODE=CODE_" - "_$P(RSLT,U,3)
CPTMODQ Q CODE
;
DATE(DATE,TYPE) ;Format Date/Time
N D1
S TYPE=$G(TYPE,"D8")
I TYPE="TM" S D1=DATE G DATEQ
I TYPE="D8"!(TYPE="DT") D G DATEQ
. S D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($E(DATE,1,8)),1)
. I TYPE="DT" S D1=D1_" "_$E(DATE,9,12)
S D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($P(DATE,"-",1),1))_"-"_$$FMTE^XLFDT($$HL7TFM^XLFDT($P(DATE,"-",2),1))
DATEQ ;
Q D1
;
DOL(DATA) ;Format Dollars
S DATA="$"_$FN(DATA,",",2)
Q DATA
;
HCPCS(CODE) ;CPT Code lookup v12
N CPTARY,RSLT
S RSLT=$$CPT^ICPTCOD(CODE,.CPTARY) ;ICR #1995 (Supported)
I RSLT'["" S CODE=CODE_" - Unknown Code" G HCPCSQ
S CODE=CODE_" - "_$P(RSLT,U,3)
HCPCSQ Q CODE
;
NAME(DATA) ;Format Person Name
N LAST,FIRST,MI,SUF
S LAST=$P(DATA,D,4),FIRST=$P(DATA,D,5),MI=$P(DATA,D,6),SUF=$P(DATA,D,8)
Q LAST_$S($L(FIRST):", ",1:"")_FIRST_" "_$S($L(MI):MI_" ",1:"")_SUF
;
PHONE(NUM) ;Format phone number
Q "("_$E(NUM,1,3)_") "_$E(NUM,4,6)_"-"_$E(NUM,7,10)
;
YN(YN) ;Translate Yes/No element
Q $S(YN="W":"Not Applicable",YN="U":"Uknown",YN="Y":"Yes",1:"No")
;
ZIP(ZIP) ;Format Zip Code
Q $E(ZIP,1,5)_$S($L(ZIP>5):"-"_$E(ZIP,6,9),1:"")
;
SET(TITLE,VALUE,BLANK,HEADER) ;
D SET^IBACCWLVE($G(TITLE),$G(VALUE),$G(BLANK),$G(HEADER))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBACCWLVE3 6904 printed May 25, 2026@12:10:23 Page 2
IBACCWLVE3 ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER (cont'd); 12-SEP-2023 ; 12-SEP-2023
+1 ;;2.0;INTEGRATED BILLING;**770**;21-MAR-94;Build 119
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;THIS ROUTINE ALLOWS THE USER TO VIEW THE X12 ENCOUNTER IN READABLE FORMAT.
+5 ;
SV1 ; Professional Service
+1 NEW CNT,INFO
+2 SET INFO=$PIECE(DATA,D,2)
Begin DoDot:1
+3 SET CODE=$PIECE(INFO,D1,1)
Begin DoDot:2
+4 IF CODE="ER"
SET CODE="Jurisdiction Specific Procedure and Supply Code"
QUIT
+5 IF CODE="HC"
SET CODE="HCPCS Code"
SET $PIECE(INFO,D1,2)=$$HCPCS($PIECE(INFO,D1,2))
QUIT
+6 IF CODE="IV"
SET CODE="HIEC Product/Service Code"
QUIT
+7 IF CODE="WK"
SET CODE="Advanced Billing Concepts Code"
QUIT
+8 SET CODE="UNKNOWN"
End DoDot:2
DO SET("Product/Service ID",CODE)
+9 DO SET("Procedure Code",$PIECE(INFO,D1,2))
+10 FOR CNT=3:1:6
SET CODE=$PIECE(INFO,D1,CNT)
if CODE=""
QUIT
SET TITLE=$SELECT(CNT=3:"Procedure Modifier",1:"")
DO SET(TITLE,$$CPTMOD(CODE))
+11 SET CODE=$PIECE(INFO,D1,7)
IF $LENGTH(CODE)
DO SET("Description",CODE)
End DoDot:1
+12 DO SET("Line Item Charge",$$DOL($PIECE(DATA,D,3)))
+13 DO SET("Quantity",$PIECE(DATA,D,5)_$SELECT($PIECE(DATA,D,4)="MJ":" Minute(s)",1:" Unit(s)"))
+14 SET CODE=$PIECE(DATA,D,6)
IF $LENGTH(CODE)
DO SET("Place of Service",CODE)
+15 ;S INFO=$P(DATA,D,8) F CNT=1:1:4 S CODE=$P(INFO,D1,CNT) I $L(CODE) S TITLE=$S(CNT=1:"Diagnosis Code Pointer",1:"") D SET(TITLE,CODE) ;TPF;IB*2*770v38;EBILL-5483
+16 SET INFO=$PIECE(DATA,D,8)
FOR CNT=1:1:4
SET CODE=$PIECE(INFO,D1,CNT)
IF $LENGTH(CODE)
if $DATA(DIAGPTRARR(CODE))
SET CODE=DIAGPTRARR(CODE)
SET TITLE=$SELECT(CNT=1:"Diagnosis Code Pointer",1:"")
DO SET(TITLE,CODE)
+17 SET CODE=$PIECE(DATA,D,10)
IF $LENGTH(CODE)
DO SET("Emergency Indicator",$$YN(CODE))
+18 SET CODE=$PIECE(DATA,D,12)
IF $LENGTH(CODE)
DO SET("EPSDT Indicator",$$YN(CODE))
+19 SET CODE=$PIECE(DATA,D,13)
IF $LENGTH(CODE)
DO SET("Family Planning Indicator",$$YN(CODE))
+20 SET CODE=$PIECE(DATA,D,16)
IF $LENGTH(CODE)
DO SET("Co-Pay Status Code",$SELECT(CODE=0:"Copay Exempt",1:"UNKNOWN"))
+21 QUIT
+22 ;
SV2 ;Institutional Service Line
+1 NEW CNT,INFO
+2 DO SET("Service Line Revenue Code",$PIECE(DATA,D,2))
+3 SET INFO=$PIECE(DATA,D,3)
Begin DoDot:1
+4 SET CODE=$PIECE(INFO,D1,1)
Begin DoDot:2
+5 IF CODE="ER"
SET CODE="Jurusdiction Specific Procedure and Supply Code"
QUIT
+6 IF CODE="HC"
SET CODE="HCPCS Code"
SET $PIECE(INFO,D1,2)=$$HCPCS($PIECE(INFO,D1,2))
QUIT
+7 IF CODE="HP"
SET CODE="HIPPS Skilled Nursing Facility Rate Code"
QUIT
+8 IF CODE="IV"
SET CODE="HIEC Product/Service Code"
QUIT
+9 IF CODE="WK"
SET CODE="Advanced Billing Concepts Code"
QUIT
End DoDot:2
DO SET("Product/Service ID",CODE)
+10 DO SET("Procedure Code",$PIECE(INFO,D1,2))
+11 FOR CNT=3:1:6
SET CODE=$PIECE(INFO,D1,CNT)
if CODE=""
QUIT
SET TITLE=$SELECT(CNT=3:"Procedure Modifier",1:"")
DO SET(TITLE,$$CPTMOD(CODE))
+12 SET CODE=$PIECE(INFO,D1,7)
IF $LENGTH(CODE)
DO SET("Description",$$CPTMOD(CODE))
End DoDot:1
+13 DO SET("Line Item Charge",$$DOL($PIECE(DATA,D,4)))
+14 DO SET("Quantity",$PIECE(DATA,D,6)_$SELECT($PIECE(DATA,D,5)="DA":" Day(s)",1:" Unit(s)"))
+15 SET CODE=$PIECE(DATA,D,8)
IF $LENGTH(CODE)
DO SET("Line Item Denied Charge or Non-Covered Charge Amount",CODE)
+16 QUIT
+17 ;
SV3 ;Dental Service
+1 NEW CNT
+2 SET INFO=$PIECE(DATA,D,2)
Begin DoDot:1
+3 SET CODE=$PIECE(INFO,D1,1)
Begin DoDot:2
+4 IF CODE="AD"
SET CODE="American Dental Association Codes"
QUIT
+5 IF CODE="CDT"
SET CODE="Current Dental Terminology"
QUIT
End DoDot:2
DO SET("Product/Service ID",CODE)
+6 DO SET("Procedure Code",$PIECE(INFO,D1,2))
+7 FOR CNT=3:1:6
SET CODE=$PIECE(INFO,D1,CNT)
if CODE=""
QUIT
SET TITLE=$SELECT(CNT=3:"Procedure Modifier",1:"")
DO SET(TITLE,$$CPTMOD(CODE))
+8 SET CODE=$PIECE(INFO,D1,7)
IF $LENGTH(CODE)
DO SET("Description",$$CPTMOD(CODE))
End DoDot:1
+9 DO SET("Line Item Charge",$$DOL($PIECE(DATA,D,3)))
+10 DO SET("Place of Service Code",$PIECE(DATA,D,4))
+11 SET CODE=$PIECE(DATA,D,5)
FOR CNT=1:1:5
DO SET($SELECT(CNT=1:"Oral Cavity Designation Code",1:""),$PIECE(CODE,D1,CNT))
+12 SET CODE=$PIECE(DATA,D,6)
IF $LENGTH(CODE)
Begin DoDot:1
+13 IF CODE="I"
SET CODE="Initial Placement"
QUIT
+14 IF CODE="R"
SET CODE="Replacement"
QUIT
End DoDot:1
DO SET("Prothesis, Crown, or Inlay Code",CODE)
+15 SET CODE=$PIECE(DATA,D,7)
IF $LENGTH(CODE)
DO SET("Procedure Count",CODE)
+16 SET CODE=$PIECE(DATA,D,12)
FOR CNT=1:1:4
DO SET($SELECT(CNT=1:"Diagnosis Code",1:""),$PIECE(CODE,D1,CNT))
+17 QUIT
+18 ;
SV5 ;DME Service
+1 NEW INFO
+2 SET INFO=$PIECE(DATA,D,2)
Begin DoDot:1
+3 SET CODE=$PIECE(INFO,D1,1)
Begin DoDot:2
+4 IF CODE="HC"
SET CODE="HCPCS Code"
SET $PIECE(INFO,D1,2)=$$HCPCS($PIECE(INFO,D1,2))
End DoDot:2
DO SET("Product/Service ID",CODE)
+5 DO SET("Procedure Code",$PIECE(INFO,D1,2))
End DoDot:1
+6 DO SET("Length of Medical Necessity",$PIECE(DATA,D,4)_$SELECT($PIECE(DATA,D,3)="DA":" Day(s)",1:""))
+7 DO SET("DME Rental Price",$$DOL($PIECE(DATA,D,5)))
+8 DO SET("DME Purchase Price",$$DOL($PIECE(DATA,D,6)))
+9 SET CODE=$PIECE(DATA,D,7)
Begin DoDot:1
+10 IF CODE=1
SET CODE="Weekly"
QUIT
+11 IF CODE=4
SET CODE="Monthly"
QUIT
+12 IF CODE=1
SET CODE="Daily"
QUIT
End DoDot:1
DO SET("Rental Unit Price Indicator",CODE)
+13 QUIT
+14 ;
SVD ;Line Adjudication Information
+1 NEW CNT
+2 DO SET("Other Payer Primary Identifier",$PIECE(DATA,D,2))
+3 DO SET("Service Line Paid Amount",$PIECE(DATA,D,3))
+4 SET INFO=$PIECE(DATA,D,4)
Begin DoDot:1
+5 SET CODE=$PIECE(INFO,D1,1)
Begin DoDot:2
+6 IF CODE="AD"
SET CODE="American Dental Association Codes"
QUIT
+7 IF CODE="ER"
SET CODE="Jurusdiction Specific Procedure and Supply Code"
QUIT
+8 IF CODE="HC"
SET CODE="HCPCS Code"
SET $PIECE(INFO,D1,2)=$$HCPCS($PIECE(INFO,D1,2))
QUIT
+9 IF CODE="HP"
SET CODE="HIPPS Skilled Nursing Facility Rate Code"
QUIT
+10 IF CODE="IV"
SET CODE="HIEC Product/Service Code"
QUIT
+11 IF CODE="WK"
SET CODE="Advanced Billing Concepts Code"
QUIT
End DoDot:2
DO SET("Product/Service ID",CODE)
+12 DO SET("Procedure Code",$PIECE(INFO,D1,2))
+13 FOR CNT=3:1:6
SET CODE=$PIECE(INFO,D1,CNT)
if CODE=""
QUIT
SET TITLE=$SELECT(CNT=3:"Procedure Modifier",1:"")
DO SET(TITLE,$$CPTMOD(CODE))
+14 SET CODE=$PIECE(INFO,D1,7)
IF $LENGTH(CODE)
DO SET("Description",$$CPTMOD(CODE))
End DoDot:1
+15 SET CODE=$PIECE(DATA,D,5)
IF $LENGTH(CODE)
DO SET("Service Line Revenue Code",CODE)
+16 DO SET("Paid Service Unit Count",$PIECE(DATA,D,6))
+17 SET CODE=$PIECE(DATA,D,7)
IF $LENGTH(CODE)
DO SET("Bundled or Unbundled Line Number",CODE)
+18 QUIT
+19 ;
CPTMOD(CODE) ;CPT Code Modifier lookup v12
+1 NEW CPTARY,RSLT
+2 ;ICR #1996 (Supported)
SET RSLT=$$MOD^ICPTMOD(CODE,.CPTARY)
+3 IF RSLT'[""
SET CODE=CODE_" - Unknown Code"
GOTO CPTMODQ
+4 SET CODE=CODE_" - "_$PIECE(RSLT,U,3)
CPTMODQ QUIT CODE
+1 ;
DATE(DATE,TYPE) ;Format Date/Time
+1 NEW D1
+2 SET TYPE=$GET(TYPE,"D8")
+3 IF TYPE="TM"
SET D1=DATE
GOTO DATEQ
+4 IF TYPE="D8"!(TYPE="DT")
Begin DoDot:1
+5 SET D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($EXTRACT(DATE,1,8)),1)
+6 IF TYPE="DT"
SET D1=D1_" "_$EXTRACT(DATE,9,12)
End DoDot:1
GOTO DATEQ
+7 SET D1=$$FMTE^XLFDT($$HL7TFM^XLFDT($PIECE(DATE,"-",1),1))_"-"_$$FMTE^XLFDT($$HL7TFM^XLFDT($PIECE(DATE,"-",2),1))
DATEQ ;
+1 QUIT D1
+2 ;
DOL(DATA) ;Format Dollars
+1 SET DATA="$"_$FNUMBER(DATA,",",2)
+2 QUIT DATA
+3 ;
HCPCS(CODE) ;CPT Code lookup v12
+1 NEW CPTARY,RSLT
+2 ;ICR #1995 (Supported)
SET RSLT=$$CPT^ICPTCOD(CODE,.CPTARY)
+3 IF RSLT'[""
SET CODE=CODE_" - Unknown Code"
GOTO HCPCSQ
+4 SET CODE=CODE_" - "_$PIECE(RSLT,U,3)
HCPCSQ QUIT CODE
+1 ;
NAME(DATA) ;Format Person Name
+1 NEW LAST,FIRST,MI,SUF
+2 SET LAST=$PIECE(DATA,D,4)
SET FIRST=$PIECE(DATA,D,5)
SET MI=$PIECE(DATA,D,6)
SET SUF=$PIECE(DATA,D,8)
+3 QUIT LAST_$SELECT($LENGTH(FIRST):", ",1:"")_FIRST_" "_$SELECT($LENGTH(MI):MI_" ",1:"")_SUF
+4 ;
PHONE(NUM) ;Format phone number
+1 QUIT "("_$EXTRACT(NUM,1,3)_") "_$EXTRACT(NUM,4,6)_"-"_$EXTRACT(NUM,7,10)
+2 ;
YN(YN) ;Translate Yes/No element
+1 QUIT $SELECT(YN="W":"Not Applicable",YN="U":"Uknown",YN="Y":"Yes",1:"No")
+2 ;
ZIP(ZIP) ;Format Zip Code
+1 QUIT $EXTRACT(ZIP,1,5)_$SELECT($LENGTH(ZIP>5):"-"_$EXTRACT(ZIP,6,9),1:"")
+2 ;
SET(TITLE,VALUE,BLANK,HEADER) ;
+1 DO SET^IBACCWLVE($GET(TITLE),$GET(VALUE),$GET(BLANK),$GET(HEADER))
+2 QUIT
