DGPFLMAD.m

DGPFLMAD ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm

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

 ;

 ;no direct entry

 QUIT

 ;

EN ;Main entry point for DGPF RECORD FLAG DETAIL list template.

 ;

 ;  Input:

 ;     DGDFN - ien of PATIENT (#2) file

 ;     DGIEN - ien of PRF ASSIGNMENT (#26.13) file

 ;

 ; Output: None

 ;

 ;quit if required input parameters not defined

 Q:'$G(DGDFN)

 Q:'$G(DGIEN)

 ;

 ;display wait msg to user

 D WAIT^DICD

 ;

 ;invoke list manager and load list template

 D EN^VALM("DGPF ASSIGNMENT DETAIL")

 Q

 ;

 ;

HDR ;Header Code

 D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)

 Q

 ;

 ;

INIT ;Init variables and list array

 D BLD

 Q

 ;

 ;

BLD ;Build record flag detail LM screen

 D CLEAN^VALM10

 K VALMHDR

 K ^TMP("DGPFDET",$J)

 ;

 ;init number of lines in list

 S VALMCNT=0

 ;

 ;build header

 D HDR

 ;

 ;build list area for record flag detail

 D EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.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("DGPFDET",$J)

 Q

 ;

 ;

EXPND ;Expand Code

 Q

DGPFLMAD  ;ALB/KCL - PRF DISPLAY ASSIGNMENT DETAIL LM SCREEN ; 4/25/03 3:22pm

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

 +2       ;

 +3       ;no direct entry

 +4        QUIT 

 +5       ;

EN        ;Main entry point for DGPF RECORD FLAG DETAIL list template.

 +1       ;

 +2       ;  Input:

 +3       ;     DGDFN - ien of PATIENT (#2) file

 +4       ;     DGIEN - ien of PRF ASSIGNMENT (#26.13) file

 +5       ;

 +6       ; Output: None

 +7       ;

 +8       ;quit if required input parameters not defined

 +9        IF '$GET(DGDFN)

               QUIT 

 +10       IF '$GET(DGIEN)

               QUIT 

 +11      ;

 +12      ;display wait msg to user

 +13       DO WAIT^DICD

 +14      ;

 +15      ;invoke list manager and load list template

 +16       DO EN^VALM("DGPF ASSIGNMENT DETAIL")

 +17       QUIT 

 +18      ;

 +19      ;

HDR       ;Header Code

 +1        DO BLDHDR^DGPFLMU(DGDFN,.VALMHDR)

 +2        QUIT 

 +3       ;

 +4       ;

INIT      ;Init variables and list array

 +1        DO BLD

 +2        QUIT 

 +3       ;

 +4       ;

BLD       ;Build record flag detail LM screen

 +1        DO CLEAN^VALM10

 +2        KILL VALMHDR

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

 +4       ;

 +5       ;init number of lines in list

 +6        SET VALMCNT=0

 +7       ;

 +8       ;build header

 +9        DO HDR

 +10      ;

 +11      ;build list area for record flag detail

 +12       DO EN^DGPFLMU1("DGPFDET",DGIEN,DGDFN,.VALMCNT)

 +13      ;

 +14       QUIT 

 +15      ;

 +16      ;

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("DGPFDET",$JOB)

 +4        QUIT 

 +5       ;

 +6       ;

EXPND     ;Expand Code

 +1        QUIT