Routine: RMPR5HQ4

Information

RMPR5HQ4 ;HCIOFO/ODJ - INVENTORY REPORT - PARAMETER DATA ENTRY ; 20 SEP 00

Source file <RMPR5HQ4.m>

Name	Comments	DBIA/ICR reference
START
EDGRP
EDLIN
EDLINX
EDHCPC
EDDEV
EDX
STN(RMPR,RMPRVISN)	;
EN1
EN2
EN3
EN4
LEV(RMPRDET)	;
LEVX
STDT(RMPRSDT)	; RMPRSDT is start date in FM internal form
ENDT(RMPREDT,RMPRSDT)	; RMPREDT is end date in FM internal form
ENDT1
ENDT1X
NPGRP(RMPRSEL)	;
NPGRPX
NPLIN(RMPRSEL)	;
NPLIN1C
NPLIN1A
NPLIN1X
NPLINC(RMPRGRP,INP,RMPRLIN)	;
NPLINH(RMPRGRP,TO)	;
HCPCTY(RMPRHTY)	;
HCPCTYX
HCPC(RMPRSEL,RMPRSCN)	;
HCPC1
HCPCX
REPDEV(RMPRDEV)	;
REPDEV1
REPDEVX
SETLIN(LINX)	;
GRPLST(LIST)	;
GRPARY(ARRAY)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ending date should not precede start date",! Line Location: ENDT1+6
Function Call: WRITE	Prompt: ! Line Location: NPGRP+2
Function Call: WRITE	Prompt: !,$J(RMPRCNT,2)_". "_$P($P(RMPRGLST,";",RMPRCNT),":",2) Line Location: NPGRP+4
Function Call: WRITE	Prompt: !,"NPPD Lines for Group: ",RMPRGRP," - ",RMPRGRPA(RMPRGRP),! Line Location: NPLINH+2
Function Call: WRITE	Prompt: !,$J(TO,2),". ",$P(S,";",1)_" "_$P(S,";",2) Line Location: NPLINH+7
Function Call: WRITE	Prompt: !,"You need at least 132 columns for this report.",!,"Please use a device capable of this requirement.",! Line Location: REPDEV1+2

FileNo	Call Tags
^RMPR(661.1 - [#661.1]	Classic Fileman Calls