DGPFRFA1 ;ALB/RBS - PRF FLAG ASSIGNMENT REPORT CONT. ; 1/21/04 5:14pm
Source file <DGPFRFA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; compile and print report
|
|
| EXIT | ;
|
|
| A1 | ;
; Find records using sort var's to build list ; Output: ; ^TMP("DGPFRFA1",$J) - temp global containing report output |
|
| A11() | ; apply filters
; 1. Get all History records of certain ACTION types: ; 2: Action types: New, Inactivate, Reactivate, Enter in Error ; 3. Action DATE must be within date range |
|
| A12 | ; build the list global
; Output: ; ^TMP("DGPFRFA1",$J) - temp global containing report output |
|
| FORMAT(VAL) | ; format one row of data for display
|
|
| HDR | ; build header array
; see sample header at end of routine ; S $E(X,start_pos)=value ; Active header: 1,33,40,50,60,68,79,89,100 ; Inactive header: 1,33,40,50,60,58,80,92 |
|
| PRT | ;
; DGLIST = ^TMP("DGPFRFA1",$J,CAT,FLAG,DGNAME,DGDFN) |
|
| PRTOUT | ;
|
|
| WR(X) | ; write out one line
; check for bottom of page ; write new header if necessary |
|
| WRCK(MIN) | ; check to see if we should quit printing (set DGQ=1)
; Input Parameters: ; MIN - optional - minimal number of lines needed before end of page ; default to 4 |
|
| WRHDR | ; write page header, increment page count
|
|
| WRSUBHDR | ; write subheader of category or flag name
|
|
| WRTOT | ; write out totals
|
|
| WRX | ; press [ENTER] to continue
|
|
| WR2 | ; write subtotals for flag
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
