EDPLOG1.m

EDPLOG1 ;SLC/KCM - Update ED Log Validate ;2/28/12 08:33am

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

 ;

VALID(REC) ; validate the entries passed in REC

 D XLATE("arrival")

 D XLATE("clinic")

 D XLATE("bed")

 D XLATE("acuity")

 D XLATE("status")

 D XLATE("provider")

 D XLATE("nurse")

 D XLATE("resident")

 D XLATE("disposition")

 D XLATE("delay")

 ;

 N ERR S ERR=""

 D ADDTXT(.ERR,$$CHECK("name",230,.04,"Patient Name"))

 D ADDTXT(.ERR,$$CHECK("complaint",230,1.1,"Complaint"))

 D ADDTXT(.ERR,$$CHECK("compLong",230,2,"Long Complaint"))

 D ADDTXT(.ERR,$$CHECK("comment",230,3.8,"Comment"))

 ;

 N DIAG S DIAG="diagnosis-0"

 F  S DIAG=$O(REC(DIAG)) Q:$E(DIAG,1,10)'="diagnosis-"  D

 . S REC("edpDiagnosis")=$P(REC(DIAG),U,2)

 . D ADDTXT(ERR,$$CHECK("edpDiagnosis",230.04,.01,"Diagnosis"))

 Q ERR

 ;

CHECK(NAME,FILE,FIELD,MSG) ; return error msg if field is not valid

 ; called from VALID, assumes REC is defined

 N VAL,EDPRSLT

 S VAL=$G(REC(NAME))

 I VAL="" Q ""

 D CHK^DIE(FILE,FIELD,"",VAL,.EDPRSLT)

 I EDPRSLT="^" Q MSG_" is not valid."

 Q ""

ADDTXT(X,NEW) ; add new text comma delimited

 I $L(NEW),$L(X) S X=X_", "_NEW

 I $L(NEW),'$L(X) S X=NEW

 Q

XLATE(NAME) ; set up pointer fields for FDA array

 Q:'$D(REC(NAME))

 ;I REC(NAME)=0 S REC(NAME)="" ; store 0 when removing staff

 I REC(NAME)=-1 S REC(NAME)="@"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EDPLOG1   1367     printed  Mar 13, 2025@20:56:41                                                                                                                                                                                                     Page 2

EDPLOG1   ;SLC/KCM - Update ED Log Validate ;2/28/12 08:33am

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

 +2       ;

VALID(REC) ; validate the entries passed in REC

 +1        DO XLATE("arrival")

 +2        DO XLATE("clinic")

 +3        DO XLATE("bed")

 +4        DO XLATE("acuity")

 +5        DO XLATE("status")

 +6        DO XLATE("provider")

 +7        DO XLATE("nurse")

 +8        DO XLATE("resident")

 +9        DO XLATE("disposition")

 +10       DO XLATE("delay")

 +11      ;

 +12       NEW ERR

           SET ERR=""

 +13       DO ADDTXT(.ERR,$$CHECK("name",230,.04,"Patient Name"))

 +14       DO ADDTXT(.ERR,$$CHECK("complaint",230,1.1,"Complaint"))

 +15       DO ADDTXT(.ERR,$$CHECK("compLong",230,2,"Long Complaint"))

 +16       DO ADDTXT(.ERR,$$CHECK("comment",230,3.8,"Comment"))

 +17      ;

 +18       NEW DIAG

           SET DIAG="diagnosis-0"

 +19       FOR 

               SET DIAG=$ORDER(REC(DIAG))

               if $EXTRACT(DIAG,1,10)'="diagnosis-"

                   QUIT 

               Begin DoDot:1

 +20               SET REC("edpDiagnosis")=$PIECE(REC(DIAG),U,2)

 +21               DO ADDTXT(ERR,$$CHECK("edpDiagnosis",230.04,.01,"Diagnosis"))

               End DoDot:1

 +22       QUIT ERR

 +23      ;

CHECK(NAME,FILE,FIELD,MSG) ; return error msg if field is not valid

 +1       ; called from VALID, assumes REC is defined

 +2        NEW VAL,EDPRSLT

 +3        SET VAL=$GET(REC(NAME))

 +4        IF VAL=""

               QUIT ""

 +5        DO CHK^DIE(FILE,FIELD,"",VAL,.EDPRSLT)

 +6        IF EDPRSLT="^"

               QUIT MSG_" is not valid."

 +7        QUIT ""

ADDTXT(X,NEW) ; add new text comma delimited

 +1        IF $LENGTH(NEW)

               IF $LENGTH(X)

                   SET X=X_", "_NEW

 +2        IF $LENGTH(NEW)

               IF '$LENGTH(X)

                   SET X=NEW

 +3        QUIT 

XLATE(NAME) ; set up pointer fields for FDA array

 +1        if '$DATA(REC(NAME))

               QUIT 

 +2       ;I REC(NAME)=0 S REC(NAME)="" ; store 0 when removing staff

 +3        IF REC(NAME)=-1

               SET REC(NAME)="@"

 +4        QUIT