SCCVLOG1 ;ALB/RMO,TMP - Scheduling Conversion Log Utilities - Error; [ 04/05/95 8:39 AM ]
;;5.3;Scheduling;**211**;Aug 13, 1993
;
GETERR(SCERRNB,SCE,SCERRIP,SCLOG,SAVERR,SCERRMSG) ;Get error msg
;Also log the error in the Scheduling conversion log file
;if the conversion log IEN is passed in SCLOG.
; Input -- SCERRNB Error number
; SCE Array holding patient/date-tm/enctr/visit data
; subscripts: "DFN"/"DATE"/"ENC"/"VSIT" [optional]
; SCERRIP Error input parameter array [optional]
; SCLOG Scheduling conversion log IEN [optional]
; SAVERR Parameter that says whether or not to return the
; error array or kill it (1=save it, 0=kill it)
; Output -- SCERRMSG Error message array subscripted by line # of msg
D BLD^DIALOG(SCERRNB,.SCERRIP,"","SCERRMSG")
I $G(SCLOG) D LOGERR(SCLOG,.SCERRMSG,.SCE,.SCCVERRH) K:'$G(SAVERR) SCERRMSG
Q
;
LOGERR(SCLOG,SCERRMSG,SCE,SCCVERRH) ;Log the error in the CST file
; Input -- SCLOG CST ien
; -- SCERRMSG Error message array subscripted by line #
; -- SCE Array holding patient/date-tm/enctr/visit data
; subscripts: "DFN"/"DATE"/"ENC"/"VSIT"
; I/O -- SCCVERRH Error counter, also output - pass by reference
;
N SCDATA,SCERRM1,Z,Z0,Z1,SCCVH
;
IF $G(SCCVERRH)="" N SCCVERRH S SCCVERRH=0
S SCCVERRH=SCCVERRH+1,SCERRMSG(.9)="ERROR #: "_SCCVERRH
;
S (Z,Z0)=0
F S Z=$O(SCERRMSG(Z)) Q:'Z S Z1=$G(SCERRMSG(Z)) D
. Q:$S($TR(Z1," ")="":1,$E(Z1,1,7)="Calling":1,$E(Z1,1,6)="Source":1,$E(Z1,1,4)="User":1,$E(Z1,1,5)="Visit":1,$E(Z1,1,3)="TO:":1,$E(Z1,1,33)="ERROR MESSAGE FROM DATA2PCE^PXAPI":1,1:0)
. S Z0=Z0+1,SCERRM1(Z0,0)=$S(Z0>1:" ",1:"")_Z1
;
I $L(SCERRM1(1,0))<210 S SCERRM1(1,0)=SCERRM1(1,0)_" - "_$$FMTE^XLFDT($$NOW^XLFDT,5)
;
I $D(SCE) D
. S SCERRM1(Z0+1,0)=" Patient: ("_$G(SCE("DFN"))_") "_$$EXPAND^SCCVDSP2(409.68,.02,$G(SCE("DFN")))_" Enctr Dt: "_$$FMTE^XLFDT($G(SCE("DATE")),"5S")
. S SCERRM1(Z0+2,0)=" Enctr #: "_$G(SCE("ENC"))_" Visit #: "_$G(SCE("VSIT"))
. S SCERRM1(Z0+3,0)=" "
;
I '$G(SCLOG) K SCERRMSG M SCERRMSG=SCERRM1
I $G(SCLOG) D
. M SCDATA("WP")=SCERRM1
. D WP^SCCVDBU(404.98,SCLOG,50,.SCDATA)
. ;
. S SCCVH(.07)=SCCVERRH-$G(SCCVERRT)
. D UPD^SCCVDBU(404.9825,+$$LSTREQ^SCCVLOG(SCLOG)_","_SCLOG,.SCCVH)
Q
;
CREATERR(DFN,SCDTM,SCOE,SCCVT,SCCLN,SCSC,SCLOG) ;
; Create error log entry if add of visit or encounter fails
; INPUT:
; DFN == pt ien
; SCDTM == encounter date/time
; SCOE == encounter ien
; SCCVT == origin of encounter (1-4)
; SCCLN == ien of clinic
; SCSC == stop code ien
; SCLOG == ien of request log [optional]
N SCE,SCERRIP,SCERRMSG,Y
S SCERRIP(1)=$G(SCSC)
S SCERRIP(2)=$P($G(^DPT(DFN,0)),U)
S Y=SCDTM D D^DIQ S SCERRIP(3)=Y
S SCERRIP(4)=$P($G(^SC(SCCLN,0)),U)
S SCERRIP(5)=$S('SCOE:"Outpatient encounter",1:"Visit")
S SCERRIP(6)=$P("appointment^add/edit^disposition^credit stop",U,SCCVT)
S SCE("DFN")=DFN,SCE("ENC")=$G(SCOE),SCE("VSIT")="",SCE("DATE")=SCDTM
D GETERR(4049005.004,.SCE,.SCERRIP,$G(SCLOG),0,.SCERRMSG)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCCVLOG1 3221 printed Nov 22, 2024@17:48:54 Page 2
SCCVLOG1 ;ALB/RMO,TMP - Scheduling Conversion Log Utilities - Error; [ 04/05/95 8:39 AM ]
+1 ;;5.3;Scheduling;**211**;Aug 13, 1993
+2 ;
GETERR(SCERRNB,SCE,SCERRIP,SCLOG,SAVERR,SCERRMSG) ;Get error msg
+1 ;Also log the error in the Scheduling conversion log file
+2 ;if the conversion log IEN is passed in SCLOG.
+3 ; Input -- SCERRNB Error number
+4 ; SCE Array holding patient/date-tm/enctr/visit data
+5 ; subscripts: "DFN"/"DATE"/"ENC"/"VSIT" [optional]
+6 ; SCERRIP Error input parameter array [optional]
+7 ; SCLOG Scheduling conversion log IEN [optional]
+8 ; SAVERR Parameter that says whether or not to return the
+9 ; error array or kill it (1=save it, 0=kill it)
+10 ; Output -- SCERRMSG Error message array subscripted by line # of msg
+11 DO BLD^DIALOG(SCERRNB,.SCERRIP,"","SCERRMSG")
+12 IF $GET(SCLOG)
DO LOGERR(SCLOG,.SCERRMSG,.SCE,.SCCVERRH)
if '$GET(SAVERR)
KILL SCERRMSG
+13 QUIT
+14 ;
LOGERR(SCLOG,SCERRMSG,SCE,SCCVERRH) ;Log the error in the CST file
+1 ; Input -- SCLOG CST ien
+2 ; -- SCERRMSG Error message array subscripted by line #
+3 ; -- SCE Array holding patient/date-tm/enctr/visit data
+4 ; subscripts: "DFN"/"DATE"/"ENC"/"VSIT"
+5 ; I/O -- SCCVERRH Error counter, also output - pass by reference
+6 ;
+7 NEW SCDATA,SCERRM1,Z,Z0,Z1,SCCVH
+8 ;
+9 IF $GET(SCCVERRH)=""
NEW SCCVERRH
SET SCCVERRH=0
+10 SET SCCVERRH=SCCVERRH+1
SET SCERRMSG(.9)="ERROR #: "_SCCVERRH
+11 ;
+12 SET (Z,Z0)=0
+13 FOR
SET Z=$ORDER(SCERRMSG(Z))
if 'Z
QUIT
SET Z1=$GET(SCERRMSG(Z))
Begin DoDot:1
+14 if $SELECT($TRANSLATE(Z1," ")=""
QUIT
+15 SET Z0=Z0+1
SET SCERRM1(Z0,0)=$SELECT(Z0>1:" ",1:"")_Z1
End DoDot:1
+16 ;
+17 IF $LENGTH(SCERRM1(1,0))<210
SET SCERRM1(1,0)=SCERRM1(1,0)_" - "_$$FMTE^XLFDT($$NOW^XLFDT,5)
+18 ;
+19 IF $DATA(SCE)
Begin DoDot:1
+20 SET SCERRM1(Z0+1,0)=" Patient: ("_$GET(SCE("DFN"))_") "_$$EXPAND^SCCVDSP2(409.68,.02,$GET(SCE("DFN")))_" Enctr Dt: "_$$FMTE^XLFDT($GET(SCE("DATE")),"5S")
+21 SET SCERRM1(Z0+2,0)=" Enctr #: "_$GET(SCE("ENC"))_" Visit #: "_$GET(SCE("VSIT"))
+22 SET SCERRM1(Z0+3,0)=" "
End DoDot:1
+23 ;
+24 IF '$GET(SCLOG)
KILL SCERRMSG
MERGE SCERRMSG=SCERRM1
+25 IF $GET(SCLOG)
Begin DoDot:1
+26 MERGE SCDATA("WP")=SCERRM1
+27 DO WP^SCCVDBU(404.98,SCLOG,50,.SCDATA)
+28 ;
+29 SET SCCVH(.07)=SCCVERRH-$GET(SCCVERRT)
+30 DO UPD^SCCVDBU(404.9825,+$$LSTREQ^SCCVLOG(SCLOG)_","_SCLOG,.SCCVH)
End DoDot:1
+31 QUIT
+32 ;
CREATERR(DFN,SCDTM,SCOE,SCCVT,SCCLN,SCSC,SCLOG) ;
+1 ; Create error log entry if add of visit or encounter fails
+2 ; INPUT:
+3 ; DFN == pt ien
+4 ; SCDTM == encounter date/time
+5 ; SCOE == encounter ien
+6 ; SCCVT == origin of encounter (1-4)
+7 ; SCCLN == ien of clinic
+8 ; SCSC == stop code ien
+9 ; SCLOG == ien of request log [optional]
+10 NEW SCE,SCERRIP,SCERRMSG,Y
+11 SET SCERRIP(1)=$GET(SCSC)
+12 SET SCERRIP(2)=$PIECE($GET(^DPT(DFN,0)),U)
+13 SET Y=SCDTM
DO D^DIQ
SET SCERRIP(3)=Y
+14 SET SCERRIP(4)=$PIECE($GET(^SC(SCCLN,0)),U)
+15 SET SCERRIP(5)=$SELECT('SCOE:"Outpatient encounter",1:"Visit")
+16 SET SCERRIP(6)=$PIECE("appointment^add/edit^disposition^credit stop",U,SCCVT)
+17 SET SCE("DFN")=DFN
SET SCE("ENC")=$GET(SCOE)
SET SCE("VSIT")=""
SET SCE("DATE")=SCDTM
+18 DO GETERR(4049005.004,.SCE,.SCERRIP,$GET(SCLOG),0,.SCERRMSG)
+19 QUIT
+20 ;
