- SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
- ;;5.3;Scheduling;**210,505**;AUG 13, 1993;Build 20
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCHLR1 2714 printed Feb 19, 2025@00:07 Page 2
- SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
- +1 ;;5.3;Scheduling;**210,505**;AUG 13, 1993;Build 20
- +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
