DGPFUT63 ;SHRPE/SGM - PRF UTILITIES FOR DBRS# ; Apr 3, 2018 14:18
Source file <DGPFUT63.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | $$ISDIV^DGPFUT |
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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 2 | DGPFRAL1 DGPFUT6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
LOC(DGIN) | ; BOOLEAN
; Determine if History record was created locally or at another VAMC ; May or may not have DG*5.3*951 ; INPUT: .DGIN - required - a copy of DGPFAH() ; INST - optional - pointer to file 4 ; RETURN: 1 if History created at this facility ; 0 if History created at other facility ; 0 if unable to determine if record local or not ; DGPFAH - Output array containing the field values ; Subscript Field# ; ---------- ------ ; "ENTERBY" .04 ; "APPRVBY" .05 ; "ORIGFAC" .09 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DGIN | LOC~ |
DGIN("APPRVBY" | LOC+19 |
DGIN("ENTERBY" | LOC+20 |
DGIN("ORIGFAC" | LOC+16 |
I | LOC+15~ |
ISLOC | LOC+15~ |
J | LOC+15~ |
ORIG | LOC+15~, LOC+16* |
RET | LOC+15~ |
STN | LOC+15~ |
WHO | LOC+15~, LOC+19*, LOC+20*, LOC+21 |
X | LOC+15~ |