BGPMUH01 ; IHS/MSC/MGH - MI measure NQF0495&NQF0497 ED-1 ;13-May-2011 16:00;MGH
Source file <BGPMUH01.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS GPRA Information System | 2 | $$ACTUPAP^BGPMUEPD $$DATE^BGPMUUTL | 
| Kernel | 1 | $$FMDIFF^XLFDT | 
| Registration | 1 | $$SPEC^DGPMOBS | 
| Taxonomy | 1 | $$ICD^ATXCHK | 
| VA Fileman | 1 | C^%DTC | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ENTRY2 | ;PEP  0497 Time from provider order to discharge | |
| TOTAL(LIST,RPT,POP) | ;Find the median | |
| FINDADM(DFN,ERADMIT,EREND) | ;FIND AN ADMISSION | |
| SAVE2(LIST,POP,ER) | ;Save the result | |
| CKDX(DX) | ;Check for primary diagnosis of behavioral health issue | |
| RECSAVE(RPT,POP,LIST,ER) | ;save record | |
| SPEC(FAC) | ;specialty check | |
| WARDCK(WARD) | ;ward check | |
| SAVE(LIST,POP,ER) | ;Save the result | |
| ORDER(DFN,START,END) | ;Find the admission order | |
| ENTRY(RPT) | ;PEP  0495 Median time admission to discharge from ED | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMERVSIT - [#9009080] | ENTRY+7, ENTRY+9, ENTRY+13, ENTRY+14, ENTRY+16 | 
| ^AMERVSIT("B" | ENTRY+5, ENTRY+6 | 
| ^ATXAX("B" | CKDX+4 | 
| ^AUTTASRC - [#9999999.53] | FINDADM+13 | 
| ^DGPM - [#405] | FINDADM+7, FINDADM+9, FINDADM+11, FINDADM+15, FINDADM+23, FINDADM+25 | 
| ^DGPM("C" | FINDADM+5 | 
| ^DGPM("CA" | FINDADM+22 | 
| ^DIC(42 - [#42] | WARDCK+4 | 
| ^DIC(45.7 - [#45.7] | SPEC+3 | 
| ^OR(100 - [#100] | ORDER+6, ORDER+7, ORDER+8, ORDER+11 | 
| ^ORD(101.41 - [#101.41] | ORDER+10 | 
| ^TMP("BGPMU0495" | SAVE+2, SAVE+11*, SAVE+12*, TOTAL+4, TOTAL+32* | 
| ^TMP("BGPMU0497" | SAVE2+2, SAVE2+11*, SAVE2+12*, TOTAL+6, TOTAL+34* | 
| Name | Line Occurrences | 
|---|---|
| $$CKDX | ENTRY+27 | 
| $$FINDADM | ENTRY+21 | 
| $$ORDER | RECSAVE+4 | 
| $$SPEC | FINDADM+27 | 
| $$WARDCK | FINDADM+18 | 
| RECSAVE | ENTRY+25, ENTRY+30, ENTRY+33 | 
| SAVE | RECSAVE+2 | 
| SAVE2 | RECSAVE+5 | 
| TOTAL | RECSAVE+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ADMIT | ENTRY+1~, ENTRY+21*, ENTRY+22, ENTRY+23, FINDADM+1~, FINDADM+3*, FINDADM+19*, FINDADM+28*, FINDADM+29*, FINDADM+30 , ORDER+2~, ORDER+4*, ORDER+6 | 
| ADMOR | ENTRY+1~, RECSAVE+4*, RECSAVE+5, SAVE2+4 | 
| >> BGPACTUP | ENTRY+11*, ENTRY+12 | 
| >> BGPBDATE | ENTRY+2, ENTRY+11 | 
| >> BGPBEN | ENTRY+11 | 
| >> BGPEDATE | ENTRY+3, ENTRY+11 | 
| >> BGPICARE("MU.ED.0495.1" | SAVE+8* | 
| >> BGPICARE("MU.ED.0495.2" | SAVE+9* | 
| >> BGPICARE("MU.ED.0495.3" | SAVE+10* | 
| >> BGPICARE("MU.ED.0497.1" | SAVE2+8* | 
| >> BGPICARE("MU.ED.0497.2" | SAVE2+9* | 
| >> BGPICARE("MU.ED.0497.3" | SAVE2+10* | 
| >> BGPIISO | ENTRY+12 | 
| >> BGPMUTF | SAVE+2, SAVE+8, SAVE+9, SAVE+10, SAVE+11, SAVE+12, SAVE2+2, SAVE2+8, SAVE2+9, SAVE2+10 , SAVE2+11, SAVE2+12, TOTAL+4, TOTAL+6, TOTAL+32, TOTAL+34 | 
| BGPTX | CKDX+1~, CKDX+4*, CKDX+5, CKDX+6 | 
| >> BGPXPXPX | ENTRY+12 | 
| CNT | SAVE+1~, SAVE+2*, SAVE+3*, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+10, SAVE+11, SAVE+12 , SAVE2+1~, SAVE2+2*, SAVE2+3*, SAVE2+6, SAVE2+7, SAVE2+8, SAVE2+9, SAVE2+10, SAVE2+11, SAVE2+12 , TOTAL+1~, TOTAL+4*, TOTAL+6*, TOTAL+7, TOTAL+32, TOTAL+34 | 
| CNT2 | TOTAL+1~, TOTAL+7*, TOTAL+8, TOTAL+10, TOTAL+24 | 
| DFN | ENTRY+1~, ENTRY+9*, ENTRY+10, ENTRY+11, ENTRY+21, FINDADM~, FINDADM+5, RECSAVE+4, SAVE+8, SAVE+9 , SAVE+10, SAVE+12, SAVE2+8, SAVE2+9, SAVE2+10, SAVE2+12, ORDER~, ORDER+5 | 
| DISCH | ORDER+2~, ORDER+4*, ORDER+6 | 
| DX | CKDX~, CKDX+6 | 
| DXCHK | ENTRY+1~, ENTRY+27*, ENTRY+28 | 
| END | ENTRY+1~, ENTRY+3*, ENTRY+5, ORDER~, ORDER+4 | 
| ER | RECSAVE~, RECSAVE+2, RECSAVE+5, SAVE~, SAVE+8, SAVE+9, SAVE+10, SAVE2~, SAVE2+8, SAVE2+9 , SAVE2+10 | 
| ERADMIT | ENTRY+1~, ENTRY+7*, ENTRY+8, ENTRY+21, ENTRY+25, ENTRY+30, ENTRY+33, FINDADM~, FINDADM+4, FINDADM+8 , RECSAVE+4, SAVE+4 | 
| ERDIS | ENTRY+1~, ENTRY+16* | 
| ERDX | ENTRY+1~ | 
| EREND | ENTRY+1~, ENTRY+16*, ENTRY+17, ENTRY+21, FINDADM~, RECSAVE+4, SAVE+4, SAVE2+4 | 
| ERPRIDX | ENTRY+1~, ENTRY+14*, ENTRY+15, ENTRY+27 | 
| ERPRV | ENTRY+1~, ENTRY+13* | 
| ERVST | ENTRY+1~, ENTRY+9* | 
| FAC | FINDADM+1~, FINDADM+25*, FINDADM+26, FINDADM+27, SPEC~, SPEC+2, SPEC+3 | 
| FSPEC | SPEC+1~, SPEC+4*, SPEC+5*, SPEC+6 | 
| I | TOTAL+1~ | 
| IEN | ENTRY+1~, ENTRY+6*, ENTRY+7, ENTRY+9, ENTRY+13, ENTRY+14, ENTRY+16 | 
| LIST | ENTRY+1~, ENTRY+25, ENTRY+30, ENTRY+33, RECSAVE~, RECSAVE+2, RECSAVE+5, RECSAVE+6, SAVE~, SAVE2~ , TOTAL~ | 
| LIST("ORDERED" | SAVE+6*, SAVE2+6*, TOTAL+14, TOTAL+15, TOTAL+18, TOTAL+20, TOTAL+26, TOTAL+27 | 
| LIST("POP" | SAVE+7*, SAVE2+7* | 
| MEDIAN | TOTAL+1~, TOTAL+30*, TOTAL+32, TOTAL+34 | 
| MGVT | FINDADM+1~ | 
| MID1 | TOTAL+1~, TOTAL+19*, TOTAL+20*, TOTAL+21 | 
| MID2 | TOTAL+1~, TOTAL+19*, TOTAL+20*, TOTAL+21 | 
| MIDDLE | TOTAL+1~, TOTAL+2*, TOTAL+14, TOTAL+15, TOTAL+21*, TOTAL+26, TOTAL+27, TOTAL+29*, TOTAL+30 | 
| MTVED | FINDADM+1~ | 
| MVTDT | FINDADM+1~, FINDADM+7*, FINDADM+8 | 
| MVTED | FINDADM+2~, FINDADM+4*, FINDADM+8 | 
| MVTFAC | FINDADM+1~, FINDADM+22*, FINDADM+23, FINDADM+25 | 
| MVTIEN | FINDADM+1~, FINDADM+5*, FINDADM+7, FINDADM+9, FINDADM+11, FINDADM+15, FINDADM+22 | 
| >> NXTPT | TOTAL+18*, TOTAL+19 | 
| OBS | FINDADM+1~, FINDADM+18*, FINDADM+19 | 
| OFFSET | TOTAL+1~, TOTAL+11*, TOTAL+16*, TOTAL+17, TOTAL+25*, TOTAL+28*, TOTAL+29 | 
| OFFSET2 | TOTAL+1~ | 
| ORD | ORDER+2~, ORDER+6*, ORDER+7 | 
| ORDIA | ORDER+2~, ORDER+8*, ORDER+9 | 
| ORDLK | ORDER+2~, ORDER+9*, ORDER+10 | 
| ORIEN | ORDER+2~, ORDER+7*, ORDER+8, ORDER+11 | 
| POP | ENTRY+1~, ENTRY+19*, ENTRY+24*, ENTRY+25, ENTRY+29*, ENTRY+30, ENTRY+32, ENTRY+33, RECSAVE~, RECSAVE+2 , RECSAVE+5, RECSAVE+6, SAVE~, SAVE+2, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+10, SAVE+11 , SAVE+12, SAVE2~, SAVE2+2, SAVE2+6, SAVE2+7, SAVE2+8, SAVE2+9, SAVE2+10, SAVE2+11, SAVE2+12 , TOTAL~, TOTAL+4, TOTAL+6, TOTAL+14, TOTAL+15, TOTAL+18, TOTAL+20, TOTAL+26, TOTAL+27, TOTAL+32 , TOTAL+34 | 
| PT | ORDER+2~, ORDER+5*, ORDER+6, ORDER+7 | 
| >> PTCNT | TOTAL+15*, TOTAL+18, TOTAL+27* | 
| RESULT | CKDX+1~, CKDX+2*, CKDX+6*, CKDX+7, SAVE+1~, SAVE+8*, SAVE+9*, SAVE+10*, SAVE+12, SAVE2+1~ , SAVE2+8*, SAVE2+9*, SAVE2+10*, SAVE2+12 | 
| RET | ORDER+2~, ORDER+3*, ORDER+6, ORDER+11*, ORDER+12 | 
| RPT | ENTRY~, ENTRY+25, ENTRY+30, ENTRY+33, RECSAVE~, RECSAVE+1, RECSAVE+3, RECSAVE+6, TOTAL~, TOTAL+3 , TOTAL+5, TOTAL+31, TOTAL+33 | 
| SPEC | FINDADM+1~, FINDADM+21*, FINDADM+22, FINDADM+27*, FINDADM+28 | 
| SPIFN | WARDCK+1~, WARDCK+4*, WARDCK+5, WARDCK+6, SPEC+1~, SPEC+3*, SPEC+4 | 
| SRC | FINDADM+2~, FINDADM+11*, FINDADM+12, FINDADM+13 | 
| START | ENTRY+1~, ENTRY+2*, ENTRY+5*, ENTRY+6, ORDER~, ORDER+4 | 
| TAX | CKDX+1~, CKDX+3*, CKDX+4 | 
| TIME | SAVE+1~, SAVE+5*, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+10, SAVE2+1~, SAVE2+5*, SAVE2+6 , SAVE2+7, SAVE2+8, SAVE2+9, SAVE2+10, TOTAL+14*, TOTAL+15, TOTAL+18, TOTAL+19, TOTAL+20, TOTAL+26* , TOTAL+27, TOTAL+29 | 
| TRANS | FINDADM+1~, FINDADM+9*, FINDADM+10 | 
| TRANS2 | FINDADM+1~, FINDADM+23*, FINDADM+24 | 
| TXT | ORDER+2~, ORDER+10*, ORDER+11 | 
| U | ENTRY+7, ENTRY+9, ENTRY+13, ENTRY+14, ENTRY+16, FINDADM+7, FINDADM+9, FINDADM+11, FINDADM+13, FINDADM+15 , FINDADM+23, FINDADM+25, WARDCK+4, SPEC+3, SAVE+8, SAVE+9, SAVE+10, SAVE+12, SAVE2+8, SAVE2+9 , SAVE2+10, SAVE2+12, ORDER+8, ORDER+10, ORDER+11, TOTAL+32, TOTAL+34 | 
| UB | FINDADM+2~, FINDADM+13*, FINDADM+14 | 
| WARD | FINDADM+1~, FINDADM+15*, FINDADM+17, FINDADM+18, WARDCK~, WARDCK+3, WARDCK+4 | 
| WHOLE | TOTAL+1~, TOTAL+10*, TOTAL+13*, TOTAL+17, TOTAL+24*, TOTAL+29 | 
| WSPEC | WARDCK+1~, WARDCK+2*, WARDCK+6*, WARDCK+7*, WARDCK+8 | 
| X | FINDADM+1~, FINDADM+4 | 
| X1 | FINDADM+1~, FINDADM+4*, SAVE+1~, SAVE+4*, SAVE+5, SAVE2+1~, SAVE2+4*, SAVE2+5 | 
| X2 | FINDADM+1~, FINDADM+4*, SAVE+1~, SAVE+4*, SAVE+5, SAVE2+1~, SAVE2+4*, SAVE2+5 | 
| X3 | SAVE+1~, SAVE+4*, SAVE+5, SAVE2+1~, SAVE2+4*, SAVE2+5 |