Routine: PXQMAIN3

Information

PXQMAIN3 ;ISL/JVS - MAIN MENU ROUTINE #4 ;8/29/96 10:33

Name	Comments	DBIA/ICR reference
ASKENC	;--6TH OPTION
MENENC	;--MENU FOR WHAT TO DISPLAY FOR VISIT
DECENC	;--ENTRIES POINTING TO ENCOUNTER
DEC6D	;--TITLE OF PRINT OUT
EXPENC	;--EXPANDED VIEW
EXP6E	;--TITLE OF PRINT OUT
AUDENC	;--AUDIT TRAIL AND SOURCE
AUD6A	;--TITLE OF PRINT OUT
ALLENC	;--ALL OF THE ABOVE
ALL6A	;--TITLE OF PRINT OUT
CLOSENC	;--CLOSE DEVICE
CLOSE	;--CLOSE DEVICE
EXIT	;--EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: $$RE^PXQUTL(" D E P E N D E N T E N T R Y C O U N T ") Line Location: DEC6D+1
Function Call: WRITE	Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----") Line Location: DEC6D+6
Function Call: WRITE	Prompt: $$DEC^PXQFV(IEN,1,"") Line Location: DEC6D+7
Function Call: WRITE	Prompt: $$RE^PXQUTL(" E X P A N D E D D E P E N D E N T E N T R Y C O U N T ") Line Location: EXP6E+1
Function Call: WRITE	Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----") Line Location: EXP6E+6
Function Call: WRITE	Prompt: $$DEC^PXQFV(IEN,1,1) Line Location: EXP6E+7
Function Call: WRITE	Prompt: $$RE^PXQUTL(" S O U R C E S / A U D I T T R A I L ") Line Location: AUD6A+1
Function Call: WRITE	Prompt: $$SOR^PXQUTL(VISIT) Line Location: AUD6A+3
Function Call: WRITE	Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----") Line Location: AUD6A+4
Function Call: WRITE	Prompt: $$DEC^PXQFV(IEN,1,1) Line Location: AUD6A+5
Function Call: WRITE	Prompt: $$RE^PXQUTL("A L L S O U R C E S / A U D I T T R A I L ") Line Location: ALL6A+1
Function Call: WRITE	Prompt: $$SOR^PXQUTL(VISIT) Line Location: ALL6A+8
Function Call: WRITE	Prompt: $$RE^PXQUTL(" DEPENDENT ENTRY COUNT---FOR VISIT "_IEN_"-----") Line Location: ALL6A+9
Function Call: WRITE	Prompt: $$DEC^PXQFV(IEN,1,1) Line Location: ALL6A+10