EDPFX233.m

EDPFX233 ;SLC/BWF - Pre-init for facility install ;2/28/12 08:33am

 ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103

 ;

FIX233() ;

 N IEN,DISPNM,ABBREV

 S IEN=0 F  S IEN=$O(^EDPB(233.1,IEN)) Q:'IEN  D

 .S DISPNM=$$GET1^DIQ(233.1,IEN,.02)

 .S ABBREV=$$GET1^DIQ(233.1,IEN,.03)

 .I DISPNM=""!(ABBREV="") D

 ..D DISP(IEN)

 ..I DISPNM="" D EDFLD(IEN,.02)

 ..I ABBREV="" D EDFLD(IEN,.03)

 Q

DISP(IEN) ;

 N DATA,ERR,IENS

 S IENS=IEN_","

 D GETS^DIQ(233.1,IENS,".01;.02;.03","IE","DATA","ERR")

 W !,?2,"NAME: ",?20,$G(DATA(233.1,IENS,.01,"E"))

 W !,?2,"DISPLAY NAME:",?20,$G(DATA(233.1,IENS,.02,"E"))

 W !,?2,"ABBREVIATION:",?20,$G(DATA(233.1,IENS,.03,"E")),!

 Q

EDFLD(IEN,FLD) ;

 N DIE,DA,DR

 S DIE("NO^")=""

 W !!,"You must correct the following fields before continuing:",!

 S DIE="^EDPB(233.1,",DA=IEN,DR=FLD

 L +^EDPB(233.1,IEN):2

 I $T D ^DIE L -^EDPB(233.1,IEN) W !!! Q

 W !,?10,"Another user is editing this entry. Please try again later.",!! Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EDPFX233   979     printed  Apr 09, 2024@20:57:26                                                                                                                                                                                                     Page 2

EDPFX233  ;SLC/BWF - Pre-init for facility install ;2/28/12 08:33am

 +1       ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103

 +2       ;

FIX233()  ;

 +1        NEW IEN,DISPNM,ABBREV

 +2        SET IEN=0

           FOR 

               SET IEN=$ORDER(^EDPB(233.1,IEN))

               if 'IEN

                   QUIT 

               Begin DoDot:1

 +3                SET DISPNM=$$GET1^DIQ(233.1,IEN,.02)

 +4                SET ABBREV=$$GET1^DIQ(233.1,IEN,.03)

 +5                IF DISPNM=""!(ABBREV="")

                       Begin DoDot:2

 +6                        DO DISP(IEN)

 +7                        IF DISPNM=""

                               DO EDFLD(IEN,.02)

 +8                        IF ABBREV=""

                               DO EDFLD(IEN,.03)

                       End DoDot:2

               End DoDot:1

 +9        QUIT 

DISP(IEN) ;

 +1        NEW DATA,ERR,IENS

 +2        SET IENS=IEN_","

 +3        DO GETS^DIQ(233.1,IENS,".01;.02;.03","IE","DATA","ERR")

 +4        WRITE !,?2,"NAME: ",?20,$GET(DATA(233.1,IENS,.01,"E"))

 +5        WRITE !,?2,"DISPLAY NAME:",?20,$GET(DATA(233.1,IENS,.02,"E"))

 +6        WRITE !,?2,"ABBREVIATION:",?20,$GET(DATA(233.1,IENS,.03,"E")),!

 +7        QUIT 

EDFLD(IEN,FLD) ;

 +1        NEW DIE,DA,DR

 +2        SET DIE("NO^")=""

 +3        WRITE !!,"You must correct the following fields before continuing:",!

 +4        SET DIE="^EDPB(233.1,"

           SET DA=IEN

           SET DR=FLD

 +5        LOCK +^EDPB(233.1,IEN):2

 +6        IF $TEST

               DO ^DIE

               LOCK -^EDPB(233.1,IEN)

               WRITE !!!

               QUIT 

 +7        WRITE !,?10,"Another user is editing this entry. Please try again later.",!!

           QUIT 

 +8        QUIT