SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
;;5.3;Scheduling;**210,505,1015**;AUG 13, 1993;Build 21
;
EN ; Description: Main entry point for SCMC PCMM TRANSMISSION ERRORS. Used
; to invoke LM and load list template.
;
; Input: None
; Output: None
;
;Invoke list template
D EN^VALM("SCMC PCMM TRANSMISSION ERRORS")
Q
;
;
HDR ; Description: Header code to display text in header area.
;
;Sort by
S VALMHDR(1)="Sort By: "_$S(SCSORTBY="N":"Patient Name",SCSORTBY="D":"Date Error Received",SCSORTBY="P":"Provider",SCSORTBY="I":"Institution",1:"Unknown")
;
;Date range
I $G(SCBEG),($G(SCEND)) D
.S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$FDATE^VALM1(SCBEG)_" to "_$$FDATE^VALM1(SCEND),VALMHDR(1),46,80)
E D
.S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$DRMSG,VALMHDR(1),46,80)
;
;Error processing status
S VALMHDR(2)="Error Processing Status: "_$S(SCEPS=1:"New",SCEPS=2:"Checked",SCEPS=3:"New/Checked",1:"Unknown")
;
;Indicates marked for re-transmit
S VALMHDR(2)=$$SETSTR^VALM1($$MRKMSG,VALMHDR(2),46,80)
;
Q
;
;
INIT ; Description: Initialize variables and list array for building list.
;
K SCBEG,SCEND,SCEPS,SCSORTBY
K VALMBEG,VALMEND,VALMSG
;
;Display custom message in LM display window
;S VALMSG=$$MRKMSG
;
;Set sort by = 'Patient Name'
S SCSORTBY="N"
;
;Set error processing status = both 'New/Checked'
S SCEPS=3
;
;Init date range, list all errors
S SCBEG=0
S SCEND=DT
;
;Build PCMM transmission errors screen
D BUILD
Q
;
;
BUILD ; Description: Used to build PCMM error transmission screen.
;
;Kill the array related data before building the list
D CLEAN^VALM10
;
K SCARY,VALMHDR
S SCARY="SCERR" ; set global array subscript
K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J)
S VALMBG=1 ; init list start line
S VALMCNT=0 ; init # of lines in list
;
;Builder header area
D HDR
;
;Build list area for transmission log errors
D EN^SCMCHLR2(SCARY,SCBEG,SCEND,SCEPS,SCSORTBY,.VALMCNT)
Q
;
;
MRKMSG() ; Description: Returns custom message for list manager header
;
Q "* - Marked for re-transmit"
;
;
DRMSG() ; Description: Returns custom message for date range in list manager header.
;
Q "(None) List All Errors"
;
;
HELP ; Description: This entry point provides custom help code when user
; enters a '?' at the menu prompt.
;
S X="?" D DISP^XQORM1 W !!
Q
;
;
EXIT ; Description: This is used to cleanup variables and do other exit processing.
;
D CLEAR^VALM1
D CLEAN^VALM10
K SCBEG,SCEND,SCEPS,SCSORTBY,VALMSG
K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J),X
Q
;
;
EXPND ;Expand code
Q
SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
+1 ;;5.3;Scheduling;**210,505,1015**;AUG 13, 1993;Build 21
+2 ;
EN ; Description: Main entry point for SCMC PCMM TRANSMISSION ERRORS. Used
+1 ; to invoke LM and load list template.
+2 ;
+3 ; Input: None
+4 ; Output: None
+5 ;
+6 ;Invoke list template
+7 DO EN^VALM("SCMC PCMM TRANSMISSION ERRORS")
+8 QUIT
+9 ;
+10 ;
HDR ; Description: Header code to display text in header area.
+1 ;
+2 ;Sort by
+3 SET VALMHDR(1)="Sort By: "_$SELECT(SCSORTBY="N":"Patient Name",SCSORTBY="D":"Date Error Received",SCSORTBY="P":"Provider",SCSORTBY="I":"Institution",1:"Unknown")
+4 ;
+5 ;Date range
+6 IF $GET(SCBEG)
IF ($GET(SCEND))
Begin DoDot:1
+7 SET VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$FDATE^VALM1(SCBEG)_" to "_$$FDATE^VALM1(SCEND),VALMHDR(1),46,80)
End DoDot:1
+8 IF '$TEST
Begin DoDot:1
+9 SET VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$DRMSG,VALMHDR(1),46,80)
End DoDot:1
+10 ;
+11 ;Error processing status
+12 SET VALMHDR(2)="Error Processing Status: "_$SELECT(SCEPS=1:"New",SCEPS=2:"Checked",SCEPS=3:"New/Checked",1:"Unknown")
+13 ;
+14 ;Indicates marked for re-transmit
+15 SET VALMHDR(2)=$$SETSTR^VALM1($$MRKMSG,VALMHDR(2),46,80)
+16 ;
+17 QUIT
+18 ;
+19 ;
INIT ; Description: Initialize variables and list array for building list.
+1 ;
+2 KILL SCBEG,SCEND,SCEPS,SCSORTBY
+3 KILL VALMBEG,VALMEND,VALMSG
+4 ;
+5 ;Display custom message in LM display window
+6 ;S VALMSG=$$MRKMSG
+7 ;
+8 ;Set sort by = 'Patient Name'
+9 SET SCSORTBY="N"
+10 ;
+11 ;Set error processing status = both 'New/Checked'
+12 SET SCEPS=3
+13 ;
+14 ;Init date range, list all errors
+15 SET SCBEG=0
+16 SET SCEND=DT
+17 ;
+18 ;Build PCMM transmission errors screen
+19 DO BUILD
+20 QUIT
+21 ;
+22 ;
BUILD ; Description: Used to build PCMM error transmission screen.
+1 ;
+2 ;Kill the array related data before building the list
+3 DO CLEAN^VALM10
+4 ;
+5 KILL SCARY,VALMHDR
+6 ; set global array subscript
SET SCARY="SCERR"
+7 KILL ^TMP(SCARY_"SRT",$JOB),^TMP(SCARY_"IDX",$JOB)
+8 ; init list start line
SET VALMBG=1
+9 ; init # of lines in list
SET VALMCNT=0
+10 ;
+11 ;Builder header area
+12 DO HDR
+13 ;
+14 ;Build list area for transmission log errors
+15 DO EN^SCMCHLR2(SCARY,SCBEG,SCEND,SCEPS,SCSORTBY,.VALMCNT)
+16 QUIT
+17 ;
+18 ;
MRKMSG() ; Description: Returns custom message for list manager header
+1 ;
+2 QUIT "* - Marked for re-transmit"
+3 ;
+4 ;
DRMSG() ; Description: Returns custom message for date range in list manager header.
+1 ;
+2 QUIT "(None) List All Errors"
+3 ;
+4 ;
HELP ; Description: This entry point provides custom help code when user
+1 ; enters a '?' at the menu prompt.
+2 ;
+3 SET X="?"
DO DISP^XQORM1
WRITE !!
+4 QUIT
+5 ;
+6 ;
EXIT ; Description: This is used to cleanup variables and do other exit processing.
+1 ;
+2 DO CLEAR^VALM1
+3 DO CLEAN^VALM10
+4 KILL SCBEG,SCEND,SCEPS,SCSORTBY,VALMSG
+5 KILL ^TMP(SCARY_"SRT",$JOB),^TMP(SCARY_"IDX",$JOB),X
+6 QUIT
+7 ;
+8 ;
EXPND ;Expand code
+1 QUIT
