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

EDP20P.m

Go to the documentation of this file.
  1. EDP20P ;PHI/WAR - Update EDPF SCHEDULING TRIGGER values ; 2/21/23 2:57pm
  1. ;;2.0;EMERGENCY DEPARTMENT;**20**;May 2, 2012;Build 7
  1. ;
  1. Q
  1. ;
  1. INIT ;
  1. D CHG^XPAR("SYS","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
  1. D CHG^XPAR("PKG.EMERGENCY DEPARTMENT","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
  1. CHGDIV ;
  1. N SITECODE,SITENAME
  1. S SITECODE=0
  1. F S SITECODE=$O(^EDPB(231.9,"C",SITECODE)) Q:'SITECODE D
  1. .S SITENAME=$P(^DIC(4,SITECODE,0),U,1)
  1. .D CHG^XPAR(""_"DIV"_"."_SITENAME_"","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
  1. Q