BLRAGEED.m

BLRAGEED ; IHS/MSC/MKK - BLR AGE DETAIL Parameter EDit  ; 17-Dec-2015 15:37 ; MKK

 ;;5.2;IHS LABORATORY;**1038**;NOV 01, 1997;Build 6

 ;

EEP ; Ersatz EP

 D EEP^BLRGMENU

 Q

 ;

PEP ; EP

CHANGE ; EP

 NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)

 ;

 S HEADER(1)="IHS Laboratory"

 S HEADER(2)="BLR AGE DETAIL Parameter"

 S HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)

 ;

 S RESULT=$$GET^XPAR("PKG","BLR AGE DETAIL",1,"Q")

 S RESULT=$S(RESULT:"YES",RESULT=0:"NO",1:"")

 ;

 D HEADERDT^BLRGMENU

 ;

 D ^XBFMK

 S DIR(0)="YO"

 S DIR("A")="BLR AGE DETAIL (YES/NO)"

 S:$L(RESULT) DIR("B")=RESULT

 D ^DIR

 ;

 I +$G(DIRUT)!($G(Y)="") D  Q

 . W !!,?4,"Invalid/No Entry/Quit. Routine Ends."

 . D PRESSKEY^BLRGMENU(9)

 ;

 S ANSWER=$S($E($$UP^XLFSTR(X))="Y":"YES",1:"NO")

 ;

 D EN^XPAR("PKG","BLR AGE DETAIL",,ANSWER,.ERRS)

 ;

 I +$G(ERRS)<1 D

 . S RESULT=$$GET^XPAR("PKG","BLR AGE DETAIL",1,"Q")

 . W !!,?4,"BLR AGE DETAIL Parameter is currently ",$S(RESULT:"YES",RESULT=0:"NO",1:"")

 . D PRESSKEY^BLRGMENU(9)

 ;

 D:+$G(ERRS)>0 RPTERR(.ERRS)

 ;

 Q

 ;

RPTERR(ERROR) ; EP

 NEW ERRDESC,ERRNUM,NOWH

 ;

 S ERRNUM=$P(ERROR,"^")

 S ERRDESC=$P(ERROR,"^",2)

 ;

 W !!,"*** ERROR Modifying BLR AGE DETAIL paramter. ***",!!

 W ?4,"Error Number:",ERRNUM,!

 W:$L(ERRDESC)<50 ?9,"Description:",ERRDESC

 I $L(ERRDESC)>49 D LINEWRAP^BLRGMENU(9,ERRDESC,60)

 W !

 ;

 D PRESSKEY^BLRGMENU(9)

 ;

 S BLRVERN=$P($P($T(+1),";")," ")

 S NOWH=$H

 S:$D(^XTMP(BLRVERN))<1 XTMP(BLRVERN)="^"_$$DT^XLFDT_"^Errors Modifying BLR AGE DETAIL Parameter"

 S $P(^XTMP(BLRVERN),"^")=$$HTFM^XLFDT(+$H+30)

 ;

 M ^XTMP(BLRVERN,NOWH,"01","DUZ")=DUZ

 S ^XTMP(BLRVERN,NOWH,"02","ERROR")=ERROR

 ;

 Q

BLRAGEED  ; IHS/MSC/MKK - BLR AGE DETAIL Parameter EDit  ; 17-Dec-2015 15:37 ; MKK

 +1       ;;5.2;IHS LABORATORY;**1038**;NOV 01, 1997;Build 6

 +2       ;

EEP       ; Ersatz EP

 +1        DO EEP^BLRGMENU

 +2        QUIT 

 +3       ;

PEP       ; EP

CHANGE    ; EP

 +1        NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)

 +2       ;

 +3        SET HEADER(1)="IHS Laboratory"

 +4        SET HEADER(2)="BLR AGE DETAIL Parameter"

 +5        SET HEADER(3)=$$CJ^XLFSTR("Modify Value",IOM)

 +6       ;

 +7        SET RESULT=$$GET^XPAR("PKG","BLR AGE DETAIL",1,"Q")

 +8        SET RESULT=$SELECT(RESULT:"YES",RESULT=0:"NO",1:"")

 +9       ;

 +10       DO HEADERDT^BLRGMENU

 +11      ;

 +12       DO ^XBFMK

 +13       SET DIR(0)="YO"

 +14       SET DIR("A")="BLR AGE DETAIL (YES/NO)"

 +15       IF $LENGTH(RESULT)

               SET DIR("B")=RESULT

 +16       DO ^DIR

 +17      ;

 +18       IF +$GET(DIRUT)!($GET(Y)="")

               Begin DoDot:1

 +19               WRITE !!,?4,"Invalid/No Entry/Quit. Routine Ends."

 +20               DO PRESSKEY^BLRGMENU(9)

               End DoDot:1

               QUIT 

 +21      ;

 +22       SET ANSWER=$SELECT($EXTRACT($$UP^XLFSTR(X))="Y":"YES",1:"NO")

 +23      ;

 +24       DO EN^XPAR("PKG","BLR AGE DETAIL",,ANSWER,.ERRS)

 +25      ;

 +26       IF +$GET(ERRS)<1

               Begin DoDot:1

 +27               SET RESULT=$$GET^XPAR("PKG","BLR AGE DETAIL",1,"Q")

 +28               WRITE !!,?4,"BLR AGE DETAIL Parameter is currently ",$SELECT(RESULT:"YES",RESULT=0:"NO",1:"")

 +29               DO PRESSKEY^BLRGMENU(9)

               End DoDot:1

 +30      ;

 +31       IF +$GET(ERRS)>0

               DO RPTERR(.ERRS)

 +32      ;

 +33       QUIT 

 +34      ;

RPTERR(ERROR) ; EP

 +1        NEW ERRDESC,ERRNUM,NOWH

 +2       ;

 +3        SET ERRNUM=$PIECE(ERROR,"^")

 +4        SET ERRDESC=$PIECE(ERROR,"^",2)

 +5       ;

 +6        WRITE !!,"*** ERROR Modifying BLR AGE DETAIL paramter. ***",!!

 +7        WRITE ?4,"Error Number:",ERRNUM,!

 +8        IF $LENGTH(ERRDESC)<50

               WRITE ?9,"Description:",ERRDESC

 +9        IF $LENGTH(ERRDESC)>49

               DO LINEWRAP^BLRGMENU(9,ERRDESC,60)

 +10       WRITE !

 +11      ;

 +12       DO PRESSKEY^BLRGMENU(9)

 +13      ;

 +14       SET BLRVERN=$PIECE($PIECE($TEXT(+1),";")," ")

 +15       SET NOWH=$HOROLOG

 +16       IF $DATA(^XTMP(BLRVERN))<1

               SET XTMP(BLRVERN)="^"_$$DT^XLFDT_"^Errors Modifying BLR AGE DETAIL Parameter"

 +17       SET $PIECE(^XTMP(BLRVERN),"^")=$$HTFM^XLFDT(+$HOROLOG+30)

 +18      ;

 +19       MERGE ^XTMP(BLRVERN,NOWH,"01","DUZ")=DUZ

 +20       SET ^XTMP(BLRVERN,NOWH,"02","ERROR")=ERROR

 +21      ;

 +22       QUIT