Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPFRDB1

Package: Registration

Routine: DGPFRDB1


Information

DGPFRDB1 ;SHRPE/SGM - DBRS HISTORY REPORT ; Aug 07, 2018 09:45

Source Information

Source file <DGPFRDB1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 GETASGN^DGPFAA  (GETALLDT,GETHIST)^DGPFAAH  GETPAT^DGPFUT2  
Kernel 2 $$FMTE^XLFDT  $$STA^XUAF4  

Entry Points

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

External References

Name Field # of Occurrence
GETASGN^DGPFAA GET+48
GETALLDT^DGPFAAH GET+18
GETHIST^DGPFAAH GET+22
GETPAT^DGPFUT2 BLDHEAD+12
$$FMTE^XLFDT FMTE
$$STA^XUAF4 GET+29, GET+51

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,PAGE(ROW)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !," Press any key to continue, '^' to exit: "
  • Line Location: DISPX+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("DGPFRDB" START+5

Label References

Name Line Occurrences
$$DISPX DISPLAY+9
$$FMTE BLDHEAD+14, GET+27, GET+41, GET+57
BLDHEAD START+7
BLDPAGES START+8
BLDPGA BLDPAGES+3, BLDPAGES+23, BLDPAGES+26
BLDPGN BLDPAGES+10, BLDPAGES+24
BLDPGS BLDPAGES+6, BLDPAGES+13, BLDPAGES+21, BLDPAGES+24, BLDPAGES+28, BLDPGA+5
DISPLAY START+9
GET START+6

Local Variables

Legend:

>> 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*

Marked Items

Name Field # of Occurrence
$T(BLDHEAD+2 BLDHEAD+10
$T(BLDHEAD+5 BLDHEAD+18
$T(BLDHEAD+6 BLDHEAD+19
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All