| [613] | 1 | SCMCHLR1 ;ALB/KCL - PCMM HL7 Reject Processing - List Manager Screen ; 10-JAN-2000
|
|---|
| 2 | ;;5.3;Scheduling;**210**;AUG 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Description: Main entry point for SCMC PCMM TRANSMISSION ERRORS. Used
|
|---|
| 5 | ; to invoke LM and load list template.
|
|---|
| 6 | ;
|
|---|
| 7 | ; Input: None
|
|---|
| 8 | ; Output: None
|
|---|
| 9 | ;
|
|---|
| 10 | ;Invoke list template
|
|---|
| 11 | D EN^VALM("SCMC PCMM TRANSMISSION ERRORS")
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | ;
|
|---|
| 15 | HDR ; Description: Header code to display text in header area.
|
|---|
| 16 | ;
|
|---|
| 17 | ;Sort by
|
|---|
| 18 | S VALMHDR(1)="Sort By: "_$S(SCSORTBY="N":"Patient Name",SCSORTBY="D":"Date Error Received",SCSORTBY="P":"Provider",1:"Unknown")
|
|---|
| 19 | ;
|
|---|
| 20 | ;Date range
|
|---|
| 21 | I $G(SCBEG),($G(SCEND)) D
|
|---|
| 22 | .S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$FDATE^VALM1(SCBEG)_" to "_$$FDATE^VALM1(SCEND),VALMHDR(1),46,80)
|
|---|
| 23 | E D
|
|---|
| 24 | .S VALMHDR(1)=$$SETSTR^VALM1("Date Range: "_$$DRMSG,VALMHDR(1),46,80)
|
|---|
| 25 | ;
|
|---|
| 26 | ;Error processing status
|
|---|
| 27 | S VALMHDR(2)="Error Processing Status: "_$S(SCEPS=1:"New",SCEPS=2:"Checked",SCEPS=3:"New/Checked",1:"Unknown")
|
|---|
| 28 | ;
|
|---|
| 29 | ;Indicates marked for re-transmit
|
|---|
| 30 | S VALMHDR(2)=$$SETSTR^VALM1($$MRKMSG,VALMHDR(2),46,80)
|
|---|
| 31 | ;
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | ;
|
|---|
| 35 | INIT ; Description: Initilize variables and list array for building list.
|
|---|
| 36 | ;
|
|---|
| 37 | K SCBEG,SCEND,SCEPS,SCSORTBY
|
|---|
| 38 | K VALMBEG,VALMEND,VALMSG
|
|---|
| 39 | ;
|
|---|
| 40 | ;Display custom message in LM display window
|
|---|
| 41 | ;S VALMSG=$$MRKMSG
|
|---|
| 42 | ;
|
|---|
| 43 | ;Set sort by = 'Patient Name'
|
|---|
| 44 | S SCSORTBY="N"
|
|---|
| 45 | ;
|
|---|
| 46 | ;Set error processing status = both 'New/Checked'
|
|---|
| 47 | S SCEPS=3
|
|---|
| 48 | ;
|
|---|
| 49 | ;Init date range, list all errors
|
|---|
| 50 | S SCBEG=0
|
|---|
| 51 | S SCEND=DT
|
|---|
| 52 | ;
|
|---|
| 53 | ;Build PCMM transmission errors screen
|
|---|
| 54 | D BUILD
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | ;
|
|---|
| 58 | BUILD ; Description: Used to build PCMM error transmission screen.
|
|---|
| 59 | ;
|
|---|
| 60 | ;Kill the array related data before building the list
|
|---|
| 61 | D CLEAN^VALM10
|
|---|
| 62 | ;
|
|---|
| 63 | K SCARY,VALMHDR
|
|---|
| 64 | S SCARY="SCERR" ; set global array subscript
|
|---|
| 65 | K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J)
|
|---|
| 66 | S VALMBG=1 ; init list start line
|
|---|
| 67 | S VALMCNT=0 ; init # of lines in list
|
|---|
| 68 | ;
|
|---|
| 69 | ;Builder header area
|
|---|
| 70 | D HDR
|
|---|
| 71 | ;
|
|---|
| 72 | ;Build list area for transmission log errors
|
|---|
| 73 | D EN^SCMCHLR2(SCARY,SCBEG,SCEND,SCEPS,SCSORTBY,.VALMCNT)
|
|---|
| 74 | Q
|
|---|
| 75 | ;
|
|---|
| 76 | ;
|
|---|
| 77 | MRKMSG() ; Description: Returns custom message for list manager header
|
|---|
| 78 | ;
|
|---|
| 79 | Q "* - Marked for re-transmit"
|
|---|
| 80 | ;
|
|---|
| 81 | ;
|
|---|
| 82 | DRMSG() ; Description: Returns custom message for date range in list manager header.
|
|---|
| 83 | ;
|
|---|
| 84 | Q "(None) List All Errors"
|
|---|
| 85 | ;
|
|---|
| 86 | ;
|
|---|
| 87 | HELP ; Description: This entry point provides custom help code when user
|
|---|
| 88 | ; enters a '?' at the menu prompt.
|
|---|
| 89 | ;
|
|---|
| 90 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 91 | Q
|
|---|
| 92 | ;
|
|---|
| 93 | ;
|
|---|
| 94 | EXIT ; Description: This is used to cleanup variables and do other exit processing.
|
|---|
| 95 | ;
|
|---|
| 96 | D CLEAR^VALM1
|
|---|
| 97 | D CLEAN^VALM10
|
|---|
| 98 | K SCBEG,SCEND,SCEPS,SCSORTBY,VALMSG
|
|---|
| 99 | K ^TMP(SCARY_"SRT",$J),^TMP(SCARY_"IDX",$J)
|
|---|
| 100 | Q
|
|---|
| 101 | ;
|
|---|
| 102 | ;
|
|---|
| 103 | EXPND ;Expand code
|
|---|
| 104 | Q
|
|---|
