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: DGPFUT7

Package: Registration

Routine: DGPFUT7


Information

DGPFUT7 ;ALB/RBS - PRF COMMON PROMPTS ; 05/11/2018 10:00

Source Information

Source file <DGPFUT7.m>

Entry Points

Name Comments DBIA/ICR reference
CAT() ; ----- prompt for Category I, II, Both
; RETURN: -1 or 1^Catetory I (National)
; 2^Category II (Local)
; 3^Category I & II
DATA() ; ----- check for any flag assignment
DIALOG(FLAG,INPUT) ;
; .INPUT - required - passed by reference
E(MSG) ; ----- ask user to press enter to continue
; Return: -2:Time-out; -1:'^'-out 1:anything else
FLAG() ; ----- prompt for All or Select Flag
; RETURN: -1 or A:All Flags or S:Single Flag
ONEFLAG(CAT,VALID) ; ----- prompt for name of flag
; INPUT PARAMETERS:
; CAT - optional - I:National Flag II:Local Flag
; default to I
; VALID - optional - 1:verify at least one assignment
; 0:do not verify any current assignments
; default to 1
; RETURN: -1 or
; 0 if no flag assignments found
; variable_pointer^flagname
OWNACT() ; -- prompt for local/not local ownership of assignment action
; Use this for testing ^DD(26.14) ownership
; RETURN: -1 or 1:Local Facility
; 2:Other Facilities
; 3:All Facilities
OWNASGN() ; ----- prompt for local/not local ownership of assignment
; Use for testing ^DD(26.13,.04) OWNER SITE
; RETURN: -1 or 1:Local Facility
; 2:Other Facilities
; 3:All Facilities
STATUS(BOTH) ; ----- prompt for assignment status
; INPUT PARAMETER: Both - optional, default to 1
; 1:include both as a choice; 0:do not include both
; Used for asking ^DD(26.13,.03) STATUS
; RETURN: -1 or 1^Active
; 2:^Inactive
; 3^Both Active & Inactive
START(BEG,END) ; ----- prompt for starting date
; INPUT PARAMTERS:
; BEG - optional - earliest date allowed
; END - optional - latest date allowed
; default to DT
; RETURN: -1 or Fileman date
END(BEG,END) ; ----- prompt for ending date
; INPUT PARAMTERS:
; BEG - optional - earliest date allowed
; END - optional - latest date allowed
; default to DT
; RETURN: -1 or Fileman date
HELP(DGPF) ;provide extended DIR("?") help text.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," >>> No Patient Record Flag Assignments have been found."
  • Line Location: ONEFLAG+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPF(26.13 - [#26.13] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call