Routine: IB20PT6

Package	Total	Call Graph
Integrated Billing	3	(399,BULL1,BULL3,MANUAL)^IB20PT61 $$CHIP^IBCNSU INP^IBTRKR
VA Fileman	3	NOW^%DTC ^DIE DT^DIQ
Kernel	1	^%ZTLOAD
Registration	1	INP^VADPT

Package

Total

Call Graph

(399,BULL1,BULL3,MANUAL)^IB20PT61 $$CHIP^IBCNSU INP^IBTRKR

NOW^%DTC ^DIE DT^DIQ

INP^VADPT

Package	Total	Caller Graph
Integrated Billing	2	IB20PT1 IB20PT61

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
INPTDQ
15()	; -- Add 15 minutes to now and return in $h format
PAT	; -- create AB x-ref on patient file for all insurance co. pointers
INPT	; -- load current inpatients into claims tracking
PATDQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You must run the v2.0 post init routine IB20PT6 before allowing users to",!,"edit insurance information" Line Location: PAT+6
Function Call: WRITE	Prompt: !," Patient file update queued as task ",ZTSK Line Location: PAT+7
Function Call: WRITE	Prompt: !!,"You must run the v2.0 post init routine IB20PT6 to automatically add",!,"Current inpatient into Claims Tracking." Line Location: INPT+5
Function Call: WRITE	Prompt: !," Claims Tracking update queued as task ",ZTSK Line Location: INPT+6
Function Call: WRITE	Prompt: !," Patient ",$P(^DPT(DFN,0),U)," added to the Claims tracking module" Line Location: INPTDQ+9
Function Call: WRITE	Prompt: !!,"<<< ",IBCNT," Patients added to the Claims Tracking Module" Line Location: INPTDQ+11
Routine Call	DIE Line Location: PATDQ+18

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INPTDQ+5
^DGPM("CN"	INPTDQ+3
^DPT - [#2]	PATDQ+6, PATDQ+8, PATDQ+10*, INPTDQ+9
^DPT("AB"	PATDQ+9*
^IBA(355.3 - [#355.3]	%+1, PATDQ+14
^IBE(350.9 - [#350.9]	PAT+6, PATDQ+20, INPT+5, INPTDQ+14

Name	Field # of Occurrence
>> %	PATDQ, PATDQ+21, INPTDQ, INPTDQ+12
DA	PATDQ+4~, PATDQ+16*, PATDQ+18!
DA(1	PATDQ+16*
DFN	PATDQ+4~, PATDQ+5, PATDQ+6, PATDQ+8, PATDQ+9, PATDQ+10, PATDQ+16, INPTDQ+6*, INPTDQ+9
>> DGPDMA	INPTDQ+2*
>> DGPMA	INPTDQ+5*, INPTDQ+6
DGPMDA	INPTDQ+1~, INPTDQ+3*, INPTDQ+5
>> DGPMP	INPTDQ+4*
DIC	PATDQ+4~, PATDQ+18!
DIE	PATDQ+4~, PATDQ+16*, PATDQ+18!
DR	PATDQ+4~, PATDQ+17*, PATDQ+18!
DT	PATDQ+20, INPTDQ+14
IB20	INPTDQ+1~, INPTDQ+2*
IBCDFND	PATDQ+4~, PATDQ+8*, PATDQ+9, PATDQ+10, PATDQ+11, PATDQ+12, PATDQ+14
IBCNT	PATDQ+4~, PATDQ+5, PATDQ+6, PATDQ+25, INPTDQ+1~, INPTDQ+2, INPTDQ+9, INPTDQ+11
IBCNTI	PATDQ+4~, PATDQ+5, PATDQ+6
IBCNTP	PATDQ+4~, PATDQ+5*, PATDQ+26
IBCNTPP	PATDQ+4~, PATDQ+5, PATDQ+7, PATDQ+15, PATDQ+25
IBCPOL	PATDQ+4~, PATDQ+12*, PATDQ+13, PATDQ+14, PATDQ+17
>> IBEPDT	PATDQ+21*, PATDQ+27
>> IBETDT	INPTDQ+12*
IBFORCE	%*, %+6!, PAT+3, INPT+2
IBI	PATDQ+4~, PATDQ+6*, PATDQ+8, PATDQ+9, PATDQ+10, PATDQ+16
IBNEW	INPTDQ+8!, INPTDQ+9
>> IBOK	PAT+4, PAT+6, INPT+3, INPT+5
>> IBSPDT	PATDQ*, PATDQ+3
>> IBSTDT	INPTDQ*
U	PATDQ+11, INPTDQ+9
WARD	INPTDQ+1~, INPTDQ+2, INPTDQ+3
>> Y	PATDQ+3, PATDQ+27
>> ZTDESC	PAT+3, INPT+2
>> ZTDTH	PAT+3, INPT+2
>> ZTIO	PAT+3, INPT+2
>> ZTQUEUED	PATDQ+1, PATDQ+7, PATDQ+23, INPTDQ+9, INPTDQ+11
>> ZTRTN	PAT+3, INPT+2
ZTSK	PAT+4, PAT+7!, INPT+3, INPT+6!

Information