©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
XBDIQ1 ; IHS/ADC/GTH - SPECIAL EN^DIQ1 DATA PULLER ; [ 02/07/97 3:02 PM ]
Source file <XBDIQ1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | %XY^%RCR ^DIC EN^DIQ1 |
| IHS VA Utilities | 2 | EN^XBNEW (,EN)^XBSFGBL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EPAR | ;
|
|
| DIC(XBFN) | ;PEP - Extrensic entry to return DIC from global
|
|
| VALI(DIC,DA,DR) | ;PEP - extrinsic pull a value for a field
|
|
| DOC | ;
|
|
| LEVELS | ;EP - setup XB_FN_DA_DR_FLD arrays for upper levels it they exist
|
|
| DICFNGL(X) | ;EP - set XBFN & XBGL0 return 1 error
|
|
| ENPM(DIC,DA,DR,DIQ,XBFMT) | ;PEP - param pass into EN
|
|
| DICFNGLX | ;
|
|
| ENP(DIC,DA,DR,DIQ,XBFMT) | ;PEP - param pass into EN
|
|
| 1 | ||
| 0 | ||
| 2 | ||
| VAL(DIC,DA,DR) | ;PEP - extrinsic pull a value for a field
|
|
| ENDIQ1 | ;EP - call EN^DIQ1
|
|
| EN | ;PEP - Returns single entries
|
|
| PARENT | ; gather parent information
; build elements from XBFN(XBLVL) |
|
| SETDIQ1 | ;EP - set DR(fn and DA(fn arrays for DIQ1
|
|
| ENM | ;PEP - get multiple entries
|
|
| PARSE(XBDA) | ;PEP - parse DA literal into da array
|
|
| ENDIQ1XN | ;EP
|
|
| PULLDIQ1 | ;EP - PULL FROM ^UTILITY("DIQ1",$J)
|
|
| ENDIQ1X | ;EP - to call DIQ1 with new
|
|
| EXIT | ;EP
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | LEVELS+6, LEVELS+7, PARENT+5, PARENT+6 |
| ^UTILITY("DIQ1" | ENDIQ1+16! |
| Name | Line Occurrences |
|---|---|
| %XY | PULLDIQ1+1 |
| DICFNGL | EN+4, ENM+6 |
| EN | ENP+2, VAL+3, VALI+3 |
| ENDIQ1 | EN+6, ENM+14 |
| ENDIQ1X | ENDIQ1+8, ENDIQ1+15 |
| ENM | ENPM+2 |
| EXIT | EN+6, ENM+18 |
| LEVELS | ENDIQ1+4 |
| PARENT | LEVELS+10, PARENT+9 |
| PARSE | EN+3, ENM+4 |
| PULLDIQ1 | ENDIQ1+10, ENDIQ1+15 |
| SETDIQ1 | ENDIQ1+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | 2+4* |
| %X | %XY+1!, 0+1*, 1+1*, 2+1* |
| %Y | %XY+1!, 0+1*, 1+1*, 2+3*, 2+4*, 2+6, 2+7* |
| D | PARSE+1~ |
| D( | PARSE+2*, PARSE+4 |
| DA | EN+3, ENP~, ENPM~, ENM+3*, ENM+4, ENM+7*, ENM+9*, ENM+12, ENM+17*, ENDIQ1+6~ , PULLDIQ1+2, 0+1, 1+1, 2+6, VAL~, VALI~, PARSE+6*, LEVELS+4, SETDIQ1+6* |
| DA( | 2+4, PARSE+4*, PARSE+5*, PARENT+2, SETDIQ1+3*, SETDIQ1+10! |
| DA(0 | PARSE+6, PARSE+7! |
| DIC | EN+2, EN+4, EN+5*, ENP~, ENPM~, ENM+2, ENM+6, ENM+7*, ENM+13*, ENDIQ1+6~ , ENDIQ1+12!, ENDIQ1+13*, PULLDIQ1+2, VAL~, VALI~, SETDIQ1+4* |
| DIC("S" | ENM+8, ENM+11*, ENM+12 |
| DIC(0 | ENM+7*, ENM+12* |
| DIQ | ENP~, ENPM~, ENDIQ1+2, ENDIQ1+3~, ENDIQ1XN+1*, VAL+1~, VAL+2*, VALI+1~, VALI+2* |
| DIQ(0 | ENP+1*, ENPM+1*, ENM+5*, ENDIQ1+2, ENDIQ1+14*, ENDIQ1X+1*, ENDIQ1X+2*, VALI+2* |
| DR | ENP~, ENPM~, ENDIQ1+6~, VAL~, VAL+4, VALI~, VALI+4, LEVELS+4, SETDIQ1+5* |
| DR( | SETDIQ1+2*, SETDIQ1+10! |
| I | PARSE+1~, PARSE+2*, PARSE+3*, PARSE+4, PARSE+5 |
| J | PARSE+1~, PARSE+4*, PARSE+5* |
| U | DICFNGL+4 |
| X | ENM+12*, DICFNGL~, DICFNGL+3, DICFNGL+4 |
| XB | ENDIQ1+1~, LEVELS+2! |
| XB( | LEVELS+7*, PARENT+2*, PARENT+3*, PARENT+4*, PARENT+5*, PARENT+6*, PARENT+7, PARENT+8*, PARENT+9*, SETDIQ1+1 , SETDIQ1+2, SETDIQ1+3, SETDIQ1+4, SETDIQ1+5, SETDIQ1+6, SETDIQ1+10 |
| XB(0 | LEVELS+4*, LEVELS+5*, LEVELS+6*, LEVELS+7, LEVELS+8, LEVELS+9*, LEVELS+10* |
| XB0 | EN+1~, ENM+1~, ENM+10*, ENDIQ1+1~ |
| XBDA | PARSE~, PARSE+2 |
| XBDEST | EXIT+1! |
| XBDIC | EN+1~, EN+2*, EN+5*, ENM+1~, ENM+2*, ENM+7*, ENM+9, ENM+10, ENM+13, ENDIQ1+13 , DIC+1~, DIC+2, DIC+3*, DIC+4 |
| XBDICS | ENM+8*, ENM+11, ENM+16! |
| XBDIQ | ENDIQ1+1~, ENDIQ1+2*, PULLDIQ1+2, 0+1, 1+1, 2+7 |
| XBDIQ(0 | ENDIQ1+2*, ENDIQ1+11, PULLDIQ1+2, 0, 1, 2 |
| >> XBDIQ1(0 | ENDIQ1X+1 |
| XBDTMP | ENDIQ1+3~ |
| XBFMT | ENP~, ENP+1, ENPM~, ENPM+1, ENDIQ1X+2 |
| XBFN | EN+1~, EN+4, ENM+1~, 0+1, 1+1, 2+1, DICFNGL+2!, DICFNGL+3*, DICFNGL+4*, DIC~ , DIC+2, LEVELS+4 |
| XBGBL | EN+1~, EN+4, EN+5, ENM+1~ |
| XBGBL0 | ENDIQ1+1~, LEVELS+8, LEVELS+9, PARENT+7, PARENT+8 |
| XBGL | EN+1~, ENM+1~, ENM+7, DICFNGL+2!, DICFNGL+3, DICFNGL+4 |
| XBGLS | ENDIQ1+1~, PULLDIQ1+2* |
| XBI | EXIT+1! |
| XBLVL | ENDIQ1+1~, LEVELS+3*, LEVELS+7, LEVELS+10*, PARENT+2, PARENT+3, PARENT+4, PARENT+5, PARENT+6, PARENT+7 , PARENT+8, PARENT+9*, SETDIQ1+1*, SETDIQ1+2, SETDIQ1+3, SETDIQ1+4, SETDIQ1+5, SETDIQ1+6, SETDIQ1+9*, SETDIQ1+10 |
| XBNEWPAR | EN+1~, ENM+1~, EXIT+1! |
| XBT | VAL+1~, VALI+1~ |
| XBT( | VAL+4, VALI+4 |
| XBUDA | ENDIQ1+1~, PULLDIQ1+2, %XY+2*, 1+1*, 2+6* |
| Y | ENM+12, DICFNGL+1~, DICFNGL+4* |