Routine: SCRPO

Information

SCRPO ;BP-CIOFO/KEITH - Report prompting utilities ; 20 Aug 99 7:46 AM

Source file <SCRPO.m>

Name	Comments	DBIA/ICR reference
DTR(SC,SCDTB,SCDTE)	;Date range prompts
EDT
ATYPE(SC)	;Prompt for assignment types
DSUM(SC)	;Prompt for detail or summary
LIST(SC,WHAT,SUBH,LIMIT)	;Get list of entries from a file
DIV
TEAM
ROLE
POS
PCP
ASPR
APR
CLINIC
SORT(SC,SCEL,SCSP)	;Prompt for optional sort elements
QSORT(DIRA)	;Prompt for sort
DIR0()	;Return value for DIR(0)
DV	;;IN:INSTITUTION^SCDIV
IN	;;IN:INSTITUTION^SCDIV
TM	;;TM:TEAM^SCTEAM
RO	;;RO:ROLE^SCROLE
TP	;;TP:TEAM POSITION^SCPOS
PR	;;PR:PROVIDER^SCPROV
EC	;;EC:ENROLLED CLINIC^SCLINIC
AC	;;AC:ASSOCIATED CLINIC^SCLINIC
PA	;;PA:PATIENT^SCPAT
PT	;;PT:PATIENT^SCPAT
XR(SC,SUB,VAL)	;Create x-ref for printing parameters
PPAR(SC,OK,SCT)	;Print report parameters
WAIT
HDR(SCT,SCIOM)	;Print report header
STOP	;Check for stop task request
ELIG(DFN)	;Get Primary Eligibility

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DTR+7
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: !!,$C(7),"End date cannot be before begin date!",! Line Location: EDT+4
Function Call: WRITE	Prompt: ! Line Location: ATYPE+7
Function Call: WRITE	Prompt: ! Line Location: DSUM+7
Function Call: WRITE	Prompt: " (ALL)" Line Location: LIST+28
Function Call: WRITE	Prompt: ! Line Location: PPAR+13
Function Call: WRITE	Prompt: !?(COL),$J(SCLAB,24),": " Line Location: PPAR+14
Function Call: WRITE	Prompt: @SC@("DTR","PBDT")," to ",@SC@("DTR","PEDT") Line Location: PPAR+15
Function Call: WRITE	Prompt: "ALL" Line Location: PPAR+16
Function Call: WRITE	Prompt: $P(@SC@(SCX),U,2) Line Location: PPAR+17
Function Call: WRITE	Prompt: ! Line Location: PPAR+22
Function Call: WRITE	Prompt: ! Line Location: PPAR+31
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+0
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0) Line Location: HDR+8
Function Call: WRITE	Prompt: $$XY^SCRPW50("",0,0) Line Location: HDR+9
Function Call: WRITE	Prompt: SCLINE Line Location: HDR+10
Function Call: WRITE	Prompt: !,SCLINE,!,"Date printed: ",SCPNOW,?(SCIOM-6-$L(SCPAGE)),"Page: ",SCPAGE Line Location: HDR+14
Function Call: WRITE	Prompt: !,SCLINE Line Location: HDR+15