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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DGPFRDB" | START+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DAT | GET+33~ |
| DAT( | GET+34* |
| DAT(1 | GET+37 |
| DAT(2 | GET+38 |
| DAT(3 | GET+41 |
| DAT(4 | GET+35 |
| DATE | BLDPAGES+1~, BLDPAGES+8*, BLDPAGES+11, BLDPAGES+15, BLDPAGES+16, FMTE~, GET+10~, GET+19*, GET+21, GET+24 , GET+27, GET+30, GET+42, GET+44, GET+55~, GET+57*, GET+59 |
| DBDT | GET+33~, GET+41*, GET+42 |
| DBRS | BLDPAGES+9~, BLDPAGES+17*, BLDPAGES+20, GET+33~, GET+37*, GET+42, GET+55~, GET+56*, GET+59 |
| DBRSX | BLDPAGES+9~, BLDPAGES+14*, BLDPAGES+15*, BLDPAGES+16 |
| DGHIST | START+1~, GET+10~, GET+18 |
| DGHIST( | GET+19, GET+21 |
| DGPFA | GET+10~, GET+48, GET+52 |
| DGPFA("DBRS D | ATE" , GET+57 |
| DGPFA("DBRS O | THER" , GET+58 |
| DGPFA("DBRS#" | GET+54, GET+56 |
| DGPFA("OWNER" | GET+50 |
| DGPFAH | GET+20~, GET+22, GET+24 |
| DGPFAH("DBRS" | GET+23, GET+32, GET+34 |
| DGPFAH("ENTERBY" | GET+26 |
| DGPFAH("ORIGFAC" | GET+28 |
| >> DGSRC | GET+12 |
| >> DGSRC("ASGN" | START+2, GET+18, GET+48 |
| >> DGSRC("BEG" | BLDHEAD+14, GET+13 |
| >> DGSRC("DFN" | BLDHEAD+12 |
| >> DGSRC("END" | BLDHEAD+14, GET+14 |
| DTIME | DISPX+4 |
| ED | GET+10~, GET+14*, GET+19 |
| EDITDT | GET+20~, GET+27*, GET+30 |
| ENTERBY | GET+20~, GET+26*, GET+30 |
| HEAD | START+1~ |
| HEAD( | BLDPGA+10 |
| HEAD(1 | BLDHEAD+10*, BLDPGA+9 |
| HEAD(2 | BLDHEAD+16* |
| HEAD(3 | BLDHEAD+17*, BLDHEAD+20 |
| HEAD(4 | BLDHEAD+18* |
| HEAD(5 | BLDHEAD+19*, BLDPAGES+13 |
| HEAD(9 | BLDHEAD+20* |
| I | BLDPAGES+9~, BLDPAGES+15*, BLDPGA+10~*, DISPLAY+1~, GET+20~, GET+34* |
| IEN | GET+20~, GET+21*, GET+22 |
| IOF | START+10, DISPLAY+3, DISPLAY+7 |
| IOSL | BLDPAGES+23, BLDPAGES+26, BLDPGN+3, BLDPGN+4, BLDPGA+2, BLDPGA+5, DISPX+2 |
| IOST | START+3 |
| J | BLDPAGES+1~, BLDPAGES+5*, BLDPAGES+6, BLDPAGES+8*, DISPLAY+1~, GET+10~ |
| L | BLDPAGES+9~, BLDPGA+3~, BLDPGA+5*, DISPLAY+5~, GET+20~, GET+32*, GET+34, GET+49~, GET+54*, GET+56 , GET+57, GET+58 |
| OTHER | BLDPAGES+9~, BLDPAGES+19*, BLDPAGES+20, GET+33~, GET+38*, GET+39*, GET+40*, GET+42, GET+55~, GET+58* , GET+59 |
| OUT | DISPLAY+1~, DISPLAY+2*, DISPLAY+4, DISPLAY+9* |
| PAGE | START+1~, DISPLAY+5~, DISPLAY+6* |
| PAGE( | DISPLAY+8 |
| PG | START+1~, START+4*, BLDPAGES+2*, BLDPGA+2, BLDPGA+8*, BLDPGA+9, BLDPGA+10, BLDPGS+1, DISPLAY+1~, DISPLAY+4* , DISPLAY+6, DISPLAY+7, DISPLAY+13*, DISPLAY+14, DISPLAY+15, DISPX+1 |
| ROW | BLDPAGES+1~, BLDPAGES+23, BLDPAGES+26, BLDPGN+3, BLDPGN+4, BLDPGA+2, BLDPGA+5, BLDPGA+11*, BLDPGS+1*, DISPLAY+1~ , DISPLAY+8*, DISPLAY+14*, DISPLAY+15, DISPX+2 |
| RPT | START+1~, START+5*, START+11, BLDPAGES+4, BLDPAGES+8, BLDPAGES+11, BLDPAGES+15, BLDPAGES+16, BLDPGA+9, BLDPGA+10 , BLDPGS+1, DISPLAY+4, DISPLAY+6, DISPLAY+13, DISPLAY+14, DISPLAY+15, DISPX+1, GET+12, GET+24, GET+30 , GET+42, GET+44, GET+52, GET+53, GET+59, GET+63 |
| SITE | GET+20~, GET+28*, GET+29*, GET+30, GET+49~, GET+51*, GET+53 |
| ST | GET+10~, GET+13*, GET+19 |
| STAT | GET+33~, GET+35*, GET+36, GET+39, GET+40 |
| T | BLDPGA+3~, BLDPGA+4*, BLDPGA+5 |
| TMP | BLDHEAD+8~, BLDHEAD+12 |
| TMP("NAME" | BLDHEAD+13 |
| TMP("SSN" | BLDHEAD+13 |
| TOT | GET+10~, GET+15*, GET+44*, GET+61*, GET+63 |
| TRM | START+1~, START+3*, START+10, BLDPGA+5, DISPLAY+3, DISPLAY+9, DISPLAY+12 |
| U | BLDPAGES+12, BLDPAGES+17, BLDPAGES+18, BLDPAGES+19, DISPX+5, GET+26, GET+29, GET+30, GET+34, GET+42 , GET+51, GET+56, GET+57, GET+58, GET+59 |
| V | BLDPGS~, BLDPGS+1 |
| VAL | BLDPAGES+9~, BLDPAGES+12*, BLDPAGES+13 |
| WHERE | BLDPGN~, BLDPGN+3, BLDPGN+4 |
| X | START+1~, BLDHEAD+8~, BLDHEAD+9*, BLDHEAD+13*, BLDHEAD+15*, BLDHEAD+16, BLDPAGES+9~, BLDPAGES+11*, BLDPAGES+12, BLDPAGES+16* , BLDPAGES+17, BLDPAGES+18, BLDPAGES+19, BLDPAGES+20*, BLDPAGES+21*, BLDPAGES+24, BLDPGA+3~, BLDPGA+5*, DISPLAY+1~, DISPLAY+5~ , DISPLAY+15*, DISPX+4~*, DISPX+5, GET+10~, GET+20~, GET+33~, GET+49~, GET+50*, GET+51 |
| Y | START+1~, BLDHEAD+8~, BLDHEAD+14*, BLDHEAD+15, BLDPAGES+9~, BLDPAGES+18*, BLDPAGES+20, GET+10~, GET+20~, GET+28* , GET+29, GET+33~ |
| Z | BLDPAGES+9~, BLDPAGES+24* |
