DGPFUT63 ;SHRPE/SGM - PRF UTILITIES FOR DBRS# ; Apr 3, 2018 14:18
;;5.3;Registration;**960**;Aug 13, 1993;Build 22
; Last Edited: SHRPE/sgm - May 24, 2018 10:42
;
; No routines should invoked this routine directly. See DGPFUT6
; This routine will be called directly by the following routines
; as part of patch 960. Once patch DG*5.3*951 is released the
; routines listed should be converted to calling the API in the
; DGPFUT6 routine.
; DGPFRAL1 := LOCAL+5 S LOC=$$LOC^DGPFUT63(.TMP)
;
; ICR# TYPE DESCRIPTION
;----- ---- -----------------------------
;
Q
;
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
;
N I,J,X,ISLOC,ORIG,RET,STN,WHO
S ORIG=+$G(DGIN("ORIGFAC")) I $$ISDIV^DGPFUT(ORIG)>0 Q 1
;
; CREATED BY SITE field not present (dg*5.3*951) or not valued
S WHO=+$G(DGIN("APPRVBY"))
I 'WHO S WHO=+$G(DGIN("ENTERBY"))
Q (WHO>.9)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFUT63 1468 printed Sep 23, 2025@20:24:49 Page 2
DGPFUT63 ;SHRPE/SGM - PRF UTILITIES FOR DBRS# ; Apr 3, 2018 14:18
+1 ;;5.3;Registration;**960**;Aug 13, 1993;Build 22
+2 ; Last Edited: SHRPE/sgm - May 24, 2018 10:42
+3 ;
+4 ; No routines should invoked this routine directly. See DGPFUT6
+5 ; This routine will be called directly by the following routines
+6 ; as part of patch 960. Once patch DG*5.3*951 is released the
+7 ; routines listed should be converted to calling the API in the
+8 ; DGPFUT6 routine.
+9 ; DGPFRAL1 := LOCAL+5 S LOC=$$LOC^DGPFUT63(.TMP)
+10 ;
+11 ; ICR# TYPE DESCRIPTION
+12 ;----- ---- -----------------------------
+13 ;
+14 QUIT
+15 ;
LOC(DGIN) ; BOOLEAN
+1 ; Determine if History record was created locally or at another VAMC
+2 ; May or may not have DG*5.3*951
+3 ; INPUT: .DGIN - required - a copy of DGPFAH()
+4 ; INST - optional - pointer to file 4
+5 ; RETURN: 1 if History created at this facility
+6 ; 0 if History created at other facility
+7 ; 0 if unable to determine if record local or not
+8 ; DGPFAH - Output array containing the field values
+9 ; Subscript Field#
+10 ; ---------- ------
+11 ; "ENTERBY" .04
+12 ; "APPRVBY" .05
+13 ; "ORIGFAC" .09
+14 ;
+15 NEW I,J,X,ISLOC,ORIG,RET,STN,WHO
+16 SET ORIG=+$GET(DGIN("ORIGFAC"))
IF $$ISDIV^DGPFUT(ORIG)>0
QUIT 1
+17 ;
+18 ; CREATED BY SITE field not present (dg*5.3*951) or not valued
+19 SET WHO=+$GET(DGIN("APPRVBY"))
+20 IF 'WHO
SET WHO=+$GET(DGIN("ENTERBY"))
+21 QUIT (WHO>.9)
