DGPFUT6 ;SHRPE/SGM - PRF DBRS# MAIN DRIVER ; Jan 19, 2018 16:45
Source file <DGPFUT6.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| 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 |
| >> | 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 |
