- 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 Feb 19, 2025@00:14:19 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