PXCOMPACTEVAL ;ALB/BPA,CMC - COMPACT Act evaluation / protocol entry routine;12/26/2023@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, EVALQUE+114! |
ZTREQ | EVALQUE+113*, EVALQUE+114! |
ZTRTN | EVAL+1~, EVAL+6* |
ZTSAVE | EVAL+1~ |
ZTSAVE("XTMPSUB" | EVAL+8* |