Routine: DGMTOPYT

Information

DGMTOPYT ;ALB/CAW - Means Test with Previous Year Threshold ;8/14/92

Name	Comments	DBIA/ICR reference
EN	;
ENQ	;
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
MAIN	;
HDR	; Header
PRNT	;Print patients
CHK	;Check to pause on screen
PAUSE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)["C-" Line Location: HDR+3
Function Call: WRITE	Prompt: !?(IOM-$L(DGC(I))/2),DGC(I) Line Location: HDR+3
Function Call: WRITE	Prompt: !?68,"Page ",DGPAGE,!,DGLINE,! Line Location: HDR+4
Function Call: WRITE	Prompt: !?5,"Patient Name",?50," Patient ID ",?65,"Date of Test" Line Location: HDR+5
Function Call: WRITE	Prompt: !?5,"------------",?50,"------------",?65,"------------",! Line Location: HDR+6
Function Call: WRITE	Prompt: !,"NO MEANS TEST WITH PREVIOUS YEARS THRESHOLD" Line Location: PRNT+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1