DGPFRDB1 ;SHRPE/SGM - DBRS HISTORY REPORT ; Aug 07, 2018 09:45
Source file <DGPFRDB1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;--- Taskman Entry Point
|
|
| BLDHEAD | ; construct HEAD()
|
|
| BLDPAGES | ; construct PAGE(page#,row#)
|
|
| BLDPGN(WHERE) | ; add a new page?
; if WHERE=0, starting new history record ; if WHERE=1, for a history record writing a DBRS record |
|
| BLDPGA | ; add a new page
; fill out existing page if PG>0 |
|
| BLDPGS(V) | ; set a row in PAGE()
|
|
| DISPLAY | ;
|
|
| DISPX() | ; for terminal, check if this is the last page
|
|
| FMTE(DATE) | ||
| GET | ;
; get the History data ; store a copy of data in ^TMP ; @RPT@("INPUT") = input answers ; @RPT@("HIST",date) = history DGPFAH() ; @RPT@("HIST",9999999) = current DGPFA() ; @RPT@("DATE") = total number of records ; @RPT@("DATE",DATE,0) = SITE_U_EDITDT_U_ENTERBY ; @RPT@("DATE",date,1," "_dbrs#) = dbrs#^ext_date^other |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
