EDP20P.m

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 ---EDP20P   539     printed  Apr 09, 2024@20:56:43                                                                                                                                                                                                       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