Routine: IBECEA39

Information

IBECEA39 ;EDE/WCJ-Multi-site maintain UC VISIT TRACKING FILE (#351.82) - PULL; 2-DEC-19

Package	Total	Call Graph
Integrated Billing	5	($$DFN,$$ICN)^IBARXMU SITE^IBAUTL $$GETELGP^IBECEA36 $$TFL^IBECEA37 ($$ADD,$$UPDATE)^IBECEA38
VA FileMan	3	^%DT (,FIND)^DIC $$GET1^DIQ
RPC Broker	2	(EN1,RPCCHK)^XWB2HL7 (CLEAR,RTNDATA)^XWBDRPC
List Manager	1	PAUSE^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBUC MULTI FAC COPAY PULL REQ

Entry Points

Name	Comments	DBIA/ICR reference
AWAY
PULL	; This will be called from a menu option. ; ask the patient and if selected, initiate the pull
AGAIN
GETPAT(IBDFN)	; Select a patient. ; Return 0 - no patient selected ; Return 1 - patient selected ; IBDFN will be the patient's IEN in file 2
PATIENTPULL(IBDFN,IBERR)	; This does a lot of the same stuff the push does only for a specific veteran. ; IBDFN - which patient ; IBERR - return array of results
PARSEPULL(IBPD,IBDFN,ERR)	; parse the record being pulled from the originating site ; IBPD is a packed data array ; "IEN^.01I^.01^C2^.03I^.04I^.05^.06I^.07I^1.01I^C9" ; "ien at originating site^dfn at originating site^patient name^originating site^event date^status^bill #^reason^unique id^update^full icn" ; "2^7229593^LASTNAME,FIRSTNAME MIDDLE^529^3190814^2^442-K902Z6L^^^99999999999v999999" ; IBDFN is the patient that we asked for ; ERR is returned even if it's not an ERROR so kind of a misnomer.
DISPLAYRES(IBDFN,IBPULLRESULTS)	; display results
WRITE(DATA,CNT)	;

External References

Name	Field # of Occurrence
^%DT	PARSEPULL+36
^DIC	GETPAT+7
FIND^DIC	PARSEPULL+50
$$GET1^DIQ	PARSEPULL+38
$$DFN^IBARXMU	PARSEPULL+17
$$ICN^IBARXMU	PATIENTPULL+10
SITE^IBAUTL	PATIENTPULL+9
$$GETELGP^IBECEA36	PARSEPULL+42, PARSEPULL+45
$$TFL^IBECEA37	PATIENTPULL+12
$$ADD^IBECEA38	PARSEPULL+73
$$UPDATE^IBECEA38	PARSEPULL+58
PAUSE^VALM1	WRITE+3
EN1^XWB2HL7	PATIENTPULL+20
RPCCHK^XWB2HL7	PATIENTPULL+32
CLEAR^XWBDRPC	PATIENTPULL+48
RTNDATA^XWBDRPC	PATIENTPULL+40

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now sending query to ",$P(IBTFL(IBX),"^",2)," ..." Line Location: PATIENTPULL+18
Function Call: WRITE	Prompt: !,"Query to site "_+IBTFL(IBX)_" completed." Line Location: PATIENTPULL+39
Function Call: WRITE	Prompt: !! Line Location: DISPLAYRES+16
Function Call: WRITE	Prompt: !,DATA Line Location: WRITE+2
Routine Call	DIC Line Location: GETPAT+7
Routine Call	DIC Line Location: PARSEPULL+50

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ
^IBUC(351.82 - [#351.82]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PARSEPULL+43, PARSEPULL+61, PARSEPULL+76
^TMP("DILIST"	PARSEPULL+53, PARSEPULL+55, PARSEPULL+68, PARSEPULL+72
^TMP("IBECEA_COPAY"	PATIENTPULL+4!
^TMP($J	PATIENTPULL+46, PATIENTPULL+47!

Label References

Name	Line Occurrences
$$GETPAT	AGAIN
$$WRITE	DISPLAYRES+12, DISPLAYRES+15
AGAIN	AGAIN+7
AWAY	IBECEA39+9
DISPLAYRES	AGAIN+4
PARSEPULL	DISPLAYRES+10
PATIENTPULL	AGAIN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	DISPLAYRES+1~, DISPLAYRES+2, DISPLAYRES+3, DISPLAYRES+4, DISPLAYRES+5, DISPLAYRES+6, DISPLAYRES+7, DISPLAYRES+9, DISPLAYRES+13
CNT	WRITE~, WRITE+3, WRITE+4*
DATA	WRITE~, WRITE+2
DIC	GETPAT+5~, GETPAT+7*
DIC(0	GETPAT+7*
DIROUT	WRITE+1~
DIRUT	WRITE+1~, WRITE+5
DPTNOFZY	GETPAT+6~*
ERR	PARSEPULL~
ERR(1	PARSEPULL+17, PARSEPULL+26, PARSEPULL+44, PARSEPULL+57, PARSEPULL+62, PARSEPULL+64, PARSEPULL+69, PARSEPULL+77, PARSEPULL+79*
ERR(2	PARSEPULL+45, PARSEPULL+63, PARSEPULL+78*
ERR(3	PARSEPULL+46*
I	DISPLAYRES+12~*
IBADDED	PARSEPULL+13~, PARSEPULL+73*, PARSEPULL+74
IBBN	PARSEPULL+13~, PARSEPULL+30*, PARSEPULL+57, PARSEPULL+58, PARSEPULL+73
IBC	PATIENTPULL+6~, PATIENTPULL+32*
IBCNT	DISPLAYRES+1~, DISPLAYRES+2*, DISPLAYRES+12, DISPLAYRES+15
IBDADDHERE	PARSEPULL+13~, PARSEPULL+38*, PARSEPULL+42
IBDADDRS	PARSEPULL+13~, PARSEPULL+37*
IBDATA	PARSEPULL+54~, PARSEPULL+55, PARSEPULL+56, PARSEPULL+57, DISPLAYRES+1~, DISPLAYRES+13, DISPLAYRES+14*, DISPLAYRES+15
IBDFN	PULL+3~, AGAIN, AGAIN+2, AGAIN+4, AGAIN+6!, GETPAT~, GETPAT+7*, PATIENTPULL~, PATIENTPULL+10, PATIENTPULL+12 , PARSEPULL~, PARSEPULL+17, PARSEPULL+38, PARSEPULL+42, PARSEPULL+45, PARSEPULL+73, DISPLAYRES~, DISPLAYRES+10
IBED	PARSEPULL+13~, PARSEPULL+28*, PARSEPULL+42, PARSEPULL+43, PARSEPULL+45, PARSEPULL+61, PARSEPULL+73, PARSEPULL+76
IBEG	PARSEPULL+13~, PARSEPULL+32*, PARSEPULL+42, PARSEPULL+46
IBERR	PATIENTPULL~, PATIENTPULL+7, PATIENTPULL+11, PATIENTPULL+13, PATIENTPULL+24, PATIENTPULL+35, PATIENTPULL+42, PATIENTPULL+43, PATIENTPULL+45*, PATIENTPULL+46 , DISPLAYRES+8~, DISPLAYRES+10
IBERR(	PATIENTPULL+11, PATIENTPULL+13, PATIENTPULL+24, PATIENTPULL+35, PATIENTPULL+43, PATIENTPULL+46, DISPLAYRES+12
IBERR(1	DISPLAYRES+11
IBFAC	PATIENTPULL+6~
IBH	PATIENTPULL+6~, PATIENTPULL+19~, PATIENTPULL+20
IBH(0	PATIENTPULL+22, PATIENTPULL+25
IBHERE	PATIENTPULL+6~, PATIENTPULL+38!, PATIENTPULL+40, PATIENTPULL+41, PATIENTPULL+43
IBICN	PATIENTPULL+6~, PATIENTPULL+10, PATIENTPULL+11, PATIENTPULL+20, PARSEPULL+13~, PARSEPULL+16, PARSEPULL+17
IBIEN	PARSEPULL+10~, PARSEPULL+23*, PARSEPULL+24
IBIEN351P82	PARSEPULL+54~, PARSEPULL+56*, PARSEPULL+58
IBMAX	DISPLAYRES+1~, DISPLAYRES+2*
IBOS	PARSEPULL+10~, PARSEPULL+22*, PARSEPULL+24, PARSEPULL+73
IBOUT	DISPLAYRES+1~, DISPLAYRES+2, DISPLAYRES+3, DISPLAYRES+12, DISPLAYRES+15*
IBPD	PARSEPULL~, PARSEPULL+16, PARSEPULL+20, PARSEPULL+22, PARSEPULL+23, PARSEPULL+28, PARSEPULL+29, PARSEPULL+30, PARSEPULL+31, PARSEPULL+32 , PARSEPULL+35
IBPULLDATA	DISPLAYRES+8~, DISPLAYRES+9*, DISPLAYRES+10
IBPULLRESULTS	PULL+3~, AGAIN+2, AGAIN+4, AGAIN+6!, DISPLAYRES~
IBR	PATIENTPULL+6~, PATIENTPULL+31~, PATIENTPULL+32, PATIENTPULL+38!
IBR(0	PATIENTPULL+32, PATIENTPULL+35, PATIENTPULL+37
IBRETURN	PARSEPULL+10~, PARSEPULL+58, PARSEPULL+63, PARSEPULL+73, PARSEPULL+78
IBRS	PARSEPULL+13~, PARSEPULL+31*, PARSEPULL+57, PARSEPULL+58, PARSEPULL+73
IBSITE	PATIENTPULL+6~, PATIENTPULL+12, PATIENTPULL+20
IBST	PARSEPULL+13~, PARSEPULL+29*, PARSEPULL+57, PARSEPULL+58, PARSEPULL+73
IBT	PATIENTPULL+6~, PATIENTPULL+12*, PATIENTPULL+13
IBTFL	PATIENTPULL+6~, PATIENTPULL+12
IBTFL(	PATIENTPULL+17, PATIENTPULL+18, PATIENTPULL+20, PATIENTPULL+23, PATIENTPULL+24, PATIENTPULL+25, PATIENTPULL+28, PATIENTPULL+32, PATIENTPULL+35, PATIENTPULL+39 , PATIENTPULL+40, PATIENTPULL+43, PATIENTPULL+46, PATIENTPULL+48
IBUID	PARSEPULL+10~, PARSEPULL+20, PARSEPULL+21, PARSEPULL+24, PARSEPULL+26, PARSEPULL+46, PARSEPULL+50, PARSEPULL+62, PARSEPULL+69, PARSEPULL+73 , PARSEPULL+77
IBUPDATED	PARSEPULL+13~, PARSEPULL+58*, PARSEPULL+59
IBX	PATIENTPULL+6~, PATIENTPULL+17, PATIENTPULL+18, PATIENTPULL+20, PATIENTPULL+23, PATIENTPULL+24, PATIENTPULL+25, PATIENTPULL+28, PATIENTPULL+32, PATIENTPULL+35 , PATIENTPULL+39, PATIENTPULL+40, PATIENTPULL+43, PATIENTPULL+46, PATIENTPULL+48
IBZ	PATIENTPULL+6~, PATIENTPULL+48
U	PATIENTPULL+32, PARSEPULL+16, PARSEPULL+20, PARSEPULL+22, PARSEPULL+23, PARSEPULL+28, PARSEPULL+29, PARSEPULL+30, PARSEPULL+31, PARSEPULL+32 , PARSEPULL+35, PARSEPULL+57, PARSEPULL+63, PARSEPULL+78, DISPLAYRES+11, DISPLAYRES+12, DISPLAYRES+14
X	GETPAT+5~, PARSEPULL+34~, PARSEPULL+35*
Y	GETPAT+5~, GETPAT+7, GETPAT+8, PARSEPULL+37, PARSEPULL+43~, PARSEPULL+44, PARSEPULL+60~, PARSEPULL+61, PARSEPULL+62, PARSEPULL+75~ , PARSEPULL+76*, PARSEPULL+77

Customize PDF page

Package: Integrated Billing