©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
BGOPROB1 ; IHS/BAO/TMD - pull patient PROBLEMS ;10-Jun-2016 14:18;MGH
Source file <BGOPROB1.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 7 | $$CHECK^BGOASLK HOSP^BGOHOS (GET,GET2,SETPRI)^BGOPROB SETICD^BGOPROB1 ($$CVTDATE,$$DELETE,$$ERR,$$TMPGBL,$$UPDATE)^BGOUTL ($$AICD,$$FNDNARR)^BGOUTL2 SET^BGOVAST |
| VA Fileman | 3 | (FILE,UPDATE)^DIE $$ROOT^DILFD $$GET1^DIQ |
| DRG Grouper | 2 | $$ICDDX^ICDCODE ($$CODEC,$$ICDDX,$$IMP)^ICDEX |
| IHS Standard Terminology | 2 | $$VSBTRMF^BSTSAPI $$CVPARM^BSTSMAP1 |
| IHS Patient | 1 | $$CONC^AUPNSICD |
| Kernel | 1 | $$NOW^XLFDT |
| MSC RPC Broker | 1 | BRDCAST^CIANBEVT |
| Package | Total | Caller Graph |
|---|---|---|
| GUI Objects | 2 | BGOPROB BGOPROB1 |
| IHS Prenatal Care Module | 2 | BJPNPSET BJPNUTIL |
| IHS Electronic Health Record | 1 | BEHOENP2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LAT(PRIEN) | ;EP
|
|
| EVT(PRIEN,OPR,X) | ;EP
|
|
| SETICD(RES,PRIEN,CODES,DEL) | ;Store additional ICD codes for a problem
|
|
| GETONE(RET,PRIEN,PIP) | ;Get ALl the data for one problem
|
|
| ASTHMA(RET,VIEN,INP,DIEN,SNOCT) | ;ASTHMA DATA
|
|
| INPT(RET,DFN) | ;Return data for current or more recent inpt stay
|
|
| NEXTID(RET,DFN) | ;EP
|
|
| FNUM() | ||
| EDPROB(RET,DFN) | ;Get active problems for a patient
|
|
| PROB(RET,INP) | ;PROBLEM DATA
|
|
| FNDFP(PRIEN,FNUM) | ;
|
|
| ADDICD(PRIEN) | ;Get the additional ICD codes for a problem
|
|
| SETPRI(RET,INP) | ;EP
|
|
| STORE | ;Store the qualifier data
|
|
| CHECK(TYPE,IEN) | ;Check and see if there are already stored this type
|
|
| EDIT(RET,DFN,PRIEN,VIEN,ARRAY) | ;EP
|
|
| QUAL(RET,INP) | ;QUALIFIERS
|
|
| DOUBLE(PRIEN) | ;Check if there are left-over items
|
|
| CKID(RET,INP) | ;EP
|
|
| DELQ(RET,PRIEN,IEN,TYPE) | ;Delete a qualifer
|
|
| USED(PRIEN) | ;Check to see if problem has been used as POV in the past
|
| Name | Field # of Occurrence |
|---|---|
| $$CONC^AUPNSICD | PROB+18 |
| $$CHECK^BGOASLK | ASTHMA+13 |
| HOSP^BGOHOS | PROB+86 |
| GET^BGOPROB | INPT+20 |
| GET2^BGOPROB | GETONE+9 |
| SETPRI^BGOPROB | PROB+80 |
| SETICD^BGOPROB1 | PROB+79 |
| $$CVTDATE^BGOUTL | PROB+13 |
| $$DELETE^BGOUTL | DELQ+6, SETICD+11 |
| $$ERR^BGOUTL | PROB+30, PROB+34, CKID+7, SETPRI+4 |
| $$TMPGBL^BGOUTL | EDPROB+3, INPT+3, GETONE+2 |
| $$UPDATE^BGOUTL | ASTHMA+18, SETPRI+9 |
| $$AICD^BGOUTL2 | PROB+21, PROB+32, EDPROB+9 |
| $$FNDNARR^BGOUTL2 | PROB+47 |
| SET^BGOVAST | ASTHMA+33 |
| $$VSBTRMF^BSTSAPI | LAT+10 |
| $$CVPARM^BSTSMAP1 | PROB+43 |
| BRDCAST^CIANBEVT | EVT+4 |
| FILE^DIE | PROB+76 |
| UPDATE^DIE | STORE+12, SETICD+19 |
| $$ROOT^DILFD | FNDFP+5 |
| $$GET1^DIQ | PROB+2, PROB+3, PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, EDPROB+8, EDPROB+10, EDPROB+11 , INPT+7, INPT+12, GETONE+4, ADDICD+6, LAT+4, LAT+8 |
| $$ICDDX^ICDCODE | PROB+33 |
| $$CODEC^ICDEX | ASTHMA+12 |
| $$ICDDX^ICDEX | PROB+32, EDPROB+9 |
| $$IMP^ICDEX | PROB+22 |
| $$NOW^XLFDT | PROB+36, QUAL+12, STORE+11, CHECK+7, EDPROB+9 |
| RPC Name | Call Tags |
|---|---|
| BGOPROB1 EDIT | EDIT |
| BGOPROB1 EDPROB | EDPROB |
| BGOPROB1 GETONE | GETONE |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | GET1^DIQ |
| ^ICD9 - [#80] | GET1^DIQ |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| 9000011.12 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | CHECK+4, CHECK+12, DOUBLE+3, EVT+2, FNDFP+2, EDPROB+8, INPT+17, INPT+19, ADDICD+3, ADDICD+4 , SETICD+5, SETICD+6, USED+3, USED+4, USED+6, USED+7 |
| ^AUPNPROB("AA" | CKID+6, NEXTID+4 |
| ^AUPNPROB("AC" | INPT+15 |
| ^AUPNPROB("ACTIVE" | EDPROB+4, EDPROB+5 |
| ^AUPNVAST("AD" | ASTHMA+26, ASTHMA+27 |
| ^AUTTLOC - [#9999999.06] | NEXTID+2 |
| ^BGOPROB("B" | SETPRI+5 |
| ^DGPM("APID" | INPT+10, INPT+11 |
| ^DPT - [#2] | PROB+30, INPT+5 |
| Name | Line Occurrences |
|---|---|
| $$FNUM | EDIT+4, ASTHMA+3 |
| ASTHMA | EDIT+11 |
| CHECK | QUAL+18 |
| DELQ | QUAL+20, QUAL+21, DOUBLE+8 |
| DOUBLE | QUAL+23 |
| EVT | PROB+82 |
| PROB | EDIT+10 |
| QUAL | EDIT+12 |
| STORE | QUAL+22, CHECK+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABBRV | NEXTID+1~, NEXTID+2*, NEXTID+3, NEXTID+5 |
| ACL | ASTHMA+1~, ASTHMA+9*, ASTHMA+10, ASTHMA+16*, ASTHMA+17, ASTHMA+21 |
| ACT | GETONE+1~, GETONE+6*, GETONE+7*, GETONE+9 |
| ADD | SETPRI+1~, SETPRI+9 |
| ADD(1 | SETPRI+10 |
| AIEN | ASTHMA+1~, ASTHMA+23*, ASTHMA+24, ASTHMA+27, ASTHMA+28*, ASTHMA+29*, ASTHMA+32, QUAL+1~, STORE+1~, STORE+2* , STORE+3*, STORE+5, STORE+7, STORE+8, STORE+10, STORE+11, ADDICD+1~, ADDICD+5*, ADDICD+6, SETICD+1~ , SETICD+16!, SETICD+17*, SETICD+18 |
| ARRAY | EDIT~ |
| ARRAY( | EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12 |
| ASTHMA | ASTHMA+1~, ASTHMA+13*, ASTHMA+14, ASTHMA+15, ASTHMA+21 |
| BY | QUAL+1~, QUAL+9*, QUAL+10*, STORE+7, CHECK+6* |
| >> CIA("UID" | EVT+3 |
| CLASS | EDIT+1~, PROB+14*, PROB+55, PROB+64*, PROB+66, FNDFP+1~, FNDFP+2*, FNDFP+3 |
| CNT | EDPROB+1~, EDPROB+2*, EDPROB+13*, EDPROB+14, GETONE+1~, GETONE+8* |
| CODE | ASTHMA+1~, ASTHMA+12*, ASTHMA+13, EDPROB+1~, EDPROB+9*, EDPROB+10*, EDPROB+14, ADDICD+1~, ADDICD+6*, ADDICD+7 , ADDICD+8 |
| CODES | SETICD~, SETICD+14, SETICD+18 |
| CONCT | GETONE+1~ |
| CONTROL | ASTHMA+1~, ASTHMA+22*, ASTHMA+30*, ASTHMA+31, ASTHMA+32 |
| CPTYP | GETONE+1~, GETONE+5*, GETONE+9 |
| DA | DELQ+1~, DELQ+4*, DELQ+6, SETICD+7~, SETICD+9*, SETICD+11 |
| DA(1 | DELQ+4*, SETICD+9* |
| DATA | EVT+1~, EVT+3*, EVT+4 |
| DEL | QUAL+1~, QUAL+13*, QUAL+19, SETICD~, SETICD+14, SETICD+18 |
| DENT | EDIT+1~, PROB+36* |
| DESCT | EDIT+2~, EDIT+11, PROB+27*, PROB+44, PROB+45, PROB+73 |
| DFN | EDIT~, PROB+30, ASTHMA+6, EVT+1~, EVT+3*, EVT+4, FNDFP+1~, FNDFP+2*, FNDFP+8, FNDFP+10 , EDPROB~, EDPROB+4, EDPROB+5, INPT~, INPT+5, INPT+10, INPT+11, INPT+15, INPT+20, GETONE+1~ , GETONE+4*, GETONE+9, CKID+1~, CKID+2*, CKID+6, NEXTID~, NEXTID+4 |
| DIEN | EDIT+1~, EDIT+6*, EDIT+11, PROB+9*, PROB+10*, PROB+19*, PROB+20, PROB+23*, PROB+24*, PROB+25* , PROB+26*, PROB+32*, PROB+33*, PROB+34, PROB+52, ASTHMA~, ASTHMA+12, FNDFP+1~, FNDFP+2*, FNDFP+10 |
| DIK | DELQ+1~, DELQ+5*, DELQ+6, SETICD+7~, SETICD+10*, SETICD+11 |
| DMOD | EDIT+1~, PROB+36*, PROB+53, FNDFP+1~, FNDFP+2*, FNDFP+10 |
| DT | PROB+22, PROB+23, PROB+24, PROB+36 |
| DUZ | PROB+54, QUAL+10, STORE+10, CHECK+6 |
| DUZ("AG" | ASTHMA+11 |
| DUZ(2 | NEXTID+2, NEXTID+4 |
| ERR | EDIT+2~, EDIT+4*, EDIT+8, PROB+30*, PROB+34*, PROB+77, ASTHMA+19*, STORE+1~, DELQ+1~, DELQ+2* , DELQ+6*, DELQ+7, SETICD+1~, SETICD+7~, SETICD+8*, SETICD+11*, SETICD+12, SETICD+16! |
| ERR("DIERR" | STORE+13, SETICD+20 |
| FDA | EDIT+2~, PROB+51*, PROB+52, PROB+53, PROB+54, PROB+55, PROB+56, PROB+57, PROB+62, PROB+65 , PROB+66, PROB+68, PROB+69, PROB+72, PROB+73, PROB+74, PROB+75, ASTHMA+2!, ASTHMA+5*, ASTHMA+14 , ASTHMA+17, ASTHMA+18, QUAL+2!, STORE+1~, SETICD+1~, SETICD+16!, SETPRI+1~, SETPRI+6*, SETPRI+7, SETPRI+8 , SETPRI+9 |
| FDA( | PROB+51, ASTHMA+5, STORE+5*, STORE+7*, STORE+8*, STORE+10*, STORE+11*, SETICD+18*, SETPRI+6 |
| FLG | LAT+2~, LAT+5*, LAT+10*, LAT+11 |
| FNUM | EDIT+2~, EDIT+4*, PROB+51, ASTHMA+3*, ASTHMA+5, QUAL+1~, QUAL+16*, QUAL+17, STORE+5, STORE+7 , STORE+8, STORE+10, STORE+11, FNDFP~, FNDFP+3*, FNDFP+4, FNDFP+5, SETICD+1~, SETICD+2*, SETICD+18 |
| FPIEN | EDIT+2~, PROB+49* |
| FPNUM | EDIT+2~ |
| GBL | FNDFP+1~, FNDFP+5*, FNDFP+6, FNDFP+8, FNDFP+9 |
| I | DOUBLE+1~, DOUBLE+3*, DOUBLE+5, SETICD+1~, SETICD+15*, SETICD+18 |
| ICD | EDPROB+1~, EDPROB+8*, EDPROB+9, EDPROB+10, ADDICD+1~, ADDICD+2*, ADDICD+4*, ADDICD+5 |
| IEN | EDIT+2~, ASTHMA+18, QUAL+1~, QUAL+4*, QUAL+18, QUAL+19, QUAL+20, STORE+2, STORE+3, STORE+9 , DELQ~, DELQ+4, CHECK~, CHECK+5*, CHECK+12*, CHECK+13*, FNDFP+1~, FNDFP+7*, FNDFP+8*, FNDFP+9 , FNDFP+10, EDPROB+1~, EDPROB+5*, EDPROB+8, EDPROB+11, EDPROB+14, INPT+1~, INPT+11*, INPT+12, SETICD+6* , SETICD+9, CKID+1~, CKID+6*, CKID+7, CKID+8, SETPRI+1~, SETPRI+5*, SETPRI+6, SETPRI+10*, SETPRI+11 |
| IEN2 | QUAL+1~, STORE+1~, SETICD+1~, SETICD+16! |
| IENS | EDIT+2~, PROB+50*, PROB+51, ASTHMA+1~, ASTHMA+4*, ASTHMA+5 |
| IMP | EDIT+1~, PROB+22*, PROB+23, PROB+24 |
| IN | LAT+2~, LAT+9*, LAT+10 |
| INP | EDIT+9*, EDIT+10, EDIT+11, EDIT+12, PROB~, PROB+9, PROB+10, PROB+11, PROB+13, PROB+14 , PROB+15, PROB+27, PROB+28, PROB+29, PROB+31, PROB+39, PROB+85, ASTHMA~, ASTHMA+9, ASTHMA+22 , ASTHMA+23, QUAL~, QUAL+3, QUAL+4, QUAL+5, QUAL+9, QUAL+11, QUAL+13, CKID~, CKID+2 , CKID+3, CKID+4, CKID+5, SETPRI~, SETPRI+2, SETPRI+3 |
| INP2 | ASTHMA+1~, ASTHMA+32*, ASTHMA+33 |
| INPT | EDIT+3~, PROB+84~, PROB+85*, PROB+86, INPT+1~, INPT+5*, INPT+6, INPT+7 |
| INVDT | INPT+1~, INPT+10*, INPT+11 |
| INVST | INPT+1~, INPT+4*, INPT+7*, INPT+12*, INPT+13, INPT+19 |
| ITEM | DOUBLE+1~ |
| ITEM( | DOUBLE+5*, DOUBLE+7 |
| ITM | EDPROB+1~, EDPROB+8*, EDPROB+14 |
| LAT | EDIT+1~, PROB+39*, PROB+41*, PROB+42, PROB+43, PROB+74, PROB+75, LAT+2~, LAT+3*, LAT+4* , LAT+5, LAT+11 |
| LATEXT | EDIT+1~, PROB+43*, PROB+44 |
| LCNT | DOUBLE+1~, DOUBLE+2*, DOUBLE+4*, DOUBLE+5, DOUBLE+6, DOUBLE+7 |
| LIEN | EDIT+1~ |
| LOCN | EDIT+1~ |
| NARR | EDIT+1~, PROB+11*, PROB+12*, PROB+44*, PROB+45*, PROB+46, PROB+47, PROB+48*, PROB+56 |
| NIEN | FNDFP+1~, FNDFP+2*, FNDFP+10 |
| NODE | DELQ+1~, DELQ+3*, DELQ+5, CHECK+2~, CHECK+3*, CHECK+4, CHECK+12, SETICD+1~, SETICD+3*, SETICD+10 |
| NUM | GETONE+1~, GETONE+6*, GETONE+9, USED+1~ |
| OCLASS | EDIT+3~, PROB+5*, PROB+55 |
| ODESCT | EDIT+3~, PROB+7*, PROB+73 |
| ODIEN | EDIT+3~, PROB+2*, PROB+52 |
| OLDLAT | EDIT+3~, PROB+8*, PROB+74 |
| ONARR | EDIT+3~, PROB+3*, PROB+56 |
| ONSET | EDIT+1~, PROB+13*, PROB+69 |
| OPR | EVT~, EVT+3 |
| OSNOCT | EDIT+3~, PROB+6*, PROB+72 |
| OSTAT | EDIT+3~, PROB+4*, PROB+61 |
| PAST | USED+1~, USED+2*, USED+3, USED+4*, USED+6, USED+7*, USED+8 |
| PER | GETONE+1~, GETONE+5*, GETONE+9 |
| PIEN | CKID+1~, CKID+5*, CKID+7, CKID+8 |
| PIP | GETONE~, GETONE+3*, GETONE+7 |
| PRI | SETPRI+1~, SETPRI+3*, SETPRI+8 |
| PRIEN | EDIT~, EDIT+5*, EDIT+7, PROB+2, PROB+3, PROB+4, PROB+5, PROB+6, PROB+7, PROB+8 , PROB+36, PROB+50, PROB+58, PROB+79, PROB+80, PROB+81, PROB+82, PROB+86, ASTHMA+4, ASTHMA+7 , QUAL+20, QUAL+21, QUAL+23, STORE+2, STORE+3, DELQ~, DELQ+4, CHECK+4, CHECK+12, DOUBLE~ , DOUBLE+3, DOUBLE+8, EVT~, EVT+2, EVT+3, FNDFP~, FNDFP+2, INPT+1~, INPT+14*, INPT+15* , INPT+17, INPT+19, GETONE~, GETONE+4, GETONE+9, ADDICD~, ADDICD+3, ADDICD+4, ADDICD+5, SETICD~ , SETICD+5, SETICD+6, SETICD+9, SETICD+17, USED~, USED+3, USED+4, USED+6, USED+7, LAT~ , LAT+4, LAT+8, SETPRI+1~, SETPRI+2*, SETPRI+4, SETPRI+5, SETPRI+7 |
| PRIOR | EDIT+2~, PROB+31*, PROB+80 |
| PRNEW | EDIT+2~, PROB+58*, PROB+82 |
| PRNUM | EDIT+1~, PROB+29*, PROB+57 |
| QUAL | QUAL+1~, QUAL+5*, QUAL+6, STORE+4*, STORE+5, CHECK+2~, CHECK+8* |
| RES | PROB+79, SETICD~, SETICD+3*, SETICD+12*, SETICD+20*, SETICD+21 |
| RES1 | PROB+84~, PROB+86* |
| RET | EDIT~, EDIT+4*, EDIT+7*, EDIT+10, EDIT+11, EDIT+12, PROB~, PROB+30*, PROB+34*, PROB+46 , PROB+47*, PROB+48*, PROB+77*, PROB+78, PROB+81*, PROB+82, ASTHMA~, ASTHMA+19*, ASTHMA+21*, ASTHMA+34* , QUAL~, QUAL+20, QUAL+21, STORE+13*, DELQ~, DELQ+7*, DOUBLE+8, FNDFP+1~, FNDFP+7*, FNDFP+8 , FNDFP+10*, FNDFP+11, EDPROB~, EDPROB+3*, EDPROB+14, INPT~, INPT+3*, INPT+13, INPT+20, GETONE~ , GETONE+2*, GETONE+9, ADDICD+1~, ADDICD+2*, ADDICD+7*, ADDICD+8*, ADDICD+9, CKID~, CKID+7*, CKID+8* , NEXTID~, NEXTID+2*, NEXTID+4*, NEXTID+5*, SETPRI~, SETPRI+4*, SETPRI+9*, SETPRI+10, SETPRI+11* |
| RET2 | ASTHMA+1~, ASTHMA+3*, ASTHMA+18*, ASTHMA+19 |
| RET3 | ASTHMA+1~, ASTHMA+33, ASTHMA+34 |
| SEARCH | LAT+2~, LAT+7*, LAT+9 |
| SITE | CKID+1~, CKID+4*, CKID+6 |
| SNO | EDPROB+1~, EDPROB+11*, EDPROB+12, EDPROB+14 |
| SNOCT | EDIT+2~, EDIT+6*, PROB+15*, PROB+18, PROB+72, ASTHMA~, ASTHMA+13 |
| SNODATA | EDIT+3~, PROB+18*, PROB+19, PROB+59, PROB+79 |
| SNOMED | LAT+2~, LAT+8*, LAT+9 |
| STAT | EDIT+1~, PROB+28*, PROB+59*, PROB+60, EDPROB+1~, EDPROB+4*, EDPROB+5, EDPROB+6, EDPROB+7, INPT+17* , INPT+18 |
| STAT2 | EDIT+3~, PROB+60*, PROB+61, PROB+62, PROB+63, PROB+67 |
| STATUS | EDPROB+1~, EDPROB+2*, EDPROB+7 |
| STRING | ADDICD+1~ |
| TYP | GETONE+1~, GETONE+5*, GETONE+9 |
| TYPE | QUAL+1~, QUAL+3*, QUAL+14, QUAL+16, QUAL+18, QUAL+20, QUAL+21, QUAL+23, STORE+6, DELQ~ , DELQ+3, CHECK~, CHECK+3, CHECK+8, CHECK+11 |
| U | EDIT+10, EDIT+11, EDIT+12, PROB+9, PROB+10, PROB+11, PROB+13, PROB+14, PROB+15, PROB+19 , PROB+27, PROB+28, PROB+29, PROB+31, PROB+32, PROB+33, PROB+39, PROB+59, PROB+77, PROB+79 , PROB+80, PROB+85, ASTHMA+9, ASTHMA+19, ASTHMA+21, ASTHMA+22, ASTHMA+23, ASTHMA+32, ASTHMA+34, QUAL+3 , QUAL+4, QUAL+5, QUAL+9, QUAL+11, QUAL+13, STORE+13, EVT+3, FNDFP+2, FNDFP+10, EDPROB+9 , EDPROB+14, INPT+17, SETICD+20, CKID+3, CKID+4, CKID+5, NEXTID+2, LAT+9, LAT+11, SETPRI+3 |
| VAPR | EDIT+3~, PROB+67*, PROB+68 |
| VIEN | EDIT~, EDIT+5*, EDIT+11, PROB+86, ASTHMA~, ASTHMA+8, ASTHMA+26, ASTHMA+32 |
| WHEN | QUAL+1~, QUAL+11*, QUAL+12*, STORE+8, CHECK+7* |
| X | ASTHMA+25~, ASTHMA+26*, ASTHMA+28, ASTHMA+29, EVT~, EVT+2*, EVT+3, FNDFP+1~, FNDFP+2*, FNDFP+9* , FNDFP+10, SETICD+14*, SETICD+15, USED+1~, USED+2*, USED+3*, USED+4, USED+5*, USED+6*, USED+7 |
| X1 | CKID+1~, CKID+3*, CKID+6 |
| X2 | CKID+1~, CKID+3*, CKID+6 |
| XIEN | EDIT+2~, EDIT+8*, EDIT+9, EDIT+10, EDIT+11, EDIT+12 |
| Y | ASTHMA+25~, ASTHMA+27*, ASTHMA+28 |
| Z | DOUBLE+1~, DOUBLE+7*, DOUBLE+8 |