BQIDCPM.m

BQIDCPM ;PRXM/HC/ALA-Predefined Panel Parameters ; 24 Oct 2005  6:21 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

 Q

 ;

EN(DATA,PPIEN) ; EP -- BQI GET PREDEF PARAM LIST

 ;Description

 ;  Get the definition of a predefined panel

 ;Input

 ;  PPIEN - Internal entry number of a predefined panel

 ;Output

 ;  DATA - Global reference to store data

 ;

 NEW UID,II,HDR,NN,X

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("BQIDCPM",UID))

 K @DATA

 ;

 S II=0

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIDCPM D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 ;

 S II=II+1

 S HDR="I00010PARAM_IEN^T00030PARAM_NAME^T00001PARAM_TYPE^T00030PARAM_UPPER^"

 S HDR=HDR_"T00030PARAM_LOWER^T00030PARAM_DEFAULT^T00001PARAM_REQ^"

 S HDR=HDR_"T00030PARAM_EXCLUSION^T00020PARAM_TABLE^T00250PARAM_CHOICES"

 S @DATA@(II)=HDR_$C(30)

 ;

 ;  Get the parameter definitions

 S NN=0

 F  S NN=$O(^BQI(90506,PPIEN,3,NN)) Q:'NN  D

 . NEW DA,IENS,PARNM,PARTY,PARUP,PARLO,PARDF,PARRQ,PAREX,PARTB,PARCH

 . S DA(1)=PPIEN,DA=NN,IENS=$$IENS^DILF(.DA)

 . S PARNM=$$GET1^DIQ(90506.03,IENS,.01,"E")

 . S PARTY=$$GET1^DIQ(90506.03,IENS,.02,"I")

 . S PARUP=$$GET1^DIQ(90506.03,IENS,.03,"E")

 . S PARLO=$$GET1^DIQ(90506.03,IENS,.04,"E")

 . S PARDF=$$GET1^DIQ(90506.03,IENS,.05,"E")

 . S PARRQ=$$GET1^DIQ(90506.03,IENS,.06,"I")

 . S PAREX=$$GET1^DIQ(90506.03,IENS,.07,"E")

 . S PARTB=$$GET1^DIQ(90506.03,IENS,.08,"E")

 . S PARCH=$$GET1^DIQ(90506.03,IENS,1,"E")

 . ;

 . S II=II+1

 . S @DATA@(II)=NN_"^"_PARNM_"^"_PARTY_"^"_PARUP_"^"_PARLO_"^"_PARDF_"^"_PARRQ_"^"_PAREX_"^"_PARTB

 . S @DATA@(II)=@DATA@(II)_"^"_PARCH_$C(30)

 ;

 S II=II+1,@DATA@(II)=$C(31)

 Q

 ;

ERR ;

 D ^%ZTER

 NEW Y,ERRDTM

 S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y

 S BMXSEC="Recording that an error occurred at "_ERRDTM

 I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)

 Q

BQIDCPM   ;PRXM/HC/ALA-Predefined Panel Parameters ; 24 Oct 2005  6:21 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

 +3        QUIT 

 +4       ;

EN(DATA,PPIEN) ; EP -- BQI GET PREDEF PARAM LIST

 +1       ;Description

 +2       ;  Get the definition of a predefined panel

 +3       ;Input

 +4       ;  PPIEN - Internal entry number of a predefined panel

 +5       ;Output

 +6       ;  DATA - Global reference to store data

 +7       ;

 +8        NEW UID,II,HDR,NN,X

 +9        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +10       SET DATA=$NAME(^TMP("BQIDCPM",UID))

 +11       KILL @DATA

 +12      ;

 +13       SET II=0

 +14      ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BQIDCPM D UNWIND^%ZTER"

 +15      ;

 +16       SET II=II+1

 +17       SET HDR="I00010PARAM_IEN^T00030PARAM_NAME^T00001PARAM_TYPE^T00030PARAM_UPPER^"

 +18       SET HDR=HDR_"T00030PARAM_LOWER^T00030PARAM_DEFAULT^T00001PARAM_REQ^"

 +19       SET HDR=HDR_"T00030PARAM_EXCLUSION^T00020PARAM_TABLE^T00250PARAM_CHOICES"

 +20       SET @DATA@(II)=HDR_$CHAR(30)

 +21      ;

 +22      ;  Get the parameter definitions

 +23       SET NN=0

 +24       FOR 

               SET NN=$ORDER(^BQI(90506,PPIEN,3,NN))

               IF 'NN

                   QUIT 

               Begin DoDot:1

 +25               NEW DA,IENS,PARNM,PARTY,PARUP,PARLO,PARDF,PARRQ,PAREX,PARTB,PARCH

 +26               SET DA(1)=PPIEN

                   SET DA=NN

                   SET IENS=$$IENS^DILF(.DA)

 +27               SET PARNM=$$GET1^DIQ(90506.03,IENS,.01,"E")

 +28               SET PARTY=$$GET1^DIQ(90506.03,IENS,.02,"I")

 +29               SET PARUP=$$GET1^DIQ(90506.03,IENS,.03,"E")

 +30               SET PARLO=$$GET1^DIQ(90506.03,IENS,.04,"E")

 +31               SET PARDF=$$GET1^DIQ(90506.03,IENS,.05,"E")

 +32               SET PARRQ=$$GET1^DIQ(90506.03,IENS,.06,"I")

 +33               SET PAREX=$$GET1^DIQ(90506.03,IENS,.07,"E")

 +34               SET PARTB=$$GET1^DIQ(90506.03,IENS,.08,"E")

 +35               SET PARCH=$$GET1^DIQ(90506.03,IENS,1,"E")

 +36      ;

 +37               SET II=II+1

 +38               SET @DATA@(II)=NN_"^"_PARNM_"^"_PARTY_"^"_PARUP_"^"_PARLO_"^"_PARDF_"^"_PARRQ_"^"_PAREX_"^"_PARTB

 +39               SET @DATA@(II)=@DATA@(II)_"^"_PARCH_$CHAR(30)

               End DoDot:1

 +40      ;

 +41       SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +42       QUIT 

 +43      ;

ERR       ;

 +1        DO ^%ZTER

 +2        NEW Y,ERRDTM

 +3        SET Y=$$NOW^XLFDT()

           XECUTE ^DD("DD")

           SET ERRDTM=Y

 +4        SET BMXSEC="Recording that an error occurred at "_ERRDTM

 +5        IF $DATA(II)

               IF $DATA(DATA)

                   SET II=II+1

                   SET @DATA@(II)=$CHAR(31)

 +6        QUIT