Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPFUT63

DGPFUT63.m

Go to the documentation of this file.
  1. DGPFUT63 ;SHRPE/SGM - PRF UTILITIES FOR DBRS# ; Apr 3, 2018 14:18
  1. ;;5.3;Registration;**960**;Aug 13, 1993;Build 22
  1. ; Last Edited: SHRPE/sgm - May 24, 2018 10:42
  1. ;
  1. ; No routines should invoked this routine directly. See DGPFUT6
  1. ; This routine will be called directly by the following routines
  1. ; as part of patch 960. Once patch DG*5.3*951 is released the
  1. ; routines listed should be converted to calling the API in the
  1. ; DGPFUT6 routine.
  1. ; DGPFRAL1 := LOCAL+5 S LOC=$$LOC^DGPFUT63(.TMP)
  1. ;
  1. ; ICR# TYPE DESCRIPTION
  1. ;----- ---- -----------------------------
  1. ;
  1. Q
  1. ;
  1. LOC(DGIN) ; BOOLEAN
  1. ; Determine if History record was created locally or at another VAMC
  1. ; May or may not have DG*5.3*951
  1. ; INPUT: .DGIN - required - a copy of DGPFAH()
  1. ; INST - optional - pointer to file 4
  1. ; RETURN: 1 if History created at this facility
  1. ; 0 if History created at other facility
  1. ; 0 if unable to determine if record local or not
  1. ; DGPFAH - Output array containing the field values
  1. ; Subscript Field#
  1. ; ---------- ------
  1. ; "ENTERBY" .04
  1. ; "APPRVBY" .05
  1. ; "ORIGFAC" .09
  1. ;
  1. N I,J,X,ISLOC,ORIG,RET,STN,WHO
  1. S ORIG=+$G(DGIN("ORIGFAC")) I $$ISDIV^DGPFUT(ORIG)>0 Q 1
  1. ;
  1. ; CREATED BY SITE field not present (dg*5.3*951) or not valued
  1. S WHO=+$G(DGIN("APPRVBY"))
  1. I 'WHO S WHO=+$G(DGIN("ENTERBY"))
  1. Q (WHO>.9)