Routine: SCMCHLR8

Information

SCMCHLR8 ;ALB/KCL - PCMM HL7 Reject Transmission Report; 22-FEB-2000

Source file <SCMCHLR8.m>

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
Scheduling	1	PRINT^SCMCHLR9
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
AGAIN
REPEAT
ASKRANGE(SCRP)	; ; Description: Asks the user to enter a date range for report.
SORTBY(SCRP)	; Description: Ask the user to enter a sort criteria for printing errors.
SELECT(SCRP)	; Description: Ask the user to select 'all errors' or errors for a 'date range'.
EPS(SCRP)	; Description: Ask user to enter a error processing status.
ASKBEGIN(SCRP)	;
DEVICE()	; Description: Allows the user to select a device.
TERPRT	; Description: Main entry point for the PCMM HL7 Reject Transmission Report.
ASKEND(SCRP)	; ; Description: Asks the user to enter an end date.

Name	Field # of Occurrence
^%ZIS	DEVICE+11
HOME^%ZIS	DEVICE+17
^%ZTLOAD	DEVICE+15
^DIR	SELECT+15, REPEAT, AGAIN, SORTBY+13, EPS+15
PRINT^SCMCHLR9	TERPRT+18
$$FMADD^XLFDT	ASKBEGIN+12
$$FMTE^XLFDT	ASKBEGIN+12, ASKEND+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Date can not be latter than today!" Line Location: REPEAT+2
Function Call: WRITE	Prompt: !,"Date must not be earlier than "_DIR("B") Line Location: AGAIN+2
Routine Call	%ZIS Line Location: DEVICE+17
Routine Call	DIR Line Location: SELECT+15 REPEAT AGAIN SORTBY+13 EPS+15
Routine Call	%ZIS Line Location: DEVICE+11

Name	Field # of Occurrence
>> %ZIS	DEVICE+10*
DIR	SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
DIR("?"	SELECT+13, SELECT+14, ASKBEGIN+13, ASKEND+15, SORTBY+12, EPS+13, EPS+14*
DIR("A"	SELECT+12, ASKBEGIN+11, ASKEND+12, SORTBY+11, EPS+12*
DIR("B"	ASKBEGIN+12, ASKEND+14, AGAIN+2
DIR(0	SELECT+11, ASKBEGIN+10, ASKEND+11, SORTBY+10, EPS+11*
>> DIRUT	SELECT+17, REPEAT+1, AGAIN+1, SORTBY+15, EPS+17
DT	ASKRANGE+6, ASKBEGIN+12, REPEAT+2, ASKEND+14
DTOUT	SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
DUOUT	SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
IO("Q"	DEVICE+13
OK	DEVICE+8~, DEVICE+9, DEVICE+12, DEVICE+13, DEVICE+18*, DEVICE+20
>> POP	DEVICE+12
SCRP	TERPRT+9~, TERPRT+12, TERPRT+13, TERPRT+14, TERPRT+15, SELECT~, ASKRANGE~, ASKRANGE+8, ASKRANGE+9, ASKBEGIN~ , ASKEND~, SORTBY~, EPS~
SCRP("BEGIN"	ASKRANGE+5, REPEAT+3, AGAIN+2
SCRP("END"	ASKRANGE+6, AGAIN+3
SCRP("EPS"	EPS+18*
SCRP("SELCT"	SELECT+18*, ASKRANGE+4
SCRP("SORT"	SORTBY+16*
X	SELECT+8~, ASKBEGIN+9~, ASKEND+10~, SORTBY+8~, EPS+9~
Y	SELECT+8~, SELECT+18, ASKBEGIN+9~, REPEAT+2, REPEAT+3, ASKEND+10~, AGAIN+2, AGAIN+3, SORTBY+8~, SORTBY+16 , EPS+9~, EPS+18
>> ZTDESC	DEVICE+14*
>> ZTRTN	DEVICE+14*
>> ZTSAVE("SCRP("	DEVICE+14*
>> ZTSK	DEVICE+16