Routine: IBDFFT

Information

IBDFFT ;ALB/MAF - FORMS TRACKING ; JUL 6 1995@800

Source file <IBDFFT.m>

Name	Comments	DBIA/ICR reference
OUT
OKQ
SAVE	; -- save variables for queue
QUEUE
CLEAR	; -- Clean up variables if task is not queued
HDR	; -- header code
CLN
PAT
GRP
GRP1
CHECK(CLIN)	; -- Check to see if clinic has a form and its one that is not for ; future use only.
EXIT	; -- Code executed at action exit
EXIT1	;
DAT	; -- DATE RANGE
BEG
END
HELP	; -- help code
CHGLST	; -- Code to change list display
KILL	; -- Kill extra array variables
QUIT	; -- Kill variables and reset to last display if no change has taken place
SCHSTAT(DFN,APPT)	; -- return text of scheduling status
YN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7)," Report requires 132 columns and a page length of 80 lines. ",! Line Location: QUEUE+0
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: QUEUE+3
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!?5,"The ending date cannot be before the beginning date" Line Location: END+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !?10,"Choose:",!?25,"Y for YES",!?25,"N for NO",! Line Location: YN+0

FileNo	Call Tags
^IBD(357.99 - [#357.99]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls