Routine: IBTRH1A

Package	Total	Call Graph
Registration	3	$$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI SVC^VADPT
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Integrated Billing	2	(HDR,INIT,SORT,VALMSGH)^IBTRH1 SHOWFILT^IBTRH1B
Kernel	2	($$DT,$$FMTE)^XLFDT $$UP^XLFSTR
List Manager	2	FULL^VALM1 CLEAN^VALM10

Package	Total	Caller Graph
Integrated Billing	3	IBT HCSR REFRESH IBTRH1 IBTRH5
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
REFRESH	;EP ; Protocol action to search for new appointments/admission, reset filter ; and redisplay the HCSR Worklist ; Input: HCSSORT - Current sort selection ; Output: IBFILTS() - Array of filter criteria ; ^TMP("IBTRH1",$J) - Body lines to display ; ^TMP($J,"IBTRH1S") - Sorted Body lines to display ; ^TMP($J,"IBTRH1IX") - Index of Event IENs by display line
FILTERS(FILTERS)
ASKDIV(FILTERS)
ONEDIV(DIC,IEN,FIRST)
ASKWORC(WHICH,FILTERS)
ONEWORC(DIC,WHICH,IEN,FIRST)
WCFILT(WHICH,IEN,DIVS,CLINS,WARDS)
SORT1
SKIP(EVENT)	; Checks to see if the specified event entry should display on the ; list ; Input: EVENT - Event Entry being checked ; IBFILTS() - Array of filter settings. See FILTERS for a ; detailed explanation of the FILTERS array ; Returns: 1 - Don't display the entry on the list, 0 - Display entry on list
TRICARE(EVENT)
DISCH(EVENT)	; Checks to see if the admission of the entry has been discharged ; Input: EVENT - Node 0 of the Event Entry being checked ; Returns: 1 if the admission has been discharged, 0 otherwise
ONEEVENT(CSTAT,EIEN,EVENT)
PNAME(DFN,RFLG,PNAME)	;EP ; Format the patient name column for display in the worklist ; Input: DFN - Internal IEN of the patient ; RFLG - Symbol to display in front of the name (if any) ; Output: PNAME - $P(^DPT(DFN,0),"^",1) ; Returns: Formatted patient name
PATLOC(EVENT)	;EP ; Returns the Clinic or Ward associated with the event ; Input: EVENT - ^IBT(356.22,EIEN,0) ; Returns: Formatted Clinic or location name
GETSCR(DFN)	; Retrieves all of the services connected reasons to be displayed ; Input: DFN - Internal IEN of the patient of the event ; Returns: SCR - String of Service Connected reasons to be displayed

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	GETSCR+16
$$GETCUR^DGNTAPI	GETSCR+13
^DIC	ONEDIV+7, ONEWORC+8
$$GET1^DIQ	WCFILT+19, WCFILT+28, SKIP+24, SKIP+25, TRICARE+7, TRICARE+8, TRICARE+9, TRICARE+10, TRICARE+11, DISCH+10 , ONEEVENT+23, ONEEVENT+24, ONEEVENT+25, ONEEVENT+27, PNAME+8, PNAME+11, PATLOC+7, PATLOC+10
^DIR	FILTERS+31, FILTERS+42, FILTERS+54
HDR^IBTRH1	REFRESH+19
INIT^IBTRH1	REFRESH+18
SORT^IBTRH1	REFRESH+17
VALMSGH^IBTRH1	REFRESH+11
SHOWFILT^IBTRH1B	FILTERS+70
SVC^VADPT	GETSCR+6
FULL^VALM1	REFRESH+12
CLEAN^VALM10	REFRESH+15
$$DT^XLFDT	SKIP+9
$$FMTE^XLFDT	ONEEVENT+16
$$UP^XLFSTR	FILTERS+35, FILTERS+44, FILTERS+48, FILTERS+56, TRICARE+10, TRICARE+11, ONEEVENT+37

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: FILTERS+31
Function Call: WRITE	Prompt: ! Line Location: FILTERS+42
Function Call: WRITE	Prompt: ! Line Location: FILTERS+54
Function Call: WRITE	Prompt: "." Line Location: SORT1+25
Routine Call	DIC Line Location: ONEDIV+7 ONEWORC+8
Routine Call	DIR Line Location: FILTERS+31 FILTERS+42 FILTERS+54

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBA(355.3 - [#355.3]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID1"	DISCH+8
^IBA(355.3 - [#355.3]	ONEEVENT+38, ONEEVENT+40
^IBE(350.9 - [#350.9]	ASKWORC+16, ASKWORC+18, ASKWORC+25, ASKWORC+27
^IBT(356.22 - [#356.22]	SORT1+15, SORT1+19, SORT1+21
^TMP($J	SORT1+8!, ONEEVENT+45*

Name	Line Occurrences
$$DISCH	SKIP+49
$$FILTERS	REFRESH+14
$$GETSCR	ONEEVENT+44
$$PATLOC	ONEEVENT+21
$$PNAME	ONEEVENT+20
$$SKIP	SORT1+23
$$TRICARE	SKIP+14
ASKDIV	FILTERS+60
ASKWORC	FILTERS+63, FILTERS+66
ONEDIV	ASKDIV+6
ONEEVENT	SORT1+26
ONEWORC	ASKWORC+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	DISCH+3~, DISCH+5, DISCH+6, DISCH+7, ONEEVENT+6~, ONEEVENT+15, ONEEVENT+16, ONEEVENT+32, ONEEVENT+33
CLINS	ASKWORC+5~, ASKWORC+29, WCFILT~, WCFILT+15
CLINS(	ASKWORC+28*, WCFILT+15
COVTYPE	TRICARE+4~, TRICARE+10*, TRICARE+13
CSTAT	SORT1+7~, SORT1+12*, SORT1+15, SORT1+19, SORT1+26, ONEEVENT~, ONEEVENT+11
DA	DISCH+3~, DISCH+8*, DISCH+9, DISCH+10
DELAY	SKIP+6~, SKIP+10, SKIP+11, SKIP+46, SKIP+47, SKIP+48
DFN	SORT1+7~, TRICARE+4~, TRICARE+5, TRICARE+6, DISCH+3~, DISCH+4, DISCH+8, ONEEVENT+6~, ONEEVENT+12*, ONEEVENT+20 , ONEEVENT+22, ONEEVENT+44, PNAME~, PNAME+7, PNAME+8, PNAME+11, GETSCR~, GETSCR+13, GETSCR+16
DGNTARR	GETSCR+3~
DGNTARR("INTRP"	GETSCR+14
DIC	ASKDIV+3~, ASKDIV+4, ASKDIV+6, ONEDIV~, ASKWORC+5~, ASKWORC+6, ASKWORC+32, ONEWORC~
DIC("A"	ONEDIV+6, ONEWORC+7
DIC("S"	ASKWORC+21, ASKWORC+30
DIC(0	ASKDIV+4, ASKWORC+6
DIR	FILTERS+22~, FILTERS+31!, FILTERS+42!, FILTERS+54!, ASKDIV+3~, ASKWORC+5~
DIR("?"	FILTERS+27, FILTERS+28, FILTERS+29, FILTERS+38, FILTERS+39, FILTERS+40, FILTERS+51, FILTERS+52
DIR("A"	FILTERS+26, FILTERS+37, FILTERS+50*
DIR("B"	FILTERS+26, FILTERS+37, FILTERS+50*
DIR(0	FILTERS+26, FILTERS+30, FILTERS+37, FILTERS+41, FILTERS+50, FILTERS+53
DIROUT	FILTERS+22~
DIRUT	FILTERS+22~, FILTERS+32, FILTERS+43, FILTERS+55, ASKDIV+3~, ASKWORC+5~
DIVS	ASKDIV+3~, ASKWORC+5~, WCFILT~
DIVS(	ASKWORC+11*, WCFILT+21, WCFILT+30
DIVS(""	WCFILT+10
DT	DISCH+3~
DTOUT	FILTERS+22~
DUOUT	FILTERS+22~, ASKDIV+3~, ASKWORC+5~
ECTR	SORT1+7~, SORT1+9, SORT1+24, SORT1+25
EIEN	SORT1+7~, SORT1+17, SORT1+18, SORT1+19, SORT1+20, SORT1+21, SORT1+26, ONEEVENT~, ONEEVENT+45
ELOC	PATLOC+4~, PATLOC+5, PATLOC+6, PATLOC+7, PATLOC+9, PATLOC+10, PATLOC+11
ESTATUS	ONEEVENT+6~, ONEEVENT+13*, ONEEVENT+14, ONEEVENT+18, ONEEVENT+19
EVDT	SORT1+7~, SORT1+13, SORT1+14, SORT1+15, SORT1+16, SORT1+19
EVENT	SORT1+7~, SORT1+21*, SORT1+22, SORT1+23, SORT1+26, SKIP~, SKIP+7, SKIP+8, SKIP+11, SKIP+14 , SKIP+22, SKIP+23, SKIP+32, SKIP+40, SKIP+49, TRICARE~, TRICARE+5, TRICARE+6, DISCH~, DISCH+4 , DISCH+5, ONEEVENT~, ONEEVENT+12, ONEEVENT+13, ONEEVENT+15, ONEEVENT+21, ONEEVENT+22, PATLOC~, PATLOC+5, PATLOC+9
FILTERS	FILTERS~, FILTERS+23!, FILTERS+60, FILTERS+63, FILTERS+66, FILTERS+70, ASKDIV~, ASKWORC~
FILTERS(	ASKWORC+36, ASKWORC+44
FILTERS(0	FILTERS+36, FILTERS+45, FILTERS+49, FILTERS+57, FILTERS+60, FILTERS+63, FILTERS+66, ASKDIV+10*
FILTERS(1	FILTERS+69
FILTERS(2	FILTERS+69
FILTERS(3	FILTERS+69, ASKDIV+18*, ASKWORC+8, ASKWORC+9, ASKWORC+20, ASKWORC+29
FIRST	ASKDIV+3~, ASKDIV+4, ASKDIV+6, ONEDIV~, ONEDIV+6, ONEDIV+8, ASKWORC+5~, ASKWORC+6, ASKWORC+32, ONEWORC~ , ONEWORC+7, ONEWORC+9
FOUND	DISCH+3~
GRPLAN	TRICARE+4~, TRICARE+8*, TRICARE+9
GRPLANTP	TRICARE+4~, TRICARE+9*, TRICARE+13
>> HCSRSORT	ONEEVENT+18, ONEEVENT+19, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+36
HS1	ONEEVENT+6~, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37*, ONEEVENT+45
HS2	ONEEVENT+6~, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37*, ONEEVENT+45
HS3	ONEEVENT+6~, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37*, ONEEVENT+45
IADATE	DISCH+3~, DISCH+7*, DISCH+8
>> IBFILTS	REFRESH+14
>> IBFILTS(0	SKIP+12, SKIP+13, SKIP+15, SKIP+16
>> IBFILTS(1	SKIP+39, SKIP+41
>> IBFILTS(2	SKIP+31, SKIP+33
>> IBFILTS(3	SKIP+20, SKIP+21
IBIENS	ASKDIV+3~, ASKDIV+10, ASKWORC+5~, ASKWORC+36
IBIENS(	ASKDIV+8, ASKDIV+15, ASKDIV+17, ASKWORC+34, ASKWORC+41, ASKWORC+43
IBIENS2	ASKDIV+3~, ASKWORC+5~
IBIENS2(	ASKDIV+9, ASKWORC+35
ICOB	ONEEVENT+6~, ONEEVENT+27, ONEEVENT+28, ONEEVENT+29, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37
IDIVS	WCFILT+9~, WCFILT+10*, WCFILT+18, WCFILT+27
IEN	ASKDIV+3~, ASKDIV+5, ASKDIV+6, ASKDIV+7, ASKDIV+8, ASKDIV+9, ONEDIV~, ONEDIV+8, ASKWORC+5~, ASKWORC+18 , ASKWORC+19, ASKWORC+27, ASKWORC+28, ASKWORC+31, ASKWORC+32, ASKWORC+33, ASKWORC+34, ASKWORC+35, ONEWORC~, ONEWORC+9 , WCFILT~, WCFILT+15, WCFILT+19, WCFILT+24, WCFILT+28, SKIP+6~, SKIP+22, SKIP+23, SKIP+24, SKIP+25 , SKIP+32, SKIP+34, SKIP+40, SKIP+42
IENS	TRICARE+4~, TRICARE+6, TRICARE+7, TRICARE+8, ONEEVENT+6~, ONEEVENT+22, ONEEVENT+23, ONEEVENT+24, ONEEVENT+27
IGROUP	ONEEVENT+6~, ONEEVENT+24*, ONEEVENT+38, ONEEVENT+40
IIEN	TRICARE+4~, TRICARE+7, TRICARE+10, TRICARE+11, ONEEVENT+6~, ONEEVENT+23, ONEEVENT+25
IMIEN	TRICARE+4~, TRICARE+6, ONEEVENT+6~, ONEEVENT+22
INAME	ONEEVENT+6~, ONEEVENT+8, ONEEVENT+25, ONEEVENT+26*, ONEEVENT+30, ONEEVENT+37
INSNAME	TRICARE+4~, TRICARE+11*, TRICARE+13
IORO	SKIP+6~, SKIP+8*, SKIP+12, SKIP+13, SKIP+30, SKIP+38
ISTATUS	ONEEVENT+6~, ONEEVENT+17, ONEEVENT+18, ONEEVENT+19*, ONEEVENT+34, ONEEVENT+35
LINE	ONEEVENT+7~, ONEEVENT+8, ONEEVENT+14, ONEEVENT+16, ONEEVENT+20, ONEEVENT+21, ONEEVENT+29, ONEEVENT+30, ONEEVENT+42, ONEEVENT+43* , ONEEVENT+44*, ONEEVENT+45
N	ASKDIV+3~, ASKDIV+17, ASKDIV+18, ASKWORC+5~, ASKWORC+8, ASKWORC+9, ASKWORC+14, ASKWORC+15, ASKWORC+16, ASKWORC+17 , ASKWORC+18, ASKWORC+23, ASKWORC+24, ASKWORC+25, ASKWORC+26, ASKWORC+27, ASKWORC+43*, ASKWORC+44
NM	ASKWORC+5~, ASKWORC+14, ASKWORC+23, ASKWORC+32
NODE	ASKWORC+5~, ASKWORC+7*, ASKWORC+36, ASKWORC+44
NOW	SKIP+6~, SKIP+9*, SKIP+48
PCREQ	ONEEVENT+7~, ONEEVENT+8, ONEEVENT+39, ONEEVENT+43
PNAME	ONEEVENT+7~, ONEEVENT+12, ONEEVENT+20, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37, PNAME~, PNAME+8 , PNAME+9
PNM	PNAME+6~, PNAME+9, PNAME+10, PNAME+12
REC	DISCH+3~
RETURN	WCFILT+9~, WCFILT+11, WCFILT+14, WCFILT+15, WCFILT+21, WCFILT+30, WCFILT+31
RFLG	ONEEVENT+7~, ONEEVENT+11*, ONEEVENT+20, PNAME~, PNAME+9
SCR	GETSCR+3~, GETSCR+4, GETSCR+7, GETSCR+8, GETSCR+9, GETSCR+10, GETSCR+11, GETSCR+15, GETSCR+17, GETSCR+18
SDIV	WCFILT+9~, WCFILT+19, WCFILT+20, WCFILT+21, WCFILT+28, WCFILT+29, WCFILT+30
SKIP	SKIP+6~, SKIP+17, SKIP+20, SKIP+27, SKIP+30, SKIP+35, SKIP+38, SKIP+43, SKIP+46, SKIP+48* , SKIP+49*
SSN4	PNAME+6~, PNAME+11*, PNAME+12
TRICARE	SKIP+6~, SKIP+14, SKIP+15, SKIP+16, TRICARE+12, TRICARE+13*, TRICARE+14
U	TRICARE+5, TRICARE+6
URREQ	ONEEVENT+7~, ONEEVENT+8, ONEEVENT+41, ONEEVENT+42
VAERR	GETSCR+3~, GETSCR+6
>> VALMBCK	REFRESH+13*
>> VALMBG	REFRESH+16*
VASV	GETSCR+3~
VASV(1	GETSCR+9
VASV(15	GETSCR+11
VASV(2	GETSCR+7
VASV(3	GETSCR+8
VASV(5	GETSCR+10
WARDS	ASKWORC+5~, ASKWORC+20, WCFILT~, WCFILT+24
WARDS(	ASKWORC+19*, WCFILT+24
WHICH	ASKWORC~, ASKWORC+6, ASKWORC+7, ASKWORC+13, ASKWORC+22, ONEWORC~, ONEWORC+7, WCFILT~, WCFILT+14
X	FILTERS+22~, FILTERS+35, FILTERS+36, FILTERS+44, FILTERS+45, FILTERS+48, FILTERS+49, FILTERS+56, ASKDIV+3~, ASKWORC+5~
XX	FILTERS+22~, ASKDIV+3~, ASKDIV+13, ASKDIV+14, ASKDIV+15, ASKDIV+16, ASKDIV+17, ASKWORC+5~, ASKWORC+9, ASKWORC+10 , ASKWORC+11, ASKWORC+39, ASKWORC+40, ASKWORC+41, ASKWORC+42, ASKWORC+43, SKIP+6~, SKIP+21, SKIP+27, SKIP+33* , SKIP+34, SKIP+41, SKIP+42, ONEEVENT+7~, ONEEVENT+38, ONEEVENT+39, ONEEVENT+40, ONEEVENT+41, GETSCR+3~, GETSCR+13 , GETSCR+14, GETSCR+15, GETSCR+16, GETSCR+17
Y	FILTERS+22~, FILTERS+57, ASKDIV+3~, ONEDIV+8, ASKWORC+5~, ONEWORC+9, SKIP+21, SKIP+23, SKIP+24
YY	SKIP+6~
>> ZTQUEUED	SORT1+25
ZZ	SKIP+6~, SKIP+24, SKIP+25, SKIP+26*, SKIP+27

Customize PDF page

Package: Integrated Billing

Routine: IBTRH1A

Information

Source Information

Call Graph

Call Graph Total: 12

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: