Routine: IBACCWLUTIL5

Information

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

Package	Total	Call Graph
Integrated Billing	3	$$UPPER^IBACCWLUTIL $$ICDCODE^IBACCWLUTIL5 $$ICDLKUP^IBACCWLVE1A
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	$$TITLE^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBACCWLUTIL2 IBACCWLUTIL5

Entry Points

Name	Comments	DBIA/ICR reference
PRIMDXTEXT(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - DO ALPHA FILTER PROMPTS
ICDCODE(ICD)	;EP -RETURN CODE ONLY
DXSTRRANGE(FILE,FIELDNUM,FIELDNAME,RETURNCODE)	;EP - STRING RANGE - THIS IS THE FUNTIONALITY ASKED BY THE USER
REDOSR	;REDO RANGE FROM/TO ASK
PRIMDXSCREEN(Y,IBTARGET)	;EP - LOAD SCREEN FOR PRIMARY DX

External References

Name	Field # of Occurrence
$$GET1^DIQ	PRIMDXSCREEN+6, PRIMDXSCREEN+18
^DIR	PRIMDXTEXT+14, PRIMDXTEXT+45, REDOSR+13
$$UPPER^IBACCWLUTIL	PRIMDXTEXT+49, REDOSR+17, PRIMDXSCREEN+18
$$ICDCODE^IBACCWLUTIL5	PRIMDXSCREEN+9
$$ICDLKUP^IBACCWLVE1A	ICDCODE+1
$$TITLE^XLFSTR	REDOSR+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"For field "_$G(FIELDNAME)_", enter a "_$G(FIELDNAME)_" or partial "_$G(FIELDNAME) Line Location: PRIMDXTEXT+8
Function Call: WRITE	Prompt: !,"you wish to include in your worklist." Line Location: PRIMDXTEXT+9
Function Call: WRITE	Prompt: ! Line Location: PRIMDXTEXT+23
Function Call: WRITE	Prompt: !!,"For field "_$G(FIELDNAME)_", you may enter one or several characters" Line Location: DXSTRRANGE+8
Function Call: WRITE	Prompt: !,"separated by a '-' to filter by a range alphabetically." Line Location: DXSTRRANGE+9
Function Call: WRITE	Prompt: !! Line Location: DXSTRRANGE+10
Function Call: WRITE	Prompt: !!,"Please enter a valid range of alphanumeric strings." Line Location: REDOSR+22
Routine Call	DIR Line Location: PRIMDXTEXT+14 PRIMDXTEXT+45 REDOSR+13

FileNo	Call Tags
^IBA(364.9 - [#364.9]	GET1^DIQ
80.068	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICD9 - [#80]	PRIMDXSCREEN+15
^ICD9("AB"	PRIMDXSCREEN+12

Label References

Name	Line Occurrences
DXSTRRANGE	PRIMDXTEXT+21
REDOSR	REDOSR+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PRIMDXTEXT+4~, PRIMDXTEXT+24!, DXSTRRANGE+4~
DIR("?"	PRIMDXTEXT+27, PRIMDXTEXT+28, PRIMDXTEXT+29, PRIMDXTEXT+30, PRIMDXTEXT+31, PRIMDXTEXT+35, PRIMDXTEXT+36, PRIMDXTEXT+37, PRIMDXTEXT+38, PRIMDXTEXT+39 , PRIMDXTEXT+40, PRIMDXTEXT+41, PRIMDXTEXT+42, REDOSR+3, REDOSR+4, REDOSR+5, REDOSR+6, REDOSR+7, REDOSR+8, REDOSR+9 , REDOSR+10*
DIR("A"	PRIMDXTEXT+11, PRIMDXTEXT+26, PRIMDXTEXT+34, REDOSR+12
DIR("B"	PRIMDXTEXT+13*
DIR(0	PRIMDXTEXT+12, PRIMDXTEXT+44, REDOSR+2*
DIROUT	PRIMDXTEXT+4~, PRIMDXTEXT+17, PRIMDXTEXT+47, DXSTRRANGE+4~
DTOUT	PRIMDXTEXT+4~, PRIMDXTEXT+17, PRIMDXTEXT+47, DXSTRRANGE+4~, REDOSR+15
DUOUT	PRIMDXTEXT+4~, PRIMDXTEXT+17, PRIMDXTEXT+47, DXSTRRANGE+4~, REDOSR+15
>> FIELD	PRIMDXTEXT+2, PRIMDXTEXT+21*, DXSTRRANGE+2
FIELDNAME	PRIMDXTEXT~, PRIMDXTEXT+2, PRIMDXTEXT+6, PRIMDXTEXT+8, PRIMDXTEXT+21, PRIMDXTEXT+58, DXSTRRANGE~, DXSTRRANGE+2, DXSTRRANGE+6, DXSTRRANGE+8 , REDOSR+12, REDOSR+25, REDOSR+30
FIELDNUM	PRIMDXTEXT~, PRIMDXTEXT+21, DXSTRRANGE~
FILE	PRIMDXTEXT~, PRIMDXTEXT+2, PRIMDXTEXT+6, PRIMDXTEXT+21, DXSTRRANGE~, DXSTRRANGE+2, DXSTRRANGE+6
FROMVALUE	DXSTRRANGE+4~, REDOSR+20, REDOSR+22, REDOSR+24, REDOSR+25, REDOSR+28, REDOSR+29
>> FROMVLAUE	REDOSR+30
GETFIELDCODE	PRIMDXTEXT+4~, PRIMDXTEXT+6, PRIMDXTEXT+53, DXSTRRANGE+4~, DXSTRRANGE+6*, REDOSR+24, REDOSR+29
IBDESCIEN	PRIMDXSCREEN+3~, PRIMDXSCREEN+15*, PRIMDXSCREEN+16, PRIMDXSCREEN+18
IBENCIFN	PRIMDXSCREEN+3~, PRIMDXSCREEN+4*, PRIMDXSCREEN+6
IBPRIMDX	PRIMDXSCREEN+3~, PRIMDXSCREEN+6, PRIMDXSCREEN+7, PRIMDXSCREEN+9, PRIMDXSCREEN+10, PRIMDXSCREEN+12*, PRIMDXSCREEN+13, PRIMDXSCREEN+15, PRIMDXSCREEN+18
IBTARGET	PRIMDXTEXT+4~, PRIMDXTEXT+49, PRIMDXTEXT+50, PRIMDXTEXT+51, PRIMDXTEXT+53, PRIMDXTEXT+56, PRIMDXTEXT+58, PRIMDXSCREEN~, PRIMDXSCREEN+18
ICD	ICDCODE~, ICDCODE+1
LENGTH	PRIMDXTEXT+4~, PRIMDXTEXT+51*, PRIMDXTEXT+53
LOGIC	PRIMDXTEXT+4~, PRIMDXTEXT+58, PRIMDXTEXT+59, DXSTRRANGE+4~, REDOSR+25, REDOSR+26, REDOSR+30*, REDOSR+31
RETURNCODE	PRIMDXTEXT~, PRIMDXTEXT+2, PRIMDXTEXT+17, PRIMDXTEXT+21, PRIMDXTEXT+47, PRIMDXTEXT+53, PRIMDXTEXT+56, PRIMDXTEXT+59, DXSTRRANGE~, DXSTRRANGE+2* , REDOSR+15, REDOSR+24, REDOSR+26, REDOSR+29, REDOSR+31*
TOVALUE	DXSTRRANGE+4~, REDOSR+21*, REDOSR+22, REDOSR+24, REDOSR+25
TYPE	PRIMDXTEXT+4~, PRIMDXTEXT+19*, PRIMDXTEXT+21, PRIMDXTEXT+25, PRIMDXTEXT+33, PRIMDXTEXT+53, PRIMDXTEXT+55
U	PRIMDXTEXT+15, PRIMDXTEXT+19, PRIMDXTEXT+46, PRIMDXTEXT+49, REDOSR+14
>> VALMQUIT	PRIMDXTEXT+15, PRIMDXTEXT+46, REDOSR+14*
X	PRIMDXTEXT+4~, PRIMDXTEXT+15, PRIMDXTEXT+17, PRIMDXTEXT+46, PRIMDXTEXT+47, REDOSR+14, REDOSR+15
Y	PRIMDXTEXT+4~, PRIMDXTEXT+19, PRIMDXTEXT+49, REDOSR+17, REDOSR+18, REDOSR+19, REDOSR+20, REDOSR+21, REDOSR+28, PRIMDXSCREEN~ , PRIMDXSCREEN+2, PRIMDXSCREEN+4

Customize PDF page

Package: Integrated Billing