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

EDPQAR.m

Go to the documentation of this file.
  1. EDPQAR ;SLC/KCM - Log Area Information ;2/28/12 08:33am
  1. ;;2.0;EMERGENCY DEPARTMENT;**6**;Feb 24, 2012;Build 200
  1. ;
  1. PARAM(AREA) ; return parameters for area
  1. N X,X1
  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("residents")=+$P(X1,U,8)
  1. S X("clinics")=+$P(X1,U,9)
  1. S X("emptyIEN")=+$O(^EDPB(233.1,"B","edp.reserved.novalue",0))
  1. S X("errorIEN")=+$O(^EDPB(233.1,"B","edp.disposition.error",0))
  1. S X("evalIEN")=+$O(^EDPB(233.1,"B","edp.disposition.nec",0))
  1. S X("leftIEN")=+$O(^EDPB(233.1,"B","edp.disposition.left",0))
  1. D XML^EDPX($$XMLA^EDPX("params",.X))
  1. Q
  1. ; BYPASS & LSTIENS not implemented yet, perhaps in T25?
  1. ; This would require changing the params VO to have a list
  1. ; of IEN's that would be checked when enabling the remove from
  1. ; board button. EDPLOG would also need to check the flags of
  1. ; the disposition when validating in RDY2RMV
  1. BYPASS(AREA) ; list IEN's for bypass dispositions
  1. N ROOT
  1. D XML^EDPX("<bypassRemoveChecks>")
  1. S ROOT="edp.disposition" D LSTIENS(ROOT)
  1. S ROOT=EDPSTA_".disposition" D LSTIENS(ROOT)
  1. D XML^EDPX("</bypassRemoveChecks>")
  1. Q
  1. LSTIENS(ROOT) ; list IEN's that should bypass remove-from-board checks
  1. N X,IEN,FLAGS
  1. S X=ROOT F S X=$O(^EDPB(233.1,"B",X)) Q:$E(X,1,$L(ROOT))'=ROOT D
  1. . S IEN=0 F S IEN=$O(^EDPB(233.1,"B",X,IEN)) Q:'IEN D
  1. .. S FLAGS=$P(^EDPB(233.1,IEN,0),U,5) Q:FLAGS'["B"
  1. .. D XML^EDPX("<ien>"_IEN_"</ien>")
  1. Q
  1. BRDUSER(AREA) ; set XML for anonymous board user
  1. N X,DFLTROOM
  1. S X("area")=$$DFLTAREA(AREA)
  1. I X("area") S X("areaNm")=$P(^EDPB(231.9,X("area"),0),U)
  1. S X("version")=$$VERSRV
  1. ; bwf patch 6 - 4/25/2013 adding defaultRoom to XML return
  1. I X("area") D
  1. .S DFLTROOM=$$GET1^DIQ(231.9,X("area"),1.12,"I")
  1. .S X("defaultRoom")=$S(DFLTROOM:"true",1:"false")
  1. D XML^EDPX($$XMLA^EDPX("user",.X))
  1. Q
  1. DFLTAREA(AREA) ; return the default area for a site
  1. N X,DFLT
  1. I $L($G(AREA)),(+AREA'=AREA) D
  1. . S AREA=$O(^EDPB(231.9,"B",AREA,0))
  1. . ; need to check for matching site!!
  1. S DFLT=$S($G(AREA):AREA,1:$O(^EDPB(231.9,"C",EDPSITE,0)))
  1. ;
  1. I 'DFLT D ADDAREA S DFLT=$O(^EDPB(231.9,"C",EDPSITE,0))
  1. Q DFLT
  1. ADDAREA ; add area if none is defined for this site
  1. N FDA,FDAIEN,DIERR,ERR
  1. S FDA(231.9,"+1,",.01)="Emergency Department"
  1. S FDA(231.9,"+1,",.02)=EDPSITE
  1. D UPDATE^DIE("","FDA","FDAIEN","ERR")
  1. Q:$D(DIERR)
  1. ;
  1. N AREA S AREA=FDAIEN(1)
  1. D RESET^EDPBRS(AREA)
  1. Q
  1. VERSRV() ; Return server version of option name
  1. N EDPLST,VAL
  1. D FIND^DIC(19,"",1,"X","EDPF TRACKING SYSTEM",1,,,,"EDPLST")
  1. S VAL=$G(EDPLST("DILIST","ID",1,1))
  1. S VAL=$P(VAL,"version ",2)
  1. I 'VAL Q "1.0T?"
  1. Q VAL