- 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
