DGPFUT6 ;SHRPE/SGM - PRF DBRS# MAIN DRIVER ; Jan 19, 2018 16:45
Source file <DGPFUT6.m>
| 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 |
