- ABSPOSXE ; IHS/FCS/DRS - Support - error log search ;
- ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001
- Q
- ERRLOG ;EP - search error log for $ZE in a POS routine
- ; ^%ZTER(1,$Hdate,m,n,"ZE")=$ZERROR value
- N DERANGE S DERANGE=$$DTRANGE^ABSPOSX Q:'DERANGE
- D SEARCH($$HRANGE^ABSPOSX(DERANGE))
- Q
- RECENT D SEARCH($H-1_U_+$H)
- Q
- SEARCH(RANGE) ;EP -
- W !,"Searching error log for Point of Sale errors...",!
- N COUNT S COUNT=0
- N H F H=$P(RANGE,U):1:$P(RANGE,U,2) D SEARCH1
- I 'COUNT W "None found",!
- Q
- SEARCH1 ; for one given H
- N A,B,C
- S A=""
- F S A=$O(^%ZTER(1,H,A)) Q:A="" D
- . S B=""
- . F S B=$O(^%ZTER(1,H,A,B)) Q:B="" D
- . . I $$CHECK(H,A,B) D REPORT(H,A,B) S COUNT=COUNT+1
- Q
- CHECK(H,A,B) ; ^%ZTER(1,H,A,B,... is it for Point of Sale?
- N R S R=$$ZEROU(H,A,B) ; routine name in $ZERROR
- I R?1"ABSP".E Q 1 ;
- S R=$$XQY0(H,A,B) ; option name in variable XQY0
- I R?1"ABSP".E Q 1
- Q 0
- REPORT(H,A,B) ;
- W "Error # ",B," on "
- N H1 S H1=$P($G(^%ZTER(1,H,A,B,"H")),U) I 'H1 S H1=H
- W $$HPRINT(H1)
- I A'=1 W " (subscript A=",A,"?)"
- W !
- W "Code: ",$G(^%ZTER(1,H,A,B,"LINE")),!
- W "$ZE=",$$ZE(H,A,B),!
- W "XQY0=",$$XQY0(H,A,B),!
- Q
- HPRINT(%H) ;
- N Y,X,% D YX^%DTC
- Q Y
- ZE(H,A,B) ; return $ZERROR variable from error log entry
- Q $G(^%ZTER(1,H,A,B,"ZE"))
- ZEROU(H,A,B) ; return routine name from $ZERROR value
- N X S X=$$ZE(H,A,B)
- I X'[U Q ""
- S X=$P(X,U,2)
- S X=$P(X,":")
- Q X
- XQY0(H,A,B) Q $$VAR("XQY0",H,A,B)
- VAR(VAR,H,A,B) ; return value of variable or "<UNDEF>" if not found
- N V,STOP,VAL S V=""
- F S V=$O(^%ZTER(1,H,A,B,"ZV",V)) Q:V="" D Q:$D(VAL)
- . I $P($G(^%ZTER(1,H,A,B,"ZV",V,0)),U)=VAR D
- . . S VAL=^%ZTER(1,H,A,B,"ZV",V,"D")
- Q $S($D(VAL):VAL,1:"<UNDEF>")
- ABSPOSXE ; IHS/FCS/DRS - Support - error log search ;
- +1 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001
- +2 QUIT
- ERRLOG ;EP - search error log for $ZE in a POS routine
- +1 ; ^%ZTER(1,$Hdate,m,n,"ZE")=$ZERROR value
- +2 NEW DERANGE
- SET DERANGE=$$DTRANGE^ABSPOSX
- IF 'DERANGE
- QUIT
- +3 DO SEARCH($$HRANGE^ABSPOSX(DERANGE))
- +4 QUIT
- RECENT DO SEARCH($HOROLOG-1_U_+$HOROLOG)
- +1 QUIT
- SEARCH(RANGE) ;EP -
- +1 WRITE !,"Searching error log for Point of Sale errors...",!
- +2 NEW COUNT
- SET COUNT=0
- +3 NEW H
- FOR H=$PIECE(RANGE,U):1:$PIECE(RANGE,U,2)
- DO SEARCH1
- +4 IF 'COUNT
- WRITE "None found",!
- +5 QUIT
- SEARCH1 ; for one given H
- +1 NEW A,B,C
- +2 SET A=""
- +3 FOR
- SET A=$ORDER(^%ZTER(1,H,A))
- IF A=""
- QUIT
- Begin DoDot:1
- +4 SET B=""
- +5 FOR
- SET B=$ORDER(^%ZTER(1,H,A,B))
- IF B=""
- QUIT
- Begin DoDot:2
- +6 IF $$CHECK(H,A,B)
- DO REPORT(H,A,B)
- SET COUNT=COUNT+1
- End DoDot:2
- End DoDot:1
- +7 QUIT
- CHECK(H,A,B) ; ^%ZTER(1,H,A,B,... is it for Point of Sale?
- +1 ; routine name in $ZERROR
- NEW R
- SET R=$$ZEROU(H,A,B)
- +2 ;
- IF R?1"ABSP".E
- QUIT 1
- +3 ; option name in variable XQY0
- SET R=$$XQY0(H,A,B)
- +4 IF R?1"ABSP".E
- QUIT 1
- +5 QUIT 0
- REPORT(H,A,B) ;
- +1 WRITE "Error # ",B," on "
- +2 NEW H1
- SET H1=$PIECE($GET(^%ZTER(1,H,A,B,"H")),U)
- IF 'H1
- SET H1=H
- +3 WRITE $$HPRINT(H1)
- +4 IF A'=1
- WRITE " (subscript A=",A,"?)"
- +5 WRITE !
- +6 WRITE "Code: ",$GET(^%ZTER(1,H,A,B,"LINE")),!
- +7 WRITE "$ZE=",$$ZE(H,A,B),!
- +8 WRITE "XQY0=",$$XQY0(H,A,B),!
- +9 QUIT
- HPRINT(%H) ;
- +1 NEW Y,X,%
- DO YX^%DTC
- +2 QUIT Y
- ZE(H,A,B) ; return $ZERROR variable from error log entry
- +1 QUIT $GET(^%ZTER(1,H,A,B,"ZE"))
- ZEROU(H,A,B) ; return routine name from $ZERROR value
- +1 NEW X
- SET X=$$ZE(H,A,B)
- +2 IF X'[U
- QUIT ""
- +3 SET X=$PIECE(X,U,2)
- +4 SET X=$PIECE(X,":")
- +5 QUIT X
- XQY0(H,A,B) QUIT $$VAR("XQY0",H,A,B)
- VAR(VAR,H,A,B) ; return value of variable or "<UNDEF>" if not found
- +1 NEW V,STOP,VAL
- SET V=""
- +2 FOR
- SET V=$ORDER(^%ZTER(1,H,A,B,"ZV",V))
- IF V=""
- QUIT
- Begin DoDot:1
- +3 IF $PIECE($GET(^%ZTER(1,H,A,B,"ZV",V,0)),U)=VAR
- Begin DoDot:2
- +4 SET VAL=^%ZTER(1,H,A,B,"ZV",V,"D")
- End DoDot:2
- End DoDot:1
- IF $DATA(VAL)
- QUIT
- +5 QUIT $SELECT($DATA(VAL):VAL,1:"<UNDEF>")
