73 lines
1.3 KiB
Mathematica
73 lines
1.3 KiB
Mathematica
DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm
|
|
;;5.3;Registration;**650**;Aug 13, 1993;Build 3
|
|
;
|
|
;- no direct entry
|
|
QUIT
|
|
;
|
|
;
|
|
EN ;Main entry point for DGPF TRANSMISSION ERRORS option.
|
|
;
|
|
; Input: None
|
|
; Output: None
|
|
;
|
|
;invoke DGPF TRANSMISSION ERRORS list template
|
|
N DGSRTBY
|
|
;- sort list (default="N"=Patient Name, also "E"=Date Error Received)
|
|
S DGSRTBY="N"
|
|
;
|
|
D EN^VALM("DGPF TRANSMISSION ERRORS")
|
|
Q
|
|
;
|
|
;
|
|
HDR ;Header Code
|
|
N DGHDR
|
|
S DGHDR="List Sorted By: "_$S($G(DGSRTBY)="N":"Patient Name",1:"Date Error Received")
|
|
S VALMHDR(1)=""
|
|
S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),1,$L(DGHDR))
|
|
Q
|
|
;
|
|
;
|
|
INIT ;Init variables and list array
|
|
D BLD
|
|
Q
|
|
;
|
|
;
|
|
BLD ;Build HL7 Transmission Log "RJ" Rejected Status message list
|
|
D CLEAN^VALM10
|
|
K DGARY,VALMHDR
|
|
K ^TMP("DGPFSORT",$J)
|
|
;
|
|
;- init array that will contain list of items to display
|
|
S DGARY="DGPFLMT"
|
|
K ^TMP(DGARY,$J)
|
|
;
|
|
;build header area
|
|
D HDR
|
|
;
|
|
;init # of lines in list
|
|
S VALMCNT=0
|
|
;
|
|
;- call to build list area for error messages
|
|
D EN^DGPFLMT1(DGARY,DGSRTBY,.VALMCNT)
|
|
Q
|
|
;
|
|
;
|
|
HELP ;Help Code
|
|
N X
|
|
S X="?" D DISP^XQORM1 W !!
|
|
Q
|
|
;
|
|
;
|
|
EXIT ;Exit Code
|
|
D CLEAN^VALM10
|
|
D CLEAR^VALM1
|
|
K ^TMP("DGPFSORT",$J)
|
|
K ^TMP(DGARY,$J)
|
|
K DGARY
|
|
K DGSRTBY
|
|
Q
|
|
;
|
|
;
|
|
EXPND ;Expand Code
|
|
Q
|