Routine: IBDF18E0

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

IBDF18E0 ;ALB/CJM - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94

Source Information

Source file <IBDF18E0.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Automated Information Collection System	4	SETTEMP^IBDF18E1 LOGERR^IBDF18E2 $$PROBDIA^IBDFBK3 $$FNDSDOE^IBDFDE
DRG Grouper	2	$$CPT^ICPTCOD ($$MOD,$$MODP)^ICPTMOD
Lexicon Utility	2	$$ICDONE^GMPTU $$ICDONE^LEXU
Scheduling	2	$$STATUS^SDAM1 $$COMDT^SDCOU
Kernel	1	$$HTFM^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	2	IBDF18E IBDFRPC4

Entry Points

Name	Comments	DBIA/ICR reference
OTHRBUB	; -- check procedure and diagnosis node for other bubble, but no data
CODES	; -- if addt'l codes to pass and qual is prim or sec, send 2nd code
PRO	; -- make sure diagnosis code is added to DIAGNOSIS/PROBLEM node
MODPXCA	; -- copy CPT Modifier information from TEMP to PXCA
TRACKING(FORMID)	;get form tracking info,sets FORMID array, which should be passed by reference, return 0 if not found
SETPXCA	;set values from TEMP() into the PXCA()
SC	; -- if SC answered yes then all other classifications = null
VSTPXCA	; -- copy CPT Modifier information from TEMP to PXCA for Visit
INPT(DFN,APPT)	; -- determine inpatient status

External References

Name	Field # of Occurrence
$$ICDONE^GMPTU	PRO+8
SETTEMP^IBDF18E1	CODES+14
LOGERR^IBDF18E2	SETPXCA+4, OTHRBUB+5, PRO+3, PRO+12
$$PROBDIA^IBDFBK3	PRO+17
$$FNDSDOE^IBDFDE	SETPXCA+24
$$CPT^ICPTCOD	OTHRBUB+9
$$MOD^ICPTMOD	MODPXCA+7
$$MODP^ICPTMOD	MODPXCA+6
$$ICDONE^LEXU	PRO+7
$$STATUS^SDAM1	SETPXCA+30
$$COMDT^SDCOU	SETPXCA+25
$$HTFM^XLFDT	SETPXCA+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PRO+7, PRO+8
^DPT - [#2]	SETPXCA+30, INPT+2
^IBD(357.09 - [#357.09]	SETPXCA+22
^IBD(357.95 - [#357.95]	CODES+5
^IBD(357.96 - [#357.96]	TRACKING+2
^IBD(357.98 - [#357.98]	CODES+4, CODES+12
^ICD9 - [#80]	OTHRBUB+14, OTHRBUB+16, CODES+9, CODES+10
^ICD9("BA"	PRO+11
^LEX	PRO+7

Name	Line Occurrences
MODPXCA	SETPXCA+18
OTHRBUB	SETPXCA+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	SETPXCA+24, SETPXCA+28, INPT~, INPT+2
>> BUB	CODES+5
>> CLN	SETPXCA+29
CODE	OTHRBUB+1~, OTHRBUB+9, OTHRBUB+10, MODPXCA+2~, MODPXCA+3, MODPXCA+6
DFN	SETPXCA+24, SETPXCA+27, INPT~, INPT+2
>> FID	SETPXCA+6*, SETPXCA+8, SETPXCA+14, SETPXCA+15, SETPXCA+17, SETPXCA+18, SETPXCA+19, MODPXCA+3, MODPXCA+4, MODPXCA+5
FORMID	SETPXCA+4, OTHRBUB+5, PRO+3, PRO+12, TRACKING~, TRACKING+2
FORMID("APPT"	SETPXCA+24, SETPXCA+28, TRACKING+4*
FORMID("CLINIC"	SETPXCA+29, TRACKING+4*
FORMID("DFN"	SETPXCA+24, SETPXCA+27, TRACKING+4*
FORMID("SOURCE"	TRACKING+4*
>> FORMTYPE	CODES+5
I	OTHRBUB+2, OTHRBUB+3, OTHRBUB+4, OTHRBUB+6, OTHRBUB+7, OTHRBUB+10, OTHRBUB+12, OTHRBUB+13, OTHRBUB+14, OTHRBUB+15 , OTHRBUB+16, PRO+1, PRO+2, PRO+3, PRO+4, PRO+5, PRO+6, PRO+12, PRO+13, PRO+17 , VSTPXCA+2~, VSTPXCA+3, VSTPXCA+4, VSTPXCA+5, VSTPXCA+6
IBDAPPT	SETPXCA+26~, SETPXCA+28*, SETPXCA+30
IBDCLN	SETPXCA+26~, SETPXCA+29*, SETPXCA+30
IBDCOST	SETPXCA+26~, SETPXCA+30*
IBDDFN	SETPXCA+26~, SETPXCA+27*, SETPXCA+30
>> IBDF("APPT"	SETPXCA+24, SETPXCA+28
>> IBDF("CLINIC"	SETPXCA+29
>> IBDF("DFN"	SETPXCA+24, SETPXCA+27
IBI	CODES+1~, CODES+5*, CODES+13
IBQUIT	SETPXCA+2~, SETPXCA+7, SETPXCA+10, SETPXCA+12, SETPXCA+13, SETPXCA+15
>> IBX	PRO+6, PRO+7, PRO+8, PRO+9, PRO+11
>> IBXI	PRO+11*, PRO+12, PRO+13
INPT	INPT+1~, INPT+2*, INPT+3
>> ITEM	SETPXCA+6, SETPXCA+8, SETPXCA+14, SETPXCA+15, SETPXCA+17, SETPXCA+18, SETPXCA+19, CODES+13, CODES+15*, MODPXCA+3 , MODPXCA+4, MODPXCA+5
J	OTHRBUB+2, OTHRBUB+3, OTHRBUB+4, OTHRBUB+6, OTHRBUB+7, OTHRBUB+10, OTHRBUB+12, OTHRBUB+13, OTHRBUB+14, OTHRBUB+15 , OTHRBUB+16, PRO+1, PRO+2, PRO+3, PRO+4, PRO+5, PRO+6, PRO+12, PRO+13, PRO+17 , VSTPXCA+2~, VSTPXCA+4, VSTPXCA+5, VSTPXCA+6
MOD	MODPXCA+2~, MODPXCA+4, MODPXCA+5, VSTPXCA+2~, VSTPXCA+5, VSTPXCA+6
MODNODE	MODPXCA+2~, MODPXCA+6*, MODPXCA+7
MODX	MODPXCA+2~, MODPXCA+5, MODPXCA+6, MODPXCA+7, VSTPXCA+2~, VSTPXCA+6, VSTPXCA+7
NODE	SETPXCA+2~, SETPXCA+6, SETPXCA+8, SETPXCA+10, SETPXCA+11, SETPXCA+12, SETPXCA+14, SETPXCA+15, SETPXCA+17, SETPXCA+18 , SETPXCA+19, OTHRBUB+1~, TRACKING+2, TRACKING+3, TRACKING+4, MODPXCA+3, MODPXCA+4, MODPXCA+5, MODPXCA+7
NUMBER	SETPXCA+2~, SETPXCA+6, SETPXCA+16, SETPXCA+17, MODPXCA+7
OQLFR	CODES+1~, CODES+2*, CODES+12
>> PROVIDER	SETPXCA+3*, SETPXCA+4, SETPXCA+10, SETPXCA+11, SETPXCA+12, SETPXCA+17, MODPXCA+7
>> PXCA(	SETPXCA+10, SETPXCA+11, SETPXCA+12, SETPXCA+17, MODPXCA+7*
>> PXCA("DIAGNOSIS/PROBLEM"	OTHRBUB+12, OTHRBUB+13, OTHRBUB+14, OTHRBUB+15, OTHRBUB+16, PRO+1, PRO+2, PRO+3, PRO+4, PRO+5 , PRO+6, PRO+12, PRO+13, PRO+17*
>> PXCA("ENCOUNTER"	SETPXCA+3, SETPXCA+4, SETPXCA+23, SETPXCA+31, SC+1, SC+5, VSTPXCA+7*
>> PXCA("IBD NOC	LASSIFICATION" , SC+5
>> PXCA("PROCEDURE"	OTHRBUB+2, OTHRBUB+3, OTHRBUB+4, OTHRBUB+6!, OTHRBUB+7, OTHRBUB+10*
>> PXCA("WARNING"	INPT+6!, INPT+7!, INPT+8!, INPT+9!
QLFR	CODES+2, CODES+3, CODES+4, CODES+6~, CODES+12*
SDOE	SETPXCA+24~*, SETPXCA+25
>> TEMP(	SETPXCA+6, SETPXCA+8, SETPXCA+14*, SETPXCA+15!, SETPXCA+17, SETPXCA+18, SETPXCA+19!, MODPXCA+3, MODPXCA+4, MODPXCA+5
>> TEMP("ENCOUNTER"	VSTPXCA+3, VSTPXCA+4, VSTPXCA+5, VSTPXCA+6, VSTPXCA+8!
TEXT	CODES+6~, CODES+11*
VALUE	CODES+1~, CODES+5*, CODES+8
X	SETPXCA+2~, SETPXCA+8, SETPXCA+9, SETPXCA+12, SETPXCA+14, PRO+7, PRO+8, CODES+6~, CODES+8*, CODES+9! , CODES+10
Y	SETPXCA+2~, SETPXCA+10, SETPXCA+11, SETPXCA+12, CODES+6~, CODES+9, CODES+10*, CODES+11
Y1	SETPXCA+2~, SETPXCA+11*, SETPXCA+12

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF18E0

Call Graph Total: 11

Caller Graph Total: 2