Routine: IBTRHDE

Package	Total	Call Graph
VA FileMan	5	$$FIND1^DIC UPDATE^DIE ^DIK DT^DILF $$GET1^DIQ
Kernel	3	(,UNWIND)^%ZTER $$NOW^XLFDT $$UP^XLFSTR
Integrated Billing	2	ALL^IBCNS1 ($$GETTOT,$$ISALL)^IBJPC3
List Manager	1	PAUSE^VALM1
Scheduling	1	$$SDAPI^SDAMA301

Package	Total	Caller Graph
Integrated Billing	2	IBT HCSR NIGHTLY PROCESS IBTRH7

Entry Points

Name	Comments	DBIA/ICR reference
EN(NOMSG)	;EP ; Called from menu option: IBT HCSR NIGHTLY PROCESS designed to be scheduled ; in TaskMan to be executed once a day during off-peak hours ; Use HCSR Site Parameters to set appointment search criteria and filter ; appointments. File any appointments that match the criteria into 356.22, ; the HCS Review Transmission file ; Input: NOMSG - 1 to not display locked message. Only set to 1 when ; called from REFRESH^IBTRH1A to refresh the worklist ; screen. ; Optional, defaults to 0
ENX	; Purge task record - if queued
FAPPTS(HCSR)
FADMS(HCSR)
PURGE(HCSR)
SETFILTS(HCSR,SFILT)	; Set the Appointment Search filters ; Input: HCSR - HCSR Site Parameters ; Output: SFILT() - Array of Appointment Search filters
GETDAYS1(HCSR,DATES,DATEE)
GETDAYS2(HCSR,DATES,DATEE)
CKAFINS(HCSR,DFN,ADATE,WHICH,AINS,DATECHK)
SETEVENT(NODE0)	; Set Events into the HCS Review Transmission file (356.22) ; Input: NODE0 - A1^A2^...^An Where: ; A1 - External date of when event was filed ; A2 - Internal Patient DFN event is for ; A3 - Insurance multiple IEN ; A4 - Status. 'I' for Admission, 'O' for appointment ; A5 - Internal Ward IEN (file 42) if event is an ; admission, null otherwise ; A6 - Internal Clinic IEN (file 44) if event is an ; appointment, null otherwise ; A7 - Internal fileman date (or date range) of the event ; (appointment or admission date) ; NOTE: if admission, this is B1-B2 Where: ; B1 - Internal Admission Start Date ; B2 - Internal Admission Discharge Date ; A8 - Source identifier - Internal fileman date/time of ; the appointment or the Internal fileman date of the ; admission that caused the event creation. Used in ; Conjunction with the patient's DFN and Insurance IEN ; to prevent the creation of 'duplicate' entries ; Output: Event is filed into the HCS Review Transmission file (356.22)
ER	; Unlock the IBT HCSR Nightly Process and return to log error
CHKLIST(NODE,LISTIEN,INSIEN)	; check site parameters and determine if clinic/ward + payer combination is on the list

Name	Field # of Occurrence
^%ZTER	ER+2
UNWIND^%ZTER	ER+3
$$FIND1^DIC	SETEVENT+42
UPDATE^DIE	SETEVENT+44
^DIK	PURGE+16
DT^DILF	FADMS+8, FADMS+9, FADMS+37, PURGE+6, SETFILTS+7, SETFILTS+9, CKAFINS+32, CKAFINS+35, CKAFINS+38, CKAFINS+41 , CKAFINS+47, CKAFINS+50, CKAFINS+53, CKAFINS+56
$$GET1^DIQ	FADMS+15, FADMS+24, FADMS+26, FADMS+41, FADMS+42, CKAFINS+22, CHKLIST+18
ALL^IBCNS1	CKAFINS+11
$$GETTOT^IBJPC3	CHKLIST+17
$$ISALL^IBJPC3	CHKLIST+15
$$SDAPI^SDAMA301	FAPPTS+9
PAUSE^VALM1	EN+19
$$NOW^XLFDT	FAPPTS+26, FADMS+29, FADMS+48
$$UP^XLFSTR	CKAFINS+23

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The IBT HCSR Nightly Process is already running, please retry later." Line Location: EN+18
Routine Call	DIC Line Location: SETEVENT+42
Routine Call	DIE Line Location: SETEVENT+44

FileNo	Call Tags
^IBT(356.22 - [#356.22]	Classic Fileman Calls
^DIC(36 - [#36]	GET1^DIQ
^IBE(365.016 - [#365.016]	FIND1^DIC
^DGPM - [#405]	GET1^DIQ
^DGS(41.1 - [#41.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("AMV1"	FADMS+12, FADMS+13, FADMS+14
^DGS(41.1 - [#41.1]	FADMS+38, FADMS+39, FADMS+40
^IBE(350.9 - [#350.9]	EN+24, FAPPTS+22, FAPPTS+23, FADMS+20, FADMS+21, FADMS+46, CKAFINS+59, CHKLIST+20
^IBT(356.22 - [#356.22]	PURGE+10, PURGE+14, SETEVENT+28
^TMP("IBTRHDE"	EN+15, ENX+2, ER+1
^TMP($J	FAPPTS+7!, FAPPTS+14, FAPPTS+16, FAPPTS+19, FAPPTS+31!

Name	Line Occurrences
$$CHKLIST	FAPPTS+23, FADMS+21, FADMS+46
CKAFINS	FAPPTS+17, FADMS+16, FADMS+43
ENX	EN+20, EN+23, EN+29, EN+35, EN+40, EN+44
GETDAYS1	SETFILTS+6
GETDAYS2	FADMS+7
PURGE	EN+43
SETEVENT	FAPPTS+27, FADMS+30, FADMS+49
SETFILTS	FAPPTS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADATE	FAPPTS+6~, FAPPTS+16*, FAPPTS+17, FAPPTS+19, FAPPTS+26, CKAFINS~, CKAFINS+11, CKAFINS+33, CKAFINS+36, CKAFINS+39 , CKAFINS+42, CKAFINS+48, CKAFINS+51, CKAFINS+54, CKAFINS+57
AINS	FAPPTS+6~, FAPPTS+17, FADMS+6~, FADMS+16, FADMS+43, CKAFINS~, CKAFINS+10!
AINS(	FAPPTS+18, FAPPTS+23, FADMS+17, FADMS+21, FADMS+44, FADMS+46, CKAFINS+60*
AINSIX	FAPPTS+6~, FAPPTS+18, FAPPTS+23, FAPPTS+26, FADMS+6~, FADMS+17, FADMS+21, FADMS+29, FADMS+44*, FADMS+46 , FADMS+48
CLINIC	FAPPTS+6~, FAPPTS+19*, FAPPTS+22, FAPPTS+23, FAPPTS+26
COB	CKAFINS+9~, CKAFINS+21*, CKAFINS+60
DA	FADMS+6~, FADMS+14, FADMS+15, FADMS+24, FADMS+26, FADMS+39, FADMS+40, FADMS+41, FADMS+42, PURGE+4~ , PURGE+12, PURGE+13, PURGE+14, PURGE+15
DATEC	FADMS+6~, FADMS+8, FADMS+12, FADMS+13, FADMS+14, FADMS+16, FADMS+23, FADMS+29, FADMS+37, FADMS+38 , FADMS+39, FADMS+43, FADMS+48
DATECHK	CKAFINS~, CKAFINS+29, CKAFINS+44
DATEE	FADMS+6~, FADMS+7, FADMS+9, FADMS+12, FADMS+38, SETFILTS+3~, SETFILTS+6, SETFILTS+9, GETDAYS1~, GETDAYS1+11* , GETDAYS1+12, GETDAYS2~, GETDAYS2+11, GETDAYS2+12*
DATES	FADMS+6~, FADMS+7, FADMS+8, FADMS+37, SETFILTS+3~, SETFILTS+6, SETFILTS+7, GETDAYS1~, GETDAYS1+7, GETDAYS1+8 , GETDAYS2~, GETDAYS2+7, GETDAYS2+8
DFN	FAPPTS+6~, FAPPTS+14, FAPPTS+16, FAPPTS+17, FAPPTS+19, FAPPTS+26, FADMS+6~, FADMS+13, FADMS+14, FADMS+16 , FADMS+29, FADMS+42, FADMS+43, FADMS+48, CKAFINS~, CKAFINS+11, SETEVENT+21~, SETEVENT+22, SETEVENT+28, SETEVENT+31
DIK	PURGE+4~, PURGE+7*
FDA	SETEVENT+21~
FDA(	SETEVENT+30, SETEVENT+31, SETEVENT+32, SETEVENT+33, SETEVENT+34, SETEVENT+35, SETEVENT+36, SETEVENT+37, SETEVENT+39, SETEVENT+42 , SETEVENT+43*
HCSR	EN+10~, EN+24*, EN+43, FAPPTS~, FAPPTS+8, FAPPTS+17, FADMS~, FADMS+7, FADMS+16, FADMS+43 , PURGE~, PURGE+5, SETFILTS~, SETFILTS+6, GETDAYS1~, GETDAYS1+7, GETDAYS1+8, GETDAYS1+11, GETDAYS1+12, GETDAYS2~ , GETDAYS2+7, GETDAYS2+8, GETDAYS2+11, GETDAYS2+12, CKAFINS~, CKAFINS+31, CKAFINS+34, CKAFINS+37, CKAFINS+40, CKAFINS+46 , CKAFINS+49, CKAFINS+52, CKAFINS+55
IBWARD	FADMS+6~, FADMS+15, FADMS+20, FADMS+21, FADMS+29, FADMS+41, FADMS+46, FADMS+48, CKAFINS+9~
IEN	SETFILTS+3~, SETEVENT+21~
INSDATA	CKAFINS+9~
INSDATA(	CKAFINS+17, CKAFINS+20, CKAFINS+21
INSDATA(0	CKAFINS+14
INSIEN	FAPPTS+6~, CKAFINS+9~, CKAFINS+20*, CKAFINS+22, CKAFINS+59, CKAFINS+60, CHKLIST~, CHKLIST+13, CHKLIST+18
INSIX	CKAFINS+9~, CKAFINS+15, CKAFINS+16, CKAFINS+17, CKAFINS+18, CKAFINS+20, CKAFINS+21, CKAFINS+60
INSMIEN	SETEVENT+21~, SETEVENT+25*, SETEVENT+28, SETEVENT+32
INSNAME	CKAFINS+9~, CKAFINS+22, CKAFINS+23, CKAFINS+24
IX	SETFILTS+3~
LISTIEN	CHKLIST~, CHKLIST+13, CHKLIST+15, CHKLIST+17, CHKLIST+20
NODE	CHKLIST~, CHKLIST+15, CHKLIST+17, CHKLIST+20
NODE0	FAPPTS+6~, FAPPTS+26, FAPPTS+27, FADMS+6~, FADMS+29, FADMS+30, FADMS+48*, FADMS+49, SETEVENT~, SETEVENT+22 , SETEVENT+23, SETEVENT+24, SETEVENT+25, SETEVENT+30, SETEVENT+34, SETEVENT+35, SETEVENT+37
NOMSG	EN~, EN+11*, EN+17
PDATE	PURGE+4~, PURGE+6, PURGE+8, PURGE+9, PURGE+11
PDAYS	PURGE+4~, PURGE+5*, PURGE+6
PYRIEN	CHKLIST+11~, CHKLIST+18*, CHKLIST+20
RES	CHKLIST+11~, CHKLIST+12, CHKLIST+15, CHKLIST+17, CHKLIST+20, CHKLIST+22
SDATE	FAPPTS+6~, SETFILTS+3~, SETFILTS+7, SETFILTS+8, SETFILTS+9, SETFILTS+10
SDCOUNT	FAPPTS+6~, FAPPTS+9*, FAPPTS+10
SFILT	FAPPTS+6~, FAPPTS+8, FAPPTS+9, SETFILTS~
SFILT("FLDS"	SETFILTS+12*
SFILT("SORT"	SETFILTS+13*
SFILT(1	SETFILTS+8, SETFILTS+10
SFILT(3	SETFILTS+11*
SOURCE	SETEVENT+21~, SETEVENT+24*, SETEVENT+28, SETEVENT+39
STATUS	SETEVENT+21~, SETEVENT+23*, SETEVENT+28, SETEVENT+33, SETEVENT+42
STOP	CKAFINS+9~, CKAFINS+19, CKAFINS+29, CKAFINS+33, CKAFINS+36, CKAFINS+39, CKAFINS+42, CKAFINS+44, CKAFINS+48, CKAFINS+51* , CKAFINS+54, CKAFINS+57
TDATE	PURGE+4~, PURGE+8, PURGE+9, PURGE+10, PURGE+11, PURGE+14, CKAFINS+9~, CKAFINS+32, CKAFINS+33, CKAFINS+35 , CKAFINS+36, CKAFINS+38, CKAFINS+39, CKAFINS+41, CKAFINS+42, CKAFINS+47, CKAFINS+48, CKAFINS+50, CKAFINS+51, CKAFINS+53 , CKAFINS+54, CKAFINS+56, CKAFINS+57
TRICARE	CKAFINS+9~, CKAFINS+19, CKAFINS+25, CKAFINS+30, CKAFINS+45
U	FAPPTS+19, FAPPTS+23, FAPPTS+26, FADMS+21, FADMS+29, FADMS+40, FADMS+46, FADMS+48, SETEVENT+37
WHICH	CKAFINS~, CKAFINS+29, CKAFINS+44, CKAFINS+59
XX	FAPPTS+6~, FADMS+6~, FADMS+23, FADMS+27, FADMS+29, CKAFINS+9~, CKAFINS+31, CKAFINS+32, CKAFINS+34, CKAFINS+35 , CKAFINS+37, CKAFINS+38, CKAFINS+40, CKAFINS+41, CKAFINS+46, CKAFINS+47, CKAFINS+49, CKAFINS+50, CKAFINS+52, CKAFINS+53 , CKAFINS+55, CKAFINS+56
YY	FADMS+6~, FADMS+24, FADMS+25, FADMS+26, FADMS+27
Z	CHKLIST+11~
>> ZTQUEUED	ENX+1
>> ZTREQ	ENX+1*
>> ZTSK	EN+17
>> ZTSTOP	EN+23, EN+29, EN+35, EN+40

Customize PDF page

Package: Integrated Billing

Routine: IBTRHDE

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: