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 |  Caller Graph |  Entry Points |  External References |  Local Variables  | All
Print Page as PDF
Routine: DGPFUT6

Package: Registration

Routine: DGPFUT6


Information

DGPFUT6 ;SHRPE/SGM - PRF DBRS# MAIN DRIVER ; Jan 19, 2018 16:45

Source Information

Source file <DGPFUT6.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 6 $$ISDIV^DGPFUT  ($$DBRS,$$DBRSVAL,EIE)^DGPFUT61  (AASGN,DEL,GETDBRS,GETDBRSH,STOHIST)^DGPFUT62  $$LOC^DGPFUT63  ($$FLAG,$$SELASGN,FLAGCVRT)^DGPFUT64  $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Registration 9 DGPFAA  DGPFAA2  DGPFAAH  DGPFHLF  DGPFHLT1  DGPFLMA3  DGPFLMA4  DGPFRDB  
DGPFUT61  

Entry Points

Name Comments DBIA/ICR reference
AASGN(DGIENS,DGPFA,DGFDA,DGPFUV,DGPFERR) ;
; set up FILE^DIE or UPDATE^DIE input array for DBRS data
DBRSEDIT() ; called from AF/EF Listmanager actions
DBRSNO(DGN,DGNIEN) ; validate DBRS# unique in VistA
DEFDIV() ; return a valid PRF division for this user
DEL(DGXIEN,DGFILE) ; delete DBRS data from FM record
; DGXIEN - ien to file 26.13 OR 26.14
; DGFILE - 26.13 or 26.14
EIE(DGPFIN) ; warning message that all DBRS# will be removed
FLAG(DGPFIN,SCR,TYPE) ;
; Find one flag matching
; INPUT PARAMETERS:
; DGPFIN - required - flag full name or variable-pointer syntax
; SCR - required - flag name to use as a screen if DGPFIN is
; var-pointer
; TYPE - optional - I or II or <null or 0 - for either>
; EXTRINSIC FUNCTION returns 0 or variable_pointer^flag_name
FLAGCVRT(DGRET,VAL,TYPE) ;
GETDBRS(DGRET,DGAIEN) ; Get DBRS data for an Assignment record
GETDBRSH(DGRET,DGHIEN) ; Get DBRS data fOR a History record
ICR() ;
; called from ICR entry points
; to not update the ICR agreements affected, DBRS data will not be
; returned from a call that is invoking that ICR agreement unless
; one undertakes the responsibility of upgrading the calling
; program also.
; Return 1 if called from external source via ICR
; 0 if called from DG internal sources
; 0 if external source will use updated info
LOC(DGIN) ; Was History record created locally or at another VAMC
SELASGN(DGSCR,FLG) ;
; select an existing assignment from from 26.13
STOHIST(DGIENS,DGFLD,DGFDA,DGPFERR) ;
; File DBRS data for History record

External References

Name Field # of Occurrence
$$ISDIV^DGPFUT DEFDIV+2
$$DBRS^DGPFUT61 DBRSEDIT+1
$$DBRSVAL^DGPFUT61 DBRSNO+1
EIE^DGPFUT61 EIE+1
AASGN^DGPFUT62 AASGN+2
DEL^DGPFUT62 DEL+3
GETDBRS^DGPFUT62 GETDBRS+1
GETDBRSH^DGPFUT62 GETDBRSH+1
STOHIST^DGPFUT62 STOHIST+2
$$LOC^DGPFUT63 LOC+1
$$FLAG^DGPFUT64 FLAG+9
$$SELASGN^DGPFUT64 SELASGN+7
FLAGCVRT^DGPFUT64 FLAGCVRT+13
$$SITE^VASITE DEFDIV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGAIEN GETDBRS~, GETDBRS+1
DGFDA AASGN~, AASGN+2, STOHIST~, STOHIST+2
DGFILE DEL~, DEL+3
DGFLD STOHIST~, STOHIST+2
DGHIEN GETDBRSH~, GETDBRSH+1
DGIENS AASGN~, AASGN+2, STOHIST~, STOHIST+2
DGIN LOC~, LOC+1
DGN DBRSNO~, DBRSNO+1
DGNIEN DBRSNO~, DBRSNO+1
DGPFA AASGN~, AASGN+2
DGPFERR AASGN~, AASGN+2, STOHIST~, STOHIST+2
DGPFIN EIE~, EIE+1, FLAG~, FLAG+9
DGPFUV AASGN~, AASGN+2
DGRET FLAGCVRT~, FLAGCVRT+13, FLAGCVRT+14, GETDBRS~, GETDBRS+1, GETDBRSH~, GETDBRSH+1
DGSCR SELASGN~, SELASGN+7
DGXIEN DEL~, DEL+3
>> DUZ(2 DEFDIV+2
FLG SELASGN~, SELASGN+7
SCR FLAG~, FLAG+9
TYPE FLAG~, FLAG+9, FLAGCVRT~, FLAGCVRT+13
VAL FLAGCVRT~, FLAGCVRT+13
X DEFDIV+1~, DEFDIV+2*, DEFDIV+3*, DEFDIV+4, ICR+9~, ICR+10*, ICR+11, ICR+12
>> XQY0 ICR+10
Y ICR+9~, ICR+10*, ICR+11*, ICR+12*, ICR+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Local Variables  | All