EDPBPM.m

EDPBPM ;SLC/KCM - Parameters for Tracking Area ; 4/18/23 8:00am

 ;;2.0;EMERGENCY DEPARTMENT;**23**;Feb 24, 2012;Build 4

 ;

LOAD(AREA) ; load parameters for area

 N X,X1,TOKEN

 D READL^EDPBLK(AREA,"param",.TOKEN)  ; read param config -- LOCK

 D XML^EDPX("<paramToken>"_TOKEN_"</paramToken>")

 S X1=$G(^EDPB(231.9,AREA,1))

 S X("reqDiag")=+$P(X1,U,1)

 S X("codedDiag")=+$P(X1,U,2)

 S X("reqDisp")=+$P(X1,U,3)

 S X("reqDelay")=+$P(X1,U,4)

 S X("minDelay")=+$P(X1,U,5)

 S X("shiftOne")=$P(X1,U,6)

 S X("shiftLen")=$P(X1,U,7)

 S X("residents")=$P(X1,U,8)

 S X("clinics")=$P(X1,U,9)

 S X("ambulance")=$P(X1,U,11)

 S X("dfltroom")=$P(X1,U,12)

 D XML^EDPX($$XMLA^EDPX("params",.X,""))

 D XML^EDPX("<waittxt1><![CDATA["_$G(^EDPB(231.9,AREA,232))_"]]></waittxt1>")

 D XML^EDPX("<waittxt2><![CDATA["_$G(^EDPB(231.9,AREA,233))_"]]></waittxt2>")

 D XML^EDPX("<waittxtupd><![CDATA["_$G(^EDPB(231.9,AREA,234))_"]]></waittxtupd>")

 D XML^EDPX("</params>")

 D READU^EDPBLK(AREA,"param",.TOKEN)  ; read param config -- UNLOCK

 Q

SAVE(AREA,PARAM) ; save updated parameters

 I '$D(^EDPB(231.9,AREA,0)) D SAVERR^EDPX("fail","Area not set up") Q

 ;

 N TOKEN,LOCKERR

 S TOKEN=$G(REQ("paramToken",1))

 D SAVEL^EDPBLK(AREA,"param",.TOKEN,.LOCKERR) ; save param config -- LOCK

 I $L(LOCKERR) D SAVERR^EDPX("collide",LOCKERR),LOAD(AREA) Q

 ;

 N FLD D NVPARSE^EDPX(.FLD,PARAM)

 N FDA,FDAIEN,DIERR

 S AREA=AREA_","

 I FLD("ambulance")=-1 S FLD("ambulance")="@"

 I FLD("dfltroom")=-1 S FLD("dfltroom")="@"

 S FDA(231.9,AREA,1.1)=FLD("reqDiag")

 S FDA(231.9,AREA,1.2)=FLD("codedDiag")

 S FDA(231.9,AREA,1.3)=FLD("reqDisp")

 S FDA(231.9,AREA,1.4)=FLD("reqDelay")

 S FDA(231.9,AREA,1.5)=FLD("minDelay")

 S FDA(231.9,AREA,1.6)=FLD("shiftOne")

 S FDA(231.9,AREA,1.7)=FLD("shiftLen")

 S FDA(231.9,AREA,1.8)=FLD("residents")

 S FDA(231.9,AREA,1.9)=FLD("clinics")

 S FDA(231.9,AREA,1.11)=FLD("ambulance")

 S FDA(231.9,AREA,1.12)=FLD("dfltroom")

 S FDA(231.9,AREA,2)=FLD("waittxt1")

 S FDA(231.9,AREA,5)=FLD("waittxt2")

 S FDA(231.9,AREA,6)=FLD("waittxtupd")

 D FILE^DIE("","FDA","ERR")

 D SAVEU^EDPBLK(+AREA,"param",.TOKEN)         ; save param config -- UNLOCK

 ;

 I $D(DIERR) D SAVERR^EDPX("fail",$G(ERR("DIERR",1,"TEXT",1))) Q

 D XML^EDPX("<save status='ok' />")

 D LOAD(+AREA)

 K ERR,REC

 Q

TZSAVE(AREA,TZDIFF) ; save time zone difference in minutes

 N FDA,FDAIEN,DIERR

 S AREA=AREA_","

 S FDA(231.9,AREA,.03)=TZDIFF

 D FILE^DIE("","FDA","ERR")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EDPBPM   2481     printed  Apr 09, 2024@20:56:40                                                                                                                                                                                                      Page 2

EDPBPM    ;SLC/KCM - Parameters for Tracking Area ; 4/18/23 8:00am

 +1       ;;2.0;EMERGENCY DEPARTMENT;**23**;Feb 24, 2012;Build 4

 +2       ;

LOAD(AREA) ; load parameters for area

 +1        NEW X,X1,TOKEN

 +2       ; read param config -- LOCK

           DO READL^EDPBLK(AREA,"param",.TOKEN)

 +3        DO XML^EDPX("<paramToken>"_TOKEN_"</paramToken>")

 +4        SET X1=$GET(^EDPB(231.9,AREA,1))

 +5        SET X("reqDiag")=+$PIECE(X1,U,1)

 +6        SET X("codedDiag")=+$PIECE(X1,U,2)

 +7        SET X("reqDisp")=+$PIECE(X1,U,3)

 +8        SET X("reqDelay")=+$PIECE(X1,U,4)

 +9        SET X("minDelay")=+$PIECE(X1,U,5)

 +10       SET X("shiftOne")=$PIECE(X1,U,6)

 +11       SET X("shiftLen")=$PIECE(X1,U,7)

 +12       SET X("residents")=$PIECE(X1,U,8)

 +13       SET X("clinics")=$PIECE(X1,U,9)

 +14       SET X("ambulance")=$PIECE(X1,U,11)

 +15       SET X("dfltroom")=$PIECE(X1,U,12)

 +16       DO XML^EDPX($$XMLA^EDPX("params",.X,""))

 +17       DO XML^EDPX("<waittxt1><![CDATA["_$GET(^EDPB(231.9,AREA,232))_"]]></waittxt1>")

 +18       DO XML^EDPX("<waittxt2><![CDATA["_$GET(^EDPB(231.9,AREA,233))_"]]></waittxt2>")

 +19       DO XML^EDPX("<waittxtupd><![CDATA["_$GET(^EDPB(231.9,AREA,234))_"]]></waittxtupd>")

 +20       DO XML^EDPX("</params>")

 +21      ; read param config -- UNLOCK

           DO READU^EDPBLK(AREA,"param",.TOKEN)

 +22       QUIT 

SAVE(AREA,PARAM) ; save updated parameters

 +1        IF '$DATA(^EDPB(231.9,AREA,0))

               DO SAVERR^EDPX("fail","Area not set up")

               QUIT 

 +2       ;

 +3        NEW TOKEN,LOCKERR

 +4        SET TOKEN=$GET(REQ("paramToken",1))

 +5       ; save param config -- LOCK

           DO SAVEL^EDPBLK(AREA,"param",.TOKEN,.LOCKERR)

 +6        IF $LENGTH(LOCKERR)

               DO SAVERR^EDPX("collide",LOCKERR)

               DO LOAD(AREA)

               QUIT 

 +7       ;

 +8        NEW FLD

           DO NVPARSE^EDPX(.FLD,PARAM)

 +9        NEW FDA,FDAIEN,DIERR

 +10       SET AREA=AREA_","

 +11       IF FLD("ambulance")=-1

               SET FLD("ambulance")="@"

 +12       IF FLD("dfltroom")=-1

               SET FLD("dfltroom")="@"

 +13       SET FDA(231.9,AREA,1.1)=FLD("reqDiag")

 +14       SET FDA(231.9,AREA,1.2)=FLD("codedDiag")

 +15       SET FDA(231.9,AREA,1.3)=FLD("reqDisp")

 +16       SET FDA(231.9,AREA,1.4)=FLD("reqDelay")

 +17       SET FDA(231.9,AREA,1.5)=FLD("minDelay")

 +18       SET FDA(231.9,AREA,1.6)=FLD("shiftOne")

 +19       SET FDA(231.9,AREA,1.7)=FLD("shiftLen")

 +20       SET FDA(231.9,AREA,1.8)=FLD("residents")

 +21       SET FDA(231.9,AREA,1.9)=FLD("clinics")

 +22       SET FDA(231.9,AREA,1.11)=FLD("ambulance")

 +23       SET FDA(231.9,AREA,1.12)=FLD("dfltroom")

 +24       SET FDA(231.9,AREA,2)=FLD("waittxt1")

 +25       SET FDA(231.9,AREA,5)=FLD("waittxt2")

 +26       SET FDA(231.9,AREA,6)=FLD("waittxtupd")

 +27       DO FILE^DIE("","FDA","ERR")

 +28      ; save param config -- UNLOCK

           DO SAVEU^EDPBLK(+AREA,"param",.TOKEN)

 +29      ;

 +30       IF $DATA(DIERR)

               DO SAVERR^EDPX("fail",$GET(ERR("DIERR",1,"TEXT",1)))

               QUIT 

 +31       DO XML^EDPX("<save status='ok' />")

 +32       DO LOAD(+AREA)

 +33       KILL ERR,REC

 +34       QUIT 

TZSAVE(AREA,TZDIFF) ; save time zone difference in minutes

 +1        NEW FDA,FDAIEN,DIERR

 +2        SET AREA=AREA_","

 +3        SET FDA(231.9,AREA,.03)=TZDIFF

 +4        DO FILE^DIE("","FDA","ERR")

 +5        QUIT