DGPFUT7 ;ALB/RBS - PRF COMMON PROMPTS ; 05/11/2018 10:00
Source file <DGPFUT7.m>
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.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGPF(26.13 - [#26.13] | EXTERNAL^DILFD |