Routine: IBTRH3

Package	Total	Call Graph
Integrated Billing	6	$$TAXGET^IBCEP81 $$FO^IBCNEUT1 PRMARK^IBTRH1 EN2^IBTRH2 GETINFO^IBTRH3A $$SELEVENT^IBTRH5
List Manager	3	EN^VALM (CLEAR,FULL,PAUSE)^VALM1 (CLEAN,CNTRL)^VALM10
Kernel	2	$$FMTE^XLFDT ($$TAXIND,$$TAXORG)^XUSTAX
VA FileMan	2	(,LIST)^DIC $$GET1^DIQ
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Integrated Billing	10	IBT HCSR RESPONSE EXPAND ENTRY IBT HCSR RESPONSE IN PROGRESS EE REM IBT HCSR RESPONSE IN PROGRESS EE SET IBT HCSR RESPONSE VIEW IBT HCSR VIEW PENDING RESPONSE IBTRH3A IBTRH3B IBTRH5I IBTRH8A IBTRHLO1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBT HCSR Response View
EN2	;JWS;alternate entry point when IBTRIEN is selected from ; a response list view, so IBTRIEN is known
EN3	;alternate entry point when IBTRIEN is selected from ; a response list view to display response pending entry, ; so IBTRIEN is known for the current entry and we need ; to figure out the pending response.
HDR	; -- header code
INIT	; -- init variables and list array
INIT1	;
INITQ
ASKPAT()
ASKEVT(IBTRIEN)	; Get the Appointment/Admission
ASKEVT1	;
ASKEVTX
GTLIST(IBTRIEN)	; Create list of Appointments/Admission Dates. ; This will create a ^TMP global that will look similar to the following: ; ^TMP("IBTRH3E",$J,"DILIST",0)="1^*^0^" ; ^TMP("IBTRH3E",$J,"DILIST",0,"MAP")=.07 ; ^TMP("IBTRH3E",$J,"DILIST",I1,J)="JUN 19, 2014@11:00" ; ^TMP("IBTRH3E",$J,"DILIST",I2,J)=IBTRNO ; ^TMP("IBTRH3E",$J,"DILIST","ID",J,.07)=IBTEVNT ; where: ; I1 = The first cross-reference index which has the external event date values to display. ; I2 = The second cross-reference index which has the pointers to the IBT(356.22,...) Record no. ; J = Is just the internal counter of events for the selected patient. ; And ^IBT(356.22,"D",IBTRIEN,IBTEVNT,IBTRNO) is the actual Cross-reference record.
COMPILE(IBTRNM,IBTRSPEC)
SETDATA	; -- Set up the data
BLD	; charges, as they would display on the bill
NODP	; No Response Pending for this selection.
SETDLN(DLN,SPEC)	; Add Display Line to ^TMP global.
GTXNMY(VARPTR)	; API to obtain a Provider's Taxonomy Code and Person Class. ; INPUT: VARPTR is the variable pointer to the Provider. ; It can point to 1 of the 3 following globals: ; "ien;VA(200" points to the VA Individual Provider global ; "ien;DIC(4" points to the VA Institutional Provider global ; "ien;IBA(355.93" points to the non-VA Provider global ; where the ien is the internal identifier to the specified global.
HELP	; -- help code
EXIT	; -- exit code
PRMARK(WHICH)

External References

Name	Field # of Occurrence
^DIC	ASKPAT+8
LIST^DIC	GTLIST+17
$$GET1^DIQ	ASKEVT1+11, GTXNMY+19, PRMARK+8
$$TAXGET^IBCEP81	GTXNMY+16
$$FO^IBCNEUT1	ASKPAT+6
PRMARK^IBTRH1	PRMARK+7
EN2^IBTRH2	BLD+2
GETINFO^IBTRH3A	BLD+3
$$SELEVENT^IBTRH5	EN2+5
DEM^VADPT	HDR+3
EN^VALM	EN+5, EN2+7, EN3+14
CLEAR^VALM1	EXIT+2
FULL^VALM1	NODP+1, HELP+1
PAUSE^VALM1	NODP+3, HELP+3
CLEAN^VALM10	EXIT+2
CNTRL^VALM10	SETDLN+3
$$FMTE^XLFDT	ASKEVT1+8, ASKEVT1+10
$$TAXIND^XUSTAX	GTXNMY+14
$$TAXORG^XUSTAX	GTXNMY+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No HCSR Response data for this Patient.",! Line Location: INIT+12
Function Call: WRITE	Prompt: ! Line Location: ASKPAT+4
Function Call: WRITE	Prompt: !!!,"Select Appt/Adm:",! Line Location: ASKEVT1+2
Function Call: WRITE	Prompt: !?5,A1,". ",$S($P(XREQDATA,"^",4)="I":"Adm: ",1:"App: ") Line Location: ASKEVT1+7
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P(^TMP("IBTRH3E",$J,"XLISTNO",A1),U,1))," " Line Location: ASKEVT1+8
Function Call: WRITE	Prompt: $S($P(XREQDATA,"^",20)=1:"215:",1:"217:") Line Location: ASKEVT1+9
Function Call: WRITE	Prompt: " ",$$FMTE^XLFDT($P($P(XREQDATA,U,15),"."))," " Line Location: ASKEVT1+10
Function Call: WRITE	Prompt: $$GET1^DIQ(356.22,XIEN_",",103.01) Line Location: ASKEVT1+11
Function Call: WRITE	Prompt: "AAA" Line Location: ASKEVT1+12
Function Call: READ	Formatting: ! Prompt: "Enter Selection: " Variable: SEL Timeout: DTIME Line Location: ASKEVT1+13
Function Call: WRITE	Prompt: !?5,"INVALID SELECTION.",! Line Location: ASKEVT1+14
Function Call: WRITE	Prompt: !!," No Response Pending to view." Line Location: NODP+2
Function Call: WRITE	Prompt: !!,"This option displays the view of a Healthcare Services Review Response." Line Location: HELP+2
Routine Call	DIC Line Location: ASKPAT+8
Routine Call	DIC Line Location: GTLIST+17
Routine Call	VALM Line Location: EN+5 EN2+7 EN3+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBT(356.22 - [#356.22]	GET1^DIQ, LIST^DIC
^USC(8932.1 - [#8932.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INIT1+7
^IBT(356.22 - [#356.22]	INIT+8, INIT+11, INIT1+4, ASKEVT1+6, ASKEVT1+11, ASKEVT1+12, SETDATA+3, SETDATA+5, SETDATA+6, SETDATA+8 , SETDATA+10, SETDATA+11, SETDATA+13, SETDATA+14, SETDATA+15, SETDATA+16, SETDATA+17, SETDATA+19, SETDATA+20, SETDATA+22 , SETDATA+24, SETDATA+25, SETDATA+39, SETDATA+40, SETDATA+42, SETDATA+44, SETDATA+45, SETDATA+47, SETDATA+48, SETDATA+51 , SETDATA+52, SETDATA+53, SETDATA+55, SETDATA+56, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68, SETDATA+71 , SETDATA+74, SETDATA+75, SETDATA+76, SETDATA+77, SETDATA+78, SETDATA+79, SETDATA+81, SETDATA+82, SETDATA+83, SETDATA+85 , SETDATA+87, SETDATA+88, SETDATA+89, SETDATA+91, SETDATA+92, SETDATA+93
^TMP(	INIT+2!, COMPILE+1!, SETDLN+2*
^TMP("IBTRH3"	EXIT+1!
^TMP("IBTRH3E"	ASKEVT1+4, ASKEVT1+5, ASKEVT1+8, ASKEVT1+15, ASKEVT1+16, GTLIST+15!, GTLIST+18, GTLIST+20, GTLIST+21, GTLIST+23 , GTLIST+25, GTLIST+27

Label References

Name	Line Occurrences
$$ASKEVT	INIT+15
$$ASKPAT	INIT+10
$$GTLIST	ASKEVT+2
ASKEVT1	ASKEVT1+14
ASKEVTX	ASKEVT+2, ASKEVT1+13
BLD	COMPILE+4
COMPILE	INIT1+10
EN	EN+6
INIT	INIT+11
INIT1	INIT+8
INITQ	INIT+10, INIT+16, INIT+17
NODP	EN3+11, EN3+13, ASKEVT+2
SETDATA	COMPILE+4

Naked Globals

Name	Field # of Occurrence
^(	ASKEVT1+4, GTLIST+21, GTLIST+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	GTLIST+13~, GTLIST+19, GTLIST+20, GTLIST+21, GTLIST+22, GTLIST+23, GTLIST+25, GTLIST+27
A1	ASKEVT+1~, ASKEVT1+1, ASKEVT1+4, ASKEVT1+7, ASKEVT1+8, ASKEVT1+9
A2	ASKEVT+1~, ASKEVT1+4*, ASKEVT1+5
B	GTLIST+13~, GTLIST+21, GTLIST+22, GTLIST+24, GTLIST+25, GTLIST+27
CURIEN	EN3+4~, EN3+5*
CURNODE0	EN3+4~, EN3+6*, EN3+11, EN3+12
DATA	EN+1~, EN+6!, EN2+2~, EN3+8~
DATA(0	SETDATA+3*
DATA(1	SETDATA+6*
DATA(10	SETDATA+17*
DATA(101	SETDATA+82, SETDATA+83
DATA(103	SETDATA+85*
DATA(105	SETDATA+88, SETDATA+89
DATA(107	SETDATA+92, SETDATA+93
DATA(11	SETDATA+20*
DATA(12	SETDATA+33, SETDATA+34, SETDATA+35, SETDATA+36, SETDATA+37*
DATA(13	SETDATA+42*
DATA(14	SETDATA+45*
DATA(15	SETDATA+48*
DATA(16	SETDATA+52, SETDATA+55, SETDATA+60, SETDATA+64, SETDATA+68, SETDATA+71
DATA(17	SETDATA+74*
DATA(18	SETDATA+75*
DATA(19	SETDATA+76*
DATA(2	SETDATA+8*
DATA(20	SETDATA+77*
DATA(21	SETDATA+78*
DATA(22	SETDATA+79*
DATA(3	SETDATA+11*
DATA(4	SETDATA+13*
DATA(7	SETDATA+14*
DATA(8	SETDATA+15*
DATA(9	SETDATA+16*
DFN	EN+2~, EN+6!, EN2+3~, EN3+9~, HDR+3, INIT1+5*, INIT1+7
DIC	ASKPAT+2~, ASKPAT+7*
DIC("A"	ASKPAT+6*
DIC("S"	ASKPAT+5*
DIC(0	ASKPAT+5*
DLINE	EN2+2~, EN2+5, EN3+8~
DLN	SETDLN~, SETDLN+2
DTIME	ASKEVT1+13
DTOUT	ASKPAT+2~
DUOUT	ASKPAT+2~
END	SETDATA+27~, SETDATA+28*, SETDATA+29
>> I	SETDATA+29*
>> IBFASTXT	EN+6
IBOK	EN+1~, EN+6!, EN2+2~, EN3+8~
IBPTNO	EN+1~, EN+6, EN2+2~, EN3+8~, INIT+8, INIT+10, INIT+11, INIT+15, INIT1+1
IBTNO	EN+6!
IBTRIEN	EN+1~, EN+6!, EN2+2~, EN2+5, EN2+6, EN3+5, EN3+8~, EN3+12, EN3+13, INIT+8 , INIT+15*, INIT+16, INIT+17, INIT1+2, INIT1+4, ASKEVT~, ASKEVT+2, GTLIST~, BLD+2, BLD+3 , PRMARK+7, PRMARK+8
IBTRN	EN+6!
IBTRNM	EN+1~, EN+3, EN2+2~, EN2+4, EN3+8~, EN3+10*, INIT+2, INIT1+10, COMPILE~, COMPILE+1 , BLD+2, BLD+3, SETDLN+2
IBTRNO	SETDATA+1~, SETDATA+2*, SETDATA+3, SETDATA+5, SETDATA+6, SETDATA+8, SETDATA+10, SETDATA+11, SETDATA+13, SETDATA+14 , SETDATA+15, SETDATA+16, SETDATA+17, SETDATA+19, SETDATA+20, SETDATA+22, SETDATA+24, SETDATA+25, SETDATA+39, SETDATA+40 , SETDATA+42, SETDATA+44, SETDATA+45, SETDATA+47, SETDATA+48, SETDATA+51, SETDATA+52, SETDATA+53, SETDATA+55, SETDATA+56 , SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68, SETDATA+71, SETDATA+74, SETDATA+75, SETDATA+76, SETDATA+77 , SETDATA+78, SETDATA+79, SETDATA+81, SETDATA+82, SETDATA+83, SETDATA+85, SETDATA+87, SETDATA+88, SETDATA+89, SETDATA+91 , SETDATA+92, SETDATA+93
IBTRSPEC	EN+1~, EN+6!, EN2+2~, EN3+8~, INIT1+10, COMPILE~
IBTRSPEC("IBTEVENT"	INIT1+2*, SETDATA+2
IBTRSPEC("IBTPATID"	INIT1+1*
IEN312	EN+2~, EN+6!, EN2+3~, EN3+9~, INIT1+6*, INIT1+7
INSNODE0	EN+2~, EN+6!, EN2+3~, EN3+9~, INIT1+7*
>> IOINHI	SETDLN+3
>> IOINORM	SETDLN+3
MX	ASKEVT+1~, ASKEVT1+1, ASKEVT1+9, ASKEVT1+14
NODE0	EN+2~, EN+6!, EN2+3~, EN3+6, EN3+9~, INIT1+4*, INIT1+5, INIT1+6
PC1	GTXNMY+11~, GTXNMY+13*, GTXNMY+14, GTXNMY+15, GTXNMY+16
PC2	GTXNMY+11~, GTXNMY+13*, GTXNMY+14, GTXNMY+15, GTXNMY+16
RESULTS	GTXNMY+11~, GTXNMY+12, GTXNMY+14, GTXNMY+15, GTXNMY+16, GTXNMY+17, GTXNMY+18, GTXNMY+19
SAV	SETDATA+27~, SETDATA+30, SETDATA+32, SETDATA+33, SETDATA+34
SEL	ASKEVT+1~, ASKEVT1+13*, ASKEVT1+14, ASKEVT1+15
SPEC	SETDLN~, SETDLN+3
SQ	SETDATA+1~, SETDATA+6, SETDATA+11, SETDATA+20, SETDATA+24, SETDATA+25, SETDATA+45, SETDATA+48, SETDATA+82, SETDATA+83 , SETDATA+88, SETDATA+89, SETDATA+92, SETDATA+93
SQ1	SETDATA+1~, SETDATA+23~, SETDATA+33, SETDATA+34, SETDATA+35, SETDATA+36, SETDATA+37, SETDATA+40, SETDATA+41, SETDATA+42 , SETDATA+52, SETDATA+53, SETDATA+54, SETDATA+55, SETDATA+56, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68 , SETDATA+71
SQ2	SETDATA+1~, SETDATA+42, SETDATA+56, SETDATA+57, SETDATA+58, SETDATA+60, SETDATA+61, SETDATA+64, SETDATA+65, SETDATA+68 , SETDATA+71
SQ3	SETDATA+1~, SETDATA+61*, SETDATA+62, SETDATA+64, SETDATA+65, SETDATA+68
SQ4	SETDATA+1~, SETDATA+65*, SETDATA+66, SETDATA+68
STATUS	PRMARK+6~, PRMARK+8*, PRMARK+10, PRMARK+13
TAXNMY	GTXNMY+11~, GTXNMY+12, GTXNMY+17, GTXNMY+18, GTXNMY+19*, GTXNMY+20
TEXT	SETDATA+23~, SETDATA+25*, SETDATA+26, SETDATA+28, SETDATA+29, SETDATA+36
U	EN3+11, EN3+12, HDR+3, INIT+8, INIT1+5, INIT1+6, ASKEVT1+8, ASKEVT1+10, ASKEVT1+15, GTLIST+18 , GTLIST+27, SETDATA+58, GTXNMY+17, GTXNMY+18, GTXNMY+19
VADM	HDR+1~
VADM(1	HDR+3
VADM(2	HDR+3
VADM(3	HDR+3
VADM(4	HDR+3
>> VALMBCK	NODP+3, HELP+3
VALMCNT	EN+2~, EN+6!, EN2+3~, EN3+9~, BLD+1, SETDLN+1, SETDLN+2, SETDLN+3
>> VALMHDR(1	HDR+4*
>> VALMQUIT	INIT+10, INIT+16, INIT+17*
>> VALMSG	HDR+5, PRMARK+10, PRMARK+11, PRMARK+13, PRMARK+14*
VARPTR	GTXNMY~, GTXNMY+13
WHICH	PRMARK~, PRMARK+7, PRMARK+9
X	ASKPAT+2~, GTLIST+13~, GTLIST+14, GTLIST+28, GTLIST+29, SETDATA+1~
X1	SETDATA+27~, SETDATA+29, SETDATA+30, SETDATA+31, SETDATA+32, SETDATA+33
XIEN	ASKEVT+1~, ASKEVT1+5*, ASKEVT1+6, ASKEVT1+11, ASKEVT1+12
XREQ	ASKEVT+1~, ASKEVT1+6*
XREQDATA	ASKEVT+1~, ASKEVT1+6*, ASKEVT1+7, ASKEVT1+9, ASKEVT1+10
Y	ASKPAT+2~, ASKPAT+9
YY	ASKEVT+1~, ASKEVT+2, ASKEVT1+13, ASKEVT1+15, ASKEVT1+16, ASKEVT1+17*, ASKEVTX
Z	HDR+1~, HDR+2, HDR+3, HDR+4, GTLIST+13~, GTLIST+22, GTLIST+26, GTLIST+27
Z1	GTLIST+13~, GTLIST+25*, GTLIST+27

Customize PDF page

Package: Integrated Billing

Routine: IBTRH3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: