- BUDARPTE ; IHS/CMI/LAB - UDS REPORT PROCESSOR 03 Feb 2013 1:15 PM ; 23 Jan 2013 10:19 AM
- ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
- ;
- ;
- PROC ;EP - called from xbdbque
- S BUDJ=$J,BUDH=$H
- K ^TMP($J)
- S ^XTMP("BUDARPT1",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"UDS REPORT"
- S ^XTMP("BUDARP6B",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^UDS TABLE 6B LISTS"
- S ^XTMP("BUDARP7",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^BUD TABLE 7 LISTS"
- S ^XTMP("BUDARP9DEL",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^BUD TABLE 9 DELIMINTED FILE"
- ;TABLE 3A
- K BUDTOT F X=1:1:39 S $P(BUDTOT("M"),U,X)=0,$P(BUDTOT("F"),U,X)=0,$P(BUDTOT("ALL"),U,X)=0,BUDTOT("U")=0 ;3A
- S BUD019("M")="",BUD019("F")="",BUD019("ALL")=""
- ;TABLE 5
- F X=1:1:6 S BUDTAB5(X)="0^0"
- F X=7:1:38 S BUDTAB5(X)="0^0"
- F X="9A","9B","20A","20A1","20A2","20B","20C","22A","22B","22C","22D","29A","10A","27a","27b","30A","30B","30C" S BUDTAB5(X)="0^0"
- ;TABLE 3B
- K BUDRACET
- ;S BUDRACET(LINE)=LINE NUMBER^LABEL^HISP/LATINO^NOT HISPANIC^UNREP^TOTAL^LINE LABEL 2^LINE LABEL 3"
- S BUDRACET(1)="1.^Asian^0^0^0^0"
- S BUDRACET("2A")="2a.^Native Hawaiian^0^0^0^0"
- S BUDRACET("2B")="2b.^Other Pacific^0^0^0^0^Islander"
- S BUDRACET(2)="2.^Total Hawaiian/^0^0^0^0^Pacific Islander^(Sum Lines 2a+2b)"
- S BUDRACET(3)="3.^Black/African^0^0^0^0^American"
- S BUDRACET(4)="4.^American Indian/^0^0^0^0^Alaska Native"
- S BUDRACET(5)="5.^White^0^0^0^0"
- S BUDRACET(6)="6.^More than one^0^0^0^0^race"
- S BUDRACET(7)="7.^Unreported/^0^0^0^0^Refused to Report"
- S BUDRACET(8)="8.^Total Patients^0^0^0^0^(Sum Lines 1+2^+ 3 to 7)"
- K BUDLANG
- S BUDLANG(9)="9.^Patients Best Served in a Language Other Than^0^English"
- ;TABLE 6
- F X=1:1:26 S $P(BUDT6("V"),U,X)=0,$P(BUDT6("P"),U,X)=0
- ;TABLE 4
- K BUDT4V
- F X=1:1:6 S BUDT4V(X)=0
- F X=7,"8a","8b",8,9,"10a","10b",10,11,12 S BUDT4V(X)="0^0"
- F X=14:1:25 S BUDT4V(X)=0
- ;TABLE 9 DELIMITED
- S BUDT9C=0
- ;TABLE 9D
- K BUDT9TC
- F X=1,"2a","2b",3,4,"5a","5b",6,7,"8a","8b",9,10,"11a","11b",12,13,14 S BUDT9(X)="0^0" ;COLUMN A & B
- Q
- BUDARPTE ; IHS/CMI/LAB - UDS REPORT PROCESSOR 03 Feb 2013 1:15 PM ; 23 Jan 2013 10:19 AM
- +1 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
- +2 ;
- +3 ;
- PROC ;EP - called from xbdbque
- +1 SET BUDJ=$JOB
- SET BUDH=$HOROLOG
- +2 KILL ^TMP($JOB)
- +3 SET ^XTMP("BUDARPT1",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^"_"UDS REPORT"
- +4 SET ^XTMP("BUDARP6B",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^UDS TABLE 6B LISTS"
- +5 SET ^XTMP("BUDARP7",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^BUD TABLE 7 LISTS"
- +6 SET ^XTMP("BUDARP9DEL",0)=$$FMADD^XLFDT(DT,14)_"^"_DT_"^BUD TABLE 9 DELIMINTED FILE"
- +7 ;TABLE 3A
- +8 ;3A
- KILL BUDTOT
- FOR X=1:1:39
- SET $PIECE(BUDTOT("M"),U,X)=0
- SET $PIECE(BUDTOT("F"),U,X)=0
- SET $PIECE(BUDTOT("ALL"),U,X)=0
- SET BUDTOT("U")=0
- +9 SET BUD019("M")=""
- SET BUD019("F")=""
- SET BUD019("ALL")=""
- +10 ;TABLE 5
- +11 FOR X=1:1:6
- SET BUDTAB5(X)="0^0"
- +12 FOR X=7:1:38
- SET BUDTAB5(X)="0^0"
- +13 FOR X="9A","9B","20A","20A1","20A2","20B","20C","22A","22B","22C","22D","29A","10A","27a","27b","30A","30B","30C"
- SET BUDTAB5(X)="0^0"
- +14 ;TABLE 3B
- +15 KILL BUDRACET
- +16 ;S BUDRACET(LINE)=LINE NUMBER^LABEL^HISP/LATINO^NOT HISPANIC^UNREP^TOTAL^LINE LABEL 2^LINE LABEL 3"
- +17 SET BUDRACET(1)="1.^Asian^0^0^0^0"
- +18 SET BUDRACET("2A")="2a.^Native Hawaiian^0^0^0^0"
- +19 SET BUDRACET("2B")="2b.^Other Pacific^0^0^0^0^Islander"
- +20 SET BUDRACET(2)="2.^Total Hawaiian/^0^0^0^0^Pacific Islander^(Sum Lines 2a+2b)"
- +21 SET BUDRACET(3)="3.^Black/African^0^0^0^0^American"
- +22 SET BUDRACET(4)="4.^American Indian/^0^0^0^0^Alaska Native"
- +23 SET BUDRACET(5)="5.^White^0^0^0^0"
- +24 SET BUDRACET(6)="6.^More than one^0^0^0^0^race"
- +25 SET BUDRACET(7)="7.^Unreported/^0^0^0^0^Refused to Report"
- +26 SET BUDRACET(8)="8.^Total Patients^0^0^0^0^(Sum Lines 1+2^+ 3 to 7)"
- +27 KILL BUDLANG
- +28 SET BUDLANG(9)="9.^Patients Best Served in a Language Other Than^0^English"
- +29 ;TABLE 6
- +30 FOR X=1:1:26
- SET $PIECE(BUDT6("V"),U,X)=0
- SET $PIECE(BUDT6("P"),U,X)=0
- +31 ;TABLE 4
- +32 KILL BUDT4V
- +33 FOR X=1:1:6
- SET BUDT4V(X)=0
- +34 FOR X=7,"8a","8b",8,9,"10a","10b",10,11,12
- SET BUDT4V(X)="0^0"
- +35 FOR X=14:1:25
- SET BUDT4V(X)=0
- +36 ;TABLE 9 DELIMITED
- +37 SET BUDT9C=0
- +38 ;TABLE 9D
- +39 KILL BUDT9TC
- +40 ;COLUMN A & B
- FOR X=1,"2a","2b",3,4,"5a","5b",6,7,"8a","8b",9,10,"11a","11b",12,13,14
- SET BUDT9(X)="0^0"
- +41 QUIT