Routine: IBDFUTL4

Information

IBDFUTL4 ;ALB/MKN/CFS - Maintenance Utility Encounter Forms ICD-10 Update ;12/29/2011

Name	Comments	DBIA/ICR reference
PROMPTS	;
SORT
TOOLKITF	;
SETLIST	;Convert the list into Listman format
FMARR	;Set up FORMARR(FORMNAME,CLINIC)
EXIT	; -- Code executed at action exit
SELASR()	;Ask for All, Selected or Range
SC	;Clinic selector
SC1(IBDICA)	;Select a clinic
SC2
RC	;Clinic range selector
RCE
SG	;Clinic GROUP selector
SG1(IBDICA)	;Select a clinic GROUP
SG2	;
RG	;Clinic range selector
RGE
SF	;Encounter Form selector
SF1(IBDICA)	;Select an Encounter Form
SF2
RF	;Clinic range selector
RFE
HDR	; -- header code
INIT	;
HELP	;
CL	;
JP	;
JMP	;
JP5	;
JPDIS	;
IS	;UPDATE ICD10 STATUS FIELD
EXP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Ending clinic must be specified!" Line Location: RCE+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending clinic must collate after beginning clinic!" Line Location: RCE+1
Function Call: WRITE	Prompt: !,"Ending clinic group must be specified!" Line Location: RGE+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending clinic group must collate after beginning clinic!" Line Location: RGE+1
Function Call: WRITE	Prompt: !,"Ending Encounter Form must be specified!" Line Location: RFE+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending Encounter Form must collate after Encounter Form!" Line Location: RFE+1
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"There is no data listed for this Clinic Group" Line Location: JMP+8
Function Call: WRITE	Prompt: !,"Press <RETURN> to see more, '^' to exit this list, OR" Line Location: JPDIS+1
Function Call: WRITE	Prompt: !,"Encounter Form: ",$P(IBDX,U,1) Line Location: IS+7