- EDP20P ;PHI/WAR - Update EDPF SCHEDULING TRIGGER values ; 2/21/23 2:57pm
- ;;2.0;EMERGENCY DEPARTMENT;**20**;May 2, 2012;Build 7
- ;
- Q
- ;
- INIT ;
- D CHG^XPAR("SYS","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- D CHG^XPAR("PKG.EMERGENCY DEPARTMENT","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- CHGDIV ;
- N SITECODE,SITENAME
- S SITECODE=0
- F S SITECODE=$O(^EDPB(231.9,"C",SITECODE)) Q:'SITECODE D
- .S SITENAME=$P(^DIC(4,SITECODE,0),U,1)
- .D CHG^XPAR(""_"DIV"_"."_SITENAME_"","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDP20P 539 printed Jan 18, 2025@02:52:38 Page 2
- EDP20P ;PHI/WAR - Update EDPF SCHEDULING TRIGGER values ; 2/21/23 2:57pm
- +1 ;;2.0;EMERGENCY DEPARTMENT;**20**;May 2, 2012;Build 7
- +2 ;
- +3 QUIT
- +4 ;
- INIT ;
- +1 DO CHG^XPAR("SYS","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- +2 DO CHG^XPAR("PKG.EMERGENCY DEPARTMENT","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- CHGDIV ;
- +1 NEW SITECODE,SITENAME
- +2 SET SITECODE=0
- +3 FOR
- SET SITECODE=$ORDER(^EDPB(231.9,"C",SITECODE))
- if 'SITECODE
- QUIT
- Begin DoDot:1
- +4 SET SITENAME=$PIECE(^DIC(4,SITECODE,0),U,1)
- +5 DO CHG^XPAR(""_"DIV"_"."_SITENAME_"","EDPF SCHEDULING TRIGGER",,"Check-in",.ERROR)
- End DoDot:1
- +6 QUIT