Routine: GMRCPSL2

Information

GMRCPSL2 ;SLC/MA - Special Consult Reports;9/21/01 05:25 ;1/17/02 18:19

Name	Comments	DBIA/ICR reference
PRINT(GMRCSRCH,GMRCARRY,GMRCDT1,GMRCDT2,GMRCSTAT,GMRCRPT,GMRCBRK)	; Untasked Print
PRTTSK	; Print report ; GMRCARRY = Array contains search values. ; GMRCSRCH = Indicates which field to search on ; GMRCDT1 = Start date ; GMRCDT2 = Stop date ; GMRCSTAT = CPRS status to include in report ; SUBTOT = Counter for different groups ; GMRCRPT = 80 - 132 character report & data only output ; GMRCBRK = Print page break between sub-totals <Y-N> ; TOTCNTR = Count for total records
BLDLOC(GMRCARRY)	; Build ^TMP were search was on location.
BLDPROC(GMRCARRY)	; Build ^TMP were search was on procedure.
BLDPROV(GMRCARRY)	; Build ^TMP were search was on provider.
CKSTAT(IEN,GMRCSTAT)	; Does entry have selected status ; Input: ; IEN = File #123 IEN ; GMRCSTAT = Selected status(es) ; Output: ; GMRCKS = Result (1:yes; 0:no)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"SUB TOTAL= ",SUBTOT,! Line Location: PRTTSK+17
Function Call: WRITE	Prompt: !,"TOTAL RECORDS= ",TOTCNTR Line Location: PRTTSK+18