DGPFLMD.m

DGPFLMD ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm

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

 ;

 ;no direct entry

 QUIT

 ;

EN(DGDFN,DGPFAPI) ;DGPF ACTIVE ASSIGNMENTS list template main entry point

 ;

 ;  Input:

 ;      DGDFN - IEN of record in PATIENT (#2) file

 ;    DGPFAPI - data array of active patient record flag assignments

 ;

 ; Output: None

 ;

 ;

 ;quit if required input not defined

 Q:+$G(DGDFN)'>0

 Q:'$D(DGPFAPI)

 ;

 ;display wait msg to user

 D WAIT^DICD

 ;

 ;invoke DISPLAY list template

 D EN^VALM("DGPF ACTIVE ASSIGNMENTS")

 Q

 ;

 ;

HDR ;Header Code

 ;

 D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)

 S VALMHDR(3)=" "

 S VALMHDR(4)=$$CJ^XLFSTR("<<< Active Patient Record Flag Assignments >>>",80)

 Q

 ;

 ;

INIT ;Init variables and list array

 ;

 D BLD

 ;

 Q

 ;

 ;

BLD ;Build flag detail screen (list area)

 ;

 D CLEAN^VALM10

 K VALMHDR

 K ^TMP("DGPFACT",$J)

 ;

 ;init number of lines in list

 S VALMCNT=0

 ;

 ;build header

 D HDR

 ;

 ;build list area for flag detail

 D EN^DGPFLMD1("DGPFACT",.DGPFAPI,.VALMCNT)

 ;

 Q

 ;

 ;

HELP ;Help Code

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

 Q

 ;

 ;

EXIT ;Exit Code

 ;

 D CLEAN^VALM10

 D CLEAR^VALM1

 K ^TMP("DGPFACT",$J)

 Q

 ;

 ;

EXPND ;Expand Code

 Q

DGPFLMD   ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm

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

 +2       ;

 +3       ;no direct entry

 +4        QUIT 

 +5       ;

EN(DGDFN,DGPFAPI) ;DGPF ACTIVE ASSIGNMENTS list template main entry point

 +1       ;

 +2       ;  Input:

 +3       ;      DGDFN - IEN of record in PATIENT (#2) file

 +4       ;    DGPFAPI - data array of active patient record flag assignments

 +5       ;

 +6       ; Output: None

 +7       ;

 +8       ;

 +9       ;quit if required input not defined

 +10       IF +$GET(DGDFN)'>0

               QUIT 

 +11       IF '$DATA(DGPFAPI)

               QUIT 

 +12      ;

 +13      ;display wait msg to user

 +14       DO WAIT^DICD

 +15      ;

 +16      ;invoke DISPLAY list template

 +17       DO EN^VALM("DGPF ACTIVE ASSIGNMENTS")

 +18       QUIT 

 +19      ;

 +20      ;

HDR       ;Header Code

 +1       ;

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

 +3        SET VALMHDR(3)=" "

 +4        SET VALMHDR(4)=$$CJ^XLFSTR("<<< Active Patient Record Flag Assignments >>>",80)

 +5        QUIT 

 +6       ;

 +7       ;

INIT      ;Init variables and list array

 +1       ;

 +2        DO BLD

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;

BLD       ;Build flag detail screen (list area)

 +1       ;

 +2        DO CLEAN^VALM10

 +3        KILL VALMHDR

 +4        KILL ^TMP("DGPFACT",$JOB)

 +5       ;

 +6       ;init number of lines in list

 +7        SET VALMCNT=0

 +8       ;

 +9       ;build header

 +10       DO HDR

 +11      ;

 +12      ;build list area for flag detail

 +13       DO EN^DGPFLMD1("DGPFACT",.DGPFAPI,.VALMCNT)

 +14      ;

 +15       QUIT 

 +16      ;

 +17      ;

HELP      ;Help Code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

 +4       ;

EXIT      ;Exit Code

 +1       ;

 +2        DO CLEAN^VALM10

 +3        DO CLEAR^VALM1

 +4        KILL ^TMP("DGPFACT",$JOB)

 +5        QUIT 

 +6       ;

 +7       ;

EXPND     ;Expand Code

 +1        QUIT