Routine: SCRPW21

Information

SCRPW21 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ; 18 Nov 98 3:30 PM

Source file <SCRPW21.m>

Name	Comments	DBIA/ICR reference
BLD	;Build ^TMP global from data element parameters in file #409.92
BLD1
STR()	;Create parameter string
SELT(SDPAR)	;Select/restore template
SELT1
SELT2
SAVT(SDPAR)	;Save template
SAVT1
SAVT2
SAVT3
SAVT4
SAVT5
SAVT6
SAVT0()
DELT	;Delete template parameters for write-over
DATA(SDZ)	;Return data elements for Fileman function SCRPWDATA
PRTT	;Print from Ad Hoc template
DTR
FDT
LDT
DIST	;Display template contents
DISTP
NAME(SDI)	;Get NEW PERSON name
DATE(SDI)	;Get edited date
PURT	;Delete a template
END	;Clean up
DFILE	;Delete file #409.92 entries prior to install

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SAVT1+0
Function Call: WRITE	Prompt: !!,"...saved.",! Line Location: SAVT1+6
Function Call: WRITE	Prompt: !!,"A template already exists by this name.",! Line Location: SAVT0+0
Function Call: WRITE	Prompt: !!,"No templates defined to print from!",! Line Location: PRTT+2
Function Call: WRITE	Prompt: ! Line Location: FDT+0
Function Call: WRITE	Prompt: ! Line Location: LDT+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending date must be after beginning date!" Line Location: LDT+1
Function Call: WRITE	Prompt: ! Line Location: LDT+3
Function Call: WRITE	Prompt: ! Line Location: DIST+2
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Line Location: DISTP+0
Function Call: WRITE	Prompt: ! Line Location: PURT+1
Function Call: WRITE	Prompt: ! Line Location: PURT+2
Function Call: WRITE	Prompt: !,"...deleted." Line Location: PURT+3
Function Call: WRITE	Prompt: !!,"Deleting file #409.92 entries" Line Location: DFILE+3
Function Call: WRITE	Prompt: "." Line Location: DFILE+4
Function Call: WRITE	Prompt: ! Line Location: DFILE+5

FileNo	Call Tags
^SDD(409.91 - [#409.91]	Classic Fileman Calls, FIELD^DID
409.916	FIELD^DID
409.9161	FIELD^DID
409.917	FIELD^DID
^SD(409.92 - [#409.92]	Classic Fileman Calls