Routine: NURAGEN

Information

NURAGEN ;HIRMFO/JH,FT,MD-GENERIC REPORT GENERATOR FOR ADMIN. part 1 ;4/30/97

Source file <NURAGEN.m>

Name	Comments	DBIA/ICR reference
PRINT	; PRINT MODULE
N
P
P0
P1
P2
P3
P4
P5
P6
PRINT1
PRI1
PRI2
PRI3
PRI4
PRI5
HEADER	; HEADING SELECTION FOR GENERIC PRINT ROUTINES
NEXT1
PROD
NEXTL
NODATA	;
CLOSE	; CLOSE DEVICE
ENDPG	; HANDLE EOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,NPC1,?6,$E(NPR2,1,10),?17,$E(NPR3,1,10),?28,$E(NPR5,1,20),?52,NPR4 Line Location: PRI1+0
Function Call: WRITE	Prompt: !,NPC1,?6,$E(NPR2,1,10),?17,NPR3,?28,$E(NPR6,1,20),?50,NPR4,?65,NPR5 Line Location: PRI2+0
Function Call: WRITE	Prompt: !,NPC1,?6,$S(NPC2'=" BLANK":$E(NPC2,1,10),1:""),?17,$S(NPC4'=" BLANK":NPC4,1:""),?28,$S(NPC6'=" BLANK":$E(NPC6,1,20),1:""),?52,$S(NPC5'=" BLANK":NPC5,1:"") Line Location: PRI4+0
Function Call: WRITE	Prompt: ?$$CNTR^NURSUT2(NURFAC),$$FACL^NURSUT2($G(NURFAC)) Line Location: NEXT1+2
Function Call: WRITE	Prompt: !,NURSTIL Line Location: NEXT1+3
Function Call: WRITE	Prompt: ?56,Y,?72,"PAGE: ",NURPAGE Line Location: NEXT1+3
Function Call: WRITE	Prompt: !!,"THERE IS NO DATA FOR THIS REPORT" Line Location: NODATA+1
Function Call: WRITE	Prompt: $C(7),!!,"Press return to continue, ""T"" for totals, or ""^"" to exit: " Line Location: ENDPG+2