©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
BTIUPCC7 ; IHS/MSC/MGH - IHS PCC PERSONAL HEALTH OBJECTS ;28-Jun-2017 14:15;DU
Source file <BTIUPCC7.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Electronic Health Record | 1 | $$VSTR2VIS^BEHOENCX |
| IHS VA Utilities | 1 | ENP^XBDIQ1 |
| Kernel | 1 | $$REPEAT^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| VueCentric Framework | 1 | ($$GETVAR,GETVAR)^CIAVMEVT |
| iCare | 1 | PAT^BQITRPHS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LABRES(DFN,TIUTST,TIUCNT) | ;EP; -- returns last # of current lab result for single
; TIUTST = lab test name; TIUCNT = # of test results to return |
|
| NURSE(DFN,CAP) | ;ER TRIAGE NURSE and ER TRIAGE NURSE W/CAPTION - Return the Triage Nurse
|
|
| ATIME(DFN,CAP) | ;ER ADMIT PROV TIME and ER ADMIT PROV TIME/CAPTION - Return the Admitting Provider Time
|
|
| WHY(DFN,CAP) | ;ER COMPLAINT and ER COMPLAINT W/CAPTION - Return the presenting complaint
|
|
| PAD(DATA,LENGTH) | ; -- SUBRTN to pad length of data
|
|
| PHISTORY(DFN,TARGET) | ;Return personal history data
|
|
| NTIME(DFN,CAP) | ;ER TRIAGE NURSE TIME and ER TRIAGE NURSE TIME W/CAPTION - Return the Triage Nurse Time
|
|
| CVD(DFN,TARGET) | ;EP
|
|
| GETER(DFN,ADMF,VSTF) | ;Return information from either ER VISIT or ER ADMISSION files
|
|
| SP(NUM) | ; -- SUBRTN to pad spaces
|
|
| ADMIT(DFN,CAP) | ;ER ADMIT PROVIDER and ER ADMIT PROV W/CAPTION - Return the Admitting Provider
|
|
| ERADMIT(DFN,CAP) | ;ER ADMIT TIME and ER ADMIT TIME W/CAPTION - Return ER admission time
|
|
| GVISIT(DFN) | ;Retrieve VIEN
|
|
| ACUITY(DFN,CAP) | ;ER INITIAL ACUITY and ER INITIAL ACUITY W/CAPTION - Return the Initial Acuity
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AMERVSIT - [#9009080] | GET1^DIQ |
| ^AMERADM - [#9009081] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | GVISIT+12 |
| ^AMERADM - [#9009081] | GETER+15 |
| ^AMERVSIT("AD" | GETER+11 |
| ^AUPNPH("AC" | PHISTORY+3 |
| ^AUPNVLAB("AA" | LABRES+8, LABRES+10 |
| ^LAB(60 - [#60] | LABRES+5 |
| ^TMP("BTIULOX" | LABRES+4!, LABRES+21*, LABRES+22* |
| Name | Line Occurrences |
|---|---|
| $$GETER | ERADMIT+3, WHY+3, NURSE+3, ACUITY+3, NTIME+3, ADMIT+3, ATIME+3 |
| $$GVISIT | GETER+7 |
| $$PAD | SP+1 |
| $$SP | LABRES+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMF | GETER~, GETER+16 |
| AIEN | GETER+2~, GETER+11*, GETER+12 |
| ARR | LABRES+3~, LABRES+7* |
| ARR( | LABRES+15*, LABRES+17, LABRES+18, LABRES+19 |
| ARRAY | CVD+1~, CVD+3 |
| ARRAY( | CVD+6, CVD+8, CVD+10 |
| ARRAY(0 | CVD+4 |
| BTIU | PHISTORY+1~, PHISTORY+5! |
| BTIU( | PHISTORY+6, PHISTORY+7 |
| CAP | ERADMIT~, ERADMIT+2*, ERADMIT+4, WHY~, WHY+2*, WHY+4, NURSE~, NURSE+2*, NURSE+4, ACUITY~ , ACUITY+2*, ACUITY+4, NTIME~, NTIME+2*, NTIME+4, ADMIT~, ADMIT+2*, ADMIT+4, ATIME~, ATIME+2* , ATIME+4 |
| CAPTION | LABRES+3~, LABRES+6*, LABRES+20 |
| CNT | CVD+1~, CVD+2*, CVD+4, CVD+5, CVD+7*, CVD+9*, CVD+10, LABRES+3~, LABRES+7*, LABRES+8 , LABRES+10, LABRES+13*, LABRES+15*, LABRES+16*, LABRES+17, LABRES+18, LABRES+19*, LABRES+20, LABRES+21, PHISTORY+1~ , PHISTORY+2*, PHISTORY+4*, PHISTORY+8, PHISTORY+9 |
| DATA | LABRES+3~, PAD~, PAD+1, PHISTORY+1~ |
| DATE | LABRES+3~, LABRES+14*, LABRES+15, LABRES+16*, LABRES+17*, LABRES+18, LABRES+19, PHISTORY+1~ |
| DFN | CVD~, CVD+3, LABRES~, LABRES+8, LABRES+10, PHISTORY~, PHISTORY+3, GVISIT~, GVISIT+12, GETER~ , GETER+4, GETER+7, GETER+15, GETER+16, ERADMIT~, ERADMIT+3, WHY~, WHY+3, NURSE~, NURSE+3 , ACUITY~, ACUITY+3, NTIME~, NTIME+3, ADMIT~, ADMIT+3, ATIME~, ATIME+3 |
| ENTRY | PHISTORY+1~, PHISTORY+2* |
| FNDER | GETER+2~, GETER+10*, GETER+12*, GETER+15 |
| FNUM | PHISTORY+1~, PHISTORY+2* |
| I | CVD+1~, CVD+6*, CVD+8, CVD+10 |
| IEN | LABRES+3~, LABRES+9*, LABRES+10*, LABRES+11, LABRES+15, LABRES+18*, LABRES+19, PHISTORY+1~, PHISTORY+3*, PHISTORY+5 , ERADMIT+1~, ACUITY+1~, NTIME+1~, ADMIT+1~, ATIME+1~ |
| J | CVD+1~, CVD+8*, CVD+10 |
| LAB | LABRES+3~, LABRES+5*, LABRES+8, LABRES+10 |
| LENGTH | PAD~, PAD+1 |
| LGTH | LABRES+3~ |
| LINE | LABRES+3~, LABRES+19*, LABRES+21, PHISTORY+1~, PHISTORY+6*, PHISTORY+7*, PHISTORY+8 |
| NUM | SP~, SP+1, PHISTORY+1~, PHISTORY+4*, PHISTORY+6 |
| ONSET | PHISTORY+1~, PHISTORY+2* |
| RESULT | PHISTORY+1~ |
| RET | GETER+2~, GETER+10*, GETER+12*, GETER+16*, GETER+17, ERADMIT+1~, ERADMIT+3*, ERADMIT+4*, ERADMIT+5, WHY+1~ , WHY+3*, WHY+4*, WHY+5, NURSE+1~, NURSE+3*, NURSE+4*, NURSE+5, ACUITY+1~, ACUITY+3*, ACUITY+4* , ACUITY+5, NTIME+1~, NTIME+3*, NTIME+4*, NTIME+5, ADMIT+1~, ADMIT+3*, ADMIT+4*, ADMIT+5, ATIME+1~ , ATIME+3*, ATIME+4*, ATIME+5 |
| TARGET | CVD~, CVD+4, CVD+5, CVD+7, CVD+10, CVD+11, PHISTORY~, PHISTORY+8, PHISTORY+9, PHISTORY+10 |
| TIU | LABRES+3~, LABRES+11! |
| TIU( | LABRES+12, LABRES+14, LABRES+15 |
| TIU(1201 | LABRES+14 |
| TIUCNT | LABRES~, LABRES+8, LABRES+10, LABRES+17, LABRES+18 |
| TIUTST | LABRES~, LABRES+5, LABRES+6 |
| U | CVD+4, ERADMIT+3, WHY+3, NURSE+3, ACUITY+3, NTIME+3, ADMIT+3, ATIME+3 |
| VDT | LABRES+3~, LABRES+7*, LABRES+8*, LABRES+10 |
| VIEN | GVISIT+2~, GVISIT+8*, GVISIT+11, GVISIT+12*, GVISIT+14, GETER+2~, GETER+7*, GETER+11, GETER+15 |
| VSTF | GETER~, GETER+12 |
| X | LABRES+3~, GVISIT+2~, GVISIT+12* |
| Y | LABRES+3~, LABRES+20*, LABRES+21 |
| Name | Field # of Occurrence |
|---|---|
| $T(GETVAR^CIAVMEVT | GVISIT+5 |