DGPFLMT.m

DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm

 ;;5.3;Registration;**650,1015**;Aug 13, 1993;Build 21

 ;

 ;- 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

DGPFLMT   ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm

 +1       ;;5.3;Registration;**650,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;- no direct entry

 +4        QUIT 

 +5       ;

 +6       ;

EN        ;Main entry point for DGPF TRANSMISSION ERRORS option.

 +1       ;

 +2       ;  Input: None

 +3       ; Output: None

 +4       ;

 +5       ;invoke DGPF TRANSMISSION ERRORS list template

 +6        NEW DGSRTBY

 +7       ;- sort list (default="N"=Patient Name, also "E"=Date Error Received)

 +8        SET DGSRTBY="N"

 +9       ;

 +10       DO EN^VALM("DGPF TRANSMISSION ERRORS")

 +11       QUIT 

 +12      ;

 +13      ;

HDR       ;Header Code

 +1        NEW DGHDR

 +2        SET DGHDR="List Sorted By: "_$SELECT($GET(DGSRTBY)="N":"Patient Name",1:"Date Error Received")

 +3        SET VALMHDR(1)=""

 +4        SET VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),1,$LENGTH(DGHDR))

 +5        QUIT 

 +6       ;

 +7       ;

INIT      ;Init variables and list array

 +1        DO BLD

 +2        QUIT 

 +3       ;

 +4       ;

BLD       ;Build HL7 Transmission Log "RJ" Rejected Status message list

 +1        DO CLEAN^VALM10

 +2        KILL DGARY,VALMHDR

 +3        KILL ^TMP("DGPFSORT",$JOB)

 +4       ;

 +5       ;- init array that will contain list of items to display

 +6        SET DGARY="DGPFLMT"

 +7        KILL ^TMP(DGARY,$JOB)

 +8       ;

 +9       ;build header area

 +10       DO HDR

 +11      ;

 +12      ;init # of lines in list

 +13       SET VALMCNT=0

 +14      ;

 +15      ;- call to build list area for error messages

 +16       DO EN^DGPFLMT1(DGARY,DGSRTBY,.VALMCNT)

 +17       QUIT 

 +18      ;

 +19      ;

HELP      ;Help Code

 +1        NEW X

 +2        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +3        QUIT 

 +4       ;

 +5       ;

EXIT      ;Exit Code

 +1        DO CLEAN^VALM10

 +2        DO CLEAR^VALM1

 +3        KILL ^TMP("DGPFSORT",$JOB)

 +4        KILL ^TMP(DGARY,$JOB)

 +5        KILL DGARY

 +6        KILL DGSRTBY

 +7        QUIT 

 +8       ;

 +9       ;

EXPND     ;Expand Code

 +1        QUIT