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! |