PXCOMPACTEVAL ;ALB/BPA,CMC - COMPACT Act evaluation / protocol entry routine;1/8/2025@10:58am
Source file <PXCOMPACTEVAL.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZTLOAD $$NOW^XLFDT |
| CPT HCPCS Codes | 1 | $$STATCHK^ICPTAPIU |
| DRG Grouper | 1 | $$CODEN^ICDEX |
| PCE Patient Care Encounter | 1 | ($$ASC,$$GETEOC,$$GETEOCSEQ,$$GETPOINTRSEQ,NEWEOC,SETENDDT,SETVSTFLG,VISIT)^PXCOMPACT |
| Registration | 1 | $$ELIG^DGCOMPACTELIG |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EVAL | ; load an TMP global with foreground $J value to simulate a pre-existing TMP global from protocol
|
|
| EVALQUE | ; RUNS IN BACKGROUND
|
|
| CHNGEVAL(DFN,PXVSTIEN) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | EVAL+9 |
| $$ELIG^DGCOMPACTELIG | EVALQUE+87, EVALQUE+101 |
| $$CODEN^ICDEX | EVALQUE+31, EVALQUE+32, EVALQUE+33, EVALQUE+34 |
| $$STATCHK^ICPTAPIU | EVALQUE+36, EVALQUE+37 |
| $$ASC^PXCOMPACT | EVALQUE+20, EVALQUE+91 |
| $$GETEOC^PXCOMPACT | EVALQUE+23, CHNGEVAL+4 |
| $$GETEOCSEQ^PXCOMPACT | EVALQUE+23, CHNGEVAL+4 |
| $$GETPOINTRSEQ^PXCOMPACT | CHNGEVAL+5 |
| NEWEOC^PXCOMPACT | EVALQUE+88 |
| SETENDDT^PXCOMPACT | EVALQUE+71, CHNGEVAL+11 |
| SETVSTFLG^PXCOMPACT | CHNGEVAL+18, CHNGEVAL+21 |
| VISIT^PXCOMPACT | EVALQUE+70, EVALQUE+102 |
| $$NOW^XLFDT | EVAL+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTHF("B" | EVALQUE+26, EVALQUE+27, EVALQUE+28 |
| ^PXCOMP(818 - [#818] | EVALQUE+106, CHNGEVAL+10, CHNGEVAL+12*, CHNGEVAL+14, CHNGEVAL+16 |
| ^TMP("PXKCO" | EVAL+5 |
| ^XTMP( | EVAL+5*, EVALQUE+12, EVALQUE+15, EVALQUE+16, EVALQUE+18!, EVALQUE+43, EVALQUE+44, EVALQUE+45, EVALQUE+46, EVALQUE+51 , EVALQUE+52, EVALQUE+53, EVALQUE+54, EVALQUE+59, EVALQUE+60, EVALQUE+61, EVALQUE+62, EVALQUE+63, EVALQUE+67! |
| Name | Line Occurrences |
|---|---|
| CHNGEVAL | EVALQUE+111 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CPTBEFOR | EVALQUE+1~, EVALQUE+5* |
| CPTBEFOR( | EVALQUE+48*, EVALQUE+108 |
| CPTBEFORVAL | EVALQUE+1~, EVALQUE+5*, EVALQUE+46*, EVALQUE+48 |
| CPTCODE | EVALQUE+1~, EVALQUE+5* |
| CPTCODE( | EVALQUE+45*, EVALQUE+83, EVALQUE+84, EVALQUE+97, EVALQUE+98 |
| CPTVAL | EVALQUE+1~, EVALQUE+5*, EVALQUE+45*, EVALQUE+48 |
| DFN | EVALQUE+1~, EVALQUE+5*, EVALQUE+15*, EVALQUE+18, EVALQUE+20, EVALQUE+23, EVALQUE+70, EVALQUE+71, EVALQUE+87, EVALQUE+88 , EVALQUE+91, EVALQUE+101, EVALQUE+102, EVALQUE+106, EVALQUE+111, CHNGEVAL~, CHNGEVAL+4, CHNGEVAL+5, CHNGEVAL+11, CHNGEVAL+18 , CHNGEVAL+21 |
| DT | EVAL+3, EVAL+4, EVALQUE+40, CHNGEVAL+11 |
| DXCOD1 | EVALQUE+1~, EVALQUE+5*, EVALQUE+31*, EVALQUE+82, EVALQUE+96, EVALQUE+109 |
| DXCOD2 | EVALQUE+1~, EVALQUE+5*, EVALQUE+32*, EVALQUE+83, EVALQUE+97, EVALQUE+109 |
| DXCOD3 | EVALQUE+1~, EVALQUE+5*, EVALQUE+33*, EVALQUE+94, EVALQUE+109 |
| DXCOD4 | EVALQUE+1~, EVALQUE+5*, EVALQUE+34*, EVALQUE+95, EVALQUE+109 |
| HFBEFOR | EVALQUE+1~, EVALQUE+5* |
| HFBEFOR( | EVALQUE+64*, EVALQUE+65*, EVALQUE+110 |
| HFBEFORVAL | EVALQUE+1~, EVALQUE+5* |
| HFCHECK | EVALQUE+1~, EVALQUE+5*, EVALQUE+63*, EVALQUE+64, EVALQUE+65 |
| HFCODE | EVALQUE+2~, EVALQUE+6* |
| HFCODE( | EVALQUE+61*, EVALQUE+69, EVALQUE+81, EVALQUE+92, EVALQUE+93 |
| HFVAL | EVALQUE+2~, EVALQUE+6*, EVALQUE+61*, EVALQUE+62, EVALQUE+64, EVALQUE+65 |
| POVBEFOR | EVALQUE+2~, EVALQUE+6* |
| POVBEFOR( | EVALQUE+56*, EVALQUE+109 |
| POVBEFORVAL | EVALQUE+2~, EVALQUE+6*, EVALQUE+54*, EVALQUE+56 |
| POVCODE | EVALQUE+2~, EVALQUE+6* |
| POVCODE( | EVALQUE+53*, EVALQUE+82, EVALQUE+83, EVALQUE+94, EVALQUE+95, EVALQUE+96, EVALQUE+97 |
| POVVAL | EVALQUE+2~, EVALQUE+6*, EVALQUE+53*, EVALQUE+56 |
| PURGEDT | EVAL+1~, EVAL+3*, EVAL+4 |
| PXADMIN | EVALQUE+2~, EVALQUE+6*, EVALQUE+87*, EVALQUE+88, EVALQUE+101*, EVALQUE+102 |
| PXCOD1 | EVALQUE+2~, EVALQUE+6*, EVALQUE+36*, EVALQUE+83, EVALQUE+97, EVALQUE+108 |
| PXCOD2 | EVALQUE+2~, EVALQUE+6*, EVALQUE+37*, EVALQUE+84, EVALQUE+98, EVALQUE+108 |
| PXEOCNUM | EVALQUE+2~, EVALQUE+23*, EVALQUE+70, EVALQUE+102, CHNGEVAL+1~, CHNGEVAL+2*, CHNGEVAL+4*, CHNGEVAL+10, CHNGEVAL+12, CHNGEVAL+14 , CHNGEVAL+16 |
| PXEOCSEQ | EVALQUE+2~, EVALQUE+23*, CHNGEVAL+1~, CHNGEVAL+2*, CHNGEVAL+4*, CHNGEVAL+10, CHNGEVAL+12, CHNGEVAL+14, CHNGEVAL+16 |
| PXFOLLOW | EVALQUE+2~, EVALQUE+9*, EVALQUE+91, EVALQUE+92*, EVALQUE+93*, EVALQUE+94*, EVALQUE+95*, EVALQUE+96*, EVALQUE+97*, EVALQUE+98* , EVALQUE+99, EVALQUE+106 |
| PXHFFOLLOW | EVALQUE+3~, EVALQUE+8*, EVALQUE+27*, EVALQUE+65, EVALQUE+93, EVALQUE+110 |
| PXHFINITIAL | EVALQUE+3~, EVALQUE+8*, EVALQUE+26*, EVALQUE+64, EVALQUE+81, EVALQUE+92, EVALQUE+110 |
| PXHFNONACUTE | EVALQUE+3~, EVALQUE+8*, EVALQUE+28*, EVALQUE+69 |
| PXNEWEOC | EVALQUE+3~, EVALQUE+9*, EVALQUE+80, EVALQUE+81*, EVALQUE+82*, EVALQUE+83*, EVALQUE+84*, EVALQUE+85, EVALQUE+106 |
| PXOPNCLOSE | EVALQUE+3~, EVALQUE+9*, EVALQUE+20*, EVALQUE+69, EVALQUE+80 |
| PXPONTRSEQ | CHNGEVAL+1~, CHNGEVAL+2*, CHNGEVAL+5*, CHNGEVAL+6, CHNGEVAL+10 |
| PXSTDT | EVALQUE+3~, EVALQUE+7*, EVALQUE+16*, EVALQUE+40*, EVALQUE+71, EVALQUE+88 |
| PXUPDATEVST | EVALQUE+4~, EVALQUE+9*, EVALQUE+48*, EVALQUE+56*, EVALQUE+64*, EVALQUE+65*, EVALQUE+106 |
| PXUPDTEOC | EVALQUE+4~, EVALQUE+9*, EVALQUE+107*, EVALQUE+108*, EVALQUE+109*, EVALQUE+110*, EVALQUE+111 |
| PXVCPTIEN | EVALQUE+3~, EVALQUE+6*, EVALQUE+43*, EVALQUE+44, EVALQUE+45, EVALQUE+46, EVALQUE+48 |
| PXVHFIEN | EVALQUE+3~, EVALQUE+6*, EVALQUE+59*, EVALQUE+60, EVALQUE+61, EVALQUE+62, EVALQUE+63, EVALQUE+64, EVALQUE+65 |
| PXVPOVIEN | EVALQUE+3~, EVALQUE+6*, EVALQUE+51*, EVALQUE+52, EVALQUE+53, EVALQUE+54, EVALQUE+56 |
| PXVSTFLG | CHNGEVAL+1~, CHNGEVAL+2*, CHNGEVAL+15*, CHNGEVAL+16 |
| PXVSTIEN | EVALQUE+3~, EVALQUE+7*, EVALQUE+12*, EVALQUE+14, EVALQUE+15, EVALQUE+16, EVALQUE+43, EVALQUE+44, EVALQUE+45, EVALQUE+46 , EVALQUE+51, EVALQUE+52, EVALQUE+53, EVALQUE+54, EVALQUE+59, EVALQUE+60, EVALQUE+61, EVALQUE+62, EVALQUE+63, EVALQUE+70 , EVALQUE+88, EVALQUE+102, EVALQUE+111, CHNGEVAL~, CHNGEVAL+5, CHNGEVAL+16*, CHNGEVAL+18, CHNGEVAL+21 |
| PXVSTLST | CHNGEVAL+1~, CHNGEVAL+2*, CHNGEVAL+14*, CHNGEVAL+15 |
| U | EVAL+4 |
| XTMPSUB | EVAL+1~, EVAL+2*, EVAL+5, EVALQUE+12, EVALQUE+15, EVALQUE+16, EVALQUE+18, EVALQUE+43, EVALQUE+44, EVALQUE+45 , EVALQUE+46, EVALQUE+51, EVALQUE+52, EVALQUE+53, EVALQUE+54, EVALQUE+59, EVALQUE+60, EVALQUE+61, EVALQUE+62, EVALQUE+63 , EVALQUE+67 |
| XTMPSUB(0 | EVAL+4* |
| ZTDESC | EVAL+1~, EVAL+7* |
| ZTDTH | EVAL+1~, EVAL+7* |
| ZTIO | EVAL+1~, EVAL+7* |
| >> ZTQUEUED | EVALQUE+113 |
| >> ZTREQ | EVALQUE+113* |
| ZTRTN | EVAL+1~, EVAL+6* |
| ZTSAVE | EVAL+1~ |
| ZTSAVE("XTMPSUB" | EVAL+8* |