Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDF18E0

Package: Automated Information Collection System

Routine: IBDF18E0


Information

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

Source Information

Source file <IBDF18E0.m>

Call Graph

Call Graph

Call Graph Total: 12

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

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 pass
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
$$ICDD^ICDCODE OTHRBUB+15, OTHRBUB+18
$$ICDDX^ICDCODE OTHRBUB+14, OTHRBUB+17, CODES+10
$$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] CODES+9
^ICD9("BA" PRO+11
^LEX PRO+7

Label References

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
DT OTHRBUB+14, OTHRBUB+17, CODES+10
>> 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, OTHRBUB+17, OTHRBUB+18, 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, OTHRBUB+17, OTHRBUB+18, 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
OUT OTHRBUB+1~, OTHRBUB+13!, OTHRBUB+16!
OUT(1 OTHRBUB+15, OTHRBUB+18
>> 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, OTHRBUB+17, OTHRBUB+18*, 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, OTHRBUB+1~, OTHRBUB+14*, OTHRBUB+15, OTHRBUB+17*, OTHRBUB+18
, PRO+7*, PRO+8*, CODES+6~, CODES+8*, CODES+9!, CODES+10
XX OTHRBUB+1~, OTHRBUB+15*, OTHRBUB+18*
Y SETPXCA+2~, SETPXCA+10*, SETPXCA+11, SETPXCA+12, CODES+6~, CODES+9*, CODES+10*, CODES+11
Y1 SETPXCA+2~, SETPXCA+11*, SETPXCA+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All