Routine: SDRRRECP

Information

SDRRRECP ;10N20/MAH - Recall Reminder Manual Printing;09/20/2004

Name	Comments	DBIA/ICR reference
MEN	;SET UP WHAT ARE THEY WOULD LIKE TO PRINT FOR CARDS
EN3	;PRINT BY DIVISION
DQD1
EN	;PRINT BY CLINIC
DQD
QUIT
SELDT
PR
EN1	;PRINT BY TEAM
DQT
EN2	;PRINT BY PROV
DQP
EN4	;PRINT BY Patient
DPP
EN5	;PRINT BY NONRESPONSIVE PATIENTS
DQDD
ADDR	; SD*654 Patient address ; Change state to abbr.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MEN+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: SELDT+0
Function Call: WRITE	Prompt: @IOF Line Location: PR+0
Function Call: WRITE	Prompt: ! Line Location: PR+0
Function Call: WRITE	Prompt: !?20,PNAME Line Location: PR+2
Function Call: WRITE	Prompt: !!?45,TIME Line Location: PR+4
Function Call: WRITE	Prompt: !!?45,LAB Line Location: PR+5
Function Call: WRITE	Prompt: ! Line Location: EN4+1
Function Call: WRITE	Prompt: !!,?5,"You may have selected a test patient.",!! Line Location: EN4+5
Function Call: WRITE	Prompt: !!,?5,"This patient has been flagged with a Bad Address Indicator.",!! Line Location: EN4+10
Function Call: WRITE	Prompt: !!,?5,VADM(7),!! Line Location: EN4+15
Function Call: WRITE	Prompt: !?20,VAPA(4)_" "_$P(VAPA(5),U,2)_" "_$P(VAPA(11),U,2) Line Location: ADDR+16
Function Call: WRITE	Prompt: !?20,VAPA(4)_" "_VAPA(23)_" "_VAPA(24) Line Location: ADDR+19
Function Call: WRITE	Prompt: !,?20,VAPA(16)_" "_$P(VAPA(17),U,2)_" "_$P(VAPA(18),U,2) Line Location: ADDR+26
Function Call: WRITE	Prompt: !,?20,VAPA(27)_" "_VAPA(16)_" "_VAPA(26) Line Location: ADDR+28
Function Call: WRITE	Prompt: !?20,$P(VAPA(28),U,2) Line Location: ADDR+29