Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: EDPBPM

EDPBPM.m

Go to the documentation of this file.
  1. EDPBPM ;SLC/KCM - Parameters for Tracking Area ; 4/18/23 8:00am
  1. ;;2.0;EMERGENCY DEPARTMENT;**23**;Feb 24, 2012;Build 4
  1. ;
  1. LOAD(AREA) ; load parameters for area
  1. N X,X1,TOKEN
  1. D READL^EDPBLK(AREA,"param",.TOKEN) ; read param config -- LOCK
  1. D XML^EDPX("<paramToken>"_TOKEN_"</paramToken>")
  1. S X1=$G(^EDPB(231.9,AREA,1))
  1. S X("reqDiag")=+$P(X1,U,1)
  1. S X("codedDiag")=+$P(X1,U,2)
  1. S X("reqDisp")=+$P(X1,U,3)
  1. S X("reqDelay")=+$P(X1,U,4)
  1. S X("minDelay")=+$P(X1,U,5)
  1. S X("shiftOne")=$P(X1,U,6)
  1. S X("shiftLen")=$P(X1,U,7)
  1. S X("residents")=$P(X1,U,8)
  1. S X("clinics")=$P(X1,U,9)
  1. S X("ambulance")=$P(X1,U,11)
  1. S X("dfltroom")=$P(X1,U,12)
  1. D XML^EDPX($$XMLA^EDPX("params",.X,""))
  1. D XML^EDPX("<waittxt1><![CDATA["_$G(^EDPB(231.9,AREA,232))_"]]></waittxt1>")
  1. D XML^EDPX("<waittxt2><![CDATA["_$G(^EDPB(231.9,AREA,233))_"]]></waittxt2>")
  1. D XML^EDPX("<waittxtupd><![CDATA["_$G(^EDPB(231.9,AREA,234))_"]]></waittxtupd>")
  1. D XML^EDPX("</params>")
  1. D READU^EDPBLK(AREA,"param",.TOKEN) ; read param config -- UNLOCK
  1. Q
  1. SAVE(AREA,PARAM) ; save updated parameters
  1. I '$D(^EDPB(231.9,AREA,0)) D SAVERR^EDPX("fail","Area not set up") Q
  1. ;
  1. N TOKEN,LOCKERR
  1. S TOKEN=$G(REQ("paramToken",1))
  1. D SAVEL^EDPBLK(AREA,"param",.TOKEN,.LOCKERR) ; save param config -- LOCK
  1. I $L(LOCKERR) D SAVERR^EDPX("collide",LOCKERR),LOAD(AREA) Q
  1. ;
  1. N FLD D NVPARSE^EDPX(.FLD,PARAM)
  1. N FDA,FDAIEN,DIERR
  1. S AREA=AREA_","
  1. I FLD("ambulance")=-1 S FLD("ambulance")="@"
  1. I FLD("dfltroom")=-1 S FLD("dfltroom")="@"
  1. S FDA(231.9,AREA,1.1)=FLD("reqDiag")
  1. S FDA(231.9,AREA,1.2)=FLD("codedDiag")
  1. S FDA(231.9,AREA,1.3)=FLD("reqDisp")
  1. S FDA(231.9,AREA,1.4)=FLD("reqDelay")
  1. S FDA(231.9,AREA,1.5)=FLD("minDelay")
  1. S FDA(231.9,AREA,1.6)=FLD("shiftOne")
  1. S FDA(231.9,AREA,1.7)=FLD("shiftLen")
  1. S FDA(231.9,AREA,1.8)=FLD("residents")
  1. S FDA(231.9,AREA,1.9)=FLD("clinics")
  1. S FDA(231.9,AREA,1.11)=FLD("ambulance")
  1. S FDA(231.9,AREA,1.12)=FLD("dfltroom")
  1. S FDA(231.9,AREA,2)=FLD("waittxt1")
  1. S FDA(231.9,AREA,5)=FLD("waittxt2")
  1. S FDA(231.9,AREA,6)=FLD("waittxtupd")
  1. D FILE^DIE("","FDA","ERR")
  1. D SAVEU^EDPBLK(+AREA,"param",.TOKEN) ; save param config -- UNLOCK
  1. ;
  1. I $D(DIERR) D SAVERR^EDPX("fail",$G(ERR("DIERR",1,"TEXT",1))) Q
  1. D XML^EDPX("<save status='ok' />")
  1. D LOAD(+AREA)
  1. K ERR,REC
  1. Q
  1. TZSAVE(AREA,TZDIFF) ; save time zone difference in minutes
  1. N FDA,FDAIEN,DIERR
  1. S AREA=AREA_","
  1. S FDA(231.9,AREA,.03)=TZDIFF
  1. D FILE^DIE("","FDA","ERR")
  1. Q