Routine: IBACCWLUTIL2

Information

IBACCWLUTIL2 ;EDE/TPF - ACC (Automated Community Care) Encounters utility APIs (Cont.) ; 12-SEP-2023

Name	Comments	DBIA/ICR reference
ADDFILTERS(SCREEN,IBSORTFIL)	;EP - ;ADD USER SCREENs TO BASIC SCREENS
SORTFILTER(FILE,FIELDNAME)	;EP
STRRANGE(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - STRING RANGE - THIS IS THE FUNTIONALITY ASKED BY THE USER
REDOSR	;REDO RANGE FROM/TO ASK
NUMERIC(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - DO NUMERIC SUBSORT PROMPTS
POINTER(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP ; POINTER NEEDS A LOOKUP TO ALLOW
ERRORCODE(IBENCIFN,ERRORDESC)	;EP - LOOK FOR ERRO CODE
DATETIME(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - DO DATE FILTER PROMPTS
ASKFRDT	;ASK STARTING DATE AGAIN
LASTSSN(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - DO ALPHA FILTER PROMPTS
ASKSSN	;EP ASK SSN AGAIN
FREETEXT(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - DO ALPHA FILTER PROMPTS
PRIMDX(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - PROMPT FOR PRIM DX FILTERS ;TPF;IB2770v44;EBILL-5505,EBILL-5941

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"For field "_$G(FIELDNAME)_", you may enter one or several characters" Line Location: STRRANGE+8
Function Call: WRITE	Prompt: !,"to filter by or a range separated by a '-' to filter by a range alphabetically." Line Location: STRRANGE+9
Function Call: WRITE	Prompt: !! Line Location: STRRANGE+10
Function Call: WRITE	Prompt: !!,"Please enter a valid range of alphanumeric strings." Line Location: REDOSR+20
Function Call: WRITE	Prompt: ! Line Location: POINTER+29
Function Call: WRITE	Prompt: ! Line Location: DATETIME+6
Function Call: WRITE	Prompt: " "_$$FMTE^XLFDT($G(FROMDT),"2ZD") Line Location: ASKFRDT+19
Function Call: WRITE	Prompt: " "_$$FMTE^XLFDT($G(TODT),"2ZD") Line Location: ASKFRDT+45
Function Call: WRITE	Prompt: !!,"For field "_$G(FIELDNAME)_SSNTEXT Line Location: LASTSSN+9
Function Call: WRITE	Prompt: !,"you wish to include in your worklist." Line Location: LASTSSN+10
Function Call: WRITE	Prompt: ! Line Location: ASKSSN+2
Function Call: WRITE	Prompt: !!,"SSN must be nine numerals!" Line Location: ASKSSN+19
Function Call: WRITE	Prompt: !!,"Last 4 SSN must be four numerals!" Line Location: ASKSSN+20
Function Call: WRITE	Prompt: !!,"For field "_$G(FIELDNAME)_", enter a "_$G(FIELDNAME)_" or partial "_$G(FIELDNAME) Line Location: FREETEXT+8
Function Call: WRITE	Prompt: !,"you wish to include in your worklist." Line Location: FREETEXT+9