©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
BGOVPOV3 ; IHS/BAO/TMD - Visit POV maintenance ;09-Nov-2017 14:34;PLS
Source file <BGOVPOV3.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 8 | ($$ACONTROL,$$CHECK)^BGOASLK ($$CHKVISIT,$$CVTDATE,$$DELETE,$$ERR,$$UPDATE)^BGOUTL ($$AICD,$$FNDNARR,VFEVT,VFNEW)^BGOUTL2 SET^BGOVAST (CHECK,DEL,SETPRI)^BGOVPOV ($$FNDPRI,QUAL,QUALB)^BGOVPOV1 $$GETDATA^BGOVPOV2 ($$MATCH,ASTHMA)^BGOVPOV3 |
| DRG Grouper | 2 | $$ICDDX^ICDCODE ($$CODEN,$$IMP)^ICDEX |
| IHS Standard Terminology | 2 | $$CONC^BSTSAPI $$CVPARM^BSTSMAP1 |
| VA Fileman | 2 | UPDATE^DIE $$GET1^DIQ |
| Kernel | 1 | $$NOW^XLFDT |
| Taxonomy | 1 | ^ATXPOV |
| Package | Total | Caller Graph |
|---|---|---|
| GUI Objects | 2 | BGOVPOV2 BGOVPOV3 |
| IHS Prenatal Care Module | 1 | BJPNSPOV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICD10(RET,ICD) | ;New entry point for ICD-10
|
|
| DELPOV(LIST,PROB) | ;Delete the POVs in the list
|
|
| ASTHMA(DFN,CONTROL,VIEN) | ;Find last control, if it has changed store the change
|
|
| INJURY(RET,SNOMED,VIEN) | ;Is this problem an injury?
|
|
| MATCH(FIVE,POVLST) | ;Match up the ICDs on the problem with the SNOMED
|
|
| FNUM() | ||
| EDIT(RET,INP,LIST,QUAL,INJ,NORM) | ;EP
|
|
| GETPOVS(LIST,POVLST) | ;Get the ICD codes currently stored
|
|
| STORE | ;Store the POV
|
| Name | Field # of Occurrence |
|---|---|
| ^ATXPOV | STORE+91 |
| $$ACONTROL^BGOASLK | ASTHMA+4 |
| $$CHECK^BGOASLK | STORE+82 |
| $$CHKVISIT^BGOUTL | EDIT+20, STORE+31 |
| $$CVTDATE^BGOUTL | STORE+23, STORE+25 |
| $$DELETE^BGOUTL | STORE+67 |
| $$ERR^BGOUTL | EDIT+16, STORE+12 |
| $$UPDATE^BGOUTL | STORE+66 |
| $$AICD^BGOUTL2 | STORE+5, INJURY+7 |
| $$FNDNARR^BGOUTL2 | EDIT+45 |
| VFEVT^BGOUTL2 | STORE+76 |
| VFNEW^BGOUTL2 | STORE+35 |
| SET^BGOVAST | ASTHMA+8 |
| CHECK^BGOVPOV | STORE+13 |
| DEL^BGOVPOV | DELPOV+4 |
| SETPRI^BGOVPOV | STORE+73 |
| $$FNDPRI^BGOVPOV1 | STORE+29 |
| QUAL^BGOVPOV1 | STORE+71 |
| QUALB^BGOVPOV1 | STORE+70 |
| $$GETDATA^BGOVPOV2 | EDIT+50 |
| $$MATCH^BGOVPOV3 | EDIT+55 |
| ASTHMA^BGOVPOV3 | STORE+85 |
| $$CONC^BSTSAPI | EDIT+51, INJURY+5 |
| $$CVPARM^BSTSMAP1 | EDIT+30 |
| UPDATE^DIE | STORE+99 |
| $$GET1^DIQ | EDIT+23, EDIT+28, EDIT+69, GETPOVS+5, INJURY+4 |
| $$ICDDX^ICDCODE | EDIT+38, EDIT+43, INJURY+8 |
| $$CODEN^ICDEX | STORE+11 |
| $$IMP^ICDEX | STORE+6, ICD10+2 |
| $$NOW^XLFDT | EDIT+38, EDIT+43 |
| RPC Name | Call Tags |
|---|---|
| BGOVPOV3 EDIT | EDIT |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | STORE+95 |
| ^AUPNVSIT - [#9000010] | STORE+13, STORE+89 |
| Name | Line Occurrences |
|---|---|
| $$FNUM | EDIT+5 |
| DELPOV | EDIT+57 |
| GETPOVS | EDIT+48 |
| ICD10 | INJURY+7 |
| STORE | EDIT+64, EDIT+70, EDIT+71 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIEN | ASTHMA+1~, ASTHMA+5*, ASTHMA+7 |
| APCDDATE | STORE+87~, STORE+89* |
| APCDPAT | STORE+87~, STORE+90* |
| APCDVSIT | EDIT+3~, EDIT+17*, STORE+87~, STORE+90* |
| ASTHMA | STORE+80~, STORE+82*, STORE+83 |
| ATXAD | STORE+87~, STORE+90* |
| AUPNPAT | STORE+87~, STORE+90* |
| CANDUP | EDIT+3~, STORE+2*, STORE+35 |
| CAUSEDX | EDIT+1~, STORE+17*, STORE+19*, STORE+42 |
| CHK | EDIT+4~, EDIT+6*, EDIT+55*, EDIT+56, EDIT+65 |
| CHK2 | MATCH+1~, MATCH+2*, MATCH+10*, MATCH+11 |
| CNT | MATCH+6*, MATCH+7, GETPOVS+1~, GETPOVS+2*, GETPOVS+6*, GETPOVS+7 |
| CODE | GETPOVS+1~, GETPOVS+5*, GETPOVS+6 |
| CONTROL | EDIT+1~, STORE+78*, STORE+84*, STORE+85, ASTHMA~, ASTHMA+2, ASTHMA+6, ASTHMA+7 |
| DA | STORE+87~, STORE+88* |
| DEL | EDIT+59*, EDIT+60, EDIT+62, MATCH+1~, MATCH+3*, MATCH+5, MATCH+9 |
| DESC | EDIT+1~ |
| DESCT | EDIT+3~, EDIT+25*, EDIT+31, EDIT+32, EDIT+35, STORE+56, STORE+82 |
| DFN | EDIT+1~, EDIT+19*, EDIT+20, EDIT+50, STORE+13, STORE+31, STORE+85, STORE+90, ASTHMA~, ASTHMA+4 |
| DT | STORE+6, ICD10+2 |
| DUP | EDIT+2~, EDIT+7*, STORE+13, STORE+14 |
| DUZ | STORE+59, STORE+63, STORE+65 |
| DUZ("AG" | EDIT+13, EDIT+17, STORE+79 |
| ECODE | EDIT+1~, STORE+17*, STORE+21*, STORE+44 |
| ERR | STORE+96~, STORE+100 |
| FDA | EDIT+2~, STORE+38*, STORE+39, STORE+40, STORE+41, STORE+42, STORE+43, STORE+44, STORE+45, STORE+48 , STORE+49, STORE+51, STORE+52, STORE+53, STORE+54, STORE+55, STORE+56, STORE+57, STORE+58, STORE+59 , STORE+62, STORE+63, STORE+64, STORE+65, STORE+66, STORE+96~ |
| FDA( | STORE+38, STORE+98* |
| FIRST | EDIT+2~, EDIT+4~, EDIT+6*, EDIT+54*, STORE+48, STORE+72 |
| FIVE | EDIT+7*, EDIT+53*, EDIT+54, EDIT+55, EDIT+60, EDIT+62, MATCH~, MATCH+4 |
| FNUM | EDIT+2~, EDIT+5*, STORE+35, STORE+38, STORE+67, STORE+76 |
| FRAC | EDIT+3~, EDIT+49*, EDIT+50, STORE+57 |
| I | EDIT+61*, EDIT+62, MATCH+1~, MATCH+8*, MATCH+9 |
| ICD | INJURY+1~, INJURY+6*, INJURY+7, INJURY+8, INJURY+9*, INJURY+10, ICD10~, ICD10+4, ICD10+5, ICD10+7 |
| ICDCODE | GETPOVS+1~, GETPOVS+4*, GETPOVS+5 |
| IEN | GETPOVS+1~, GETPOVS+3*, GETPOVS+4, STORE+96~ |
| IENS | EDIT+4~, EDIT+6*, EDIT+72, STORE+92* |
| IMP | EDIT+3~, STORE+6*, STORE+7, STORE+8, ICD10+1~, ICD10+2*, ICD10+3, ICD10+6 |
| INJ | EDIT~, EDIT+10*, STORE+18, STORE+19, STORE+20, STORE+21, STORE+22, STORE+23, STORE+25 |
| INJDT | EDIT+2~, STORE+17*, STORE+23*, STORE+24*, STORE+51 |
| INP | EDIT~, EDIT+14, EDIT+15, EDIT+19, EDIT+24, EDIT+25, EDIT+33, EDIT+35, EDIT+36, EDIT+37 , EDIT+40, EDIT+41, EDIT+42, EDIT+49, STORE+28, STORE+30, STORE+78, ASTHMA+1~, ASTHMA+7*, ASTHMA+8 |
| ITYPE | EDIT+1~, STORE+11*, STORE+12, STORE+13, STORE+35, STORE+39, STORE+82, STORE+88 |
| LAT | EDIT+2~, EDIT+28*, EDIT+29, EDIT+30, STORE+13, STORE+54 |
| LATEXT | EDIT+2~, EDIT+30*, EDIT+31 |
| LEVEL | ASTHMA+1~, ASTHMA+5*, ASTHMA+6 |
| LIST | EDIT~, EDIT+48, EDIT+57, GETPOVS~, DELPOV~ |
| LIST( | EDIT+67, EDIT+68, GETPOVS+3, GETPOVS+4, DELPOV+2, DELPOV+3 |
| LIST(0 | EDIT+50 |
| MOD | EDIT+1~ |
| NARR | EDIT+1~, EDIT+25*, EDIT+26*, EDIT+31*, EDIT+32*, EDIT+36*, EDIT+41*, EDIT+45, EDIT+47*, STORE+40 |
| NEW | EDIT+3~, EDIT+8*, EDIT+63*, STORE+70 |
| NORM | EDIT~, EDIT+9*, STORE+41 |
| OFF | EDIT+3~, EDIT+13*, STORE+52 |
| ONSET | EDIT+2~, STORE+17*, STORE+25*, STORE+52 |
| PLACE | EDIT+1~, STORE+17*, STORE+22*, STORE+45 |
| POV | EDIT+4~, EDIT+67*, EDIT+68 |
| POVICD | DELPOV+1~, DELPOV+3*, DELPOV+4 |
| POVLST | EDIT+4~, EDIT+48, EDIT+55, MATCH~, GETPOVS~ |
| POVLST( | MATCH+10, GETPOVS+6* |
| POVLST(0 | MATCH+6, GETPOVS+7* |
| PRIEN | STORE+96~, STORE+97*, STORE+98 |
| PRIM | EDIT+2~, STORE+28*, STORE+29*, STORE+47*, STORE+48, STORE+72, STORE+73 |
| PROB | EDIT+3~, EDIT+15*, EDIT+28, EDIT+39*, EDIT+44*, EDIT+57, DELPOV~, DELPOV+4, STORE+53, STORE+70 , STORE+94, STORE+95, STORE+97 |
| PRV | EDIT+2~, STORE+30* |
| PTDATA | EDIT+4~, EDIT+50*, EDIT+51 |
| PXCEVIEN | EDIT+3~, EDIT+18* |
| QUAL | EDIT~, EDIT+11*, STORE+71 |
| RET | EDIT~, EDIT+16*, EDIT+20*, EDIT+21, EDIT+45*, EDIT+46, EDIT+47*, EDIT+72*, STORE+12*, STORE+14* , STORE+15, STORE+31*, STORE+32, STORE+35, STORE+36*, STORE+66*, STORE+67, STORE+68, STORE+70, STORE+71 , STORE+72, STORE+73, STORE+74*, STORE+83*, STORE+100*, INJURY~, INJURY+2*, INJURY+3*, INJURY+7, INJURY+10* , ICD10~, ICD10+4*, ICD10+5*, ICD10+7*, ASTHMA+1~, ASTHMA+8 |
| RET1 | DELPOV+1~, DELPOV+4 |
| RET3 | EDIT+4~, EDIT+8* |
| RETURN | ASTHMA+1~, ASTHMA+4*, ASTHMA+5 |
| REVISIT | EDIT+1~, STORE+17*, STORE+20*, STORE+43 |
| SAVRET | EDIT+1~, STORE+36*, STORE+37*, STORE+92 |
| SFIVE | MATCH+1~, MATCH+4*, MATCH+5, MATCH+9 |
| SNODATA | EDIT+3~, EDIT+51*, EDIT+53, INJURY+1~, INJURY+5*, INJURY+6 |
| SNOMED | EDIT+1~, EDIT+24*, EDIT+51, STORE+13, STORE+55, INJURY~, INJURY+3, INJURY+5 |
| SPEC | EDIT+4~, EDIT+6*, EDIT+39*, EDIT+44*, EDIT+52, EDIT+71 |
| STAGE | EDIT+1~ |
| TEXT | EDIT+1~ |
| TYPE | EDIT+1~, EDIT+33*, EDIT+37*, EDIT+38*, EDIT+42*, EDIT+43*, EDIT+63*, EDIT+69*, STORE+3, STORE+7* , STORE+8*, STORE+9*, STORE+10*, STORE+11, STORE+48, STORE+72 |
| TYPE2 | EDIT+2~ |
| U | EDIT+14, EDIT+15, EDIT+19, EDIT+24, EDIT+25, EDIT+33, EDIT+35, EDIT+36, EDIT+37, EDIT+38 , EDIT+40, EDIT+41, EDIT+42, EDIT+43, EDIT+49, EDIT+53, EDIT+68, GETPOVS+4, DELPOV+3, STORE+13 , STORE+19, STORE+20, STORE+21, STORE+22, STORE+23, STORE+25, STORE+28, STORE+30, STORE+73, STORE+78 , STORE+83, STORE+89, INJURY+6, INJURY+9, ASTHMA+5, ASTHMA+7 |
| VDT | EDIT+1~, EDIT+23*, EDIT+51, STORE+7, STORE+8, INJURY+1~, INJURY+4*, INJURY+5, ICD10+3, ICD10+6 |
| VFIEN | EDIT+4~, EDIT+63*, EDIT+68*, EDIT+69, STORE+13, STORE+34, STORE+36*, STORE+37, STORE+38, STORE+67 , STORE+70, STORE+71, STORE+73, STORE+74*, STORE+76, STORE+88 |
| VFNEW | EDIT+2~, EDIT+58*, EDIT+66*, STORE+61, STORE+67, STORE+76 |
| VIEN | EDIT+1~, EDIT+14*, EDIT+16, EDIT+17, EDIT+18, EDIT+20, EDIT+23, STORE+13, STORE+29, STORE+31 , STORE+35, STORE+85, STORE+89, STORE+90, STORE+95, STORE+98, INJURY~, INJURY+4, ASTHMA~, ASTHMA+4 , ASTHMA+7 |
| VPOV | DELPOV+1~, DELPOV+2*, DELPOV+3 |
| X | EDIT+4~, EDIT+60*, EDIT+61, MATCH+1~, MATCH+5*, MATCH+7, MATCH+8, STORE+87~, STORE+88*, INJURY+8* , INJURY+9, ICD10+1~ |
| X2 | EDIT+62*, EDIT+63, MATCH+1~, MATCH+9*, MATCH+10 |