IBDF18E0 ;ALB/CJM - ENCOUNTER FORM - PCE DEVICE INTERFACE utilities ;04-OCT-94
Source file <IBDF18E0.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDF18E IBDFRPC4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETPXCA | ;set values from TEMP() into the PXCA()
|
|
| OTHRBUB | ; -- check procedure and diagnosis node for other bubble, but no data
|
|
| PRO | ; -- make sure diagnosis code is added to DIAGNOSIS/PROBLEM node
|
|
| CODES | ; -- if addt'l codes to pass and qual is prim or sec, send 2nd code
|
|
| TRACKING(FORMID) | ;get form tracking info,sets FORMID array, which should be pass
|
|
| SC | ; -- if SC answered yes then all other classifications = null
|
|
| INPT(DFN,APPT) | ; -- determine inpatient status
|
|
| MODPXCA | ; -- copy CPT Modifier information from TEMP to PXCA
|
|
| VSTPXCA | ; -- copy CPT Modifier information from TEMP to PXCA for Visit
|
| 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 |
| 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 |
| >> | 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 |
