DGPFLMD ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm
;;5.3;Registration;**425**;Aug 13, 1993
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMD 1281 printed Oct 16, 2024@18:48:53 Page 2
DGPFLMD ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/20/03 2:49pm
+1 ;;5.3;Registration;**425**;Aug 13, 1993
+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
