DGPFLMA.m

DGPFLMA ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm

 ;;5.3;Registration;**425,1008,1015**;Aug 13,1993;Build 21

 ;

 ;

EN ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.

 ;

 ;  Input: None

 ; Output: None

 ;

 ;display wait msg to user

 D WAIT^DICD

 ;

 ;invoke list manager and load list template 

 D EN^VALM("DGPF RECORD FLAG ASSIGNMENT")

 Q

 ;

 ;

HDR ;Header Code

 ;cmi/anch/maw 10/18/2007 modified below lines due to reset after selecting patient PATCH 1008

 I '$D(VALMHDR) D

 . S VALMHDR(1)="Patient: No Patient Selected"

 . S VALMHDR(2)=""

 Q

 ;

 ;

INIT ;Init variables and list array

 N DGTEXT

 S DGTEXT="   A patient has not been selected.  Please select a patient."

 D SET^VALM10(1,"")

 D SET^VALM10(2,DGTEXT)

 D CNTRL^VALM10(2,4,$L(DGTEXT),$G(IOINHI),$G(IOINORM))

 S VALMCNT=2

 Q

 ;

 ;

HELP ;Help Code

 N X

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

 ;

EXIT ;Exit Code

 K DGDFN

 K DGPFA

 K DGPFAH

 D CLEAN^VALM10

 D CLEAR^VALM1

 Q

 ;

 ;

EXPND ;Expand Code

 Q

DGPFLMA   ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm

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

 +2       ;

 +3       ;

EN        ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.

 +1       ;

 +2       ;  Input: None

 +3       ; Output: None

 +4       ;

 +5       ;display wait msg to user

 +6        DO WAIT^DICD

 +7       ;

 +8       ;invoke list manager and load list template 

 +9        DO EN^VALM("DGPF RECORD FLAG ASSIGNMENT")

 +10       QUIT 

 +11      ;

 +12      ;

HDR       ;Header Code

 +1       ;cmi/anch/maw 10/18/2007 modified below lines due to reset after selecting patient PATCH 1008

 +2        IF '$DATA(VALMHDR)

               Begin DoDot:1

 +3                SET VALMHDR(1)="Patient: No Patient Selected"

 +4                SET VALMHDR(2)=""

               End DoDot:1

 +5        QUIT 

 +6       ;

 +7       ;

INIT      ;Init variables and list array

 +1        NEW DGTEXT

 +2        SET DGTEXT="   A patient has not been selected.  Please select a patient."

 +3        DO SET^VALM10(1,"")

 +4        DO SET^VALM10(2,DGTEXT)

 +5        DO CNTRL^VALM10(2,4,$LENGTH(DGTEXT),$GET(IOINHI),$GET(IOINORM))

 +6        SET VALMCNT=2

 +7        QUIT 

 +8       ;

 +9       ;

HELP      ;Help Code

 +1        NEW X

 +2        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +3        QUIT 

 +4       ;

 +5       ;

EXIT      ;Exit Code

 +1        KILL DGDFN

 +2        KILL DGPFA

 +3        KILL DGPFAH

 +4        DO CLEAN^VALM10

 +5        DO CLEAR^VALM1

 +6        QUIT 

 +7       ;

 +8       ;

EXPND     ;Expand Code

 +1        QUIT