Routine: IBTRH5

Package	Total	Call Graph
Integrated Billing	5	($$ASKSURE,$$FILTBY,$$LOCKEV,$$SELEVENT,UNLOCKEV)^IBTRH1 ($$FILTERS,$$PATLOC,$$PNAME,$$TRICARE)^IBTRH1A $$GETDDATE^IBTRH1B SEND278^IBTRH2 $$CRTENTRY^IBTRH5C
List Manager	3	EN^VALM ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1 SET^VALM10
VA FileMan	3	FILE^DIE ($$GET1,GETS)^DIQ ^DIR
Kernel	2	($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT $$UP^XLFSTR

Package	Total	Caller Graph
Integrated Billing	9	IBT HCSR RESPONSE EE SEND278 IBT HCSR RESPONSE EXPAND ENTRY IBT HCSR RESPONSE LIST DEL IBT HCSR RESPONSE LIST SORT IBT HCSR RESPONSE NEXT REVIEW IBT HCSR RESPONSE REFRESH IBT HCSR RESPONSE WORKLIST IBTRH1B IBTRH3
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN(IBFILTSR)	;EP ; Main entry point for HCSR Response Worklist ; Input: IBFILTSR - Array of filter options from the HCSR Worklist ; NOTE: Any modifications done to these filters in the ; REFRESH menu action are not returned back to ; HCSR Worklist
HDR	;EP ; Header code for HCSR Response Worklist ; Input: HCSSRTR - Current sort selection ; Output: VALMHDR - Header information to display ; VALM("TITLE") - HCSR Response Worklist Title ; VALMSG - Initial Error line display
INIT	;EP ; Initialize variables and list array ; Input: None ; Output: HCSRSRTR - Initial worklist sort if not yet defined ; ^TMP("IBTRH5",$J) - Body lines to display
BLD	; Build screen array, no variables required for input ; Input: HCSRSRTR - Current select sort type ; Output: ^TMP("IBTRH5",$J) - Body lines to display ; ^TMP($J,"IBTRH5S") - Sorted Body lines to display ; ^TMP($J,"IBTRH5IX") - Index of Event IENs by display line
BLDLN(ECTR,LINED)	; Builds a line to display on List screen for one event ; Input: ECTR - Event counter ; LINED - A1^A2^...A9 Where: ; A1 - Patient Name ; A2 - Patient Status ('I' or 'O') ; A3 - External Appt or Admission date ; A4 - Clinic or Ward name ; A5 - COB ('P', 'S' or 'T') ; A6 - Insurance Company Name ; A7 - Certification Action Code ; Output: LINE - Formatted for setting into the list display
HELP	;EP ; Display HCSR Response worklist Help ; Input: None
DEL	;EP ; Protocol Action to select an entry to be manually removed from the ; Response Worklist ; Input: ^TMP("IBTRH5",$J) - Current Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Current Index of displayed entries ; Output: Selected Entry is removed from the worklist ; Error messages display (potentially) ; ^TMP("IBTRH5",$J) - Updated Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Updated Index of displayed entries
D1	;;
EXIT	;EP ; Exit the HCSR Response worklist ; Input: None
SORT(NOIOF)	;EP ; Listman Protocol Action to sort the worklist ; Input: NOIOF - 1 to not write @IOF, 0 otherwise ; Optional, defaults to 0 ; HCSRSRTR - Current sort selection ; Output: HCSRSRTR - New sort selection
SORT1
SKIP(EIEN,EVENT)	; Checks to see if the specified event entry should display on ; the list ; Input: EIEN - IEN of the Event entry ; EVENT - Node0 of the Event Entry being checked ; IBFILTSR() - 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
ONEEVENT(CSTAT,EIEN,EVENT)
SELEVENT(FULL,PROMPT,DLINE)
REFRESH	;EP ; Protocol action to search for new Responses, reset filter ; and redisplay the HCSR Response Worklist ; Input: HCSSORTR - Current sort selection ; Output: IBFILTSR() - Array of filter criteria ; NOTE: Any modifications done to these filters ; are not returned back to HCSR Worklist. ; ^TMP("IBTRH5",$J) - Body lines to display ; ^TMP($J,"IBTRH5S") - Sorted Body lines to display ; ^TMP($J,"IBTRH5IX") - Index of Event IENs by display line
SEND278(EIEN)	;EP ; Protocol action to create a new 278 request from a response. Copies the ; Request data from the response's original request and then allows the ; user to edit it before sending the request ; Input: EIEN - IEN of the Response Entry to create a new worklist ; entry from. Optional, only set when called from ; Protocol IBT HCSR RESPONSE EE SEND278 - SR from ; the EE action off of the Response Worklist.
DELAY	;EP ; Protocol action to create a new request from the response but delay its ; viewing on the HCSR Worklist until admission of the entry has been ; discharged. ; Input: ^TMP("IBTRH5",$J) - Current Array of displayed entries ; ^TMP($J,"IBTRH5IX") - Current Index of displayed entries ; Output: A new Request is created from the Selected Entry (potentially)

External References

Name	Field # of Occurrence
FILE^DIE	D1+23
$$GET1^DIQ	SKIP+21, SKIP+22, ONEEVENT+10, ONEEVENT+22, ONEEVENT+23, ONEEVENT+24, ONEEVENT+26, ONEEVENT+29
GETS^DIQ	BLD+21
^DIR	SORT+20, SELEVENT+17
$$ASKSURE^IBTRH1	D1+8, DELAY+19
$$FILTBY^IBTRH1	HDR+9
$$LOCKEV^IBTRH1	D1+13, SEND278+21, SEND278+30, DELAY+30
$$SELEVENT^IBTRH1	DEL+17, SEND278+13, DELAY+13
UNLOCKEV^IBTRH1	D1+24, SEND278+27, SEND278+35, DELAY+36
$$FILTERS^IBTRH1A	REFRESH+14
$$PATLOC^IBTRH1A	ONEEVENT+20
$$PNAME^IBTRH1A	ONEEVENT+19
$$TRICARE^IBTRH1A	SKIP+12
$$GETDDATE^IBTRH1B	DELAY+15
SEND278^IBTRH2	SEND278+34
$$CRTENTRY^IBTRH5C	SEND278+26, DELAY+35
EN^VALM	EN+7
$$SETSTR^VALM1	BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19
CLEAR^VALM1	EXIT+5
FULL^VALM1	HELP+3, SORT+8, SELEVENT+11, REFRESH+12
PAUSE^VALM1	HELP+24, SEND278+18, SEND278+23, SEND278+32, SEND278+37, DELAY+41
SET^VALM10	BLD+16, BLD+23
$$DT^XLFDT	SKIP+9
$$FMADD^XLFDT	SORT1+8
$$FMTE^XLFDT	ONEEVENT+15, DELAY+18
$$NOW^XLFDT	D1+19
$$UP^XLFSTR	ONEEVENT+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Flags displayed on screen for S (Patient Status):" Line Location: HELP+5
Function Call: WRITE	Prompt: !," O - Outpatient" Line Location: HELP+6
Function Call: WRITE	Prompt: !," I - Inpatient" Line Location: HELP+7
Function Call: WRITE	Prompt: !!,"Flags displayed on screen for COB:" Line Location: HELP+8
Function Call: WRITE	Prompt: !," P - Primary Insurance" Line Location: HELP+9
Function Call: WRITE	Prompt: !," S - Secondary Insurance" Line Location: HELP+10
Function Call: WRITE	Prompt: !," T - Tertiary" Line Location: HELP+11
Function Call: WRITE	Prompt: !!,"Flags displayed for Cert Type (Certification Action):" Line Location: HELP+12
Function Call: WRITE	Prompt: !," A1 - Certified in Total" Line Location: HELP+13
Function Call: WRITE	Prompt: !," A2 - Certified in Partial" Line Location: HELP+14
Function Call: WRITE	Prompt: !," A3 - Not Certified" Line Location: HELP+15
Function Call: WRITE	Prompt: !," A6 - Modified " Line Location: HELP+16
Function Call: WRITE	Prompt: !," C - Cancelled" Line Location: HELP+17
Function Call: WRITE	Prompt: !," CT - Contact Payer" Line Location: HELP+18
Function Call: WRITE	Prompt: !," NA - No Action Required" Line Location: HELP+19
Function Call: WRITE	Prompt: !," 51 - Complete" Line Location: HELP+20
Function Call: WRITE	Prompt: !," 71 - Term Expired" Line Location: HELP+21
Function Call: WRITE	Prompt: !,"The following Status indicator may appear to the left of the patient name:" Line Location: HELP+22
Function Call: WRITE	Prompt: !," # - 278 has been not been initiated, entry is in-progress" Line Location: HELP+23
Function Call: WRITE	Prompt: !,*7,">>>> A Delete Reason Code must be selected, or '^' to exit." Line Location: D1+4
Function Call: WRITE	Prompt: !,*7,">>>> Someone else is editing entry ",LINE,". Try again later." Line Location: D1+14
Function Call: WRITE	Prompt: !,"Select the item to sort the records on the HCSR Response Worklist screen." Line Location: SORT+11
Function Call: WRITE	Prompt: "." Line Location: SORT1+22
Function Call: WRITE	Prompt: !,*7,">>>> A 278 request has already been created from this response message." Line Location: SEND278+17
Function Call: WRITE	Prompt: !,*7,">>>> Someone else is editing this entry. Try again later." Line Location: SEND278+22
Function Call: WRITE	Prompt: !,*7,">>>> Someone else is editing entry. Try again later." Line Location: SEND278+31
Function Call: WRITE	Prompt: !,"A new HCSR Worklist entry has been created for Response." Line Location: SEND278+36
Function Call: WRITE	Prompt: !,*7,">>>> A 278 request has already been created from this response message." Line Location: DELAY+25
Function Call: WRITE	Prompt: !,*7,">>>> Entry ",LINE," is for an Outpatient and cannot be delayed" Line Location: DELAY+28
Function Call: WRITE	Prompt: !,*7,">>>> Someone else is editing entry ",LINE,". Try again later." Line Location: DELAY+31
Function Call: WRITE	Prompt: !!,$S(DLINE[",":"Entries ",1:"Entry ")_DLINE Line Location: DELAY+39
Function Call: WRITE	Prompt: $S(DLINE[",":" have_",1:" has ")_"been delayed" Line Location: DELAY+40
Routine Call	DIE Line Location: D1+23
Routine Call	DIR Line Location: SORT+20 SELEVENT+17
Routine Call	VALM Line Location: EN+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
2.312	GET1^DIQ
^IBT(356.021 - [#356.021]	GETS^DIQ
^IBT(356.22 - [#356.22]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.9 - [#350.9]	SORT1+6
^IBT(356.22 - [#356.22]	BLD+18, D1+22, SORT1+11, SORT1+15, SORT1+17, SEND278+16, SEND278+25, DELAY+24, DELAY+27, DELAY+34
^TMP("IBTRH5"	INIT+5!, BLD+25*, EXIT+3!
^TMP($J	INIT+5!, BLD+8, BLD+9, BLD+10, BLD+11, BLD+13, BLD+17, EXIT+3!, SORT1+5!, ONEEVENT+39 , SELEVENT+13, SELEVENT+14, SELEVENT+19

Label References

Name	Line Occurrences
$$BLDLN	BLD+14
$$SKIP	SORT1+20
BLD	INIT+7
HDR	SORT+24
INIT	SORT+24
ONEEVENT	SORT1+23
SORT	REFRESH+15
SORT1	BLD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	ONEEVENT+6~, ONEEVENT+14*, ONEEVENT+15, ONEEVENT+31, ONEEVENT+32, ONEEVENT+37
CERTCDE	ONEEVENT+6~, ONEEVENT+29*, ONEEVENT+37, ONEEVENT+38
COM	DEL+10~
CSTAT	SORT1+4~, SORT1+7*, SORT1+11, SORT1+15, SORT1+23, ONEEVENT~
CTR	SORT+6~, SORT+9, SORT+12, SORT+13, SORT+14, SORT+15, SORT+16, SORT+17
DA	BLD+5~, BLD+11*, BLD+13, BLD+17, BLD+18
DDATE	DELAY+7~, DELAY+15*, DELAY+16, DELAY+18, DELAY+35
DELRCODE	DEL+10~
DFN	ONEEVENT+6~, ONEEVENT+11*, ONEEVENT+19, ONEEVENT+21
DIR	DEL+9~, D1+25!, SORT+6~, SORT+20!, SELEVENT+10~, SELEVENT+17!, DELAY+7~, DELAY+37!
DIR("A"	SORT+19, SELEVENT+16
DIR("B"	SORT+19*
DIR(0	SORT+18, SELEVENT+15
DIROUT	DEL+9~, SORT+6~, SELEVENT+10~, DELAY+7~
DIRUT	DEL+9~, SORT+6~, SELEVENT+10~, DELAY+7~
DISPDT	SORT1+4~, SORT1+8*, SORT1+9
DIWETXT	DEL+10~
DLINE	DEL+9~, DEL+17, D1+8, D1+11, SELEVENT~, SELEVENT+12, SELEVENT+13, SELEVENT+14, SELEVENT+19, SEND278+8~ , SEND278+13, DELAY+7~, DELAY+13, DELAY+15, DELAY+17, DELAY+19, DELAY+22, DELAY+39, DELAY+40
DT	SORT1+8
DTOUT	DEL+9~, SORT+6~, SELEVENT+10~, DELAY+7~
DUOUT	DEL+9~, SORT+6~, SELEVENT+10~, DELAY+7~
DUZ	D1+20, D1+22
ECTR	BLD+5~, BLD+7, BLD+12, BLD+14, BLDLN~, BLDLN+12, SORT1+4~, SORT1+9, SORT1+21, SORT1+22
EIEN	DEL+9~, D1+10, D1+13, D1+17, D1+22, D1+24, SORT1+4~, SORT1+13, SORT1+14, SORT1+15* , SORT1+16, SORT1+17, SORT1+20, SORT1+23, SKIP~, ONEEVENT~, ONEEVENT+10, ONEEVENT+29, ONEEVENT+39, SELEVENT+10~ , SELEVENT+13, SELEVENT+14, SELEVENT+19, SELEVENT+20, SEND278~, SEND278+9, DELAY+7~, DELAY+21*, DELAY+24, DELAY+27 , DELAY+30, DELAY+34, DELAY+35, DELAY+36
EIENS	DEL+9~, DEL+17, DEL+18, D1+9, D1+10, DELAY+7~, DELAY+13, DELAY+14, DELAY+20, DELAY+21
ERROR	DEL+9~, DEL+11, D1+15
ESTATUS	ONEEVENT+6~, ONEEVENT+12*, ONEEVENT+13, ONEEVENT+17, ONEEVENT+18
EVDT	SORT1+4~, SORT1+9, SORT1+10, SORT1+11, SORT1+12, SORT1+15
EVENT	SORT1+4~, SORT1+17*, SORT1+18, SORT1+19, SORT1+20, SORT1+23, SKIP~, SKIP+8, SKIP+12, SKIP+19 , SKIP+20, SKIP+28, SKIP+35, ONEEVENT~, ONEEVENT+11, ONEEVENT+12, ONEEVENT+14, ONEEVENT+20, ONEEVENT+21
FIELD	DELAY+7~
FULL	SELEVENT~, SELEVENT+11
GOOD	DELAY+7~, DELAY+9, DELAY+33, DELAY+38
HCSRSRTR	EN+6~, HDR+7, HDR+8, INIT+6, EXIT+4!, SORT+19, SORT+22*, ONEEVENT+17, ONEEVENT+18, ONEEVENT+31 , ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+35, ONEEVENT+37
HS1	ONEEVENT+6~, ONEEVENT+31, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+36, ONEEVENT+37, ONEEVENT+39
HS2	ONEEVENT+6~, ONEEVENT+31, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+36, ONEEVENT+37, ONEEVENT+39
HS3	ONEEVENT+6~, ONEEVENT+31, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+36, ONEEVENT+37, ONEEVENT+39
IBFILTSR	EN~, HDR+9, REFRESH+14
IBFILTSR(0	SORT+14, SORT+15, SKIP+10, SKIP+11, SKIP+13, SKIP+14
IBFILTSR(1	SKIP+34, SKIP+36
IBFILTSR(2	SKIP+27, SKIP+29
IBFILTSR(3	SKIP+17, SKIP+18
IBRESP	SEND278+8~
IBTRENT	SEND278+8~, SEND278+33*
IBTRIEN	SEND278+8~, SEND278+26, SEND278+28, SEND278+30, SEND278+35, DELAY+35
ICOB	ONEEVENT+6~, ONEEVENT+26, ONEEVENT+27, ONEEVENT+28, ONEEVENT+31, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+36
IEN	DEL+9~, D1+17, D1+18, D1+19, D1+20, D1+22, SKIP+7~, SKIP+19, SKIP+20, SKIP+21 , SKIP+22, SKIP+28, SKIP+30, SKIP+35*, SKIP+37
IENS	ONEEVENT+6~, ONEEVENT+21*, ONEEVENT+22, ONEEVENT+23, ONEEVENT+26
IGROUP	ONEEVENT+6~, ONEEVENT+23*
IIEN	ONEEVENT+6~, ONEEVENT+22*, ONEEVENT+24
IMIEN	ONEEVENT+7~, ONEEVENT+21*
INAME	ONEEVENT+6~, ONEEVENT+8, ONEEVENT+24, ONEEVENT+25*, ONEEVENT+30, ONEEVENT+36
IOF	HELP+5, SORT+10
IORO	SKIP+7~, SKIP+8*, SKIP+10, SKIP+11, SKIP+26, SKIP+33
ISTATUS	ONEEVENT+6~, ONEEVENT+16, ONEEVENT+17, ONEEVENT+18*, ONEEVENT+33, ONEEVENT+34
IX	DEL+9~, D1+9, D1+10, D1+11, DELAY+8~, DELAY+20, DELAY+21, DELAY+22
LINE	BLD+5~, BLD+13, BLD+14, BLD+16, BLDLN+11~, BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16* , BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, DEL+9~, D1+11, D1+14, ONEEVENT+7~, ONEEVENT+8, ONEEVENT+13 , ONEEVENT+15, ONEEVENT+19, ONEEVENT+20, ONEEVENT+28, ONEEVENT+30, ONEEVENT+38, ONEEVENT+39, DELAY+8~, DELAY+22*, DELAY+28 , DELAY+31
LINED	BLDLN~, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19
MSG	DEL+9~, DEL+15, D1+8, DELAY+8~, DELAY+10, DELAY+17, DELAY+18, DELAY+19
NOIOF	SORT~, SORT+7*, SORT+10
NOW	SKIP+7~, SKIP+9*
PNAME	ONEEVENT+7~, ONEEVENT+11*, ONEEVENT+19, ONEEVENT+31, ONEEVENT+32, ONEEVENT+33, ONEEVENT+34, ONEEVENT+36, ONEEVENT+37
PROMPT	DEL+10~, DEL+14, DEL+17, SELEVENT~, SELEVENT+16, SEND278+8~, SEND278+12, SEND278+13, DELAY+8~, DELAY+11* , DELAY+13
REIEN	SEND278+8~, SEND278+25, SEND278+26, DELAY+8~, DELAY+34, DELAY+35
RFLG	ONEEVENT+7~, ONEEVENT+10*, ONEEVENT+19
S1	BLD+5~, BLD+7, BLD+8, BLD+9, BLD+10, BLD+11, BLD+13
S2	BLD+5~, BLD+9*, BLD+10, BLD+11, BLD+13
S3	BLD+5~, BLD+10*, BLD+11, BLD+13
SDATA	DEL+10~, D1+16!, DELAY+8~
SDATA(	D1+18, D1+19, D1+20, D1+22
SEIEN	SEND278+8~, SEND278+9, SEND278+13, SEND278+14, SEND278+16, SEND278+21, SEND278+25, SEND278+26, SEND278+27
SKIP	SKIP+7~, SKIP+15, SKIP+17, SKIP+24, SKIP+26, SKIP+31, SKIP+33, SKIP+38
SORT	HDR+6~, HDR+8*, HDR+10
TRICARE	SKIP+7~, SKIP+12*, SKIP+13, SKIP+14
>> VALM("TITLE"	HDR+11*
>> VALMBCK	HELP+4, DEL+11, DEL+18, SORT+21, SORT+25, REFRESH+13, SEND278+14, DELAY+9, DELAY+14*
>> VALMBG	SORT+25*, SELEVENT+15
>> VALMCNT	BLD+7, BLD+15, BLD+16, BLD+22*, BLD+23, BLD+24
>> VALMHDR(1	HDR+9*
>> VALMHDR(2	HDR+10*
>> VALMLST	SELEVENT+15
>> VALMSG	HDR+12, DEL+12
X	SORT+6~, SELEVENT+10~
XCOM	DEL+10~
XDA1	BLD+5~, BLD+18*, BLD+19, BLD+21, BLD+23
>> XQORNOD(0	SELEVENT+12
XREVDA1	BLD+20~
XREVDA1(	BLD+23
XSELCNT	BLD+5~, BLD+15*, BLD+16, BLD+17, BLD+23
XX	SORT+6~, SORT+12, SORT+13, SORT+14, SORT+15, SORT+16, SORT+17, SORT+18, SORT1+4~, SORT1+6* , SORT1+8, SKIP+7~, SKIP+18, SKIP+24, SKIP+29, SKIP+30, SKIP+36*, SKIP+37
Y	SORT+6~, SORT+21, SORT+22, SKIP+18, SKIP+20, SKIP+21, SELEVENT+10~, SELEVENT+18, SELEVENT+19
Y(0	SORT+22
>> ZTQUEUED	SORT1+22
ZZ	SKIP+7~, SKIP+21, SKIP+22, SKIP+23*, SKIP+24

Customize PDF page

Package: Integrated Billing

Routine: IBTRH5

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: