BEDDPOV ;GDIT/HS/BEE-BEDD Utility Routine 4 ; 08 Nov 2011 12:00 PM
Source file <BEDDPOV.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient | 3 | $$IMP^AUPNSICD MOD^AUPNVSIT $$ICDDX^AUPNVUTL |
| Kernel | 3 | ^%ZTER $$DT^XLFDT DUZ^XUP |
| DRG Grouper | 2 | $$ICDDX^ICDCODE $$ICDDX^ICDEX |
| IHS Emergency Dept Dashboard | 2 | INJURY^BEDDINJ $$UPPER^BEDDUTID |
| Lexicon Utility | 2 | LOOK^LEXA CONFIG^LEXSET |
| VA Fileman | 2 | FILE^DIE $$GET1^DIQ |
| Emergency Room | 1 | ($$AICD,$$POV,LEX,POV)^AMERUTIL |
| GUI Objects | 1 | $$UPDATE^BGOUTL |
| Patient Care Component | 1 | ^APCDALVR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Emergency Dept Dashboard | 2 | BEDD2PST BEDDUTID |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEL(VPOVIEN,DUZ) | ;Delete a POV entry
|
|
| ERR | ;EP - Capture the error
|
|
| LIST(VIEN,DUZ,DXLIST) | ;EP - Return list of V POV entries on file for visit
|
|
| LEX(BEDDTXT,APCDD,SEX,BEDDLEX,FILTER) | ;EP - Perform Lexicon lookup
|
|
| XITL | ||
| DXLKP(VALUE,APCDD,SEX,FILTER) | ;EP - Lookup to File 80 (DX)
|
|
| SAVE(VPOVIEN,ICDIEN,PNARR,PS,CODE,INJ,VIEN,DUZ,DFN) | ;Add/Update POV entry
|
|
| ICD9(XTEXT,APCDDATE,LEX) | ;Perform Lexicon ICD9 lookup
|
|
| XIT | ||
| GETPOV(VIEN) | ;Return POV information for visit
|
|
| ICD10(XTEXT,APCDDATE,LEX) | ;Perform Lexicon ICD10 lookup
|
|
| ICD(ICDIEN,VDT) | ;Return ICD information
|
|
| GETDX(VPOV) | ;EP - Retrieve V POV information for a particular entry
|
|
| XSAVE | ||
| FNDNARR(NARR,CREATE) | ;File narrative and return IEN
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTER | ERR+1 |
| $$AICD^AMERUTIL | ICD+16, GETDX+28 |
| $$POV^AMERUTIL | LIST+23 |
| LEX^AMERUTIL | LEX+51 |
| POV^AMERUTIL | GETPOV+15 |
| ^APCDALVR | SAVE+91 |
| $$IMP^AUPNSICD | LEX+28 |
| MOD^AUPNVSIT | DEL+21, SAVE+107 |
| $$ICDDX^AUPNVUTL | LEX+35, LEX+41, LEX+47 |
| INJURY^BEDDINJ | SAVE+40 |
| $$UPPER^BEDDUTID | LEX+19 |
| $$UPDATE^BGOUTL | FNDNARR+7 |
| FILE^DIE | DEL+18, SAVE+104 |
| $$GET1^DIQ | GETDX+12, GETDX+13, GETDX+17, GETDX+18, GETDX+19, GETDX+20, GETDX+24, GETDX+25, DEL+15, SAVE+27 , SAVE+30, SAVE+47, SAVE+68 |
| $$ICDDX^ICDCODE | ICD+17, GETDX+29 |
| $$ICDDX^ICDEX | ICD+16, GETDX+28 |
| LOOK^LEXA | ICD10+6 |
| CONFIG^LEXSET | ICD10+4 |
| $$DT^XLFDT | LEX+23 |
| DUZ^XUP | LIST+20, DEL+12, SAVE+11 |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
| ^AUPNVPRV - [#9000010.06] | GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | GET1^DIQ |
| ^AMER(3 - [#9009083] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVPRV("AD" | SAVE+25 |
| ^AUTNPOV - [#9999999.27] | FNDNARR+4 |
| ^AUTNPOV("B" | FNDNARR+4 |
| ^TMP("BEDDDX" | DXLKP+21!, DXLKP+27* |
| ^TMP("LEXFND" | ICD10+3! |
| ^TMP("LEXSCH" | ICD10+3! |
| Name | Line Occurrences |
|---|---|
| $$FNDNARR | SAVE+17 |
| LEX | DXLKP+24 |
| XITL | LEX+33, LEX+39, LEX+45 |
| XSAVE | LIST+19, DEL+11, SAVE+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LEX+34~, LEX+35*, LEX+36, LEX+40~, LEX+41*, LEX+42, LEX+46~, LEX+47*, LEX+48 |
| AMERPOV | LIST+12~, LIST+23 |
| AMERPOV( | LIST+26, LIST+28 |
| APCDALVR | SAVE+2~, SAVE+73~ |
| APCDALVR("APCDADFN" | SAVE+94 |
| APCDALVR("APCDAFLG" | SAVE+94, SAVE+95 |
| APCDALVR("APCDATMP" | SAVE+88* |
| APCDALVR("APCDLOC" | SAVE+85* |
| APCDALVR("APCDPAT" | SAVE+76* |
| APCDALVR("APCDTPOV" | SAVE+82* |
| APCDALVR("APCDVSIT" | SAVE+79* |
| APCDCAT | SAVE+2~ |
| APCDCLN | SAVE+2~ |
| APCDD | DXLKP~, DXLKP+24, LEX~, LEX+24*, LEX+28, LEX+51 |
| APCDDATE | ICD9~, ICD10~, ICD10+4, ICD10+6, SAVE+2~ |
| APCDIMP | LEX+13~, LEX+28*, LEX+35, LEX+39, LEX+41, LEX+47 |
| APCDLOC | SAVE+2~, SAVE+68*, SAVE+85 |
| APCDLOOK | SAVE+2~ |
| APCDPAT | SAVE+2~ |
| APCDTCD | SAVE+3~, SAVE+42*, SAVE+101 |
| APCDTDI | SAVE+3~, SAVE+41*, SAVE+100 |
| APCDTPA | SAVE+3~, SAVE+52*, SAVE+53*, SAVE+54*, SAVE+55*, SAVE+56*, SAVE+57*, SAVE+58*, SAVE+59*, SAVE+60* , SAVE+61*, SAVE+62*, SAVE+63*, SAVE+64*, SAVE+65*, SAVE+102 |
| APCDTPCC | XIT! |
| APCDTYPE | SAVE+2~ |
| APCDVSIT | SAVE+2~ |
| AUPNVSIT | DEL+2~, DEL+15*, SAVE+3~, SAVE+107* |
| BEDDLEX | DXLKP+11~, DXLKP+24, LEX~ |
| BEDDLEX( | DXLKP+27, LEX+66* |
| BEDDLEX(1 | LEX+36*, LEX+42*, LEX+48* |
| BEDDTXT | LEX~, LEX+16, LEX+19*, LEX+33, LEX+39, LEX+45, LEX+51 |
| CNT | GETPOV+4~, GETPOV+17*, GETPOV+19 |
| CODE | LEX+58~, LEX+61*, LEX+66, LIST+27~, GETDX+2~, GETDX+18*, GETDX+33, SAVE~, SAVE+82 |
| CODEIEN | GETDX+2~, GETDX+17*, GETDX+28, GETDX+29, GETDX+33 |
| CREATE | FNDNARR~, FNDNARR+3*, FNDNARR+5 |
| D | XIT! |
| DD | XIT! |
| DESC | LEX+58~, LEX+62*, LEX+66, LIST+27~, GETDX+2~, GETDX+30*, GETDX+33 |
| DFN | SAVE~, SAVE+76 |
| DIC | LEX+13~, ICD10+2~ |
| DIC("S" | ICD10+5* |
| DIPGM | XIT! |
| DO | XIT! |
| DT | LEX+23*, LEX+24, ICD+15 |
| DUZ | LIST~, LIST+19, LIST+20, DEL~, DEL+11, DEL+12, SAVE~, SAVE+10, SAVE+11, SAVE+33 |
| DUZ(2 | SAVE+85 |
| DXCNT | GETPOV+4~, GETPOV+12*, GETPOV+18*, GETPOV+21 |
| DXLIST | LIST~ |
| DXLIST( | LIST+29* |
| ERROR | DEL+2~, DEL+23, SAVE+3~ |
| FDA | FNDNARR+1~, FNDNARR+7 |
| FDA( | FNDNARR+6* |
| FILTER | DXLKP~, DXLKP+18*, DXLKP+24, LEX~, LEX+25*, LEX+33, LEX+39, LEX+45, LEX+51 |
| I | DXLKP+11~, DXLKP+27*, LEX+13~, LEX+57*, LEX+59, LEX+66, LEX+67 |
| ICD | SAVE+3~ |
| ICDIEN | ICD~, ICD+16, ICD+17, LIST+27~, SAVE~, SAVE+103 |
| ICDINFO | ICD+9~, ICD+16*, ICD+17*, ICD+19, GETDX+2~, GETDX+28*, GETDX+29*, GETDX+30 |
| ICDV | LEX+13~ |
| IEN | LEX+58~, LEX+60*, LEX+66, SAVE+22~, SAVE+25*, SAVE+27, SAVE+30, FNDNARR+1~, FNDNARR+3*, FNDNARR+4* , FNDNARR+5, FNDNARR+7 |
| IEN(1 | FNDNARR+8 |
| IN | SAVE+2~ |
| INJ | GETDX+2~, GETDX+23*, GETDX+24*, GETDX+25*, GETDX+33, SAVE~, SAVE+36 |
| INJPL | SAVE+37~, SAVE+43*, SAVE+44*, SAVE+47*, SAVE+53, SAVE+54, SAVE+55, SAVE+56, SAVE+57, SAVE+58 , SAVE+59, SAVE+60, SAVE+61, SAVE+62, SAVE+63, SAVE+64, SAVE+65 |
| INJURY | SAVE+3~, SAVE+40 |
| INJURY("ICIEN" | SAVE+42 |
| INJURY("INDAT" | SAVE+41 |
| INJURY("INSET" | SAVE+44 |
| LEX | DXLKP+11~, LEX+13~, ICD9~, ICD10~ |
| LEX("LIST" | ICD10+3! |
| N | LIST+27~, LIST+28*, LIST+29 |
| NARR | LIST+27~, GETDX+2~, GETDX+20*, GETDX+33, FNDNARR~, FNDNARR+2, FNDNARR+3*, FNDNARR+4, FNDNARR+6 |
| ND | LEX+58~, LEX+59*, LEX+60, LEX+61, LEX+62 |
| PNARR | SAVE~, SAVE+17*, SAVE+99 |
| POV | LIST+12~, LIST+26*, LIST+28, LIST+29, GETPOV+4~, GETPOV+15 |
| POV( | GETPOV+17, GETPOV+19 |
| POVUPD | SAVE+3~ |
| POVUPD( | SAVE+98*, SAVE+99*, SAVE+100*, SAVE+101*, SAVE+102*, SAVE+103* |
| PRMCNT | GETPOV+4~, GETPOV+12*, GETPOV+19*, GETPOV+21 |
| PROV | SAVE+2~, SAVE+20*, SAVE+25, SAVE+30*, SAVE+33* |
| PS | LIST+27~, GETDX+2~, GETDX+19*, GETDX+33, SAVE~, SAVE+26~, SAVE+27*, SAVE+98 |
| RESULT | GETDX+2~, GETDX+15*, GETDX+33*, GETDX+35 |
| RET | LEX+13~, LEX+51, FNDNARR+1~, FNDNARR+7*, FNDNARR+8 |
| RET( | LEX+57, LEX+59, LEX+67! |
| SEX | DXLKP~, DXLKP+17*, DXLKP+24, LEX~, LEX+51 |
| STS | LIST+12~, LIST+19*, LIST+23*, DEL+11*, SAVE+2~, SAVE+10*, SAVE+14*, SAVE+95*, XSAVE |
| TRC | FNDNARR+1~, FNDNARR+3*, FNDNARR+4 |
| U | LEX+22*, LEX+36, LEX+42, LEX+48, LEX+60, LEX+61, LEX+62, LEX+66, LIST+29, GETDX+30 , GETDX+33, FNDNARR+4 |
| VALUE | DXLKP~, DXLKP+24 |
| VDATE | GETDX+2~, GETDX+13*, GETDX+28, GETDX+29 |
| VDT | ICD~, ICD+15*, ICD+16, ICD+17 |
| VIEN | LIST~, LIST+10, LIST+23, GETDX+2~, GETDX+12*, GETDX+13, SAVE~, SAVE+21, SAVE+25, SAVE+40 , SAVE+68, SAVE+79, SAVE+107, GETPOV~, GETPOV+2, GETPOV+15 |
| VPOV | GETDX~, GETDX+5, GETDX+12, GETDX+17, GETDX+18, GETDX+19, GETDX+20, GETDX+24, GETDX+25, GETDX+33 |
| VPOVIEN | LIST+27~, DEL~, DEL+4, DEL+15, DEL+17, SAVE~, SAVE+71, SAVE+94*, SAVE+98, SAVE+99 , SAVE+100, SAVE+101, SAVE+102, SAVE+103 |
| VPOVUPD | DEL+2~ |
| VPOVUPD( | DEL+17* |
| X | DXLKP+14*, DXLKP+15*, LEX+13~, XIT!, ICD+9~, ICD+12*, ICD+13*, LIST+15*, LIST+16*, GETDX+8* , GETDX+9*, DEL+7*, DEL+8*, SAVE+2~, SAVE+6*, SAVE+7*, GETPOV+8*, GETPOV+9* |
| XTEXT | ICD9~, ICD10~, ICD10+6 |
| Y | XIT! |