©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
BGOVPOV1 ; MSC/IND/DKM - Fix VPOV sequencing (primary first) ;20-Jun-2017 15:26;DU
Source file <BGOVPOV1.m>
| Package | Total | Call Graph |
|---|---|---|
| GUI Objects | 3 | $$CONCEPT^BGOPAUD ($$DELETE,$$TMPGBL,$$UPDATE)^BGOUTL SET^BGOVUPD |
| VA Fileman | 3 | $$GET1^DID UPDATE^DIE ($$GET1,GETS)^DIQ |
| IHS Standard Terminology | 2 | ($$CONC,$$VSBTRMF,EQUIV)^BSTSAPI $$CVPARM^BSTSMAP1 |
| IHS Electronic Health Record | 1 | $$VIS2VSTR^BEHOENCX |
| Package | Total | Caller Graph |
|---|---|---|
| GUI Objects | 4 | BGOPROB BGOVPOV BGOVPOV2 BGOVPOV3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUALLK(PROMPT,SNOMED,TYPE) | ;Lookup for normal/abnormal qualifier added P19
|
|
| HELP | ;EP
|
|
| GETVPOVS(VIEN,VPOV1,VPOV2) | ;EP
|
|
| QUAL(RET,POV,QUAL) | ;EP
|
|
| UPREV(RET,DFN,VIEN) | ;Update review data
|
|
| REFERR() | ||
| STORE(RET,POV,SNO,FNUM,IEN) | ;Store the qualifier data
|
|
| FRAC(CODES,CONCT) | ;Lookup new problems to see if its a fracture added P23
|
|
| GETQUAL(IEN) | ;Get any qualifiers for this POV
|
|
| SWAP(VPOV1,VPOV2) | ;
|
|
| FINDALL(FIX) | ;EP
|
|
| DELSUB(RET,IEN,SFIL) | ;Delete the subfile entries
|
|
| DELQ(RET,POV,PRIEN) | ;Delete a qualifer
|
|
| DISPPOVS(VIEN) | ;
|
|
| LATCHK(RET,INP) | ;EP-Check laterality
|
|
| BLDFDA(VPOV1,VPOV2,FDA,FLG) | ;
|
|
| FNDPRI(VIEN) | ;EP
|
|
| SETDATA(PRIEN,TYP) | ;get data for exisitng problem
|
|
| QUALB(RET,PROB,POV) | ;EP
|
|
| HELPDATA | ;;
|
|
| NEW(CONCID,TYP) | ;Enter data for a new item
|
|
| CHKTR(ARR,LATNAME,LATTYP) | ;EP- Find equivalent problems
|
|
| FIXVPOVS(VIEN,VPOV) | ;EP
|
| Name | Field # of Occurrence |
|---|---|
| $$VIS2VSTR^BEHOENCX | UPREV+3 |
| $$CONCEPT^BGOPAUD | GETQUAL+8, GETQUAL+13, GETQUAL+18, GETQUAL+23 |
| $$DELETE^BGOUTL | DELSUB+5, DELQ+6 |
| $$TMPGBL^BGOUTL | LATCHK+2 |
| $$UPDATE^BGOUTL | SWAP+3 |
| SET^BGOVUPD | UPREV+9 |
| $$CONC^BSTSAPI | FRAC+3, NEW+3 |
| $$VSBTRMF^BSTSAPI | QUALLK+7 |
| EQUIV^BSTSAPI | LATCHK+11, LATCHK+15, LATCHK+19 |
| $$CVPARM^BSTSMAP1 | SETDATA+7, NEW+8 |
| $$GET1^DID | BLDFDA+8 |
| UPDATE^DIE | STORE+6 |
| $$GET1^DIQ | BLDFDA+20, GETQUAL+7, GETQUAL+12, GETQUAL+17, GETQUAL+22, CHKTR+9, CHKTR+11, CHKTR+16, SETDATA+2, SETDATA+3 , SETDATA+4, SETDATA+5, SETDATA+8 |
| GETS^DIQ | BLDFDA+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| RPC Name | Call Tags |
|---|---|
| BGOVPOV1 QUALLK | QUALLK |
| BGOVPOV1 LATCHK | LATCHK |
| BGOVPOV1 FRAC | FRAC |
| FileNo | Call Tags |
|---|---|
| ^AUPNVPOV - [#9000010.07] | Classic Fileman Calls |
| 9000010.0713 | GET1^DIQ |
| 9000010.0714 | GET1^DIQ |
| 9000010.0717 | GET1^DIQ |
| 9000010.0718 | GET1^DIQ |
| ^AUPNPROB - [#9000011] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | QUALB+5, QUALB+6 |
| ^AUPNPROB("APCT" | CHKTR+8 |
| ^AUPNPROB("ASLT" | CHKTR+15 |
| ^AUPNVPOV - [#9000010.07] | DELSUB+2, DISPPOVS+4, FNDPRI+4, QUAL+7, QUAL+8, GETQUAL+4 |
| ^AUPNVPOV("AD" | FINDALL+5, GETVPOVS+3, DISPPOVS+3, FNDPRI+3 |
| ^AUTTCRA("B" | UPREV+6 |
| ^XTMP("BGOVPOV1" | FINDALL+2!, FINDALL+3*, FINDALL+9*, FINDALL+10*, FINDALL+11*, REFERR+1* |
| Name | Line Occurrences |
|---|---|
| $$BLDFDA | SWAP+2, BLDFDA+23 |
| $$FIXVPOVS | FINDALL+9 |
| $$FNDPRI | GETVPOVS+1 |
| $$GETVPOVS | FINDALL+7, FIXVPOVS+2 |
| $$REFERR | BLDFDA+5 |
| $$SWAP | FIXVPOVS+3 |
| CHKTR | LATCHK+12, LATCHK+16, LATCHK+20 |
| DELQ | QUAL+9 |
| DELSUB | BLDFDA+12 |
| NEW | LATCHK+24 |
| SETDATA | LATCHK+25 |
| STORE | QUAL+10, QUALB+10 |
| Name | Field # of Occurrence |
|---|---|
| ^("NOT FIXED" | FINDALL+11* |
| ^(12 | DISPPOVS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIEN | STORE+1~, STORE+2*, STORE+3*, STORE+5, GETQUAL+1~, GETQUAL+5*, GETQUAL+7, GETQUAL+12, GETQUAL+17, GETQUAL+22 |
| ARR | LATCHK+10!, LATCHK+12, LATCHK+14!, LATCHK+16, LATCHK+18!, LATCHK+20, CHKTR~ |
| ARR( | CHKTR+2, CHKTR+3 |
| BI | LATCHK+1~, LATCHK+5*, LATCHK+19, LATCHK+20 |
| BY | GETQUAL+1~ |
| CNT | LATCHK+1~, LATCHK+4*, SETDATA+9*, SETDATA+10, NEW+11*, NEW+12 |
| CODES | FRAC~, FRAC+2*, FRAC+6* |
| CONCID | LATCHK+1~, LATCHK+6*, LATCHK+11, LATCHK+15, LATCHK+19, LATCHK+24, SETDATA+10, NEW~, NEW+3, NEW+12 |
| CONCT | FRAC~, FRAC+3 |
| DA | DELSUB+3*, DELSUB+5, DELQ+1~, DELQ+4*, DELQ+6 |
| DA(1 | DELSUB+3*, DELQ+4* |
| DATA | LATCHK+1~ |
| DATA( | LATCHK+23, CHKTR+13*, CHKTR+18* |
| DATA("None" | LATCHK+8* |
| DEFST | NEW+1~, NEW+9*, NEW+10*, NEW+12 |
| DEL | QUAL+2~, QUAL+6*, QUAL+9 |
| DESCT | SETDATA+1~, SETDATA+2*, SETDATA+10, NEW+1~, NEW+4*, NEW+12 |
| DFN | UPREV~, UPREV+3, UPREV+8, LATCHK+1~, LATCHK+3*, CHKTR+8, CHKTR+15 |
| DIK | DELSUB+4*, DELSUB+5, DELQ+1~, DELQ+5*, DELQ+6 |
| DT | FINDALL+3 |
| DUZ | UPREV+8 |
| EEXT | CHKTR+1~, CHKTR+6*, CHKTR+12 |
| ELAT | CHKTR+1~, CHKTR+5*, CHKTR+7, CHKTR+14, CHKTR+15 |
| ENOD | CHKTR+1~, CHKTR+3*, CHKTR+4, CHKTR+5, CHKTR+6 |
| ERR | BLDFDA+1~, UPREV+1~, UPREV+2*, UPREV+3, UPREV+4, STORE+1~, DELQ+1~, DELQ+2*, DELQ+6*, DELQ+7 |
| ERR("DIERR" | REFERR, REFERR+1, STORE+7 |
| ESNO | CHKTR+1~, CHKTR+4*, CHKTR+8, CHKTR+15 |
| EXLAT | SETDATA+1~, SETDATA+6*, SETDATA+7*, SETDATA+10, NEW+1~, NEW+7*, NEW+8*, NEW+12 |
| FDA | SWAP+1~, SWAP+2, SWAP+3, BLDFDA~, BLDFDA+23, STORE+1~ |
| FDA( | BLDFDA+9*, BLDFDA+22*, BLDFDA+25, BLDFDA+26, BLDFDA+27!, BLDFDA+28, BLDFDA+29, STORE+5* |
| FIX | FINDALL~, FINDALL+4*, FINDALL+9 |
| FIXED | FINDALL+1~, FINDALL+4*, FINDALL+9*, FINDALL+11, FINDALL+13 |
| FLD | BLDFDA+1~, BLDFDA+6*, BLDFDA+7*, BLDFDA+8, BLDFDA+9, BLDFDA+18*, BLDFDA+19, BLDFDA+20, BLDFDA+22, BLDFDA+24* , BLDFDA+25*, BLDFDA+26, BLDFDA+27 |
| FLG | BLDFDA~, BLDFDA+23 |
| FND | FINDALL+1~, FINDALL+4*, FINDALL+8*, FINDALL+11, FINDALL+12 |
| FNUM | BLDFDA+1~, BLDFDA+3*, BLDFDA+4, BLDFDA+7, BLDFDA+8, BLDFDA+9, BLDFDA+14, BLDFDA+25, BLDFDA+26, BLDFDA+27 , BLDFDA+28, BLDFDA+29, QUAL+2~, QUAL+3*, QUAL+10, STORE~, STORE+5, QUALB+2~, QUALB+8*, QUALB+10 , GETQUAL+1~ |
| FNUM2 | BLDFDA+1~, BLDFDA+14*, BLDFDA+16, BLDFDA+18, BLDFDA+20, BLDFDA+22 |
| FRACTURE | FRAC+1~, FRAC+4*, FRAC+6 |
| FUM | BLDFDA+1~, BLDFDA+10*, BLDFDA+12, BLDFDA+14, QUALB+2~, QUALB+4*, QUALB+5, QUALB+6, QUALB+8 |
| FXLST | FRAC+1~, FRAC+5*, FRAC+6 |
| I | DELSUB+1~, QUALB+2~, QUALB+5*, QUALB+6 |
| I1 | CHKTR+1~, CHKTR+2*, CHKTR+3 |
| ICD | SETDATA+1~, SETDATA+5*, SETDATA+10, NEW+1~, NEW+6*, NEW+12 |
| IEN | DELSUB~, DELSUB+2, DELSUB+3, QUAL+2~, QUAL+4*, QUAL+7*, QUAL+8*, QUAL+9, QUAL+10, STORE~ , STORE+2, STORE+3, QUALB+2~, QUALB+9*, QUALB+10, DELQ+4, GETQUAL~, GETQUAL+4, GETQUAL+5, LATCHK+23* , LATCHK+24, LATCHK+25, CHKTR+1~, CHKTR+8*, CHKTR+9, CHKTR+11, CHKTR+13, CHKTR+15*, CHKTR+16, CHKTR+18 |
| IEN2 | STORE+1~, GETQUAL+1~, GETQUAL+4*, GETQUAL+5 |
| IENS1 | BLDFDA+1~, BLDFDA+3*, BLDFDA+4, BLDFDA+7, BLDFDA+9, BLDFDA+12, BLDFDA+25, BLDFDA+26, BLDFDA+27, BLDFDA+28 , BLDFDA+29 |
| IENS2 | BLDFDA+1~, BLDFDA+3*, BLDFDA+9, BLDFDA+21, BLDFDA+26, BLDFDA+27 |
| IN | QUALLK+2~, QUALLK+6*, QUALLK+7 |
| INP | UPREV+1~, UPREV+8*, UPREV+9, LATCHK~, LATCHK+3, LATCHK+6, LATCHK+7 |
| LAT | LATCHK+1~ |
| LATNAME | CHKTR~, CHKTR+13, CHKTR+18 |
| LATTYP | CHKTR~, CHKTR+13, CHKTR+18 |
| LEF | LATCHK+1~, LATCHK+5*, LATCHK+11, LATCHK+12 |
| LP | HELP+1~, HELP+2*, FINDALL+1~, FINDALL+5*, FINDALL+6 |
| MULT | BLDFDA+1~, BLDFDA+15*, BLDFDA+16*, BLDFDA+18, BLDFDA+22 |
| MULT2 | BLDFDA+1~, BLDFDA+21*, BLDFDA+22 |
| NEWNUM | SWAP+1~ |
| NODE | DELQ+1~, DELQ+3*, DELQ+5, NEW+1~, NEW+3*, NEW+4, NEW+5, NEW+6, NEW+9 |
| >> NUMNEW | BLDFDA+17*, BLDFDA+21 |
| PLAT | CHKTR+1~, CHKTR+11*, SETDATA+1~, SETDATA+4*, SETDATA+7, SETDATA+10, NEW+1~, NEW+2*, NEW+3, NEW+8 , NEW+12 |
| PNAR | SETDATA+1~, SETDATA+3*, SETDATA+10, NEW+1~, NEW+5*, NEW+12 |
| POV | QUAL~, QUAL+7, QUAL+8, QUAL+9, QUAL+10, STORE~, STORE+2, STORE+3, QUALB~, QUALB+10 , DELQ~ |
| PRIEN | DELQ~, DELQ+4, LATCHK+1~, LATCHK+7*, LATCHK+8, SETDATA~, SETDATA+2, SETDATA+3, SETDATA+4, SETDATA+5 , SETDATA+8, SETDATA+10 |
| PROB | QUALB~, QUALB+3, QUALB+5, QUALB+6 |
| PROMPT | QUALLK~, QUALLK+3*, QUALLK+7* |
| Q | GETQUAL+1~, GETQUAL+7*, GETQUAL+8*, GETQUAL+9, GETQUAL+10, GETQUAL+12*, GETQUAL+13*, GETQUAL+14, GETQUAL+15, GETQUAL+17* , GETQUAL+18*, GETQUAL+19, GETQUAL+20, GETQUAL+22*, GETQUAL+23*, GETQUAL+24, GETQUAL+25 |
| QUAL | QUAL~, QUAL+4, QUAL+5, QUAL+6, GETQUAL+26*, GETQUAL+27 |
| REC | BLDFDA+1~ |
| REC( | BLDFDA+7, BLDFDA+9, BLDFDA+16, BLDFDA+18, BLDFDA+22 |
| RET | FIXVPOVS+1~, FIXVPOVS+3*, FIXVPOVS+4, SWAP+1~, SWAP+3*, SWAP+4, BLDFDA+1~, BLDFDA+2*, BLDFDA+12, BLDFDA+13 , DELSUB~, DELSUB+2, DELSUB+5*, FNDPRI+1~, FNDPRI+3, FNDPRI+5*, FNDPRI+6, UPREV~, UPREV+4*, UPREV+9 , QUAL~, QUAL+9, QUAL+10, STORE~, STORE+7*, QUALB~, QUALB+10, DELQ~, DELQ+7*, LATCHK~ , LATCHK+2*, SETDATA+10, NEW+12 |
| RI | LATCHK+1~, LATCHK+5*, LATCHK+15, LATCHK+16 |
| SEARCH | QUALLK+2~, QUALLK+4*, QUALLK+5, QUALLK+6 |
| SFIL | DELSUB~, DELSUB+2 |
| SIEN | BLDFDA+1~, BLDFDA+21*, DELSUB+1~, DELSUB+2*, DELSUB+3 |
| SNO | QUAL+2~, QUAL+5*, QUAL+10, STORE~, STORE+4*, STORE+5, QUALB+2~, QUALB+6*, QUALB+7, QUALB+10 |
| SNODATA | FRAC+1~, FRAC+3*, FRAC+4, FRAC+5 |
| SNOMED | QUALLK~, QUALLK+6 |
| STAT | CHKTR+1~, CHKTR+9*, CHKTR+10, CHKTR+16*, CHKTR+17, SETDATA+1~, SETDATA+8*, SETDATA+10, NEW+1~ |
| STRING | GETQUAL+1~, GETQUAL+2*, GETQUAL+9*, GETQUAL+10*, GETQUAL+26 |
| STRING2 | GETQUAL+1~, GETQUAL+2*, GETQUAL+14*, GETQUAL+15*, GETQUAL+26 |
| STRING3 | GETQUAL+1~, GETQUAL+2*, GETQUAL+19*, GETQUAL+20*, GETQUAL+26 |
| STRING4 | GETQUAL+1~, GETQUAL+2*, GETQUAL+24*, GETQUAL+25*, GETQUAL+26 |
| TYP | LATCHK+22*, LATCHK+23, LATCHK+24, LATCHK+25, SETDATA~, SETDATA+10, NEW~, NEW+2, NEW+12 |
| TYPE | UPREV+1~, UPREV+5*, UPREV+6, QUALLK~, QUALLK+4 |
| U | FINDALL+3, FNDPRI+5, UPREV+8, QUAL+4, QUAL+5, QUAL+6, STORE+7, QUALB+6, QUALLK+6, FRAC+4 , FRAC+5, FRAC+6, LATCHK+3, LATCHK+6, LATCHK+7, CHKTR+4, CHKTR+5, CHKTR+6, CHKTR+13, CHKTR+18 , SETDATA+10, NEW+4, NEW+5, NEW+6, NEW+9, NEW+12 |
| UTYP | UPREV+1~, UPREV+6*, UPREV+7, UPREV+8 |
| VIEN | FINDALL+1~, FINDALL+4*, FINDALL+5*, FINDALL+7, FINDALL+9, FINDALL+10, FIXVPOVS~, FIXVPOVS+2, GETVPOVS~, GETVPOVS+1 , GETVPOVS+3, DISPPOVS~, DISPPOVS+3, DISPPOVS+5, FNDPRI~, FNDPRI+3, FNDPRI+5, UPREV~, UPREV+3 |
| VPOV | FIXVPOVS~, FIXVPOVS+5*, FIXVPOVS+6*, DISPPOVS+1~, DISPPOVS+2*, DISPPOVS+3*, DISPPOVS+4, DISPPOVS+5, FNDPRI+1~, FNDPRI+2* , FNDPRI+3*, FNDPRI+4, FNDPRI+5 |
| VPOV1 | FIXVPOVS+1~, FIXVPOVS+2, FIXVPOVS+3, FIXVPOVS+6, GETVPOVS~, GETVPOVS+1*, GETVPOVS+2, GETVPOVS+4, SWAP~, SWAP+2 , BLDFDA~, BLDFDA+3, BLDFDA+23, REFERR+1 |
| VPOV2 | FIXVPOVS+1~, FIXVPOVS+2, FIXVPOVS+3, FIXVPOVS+6, GETVPOVS~, GETVPOVS+3*, GETVPOVS+4, SWAP~, SWAP+2, BLDFDA~ , BLDFDA+3, BLDFDA+23 |
| VSTR | UPREV+1~, UPREV+3*, UPREV+8 |
| WHEN | GETQUAL+1~ |
| X | HELP+1~, HELP+2*, DISPPOVS+1~, DISPPOVS+4*, DISPPOVS+5, FNDPRI+1~, FNDPRI+4*, FNDPRI+5, GETQUAL+1~, GETQUAL+3* , GETQUAL+4, GETQUAL+6, GETQUAL+11, GETQUAL+16, GETQUAL+21, QUALLK+2~ |
| Y | DISPPOVS+1~, DISPPOVS+4*, DISPPOVS+5 |
| Name | Field # of Occurrence |
|---|---|
| $T(HELPDATA+LP | HELP+2 |