Routine: IBTRH5D

Package	Total	Call Graph
VA FileMan	4	UPDATE^DIE ^DIK $$GET1^DIQ ^DIR
Integrated Billing	1	JUMPERR^IBTRH5H
Kernel	1	($$LJ,$$UP)^XLFSTR

Package	Total	Caller Graph
Integrated Billing	4	IB CREATE 278 REQUEST SHORT IBCU72 IBTRH5E IBTRH5F

Entry Points

Name	Comments	DBIA/ICR reference
SELAPI(IBTRIEN)	;EP ; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Additional Patient ; Information multiples and allows them to select one to edit or enter a new ; one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; IBNEW - 1 if creating a new entry
DELAPI(IBTRIEN,IEN)	; Checks to see if the user entered 'NEW' to create a new ; Additional Patient Information Line and didn't enter any data for it. Also ; checks to see if user selected to delete a specified line. If so, the ; Additional Patient Information line with no data (or selected) is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Additional Patient Information line is deleted (Potentially)
RTYPE(IBTRIEN)	; Prompts the user to enter the .01 (Report Type) field of the ; Additional Patient Information multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: IEN of the selected Report Type or "" of not entered
SELPD(IBTRIEN)	;EP ; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Provider Data ; multiples and allows them to select one to edit or enter a new one. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IBTRBRF - 1 if this display is being used from the brief template ; 0 or undefined otherwise ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; IBNEW=1 when creating a new entry
DELPD(IBTRIEN,IEN)	; Checks to see if the user entered 'NEW' to create a new ; Provider Data Line and didn't enter any data for it or selected a line to ; be deleted. If so, the empty or selected Provider Data line is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Provider Data line is deleted (Potentially)
PTYPE(IBTRIEN)	; Prompts the user to enter the .01 (Provider Type) field of the ; Provider Data multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: IEN of the selected Provider Type or "" of not entered
SELDX(IBTRIEN)	;EP ; Called from within Input template IB CREATE 278 REQUEST ; Provides the user with a quick view of currently entered Diagnoses and ; allows them to select one to edit or enter a new diagnosis. ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IBTRBRF - 1 if this display is being used from the brief template ; 0 or undefined other otherwise ; Returns: Value of the .01 field of the multiple to edit ; "" if creating a new multiple, -2 to exit template ; -3 if a if a line was deleted ; IBNEW=1 when creating a new entry
DXTYPE(IBTRIEN)	; Prompts the user to enter the .01 (Diagnosis Type) field of ; the diagnosis multiple ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; Returns: IEN of the selected Diagnosis Type or "" of not entered
DELDX(IBTRIEN,IEN)	; Checks to see if the user entered 'NEW' to create a new ; Diagnosis Line and didn't enter any data for it or selected a multiple to ; to be deleted. If so, the empty or selected multiple is deleted ; Input: IBTRIEN - IEN of the 356.22 entry being edited ; IEN - Optional, IEN of the multiple to be deleted if passed ; defaults to "" ; Output: Empty or selected Diagnosis line is deleted (Potentially)
ASKNEW(PROMPT,DEFAULT)	;EP ; Ask if user wants to create a new entry ; Input: PROMPT - Yes/No question to ask the user ; DEFALT - Default Answer ; Optional, if not passed, set to 'YES' ; Returns: 0 - User wants to add a new Entry ; -1 - User doesn't want to add a new entry ; -2 - User wants to exit template
A1	;
SELENT(ARRAY,H1,H2,L1,L2,MAX,INDENT,SECT)	; Select an entry to add/edit from a list ; Input: ARRAY() - Array of multiple lines to be displayed ; H1 - 1st line of Header Information ; H2 - 2nd line of Header Information ; L1 - 1st line of DIR display ; L2 - Selection line text ; MAX - Multiple Description ; If passed, entering a new line is not allowed ; Optional, defaults to "" if not passed ; INDENT - 1 to indent 2 spaces ; Optional, defaults to 0 ; SECT - Section Header ; Returns: # - User wants to edit Entry # ; 0 - User wants to Add a new Entry ; -1 - User wants to skip this section ; -2 - User wants to exit template
SELE1	;
SELERR(INDENT)

External References

Name	Field # of Occurrence
UPDATE^DIE	SELAPI+44, SELAPI+64, SELPD+48, SELPD+73, SELDX+48, SELDX+71
^DIK	DELAPI+13, DELAPI+22, DELPD+12, DELPD+21, DELDX+12, DELDX+21
$$GET1^DIQ	SELAPI+25, SELAPI+28, SELAPI+31, SELPD+25, SELPD+31, SELPD+33, SELDX+26, SELDX+27, SELDX+29, SELDX+32
^DIR	RTYPE+7, PTYPE+7, DXTYPE+7, A1+1, SELE1+5
JUMPERR^IBTRH5H	A1+2, SELE1+14
$$LJ^XLFSTR	SELAPI+24, SELAPI+27, SELAPI+30, SELAPI+33, SELPD+24, SELPD+27, SELPD+32, SELPD+34, SELDX+25, SELDX+28 , SELDX+30, SELDX+33
$$UP^XLFSTR	SELE1+7, SELE1+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Additional Patient Information is currently on file.",! Line Location: SELAPI+37
Function Call: WRITE	Prompt: !,"Entry #",ENTNUM," has been deleted." Line Location: SELAPI+56
Function Call: WRITE	Prompt: !,"Entry #",ENTNUM," has been deleted." Line Location: SELPD+65
Function Call: WRITE	Prompt: !,"Entry #",ENTNUM," has been deleted." Line Location: SELDX+63
Function Call: WRITE	Prompt: !! Line Location: SELENT+33
Function Call: WRITE	Prompt: *7,!!,$S(INDENT:" ",1:"") Line Location: SELE1+21
Function Call: WRITE	Prompt: "The maximum Number of "_MAX_" have already been entered.",! Line Location: SELE1+22
Function Call: WRITE	Prompt: !!,*7,$S(INDENT:" ",1:"") Line Location: SELERR+2
Function Call: WRITE	Prompt: "Enter a number from 1-",CNT,". Enter NEW to enter a new entry." Line Location: SELERR+3
Function Call: WRITE	Prompt: !,$S(INDENT:" ",1:"") Line Location: SELERR+4
Function Call: WRITE	Prompt: "To delete an entry from the list, select D followed by the " Line Location: SELERR+5
Function Call: WRITE	Prompt: !,$S(INDENT:" ",1:"") Line Location: SELERR+6
Function Call: WRITE	Prompt: "number of the entry you wish to remove. Press return to skip selection." Line Location: SELERR+7
Function Call: WRITE	Prompt: !! Line Location: SELERR+8
Routine Call	DIE Line Location: SELAPI+44 SELAPI+64 SELPD+48 SELPD+73 SELDX+48 SELDX+71
Routine Call	DIR Line Location: RTYPE+7 PTYPE+7 DXTYPE+7 A1+1 SELE1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBT(356.006 - [#356.006]	GET1^DIQ
^IBT(356.22 - [#356.22]	Classic Fileman Calls
356.2211	GET1^DIQ
356.2213	GET1^DIQ
356.223	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356.22 - [#356.22]	SELAPI+17, SELAPI+21, DELAPI+15, DELAPI+17, SELPD+17, SELPD+21, DELPD+14, DELPD+16, SELDX+18, SELDX+22 , DXTYPE+5, DELDX+14, DELDX+16

Label References

Name	Line Occurrences
$$ASKNEW	SELAPI+38, SELPD+40, SELDX+40
$$DXTYPE	SELDX+44, SELDX+66
$$PTYPE	SELPD+44, SELPD+68
$$RTYPE	SELAPI+40, SELAPI+59
$$SELENT	SELAPI+51, SELPD+60, SELDX+58
A1	A1+2
DELAPI	SELAPI+13, SELAPI+55
DELDX	SELDX+15, SELDX+62
DELPD	SELPD+14, SELPD+64
SELE1	SELE1+13, SELE1+14, SELE1+20, SELE1+28
SELERR	SELE1+12, SELE1+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIDATA	SELAPI+9~, SELAPI+51
AIDATA(	SELAPI+34*, SELAPI+54, SELAPI+65
APIIEN	DELAPI+8~, DELAPI+15*, DELAPI+16, DELAPI+17, DELAPI+20
ARRAY	SELENT~
ARRAY(	SELENT+27, SELENT+29
CNT	SELAPI+9~, SELAPI+19, SELAPI+23, SELAPI+24, SELAPI+34, SELAPI+36, SELPD+10~, SELPD+19, SELPD+23, SELPD+24 , SELPD+35, SELPD+37, SELDX+11~, SELDX+20, SELDX+24, SELDX+25, SELDX+34, SELDX+37, SELE1+10, SELE1+24 , SELE1+26, SELERR+3
DA	SELAPI+25, SELAPI+28, SELAPI+31, DELAPI+8~, DELAPI+11, DELAPI+20, RTYPE+4~, SELPD+25, SELPD+31, SELPD+33 , DELPD+7~, DELPD+10, DELPD+19, PTYPE+4~, SELDX+26, SELDX+29, SELDX+32, DXTYPE+4~, DXTYPE+5, DELDX+7~ , DELDX+10, DELDX+19*
DA(1	DELAPI+11, DELAPI+20, RTYPE+5, DELPD+10, DELPD+19, PTYPE+5, DXTYPE+5, DELDX+10, DELDX+19*
DEFAULT	ASKNEW~, ASKNEW+9*, ASKNEW+12
DEL	SELENT+16~
DIK	DELAPI+8~, DELAPI+12, DELAPI+21, DELPD+7~, DELPD+11, DELPD+20, DELDX+7~, DELDX+11, DELDX+20
DIR	RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, SELENT+16~
DIR("?"	ASKNEW+11, SELE1+4
DIR("A"	RTYPE+6, PTYPE+6, DXTYPE+6, ASKNEW+12, SELENT+21, SELENT+22, SELENT+23, SELENT+24, SELENT+29, SELENT+30 , SELENT+31, SELENT+32
DIR("B"	ASKNEW+12*
DIR(0	RTYPE+6, PTYPE+6, DXTYPE+6, ASKNEW+12, SELENT+20*
DIROUT	RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, SELENT+16~
DIRUT	RTYPE+4~, RTYPE+8, PTYPE+4~, PTYPE+8, DXTYPE+4~, DXTYPE+8, ASKNEW+8~, SELENT+16~
DOK	SELENT+16~, SELE1+6, SELE1+8, SELE1+11, SELE1+13
DTOUT	RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, A1+4, SELENT+16~, SELE1+16
DUOUT	RTYPE+4~, PTYPE+4~, DXTYPE+4~, ASKNEW+8~, A1+3, SELENT+16~, SELE1+15
DXDATA	SELDX+11~, SELDX+58
DXDATA(	SELDX+34*, SELDX+61, SELDX+72
DXIEN	DELDX+7~, DELDX+14*, DELDX+15, DELDX+16, DELDX+19
DXTYPE	SELDX+11~, SELDX+44, SELDX+45, SELDX+46, SELDX+47, SELDX+66, SELDX+67, SELDX+68, SELDX+70
ENTNUM	SELAPI+9~, SELAPI+53, SELAPI+56, SELPD+10~, SELPD+62, SELPD+65, SELDX+11~, SELDX+60*, SELDX+63
FDA	SELAPI+9~, SELPD+10~, SELDX+11~
FDA(	SELAPI+43, SELAPI+63, SELPD+47, SELPD+72, SELDX+47, SELDX+70
H1	SELAPI+9~, SELAPI+47, SELAPI+51, SELPD+10~, SELPD+52, SELPD+53, SELPD+54, SELPD+60, SELDX+11~, SELDX+52* , SELDX+53*, SELDX+58, SELENT~, SELENT+23
H2	SELAPI+9~, SELAPI+48, SELAPI+51, SELPD+10~, SELPD+55, SELPD+56, SELPD+57, SELPD+60, SELDX+11~, SELDX+54* , SELDX+55*, SELDX+58, SELENT~, SELENT+24
>> IBNEW	SELAPI+10, SELAPI+42, SELAPI+61, SELPD+11, SELPD+46, SELPD+71, SELDX+12, SELDX+46, SELDX+69*
>> IBTRBRF	SELPD+30, SELPD+38, SELPD+42, SELPD+53, SELPD+56, SELDX+31, SELDX+38, SELDX+42, SELDX+53, SELDX+55
IBTRIEN	SELAPI~, SELAPI+13, SELAPI+17, SELAPI+21, SELAPI+40, SELAPI+43, SELAPI+55, SELAPI+59, SELAPI+63, DELAPI~ , DELAPI+11, DELAPI+15, DELAPI+17, DELAPI+20, RTYPE~, RTYPE+5, SELPD~, SELPD+14, SELPD+17, SELPD+21 , SELPD+44, SELPD+47, SELPD+64, SELPD+68, SELPD+72, DELPD~, DELPD+10, DELPD+14, DELPD+16, DELPD+19 , PTYPE~, PTYPE+5, SELDX~, SELDX+15, SELDX+18, SELDX+22, SELDX+44, SELDX+47, SELDX+62, SELDX+66 , SELDX+70, DXTYPE~, DXTYPE+5, DELDX~, DELDX+10, DELDX+14, DELDX+16, DELDX+19
IEN	SELAPI+9~, SELAPI+19, SELAPI+20, SELAPI+21, SELAPI+22, SELAPI+25, SELAPI+28, SELAPI+31, SELAPI+34, DELAPI~ , DELAPI+9, DELAPI+10, DELAPI+11, SELPD+10~, SELPD+19, SELPD+20, SELPD+21, SELPD+22, SELPD+25, SELPD+31 , SELPD+33, SELPD+35, DELPD~, DELPD+8, DELPD+9, DELPD+10, SELDX+11~, SELDX+20, SELDX+21, SELDX+22 , SELDX+23, SELDX+26, SELDX+29, SELDX+32, SELDX+34, DELDX~, DELDX+8*, DELDX+9, DELDX+10
INDENT	SELENT~, SELENT+18*, SELENT+32, SELE1+12, SELE1+21, SELE1+27, SELERR~, SELERR+2, SELERR+4, SELERR+6
IX	SELENT+16~, SELENT+25, SELENT+26, SELENT+27, SELENT+28, SELENT+29
L1	SELAPI+9~, SELAPI+49, SELAPI+51, SELPD+10~, SELPD+58, SELPD+60, SELDX+11~, SELDX+56*, SELDX+58, SELENT~ , SELENT+21
L2	SELAPI+9~, SELAPI+50, SELAPI+51, SELPD+10~, SELPD+59, SELPD+60, SELDX+11~, SELDX+57*, SELDX+58, SELENT~ , SELENT+31
LN	SELENT+16~, SELENT+20, SELENT+21, SELENT+22, SELENT+23, SELENT+24, SELENT+29, SELENT+30, SELENT+31
MAX	SELAPI+9~, SELAPI+18, SELAPI+51, SELPD+10~, SELPD+18, SELPD+60, SELDX+11~, SELDX+19, SELDX+58, SELENT~ , SELENT+17, SELE1+20, SELE1+22
PDDATA	SELPD+10~, SELPD+60
PDDATA(	SELPD+35*, SELPD+63, SELPD+74
PDIEN	DELPD+7~, DELPD+14*, DELPD+15, DELPD+16, DELPD+19
PROMPT	ASKNEW~, ASKNEW+10, ASKNEW+12
PTYPE	SELPD+10~, SELPD+44, SELPD+45, SELPD+46, SELPD+47, SELPD+68, SELPD+69, SELPD+70, SELPD+72
RETIEN	SELAPI+9~, SELPD+10~, SELDX+11~
RETIEN(	SELAPI+36, SELAPI+58, SELPD+37, SELPD+67, SELDX+37, SELDX+65
RETIEN(0	SELAPI+36, SELAPI+58, SELPD+37, SELPD+67, SELDX+37, SELDX+65
RTYPE	SELAPI+9~, SELAPI+40, SELAPI+41, SELAPI+42, SELAPI+43, SELAPI+59, SELAPI+60, SELAPI+62, SELAPI+63
SECT	SELAPI+9~, SELAPI+10, SELAPI+51, SELPD+10~, SELPD+11, SELPD+60, SELDX+11~, SELDX+12, SELDX+58, SELENT~ , SELENT+19
U	SELAPI+54, SELPD+63, SELDX+61
X	SELAPI+9~, DELAPI+8~, RTYPE+4~, SELPD+10~, DELPD+7~, PTYPE+4~, SELDX+11~, DXTYPE+4~, DELDX+7~, ASKNEW+8~ , SELENT+16~, SELE1+24*
XX	SELAPI+9~, SELAPI+17, SELAPI+18, SELAPI+24, SELAPI+27, SELAPI+30, SELAPI+33, SELAPI+34, SELAPI+36, SELAPI+38 , SELAPI+39, SELAPI+41, SELAPI+42, SELAPI+51, SELAPI+52, SELAPI+53, SELAPI+54, SELAPI+55, SELAPI+57, SELAPI+58 , SELAPI+60, SELAPI+62, SELAPI+65, DELAPI+8~, DELAPI+17, DELAPI+18, DELAPI+19, SELPD+10~, SELPD+17, SELPD+18 , SELPD+24, SELPD+27, SELPD+32, SELPD+34, SELPD+35, SELPD+37, SELPD+40, SELPD+42, SELPD+43, SELPD+45* , SELPD+46, SELPD+60, SELPD+61, SELPD+62, SELPD+63, SELPD+64, SELPD+66, SELPD+67, SELPD+69, SELPD+70 , SELPD+74, DELPD+7~, DELPD+16, DELPD+17, DELPD+18, SELDX+11~, SELDX+18, SELDX+19, SELDX+25, SELDX+28* , SELDX+30, SELDX+33, SELDX+34, SELDX+37, SELDX+40, SELDX+42, SELDX+43, SELDX+45, SELDX+46, SELDX+58* , SELDX+59, SELDX+60, SELDX+61, SELDX+62, SELDX+64, SELDX+65, SELDX+67, SELDX+68, SELDX+72, DELDX+7~ , DELDX+16, DELDX+17, DELDX+18, ASKNEW+8~, ASKNEW+10, ASKNEW+11, SELENT+16~, SELE1+2, SELE1+3, SELE1+4 , SELE1+9, SELE1+10, SELE1+18*, SELE1+19, SELE1+26
Y	SELAPI+9~, DELAPI+8~, RTYPE+4~, RTYPE+9, SELPD+10~, DELPD+7~, PTYPE+4~, PTYPE+9, SELDX+11~, DXTYPE+4~ , DXTYPE+9, DELDX+7~, ASKNEW+8~, A1+2, A1+5, SELENT+16~, SELE1+7*, SELE1+8, SELE1+9, SELE1+14 , SELE1+17, SELE1+18
YY	SELAPI+9~, SELAPI+25, SELAPI+26, SELAPI+27, SELAPI+28, SELAPI+29, SELAPI+30, SELAPI+31, SELAPI+32, SELAPI+33 , SELPD+10~, SELPD+25, SELPD+26, SELPD+27, SELPD+31, SELPD+32, SELPD+33, SELPD+34, SELDX+11~, SELDX+26* , SELDX+27, SELDX+28, SELDX+29, SELDX+30, SELDX+32, SELDX+33, SELENT+16~, SELE1+19, SELE1+20, SELE1+25

Customize PDF page

Package: Integrated Billing

Routine: IBTRH5D

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: