Routine: SDST

Information

SDST ;BSN/GRR - PRINT ENROLLMENTS OLDER THAN X NUMBER OF DAYS ; 14 JUL 83 10:41 AM

Source file <SDST.m>

Package	Total	Caller Graph
Scheduling	2	SDENRGREATERTHANX SDOUTPUT

Name	Line Occurrences
Function Call: READ	Prompt: "MINIMUM DAYS OLD ENROLLMENT DATE MUST BE: " Formatting: ! Timeout: DTIME Variable: X Line Location: RD+0
Function Call: READ	Prompt: "Select Clinic: " Formatting: ! Timeout: DTIME Variable: X Line Location: RD1+0
Function Call: WRITE	Prompt: !,"ENTER A CLINIC NAME OR 'ALL' TO CHECK ALL CLINICS" Line Location: RD1+0
Function Call: WRITE	Prompt: !,7,7,"NO ACTIVE ENROLLMENTS THAT OLD",7,7 Line Location: RD1+3
Function Call: WRITE	Prompt: !,L,?22,$P(A,"^",1),?33 Line Location: LINE+0
Function Call: WRITE	Prompt: ?42," " Line Location: LINE+1
Function Call: WRITE	Prompt: @IOF,! Line Location: HEAD+0
Function Call: WRITE	Prompt: ?30,"ACTIVE ENROLLMENTS OVER ",OLD," DAYS",!!,?35,K," CLINIC",! Line Location: HEAD+0
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22," SSN",?33,"ENROLL. DATE",?47,"ELIG CODE",?68,"OPT/AC",! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"ENTER THE NUMBER OF DAYS PRIOR TO TODAY THAT AN ENROLLMENT DATE MUST BE",!,"TO BE PRINTED ON THIS REPORT. (I.E. '365' TO PRINT ENROLLMENT DATES PRIOR",!,"TO A YEAR AGO TODAY) - MUST BE A POSITIVE WHOLE #",! Line Location: HELP+0
Function Call: WRITE	Prompt: ! Line Location: END+0
Routine Call	DIC Line Location: RD1+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	LINE+1
^DPT - [#2]	START+1, SET, SET+1, SET+2
^DPT("AEB"	RD1+3, START+1
^SC - [#44]	SET, SET+1
^UTILITY($J	START!, SET+3, SET+4, PRT+1, LINE+1, END!

Name	Field # of Occurrence
^(	SET+1, SET+2, LINE, LINE+1
^(0	SET+1, SET+2, LINE+1

Name	Field # of Occurrence
A	LINE*, LINE+1, END!
DIC	RD1*, RD1+1!, RD1+2!, END!
DIC("A"	SDST+2*!
DIC("S"	RD1*
DIC(0	RD1*
>> DIV	SDST+2*, RD1+4, SET
DT	RD+2, SET+2, HEAD
DTIME	RD, RD1
HDT	RD+2*, RD1+3, RD1+4, START+1, END!
I	START+1*, END!
IO	START
IOF	HEAD
IOSL	LINE
J	RD+2, PRT+1, END!
K	START+1, SET, SET+1, SET+2, PRT+1, LINE+1, HEAD, END!
L	START+1, SET, SET+1, PRT!, PRT+1, LINE, LINE+1, END!
LL	PRT+1*, END!
M	START+1*, SET+1, PRT!, END!
N	SET+2!*, PRT!, END!
N(	SET+2*, SET+4
NAME	SET+1*, SET+3, SET+4, PRT!, END!
NDT	START+1*, SET+3, END!
OLD	RD+2*, RD1+4, HEAD, END!
P	SET+2*, END!
>> PGM	RD1+4*
>> POP	RD1+4
Q	SET+2*, SET+4, END!
SC	SET+1*, SET+3, SET+4, END!
SCN	SET*, SET+1, SET+2, END!
>> SDCL	RD1+2*, RD1+4, SET
SDEC	SET+1*, SET+3, PRT!
SSN	SET+1*, SET+3, PRT!, END!
TYPE	SET+1*, SET+3, END!
>> VAL	RD1+4*
>> VAR	RD1+4*
X	RD, RD+1, RD+2, RD1, RD1+1*, RD1+2, END!
X1	RD+2*, END!
X2	RD+2*, END!
Y	SDST+2, RD1+1, RD1+2, LINE, LINE+1, HEAD*, END!
Z	SET+4, LINE+1, END!
ZZ	LINE+1*, END!