Routine: RARTST2

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

RARTST2 ;HISC/CAH,FPT,GJC,DAD AISC/MJK,RMO-Reports Distribution ;3/19/97 13:45

Source file <RARTST2.m>

Name	Comments	DBIA/ICR reference
SRT
SET
SET1	; Set the data global
PRNT
START	;RANGE is only defined if prt'g via 'Individual Ward' or 'Single Clinic'
START0	;
START1
Q
BANNER
NEWLOC	; Print Location/Requesting Physician data

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$G(RARTMES),!!,"No reports met the criteria selected." Line Location: START0+6
Function Call: WRITE	Prompt: !,$P("^^^^^Ward^^Clinic",U,$P(RANGE,U,3)),": ",$P(RANGE,U,2) Line Location: START0+7
Function Call: WRITE	Prompt: @IOF,"Total Number of Reports printed: ",RARTCNT,!! Line Location: START0+10
Function Call: WRITE	Prompt: @IOF,!!!!!?10 Line Location: NEWLOC+2
Function Call: WRITE	Prompt: $S(RABTY["^":$P(RABTY,"^",2),1:RABTY) Line Location: NEWLOC+4