Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCCVLOG1

SCCVLOG1.m

Go to the documentation of this file. 
  1. SCCVLOG1 ;ALB/RMO,TMP - Scheduling Conversion Log Utilities - Error; [ 04/05/95  8:39 AM ]
  1.  ;;5.3;Scheduling;**211**;Aug 13, 1993
  1.  ;
  1. GETERR(SCERRNB,SCE,SCERRIP,SCLOG,SAVERR,SCERRMSG) ;Get error msg
  1.  ;Also log the error in the Scheduling conversion log file
  1.  ;if the conversion log IEN is passed in SCLOG.
  1.  ; Input  -- SCERRNB  Error number
  1.  ;           SCE      Array holding patient/date-tm/enctr/visit data
  1.  ;                    subscripts: "DFN"/"DATE"/"ENC"/"VSIT" [optional]
  1.  ;           SCERRIP  Error input parameter array   [optional]
  1.  ;           SCLOG    Scheduling conversion log IEN [optional]
  1.  ;           SAVERR   Parameter that says whether or not to return the
  1.  ;                    error array or kill it (1=save it, 0=kill it)
  1.  ; Output -- SCERRMSG Error message array subscripted by line # of msg
  1.  D BLD^DIALOG(SCERRNB,.SCERRIP,"","SCERRMSG")
  1.  I $G(SCLOG) D LOGERR(SCLOG,.SCERRMSG,.SCE,.SCCVERRH) K:'$G(SAVERR) SCERRMSG
  1.  Q
  1.  ;
  1. LOGERR(SCLOG,SCERRMSG,SCE,SCCVERRH) ;Log the error in the CST file
  1.  ; Input  -- SCLOG    CST ien
  1.  ;        -- SCERRMSG Error message array subscripted by line #
  1.  ;        -- SCE      Array holding patient/date-tm/enctr/visit data
  1.  ;                    subscripts: "DFN"/"DATE"/"ENC"/"VSIT"
  1.  ; I/O    -- SCCVERRH Error counter, also output - pass by reference
  1.  ;
  1.  N SCDATA,SCERRM1,Z,Z0,Z1,SCCVH
  1.  ;
  1.  IF $G(SCCVERRH)="" N SCCVERRH S SCCVERRH=0
  1.  S SCCVERRH=SCCVERRH+1,SCERRMSG(.9)="ERROR #: "_SCCVERRH
  1.  ;
  1.  S (Z,Z0)=0
  1.  F  S Z=$O(SCERRMSG(Z)) Q:'Z  S Z1=$G(SCERRMSG(Z)) D
  1.  . 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)
  1.  . S Z0=Z0+1,SCERRM1(Z0,0)=$S(Z0>1:"  ",1:"")_Z1
  1.  ;
  1.  I $L(SCERRM1(1,0))<210 S SCERRM1(1,0)=SCERRM1(1,0)_" - "_$$FMTE^XLFDT($$NOW^XLFDT,5)
  1.  ;
  1.  I $D(SCE) D
  1.  . 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")
  1.  . S SCERRM1(Z0+2,0)="  Enctr #: "_$G(SCE("ENC"))_"  Visit #:  "_$G(SCE("VSIT"))
  1.  . S SCERRM1(Z0+3,0)=" "
  1.  ;
  1.  I '$G(SCLOG) K SCERRMSG M SCERRMSG=SCERRM1
  1.  I $G(SCLOG) D
  1.  . M SCDATA("WP")=SCERRM1
  1.  . D WP^SCCVDBU(404.98,SCLOG,50,.SCDATA)
  1.  . ;
  1.  . S SCCVH(.07)=SCCVERRH-$G(SCCVERRT)
  1.  . D UPD^SCCVDBU(404.9825,+$$LSTREQ^SCCVLOG(SCLOG)_","_SCLOG,.SCCVH)
  1.  Q
  1.  ;
  1. CREATERR(DFN,SCDTM,SCOE,SCCVT,SCCLN,SCSC,SCLOG) ;
  1.  ; Create error log entry if add of visit or encounter fails
  1.  ; INPUT:
  1.  ;     DFN     == pt ien
  1.  ;     SCDTM   == encounter date/time
  1.  ;     SCOE    == encounter ien
  1.  ;     SCCVT   == origin of encounter (1-4)
  1.  ;     SCCLN   == ien of clinic
  1.  ;     SCSC    == stop code ien
  1.  ;     SCLOG   == ien of request log [optional]
  1.  N SCE,SCERRIP,SCERRMSG,Y
  1.  S SCERRIP(1)=$G(SCSC)
  1.  S SCERRIP(2)=$P($G(^DPT(DFN,0)),U)
  1.  S Y=SCDTM D D^DIQ S SCERRIP(3)=Y
  1.  S SCERRIP(4)=$P($G(^SC(SCCLN,0)),U)
  1.  S SCERRIP(5)=$S('SCOE:"Outpatient encounter",1:"Visit")
  1.  S SCERRIP(6)=$P("appointment^add/edit^disposition^credit stop",U,SCCVT)
  1.  S SCE("DFN")=DFN,SCE("ENC")=$G(SCOE),SCE("VSIT")="",SCE("DATE")=SCDTM
  1.  D GETERR(4049005.004,.SCE,.SCERRIP,$G(SCLOG),0,.SCERRMSG)
  1.  Q
  1.  ;