©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCSC4D ;ALB/ARH - ADD/ENTER DIAGNOSIS ; 11/9/93
Source file <IBCSC4D.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | FILE^DICN ^DIE ^DIR |
| Integrated Billing | 1 | (ADDNEW,NEWDX,PTFADD,PTFASK)^IBCSC4E |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;add/edit diagnosis for a bill, IBIFN required
|
|
| AD | ||
| ADD(DX,IFN) | ;
|
|
| ADD1(IFN) | ;does not work, but it should replace ask add, and edit
|
|
| DISPOE(OEARR,EXARR) | ;
|
|
| EDIT(DIFN) | ;
|
|
| DISP1(IFN) | ;
|
|
| EXIT | ||
| SET(IFN,DXARR,POARR) | ;setup arrays of all dx's for bill, array names should be passed by reference
|
|
| OPTDX(DFN,DT1,DT2,ARRAY,IBDXA) | ;
|
|
| ASKDX() | ;
|
|
| E1 | ||
| DISP(POARR) | ;screen display of existing dx's for a bill,
|
|
| HELP | ;called for help from dx enter to display existing dx's
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(362.3 - [#362.3] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EN+1, EN+3, HELP+2, HELP+3 |
| ^IBA(362.3 - [#362.3] | SET+4, SET+5 |
| ^ICD9 - [#80] | AD+1, DISP+4, DISPOE+2 |
| ^SCE("ADFN" | OPTDX+2, OPTDX+3 |
| ^SDD(409.43 - [#409.43] | OPTDX+4 |
| Name | Line Occurrences |
|---|---|
| $$ADD | E1 |
| $$ASKDX | E1 |
| AD | AD+1 |
| DISP | EN+5, DISP1+1, HELP+4 |
| DISPOE | EN+3, HELP+3 |
| E1 | E1 |
| EDIT | E1 |
| OPTDX | EN+3, HELP+3 |
| SET | EN+1, EN+5, E1, DISP1+1, HELP+2, HELP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | SET+3~, OPTDX+1~ |
| ARR( | SET+7*, SET+8, OPTDX+5* |
| ARRAY | OPTDX~, OPTDX+1!, OPTDX+6* |
| ARRAY( | OPTDX+5* |
| CNT | SET+3~, SET+4*, SET+6*, SET+9 |
| DA | ADD+1!, EDIT+1*! |
| DFN | EN+3*, HELP+3*, OPTDX~, OPTDX+2, OPTDX+3 |
| DIC | ADD+1*!, EDIT+1! |
| DIC("DR" | ADD+1* |
| DIC(0 | ADD+1* |
| DIDEL | EDIT+1*! |
| DIE | EDIT+1*! |
| DIFN | EDIT~, EDIT+1, SET+3~, SET+5*, SET+7 |
| DIR | AD+1! |
| DIR("?" | AD* |
| DIR("??" | AD* |
| DIR(0 | AD+1* |
| DO | ADD+1! |
| DR | EDIT+1*! |
| DT1 | OPTDX~, OPTDX+1*, OPTDX+2 |
| DT2 | OPTDX~, OPTDX+1*, OPTDX+2 |
| DX | ADD~, ADD+1 |
| DXARR | SET~, SET+3!, SET+9* |
| DXARR( | SET+7* |
| EXARR | DISPOE~ |
| EXARR( | DISPOE+3 |
| IBC | SET+3~*, SET+4, SET+5 |
| IBCNT | OPTDX+1~*, OPTDX+5*, OPTDX+6, DISPOE+1~, DISPOE+2*, DISPOE+3, DISPOE+4 |
| IBCNT1 | OPTDX+1~*, OPTDX+5*, OPTDX+6 |
| IBDIFN | EN+5*, E1*, EXIT! |
| IBDT | OPTDX+1~, OPTDX+2*, OPTDX+3 |
| IBDX | E1*, EXIT!, OPTDX+1~, OPTDX+4*, OPTDX+5, DISPOE+1~, DISPOE+2*, DISPOE+4 |
| IBDXA | EN+1, EN+3, EN+5, E1, EXIT!, HELP+2, HELP+3, HELP+4, OPTDX~ |
| IBDXA( | E1, AD+1, OPTDX+5 |
| >> IBIFN | EN+1, EN+2, EN+3, EN+4, EN+5, E1, HELP+1, HELP+2, HELP+3, HELP+4 |
| IBLIST | EN+2, EN+4, EXIT! |
| IBOE | OPTDX+1~, OPTDX+3*, OPTDX+4 |
| IBOEDX | EN+3, EN+4, EXIT!, HELP+3 |
| IBPOA | EN+5, E1, EXIT!, HELP+4 |
| IBX | EN+1*, EN+2, EN+3*, EXIT!, SET+3~, SET+4*, SET+5, SET+8*, DISP+2~, DISP+4* , HELP+1~, HELP+2*, HELP+3*, DISPOE+1~, DISPOE+3*, DISPOE+4 |
| IBY | SET+3~, SET+5*, SET+6, SET+7, SET+8*, DISP+2~, DISP+4*, DISP+5 |
| IBZ | SET+3~, SET+6*, SET+7, DISP+2~, DISP+4*, DISP+5 |
| IFN | ADD~, ADD+1, SET~, SET+3, SET+9, DISP1~, DISP1+1, ADD1~ |
| IOF | DISPOE+1 |
| OEARR | DISPOE~ |
| OEARR( | DISPOE+2, DISPOE+3 |
| POARR | SET~, SET+3!, SET+9*, DISP~, DISP1+1~ |
| POARR( | SET+8*, DISP+4 |
| U | EN+2, EN+3, EN+4, AD+1, SET+6, SET+7, DISP+5, HELP+3, DISPOE+4 |
| X | ASKDX+1~, ADD+1*! |
| Y | ASKDX+1~, AD+1, AD+2, ADD+2 |