EDPBRS ;SLC/KCM - Reset Board Configuration ;2/28/12 08:33am
;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103
;
RESET(AREA) ; Set initial configuration for site & area
D SPEC(AREA),COLOR(AREA),ROOMS(AREA),PARAMS(AREA)
S ^EDPB(231.9,AREA,231)=$H
Q
SPEC(AREA) ; Set up default board spec
; assumes site, area passed in
N I,X,WP,MSG
F I=1:1 S X=$P($T(BRDXML+I),";",3,99) Q:$E(X,1,5)="zzzzz" S WP(I)=X
D UPDBRD^EDPBCF(AREA,0,"Main (default)",.WP,.MSG)
Q
BRDXML ; XML for the board spec
;;<row color="stsAcuity"/>
;;<displayProperties fontSize="10" displayWidth="1024" displayLabel="1024x768" scrollDelay="7" />
;;<col att="@bedNm" header="Room" color="" width="48" label="Room / Bed"/>
;;<col att="@last4" header="Patient" color="" width="58" label="Patient X9999"/>
;;<col att="@complaint" header="Complaint" color="" width="406" label="Complaint"/>
;;<col att="@mdNm" header="Prv" color="" width="51" label="Provider Initials"/>
;;<col att="@resNm" header="Res" color="" width="51" label="Resident Initials"/>
;;<col att="@rnNm" header="RN" color="" width="51" label="Nurse Initials"/>
;;<col att="@acuityNm" header="Acuity" color="" width="51" label="Acuity"/>
;;<col att="@emins" header="E Mins" color="" width="51" label="Total Minutes"/>
;;<col att="@lab" header="L" color="labUrg" width="51" label="Lab Active/Complete"/>
;;<col att="@rad" header="I" color="radUrg" width="61" label="Imaging Active/Complete"/>
;;zzzzz
;;
COLOR(AREA) ; Set up default colors
N I,X,WP
F I=1:1 S X=$P($T(CLRXML+I),";",3,99) Q:$E(X,1,5)="zzzzz" S WP(I)=X
D WP^DIE(231.9,AREA_",",3,"","WP")
I $D(DIERR) W !,"spec update failed"
D CLEAN^DILF
Q
CLRXML ; XML for the color spec
;;<colors id="stsAcuity" type="val" >
;;<map att="@status" clr="1,0xffffff,0x808000" val="8" />
;;<map att="@status" clr="0" val="9" />
;;<map att="@status" clr="0" val="10" />
;;<map att="@status" clr="0" val="11" />
;;<map att="@status" clr="1,0xffffff,0x800000" val="12" />
;;<map att="@status" clr="1,0x000000,0xfffbf0" val="13" />
;;<map att="@status" clr="1,0xff0000,0xc0dcc0" val="14" />
;;<map att="@acuity" clr="1,0x000000,0xff0000" val="1" />
;;<map att="@acuity" clr="1,0xffffff,0x0000ff" val="2" />
;;<map att="@acuity" clr="1,0x000000,0xff00ff" val="3" />
;;<map att="@acuity" clr="1,0x000000,0x00ff00" val="4" />
;;<map att="@acuity" clr="0" nm="5" val="5" />
;;</colors>
;;<colors id="labUrg" nm="Urgency - Lab" type="val" >
;;<map att="@labUrg" clr="1,0x000000,0x00ff00" val="0" />
;;<map att="@labUrg" clr="1,0x000000,0xffff00" val="1" />
;;<map att="@labUrg" clr="1,0x000000,0xff0000" val="2" />
;;</colors>
;;<colors id="radUrg" nm="Urgency - Radiology" type="val" >
;;<map att="@radUrg" clr="1,0x000000,0x00ff00" val="0" />
;;<map att="@radUrg" clr="1,0x000000,0xffff00" val="1" />
;;<map att="@radUrg" clr="1,0x000000,0xff0000" val="2" />
;;</colors>
;;zzzzz
;;
ROOMS(AREA) ; baseline rooms
N I,X
F I=1:1 S X=$P($T(ROOMLST+I),";",3,99) Q:$E(X,1,5)="zzzzz" D
. N FDA,FDAIEN,DIERR,ERR
. S FDA(231.8,"+1,",.01)=$P(X,U)
. S FDA(231.8,"+1,",.02)=EDPSITE
. S FDA(231.8,"+1,",.03)=AREA
. S FDA(231.8,"+1,",.05)=$P(X,U,3)
. S FDA(231.8,"+1,",.06)=$P(X,U,2)
. S FDA(231.8,"+1,",.07)=$P(X,U,4)
. S FDA(231.8,"+1,",.09)=$P(X,U,5)
. D UPDATE^DIE("","FDA","FDAIEN","ERR")
D CLEAN^DILF
Q
ROOMLST ; Name^Display Name^Seq^When^Category^Primary
;;Waiting^WAIT^1^0^2^1
;;Ambulance^AMBU^5^0^1^1
;;Hallway^HALL^10^0^1^1
;;General Radiology^RAD^110^0^1^0
;;CT^CT^120^0^1^0
;;MRI^MRI^130^0^1^0
;;Cardiac Cath^CATH^140^0^1^0
;;Cardiac Stress Test^STEST^150^0^1^0
;;Dialysis^DIAL^160^0^1^0
;;Subspecialty Clinic^SCLIN^170^0^1^0
;;zzzzz
PARAMS(AREA) ; baseline parameters
N FDA,DIERR
S AREA=AREA_","
S FDA(231.9,AREA,1.1)=1
S FDA(231.9,AREA,1.2)=1
S FDA(231.9,AREA,1.3)=1
S FDA(231.9,AREA,1.4)=1
S FDA(231.9,AREA,1.5)=300
S FDA(231.9,AREA,1.6)=420
S FDA(231.9,AREA,1.7)=480
S FDA(231.9,AREA,1.8)=1
S FDA(231.9,AREA,1.11)=$O(^EDPB(231.8,"AC",EDPSITE,+AREA,"AMBU",0))
S FDA(231.9,AREA,1.12)=$O(^EDPB(231.8,"AC",EDPSITE,+AREA,"WAIT",0))
D FILE^DIE("","FDA","ERR")
D CLEAN^DILF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDPBRS 4232 printed Nov 22, 2024@17:01:46 Page 2
EDPBRS ;SLC/KCM - Reset Board Configuration ;2/28/12 08:33am
+1 ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103
+2 ;
RESET(AREA) ; Set initial configuration for site & area
+1 DO SPEC(AREA)
DO COLOR(AREA)
DO ROOMS(AREA)
DO PARAMS(AREA)
+2 SET ^EDPB(231.9,AREA,231)=$HOROLOG
+3 QUIT
SPEC(AREA) ; Set up default board spec
+1 ; assumes site, area passed in
+2 NEW I,X,WP,MSG
+3 FOR I=1:1
SET X=$PIECE($TEXT(BRDXML+I),";",3,99)
if $EXTRACT(X,1,5)="zzzzz"
QUIT
SET WP(I)=X
+4 DO UPDBRD^EDPBCF(AREA,0,"Main (default)",.WP,.MSG)
+5 QUIT
BRDXML ; XML for the board spec
+1 ;;<row color="stsAcuity"/>
+2 ;;<displayProperties fontSize="10" displayWidth="1024" displayLabel="1024x768" scrollDelay="7" />
+3 ;;<col att="@bedNm" header="Room" color="" width="48" label="Room / Bed"/>
+4 ;;<col att="@last4" header="Patient" color="" width="58" label="Patient X9999"/>
+5 ;;<col att="@complaint" header="Complaint" color="" width="406" label="Complaint"/>
+6 ;;<col att="@mdNm" header="Prv" color="" width="51" label="Provider Initials"/>
+7 ;;<col att="@resNm" header="Res" color="" width="51" label="Resident Initials"/>
+8 ;;<col att="@rnNm" header="RN" color="" width="51" label="Nurse Initials"/>
+9 ;;<col att="@acuityNm" header="Acuity" color="" width="51" label="Acuity"/>
+10 ;;<col att="@emins" header="E Mins" color="" width="51" label="Total Minutes"/>
+11 ;;<col att="@lab" header="L" color="labUrg" width="51" label="Lab Active/Complete"/>
+12 ;;<col att="@rad" header="I" color="radUrg" width="61" label="Imaging Active/Complete"/>
+13 ;;zzzzz
+14 ;;
COLOR(AREA) ; Set up default colors
+1 NEW I,X,WP
+2 FOR I=1:1
SET X=$PIECE($TEXT(CLRXML+I),";",3,99)
if $EXTRACT(X,1,5)="zzzzz"
QUIT
SET WP(I)=X
+3 DO WP^DIE(231.9,AREA_",",3,"","WP")
+4 IF $DATA(DIERR)
WRITE !,"spec update failed"
+5 DO CLEAN^DILF
+6 QUIT
CLRXML ; XML for the color spec
+1 ;;<colors id="stsAcuity" type="val" >
+2 ;;<map att="@status" clr="1,0xffffff,0x808000" val="8" />
+3 ;;<map att="@status" clr="0" val="9" />
+4 ;;<map att="@status" clr="0" val="10" />
+5 ;;<map att="@status" clr="0" val="11" />
+6 ;;<map att="@status" clr="1,0xffffff,0x800000" val="12" />
+7 ;;<map att="@status" clr="1,0x000000,0xfffbf0" val="13" />
+8 ;;<map att="@status" clr="1,0xff0000,0xc0dcc0" val="14" />
+9 ;;<map att="@acuity" clr="1,0x000000,0xff0000" val="1" />
+10 ;;<map att="@acuity" clr="1,0xffffff,0x0000ff" val="2" />
+11 ;;<map att="@acuity" clr="1,0x000000,0xff00ff" val="3" />
+12 ;;<map att="@acuity" clr="1,0x000000,0x00ff00" val="4" />
+13 ;;<map att="@acuity" clr="0" nm="5" val="5" />
+14 ;;</colors>
+15 ;;<colors id="labUrg" nm="Urgency - Lab" type="val" >
+16 ;;<map att="@labUrg" clr="1,0x000000,0x00ff00" val="0" />
+17 ;;<map att="@labUrg" clr="1,0x000000,0xffff00" val="1" />
+18 ;;<map att="@labUrg" clr="1,0x000000,0xff0000" val="2" />
+19 ;;</colors>
+20 ;;<colors id="radUrg" nm="Urgency - Radiology" type="val" >
+21 ;;<map att="@radUrg" clr="1,0x000000,0x00ff00" val="0" />
+22 ;;<map att="@radUrg" clr="1,0x000000,0xffff00" val="1" />
+23 ;;<map att="@radUrg" clr="1,0x000000,0xff0000" val="2" />
+24 ;;</colors>
+25 ;;zzzzz
+26 ;;
ROOMS(AREA) ; baseline rooms
+1 NEW I,X
+2 FOR I=1:1
SET X=$PIECE($TEXT(ROOMLST+I),";",3,99)
if $EXTRACT(X,1,5)="zzzzz"
QUIT
Begin DoDot:1
+3 NEW FDA,FDAIEN,DIERR,ERR
+4 SET FDA(231.8,"+1,",.01)=$PIECE(X,U)
+5 SET FDA(231.8,"+1,",.02)=EDPSITE
+6 SET FDA(231.8,"+1,",.03)=AREA
+7 SET FDA(231.8,"+1,",.05)=$PIECE(X,U,3)
+8 SET FDA(231.8,"+1,",.06)=$PIECE(X,U,2)
+9 SET FDA(231.8,"+1,",.07)=$PIECE(X,U,4)
+10 SET FDA(231.8,"+1,",.09)=$PIECE(X,U,5)
+11 DO UPDATE^DIE("","FDA","FDAIEN","ERR")
End DoDot:1
+12 DO CLEAN^DILF
+13 QUIT
ROOMLST ; Name^Display Name^Seq^When^Category^Primary
+1 ;;Waiting^WAIT^1^0^2^1
+2 ;;Ambulance^AMBU^5^0^1^1
+3 ;;Hallway^HALL^10^0^1^1
+4 ;;General Radiology^RAD^110^0^1^0
+5 ;;CT^CT^120^0^1^0
+6 ;;MRI^MRI^130^0^1^0
+7 ;;Cardiac Cath^CATH^140^0^1^0
+8 ;;Cardiac Stress Test^STEST^150^0^1^0
+9 ;;Dialysis^DIAL^160^0^1^0
+10 ;;Subspecialty Clinic^SCLIN^170^0^1^0
+11 ;;zzzzz
PARAMS(AREA) ; baseline parameters
+1 NEW FDA,DIERR
+2 SET AREA=AREA_","
+3 SET FDA(231.9,AREA,1.1)=1
+4 SET FDA(231.9,AREA,1.2)=1
+5 SET FDA(231.9,AREA,1.3)=1
+6 SET FDA(231.9,AREA,1.4)=1
+7 SET FDA(231.9,AREA,1.5)=300
+8 SET FDA(231.9,AREA,1.6)=420
+9 SET FDA(231.9,AREA,1.7)=480
+10 SET FDA(231.9,AREA,1.8)=1
+11 SET FDA(231.9,AREA,1.11)=$ORDER(^EDPB(231.8,"AC",EDPSITE,+AREA,"AMBU",0))
+12 SET FDA(231.9,AREA,1.12)=$ORDER(^EDPB(231.8,"AC",EDPSITE,+AREA,"WAIT",0))
+13 DO FILE^DIE("","FDA","ERR")
+14 DO CLEAN^DILF
+15 QUIT
