Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPFUT2

Package: Registration

Routine: DGPFUT2


Information

DGPFUT2 ;ALB/KCL - PRF UTILITIES CONTINUED ; 2/12/2020

Source Information

Source file <DGPFUT2.m>

Entry Points

Name Comments DBIA/ICR reference
GETPAT(DGDFN,DGPAT) ;retrieve patient identifying information
; Used to obtain identifying information for a patient
; in the PATIENT (#2) file and place it in an array format.
GETDFN(DGICN,DGEROOT) ;Used to convert an ICN to a DFN.
SORT(DGPFARR) ;Re-sort of active record assignments by category then flag name
; This function re-sorts the active record flag assignment list for a
; patient by category (Cat I or Cat II) and then by flag name.
ACTDT ; update PRF Software Activation Date field in (#26.18)
; This utility should only be run at the Alpha and Beta test sites
; of the Patient Record Flags Project, Patch DG*5.3*425.
; If necessary, this entry point will change the date that the
; Patient Record Flags (PRF) System became active.
; The (#1) PRF SOFTWARE ACTIVATION DATE field of the (#26.18) PRF
; PARAMETERS file, will be changed to: SEP 25, 2003
BLDTFL(DGDFN,DGTFL) ;build array of Treating Facilities
; This function builds an array of INSTITUTION (#4) file pointers
; that are non-local medical treating facilities for a given patient.
BLDTFL2(DGDFN,DGTFL) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Updating the PRF SOFTWARE ACTIVATION DATE (#1) field in the PRF PARAMETERS FILE (#26.18) to the value of SEP 25, 2003..."
  • Line Location: ACTDT+25
Function Call: WRITE
  • Prompt: !!,$C(7)
  • Line Location: ACTDT+67
Function Call: WRITE
  • Prompt: "Field could not be updated...",DGERRMSG
  • Line Location: ACTDT+69
Function Call: WRITE
  • Prompt: "Field was successfully changed from ",$G(DGPARM(26.18,"1,",1,"E"))," to ",$G(DGFDA(26.18,DGIENS,DGFLD)),"."
  • Line Location: ACTDT+71

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPF(26.18 - [#26.18] GETS^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call