PXRHS02 ;ISL/SBW - PCE Visit data extract subroutines ;08/02/2024
Source file <PXRHS02.m>
| 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 |
|---|---|---|
| GETREC(PXA,PXCAT,EXTRCODE,IEXDT,PXCNT) | ; Get rec and load ^TMP("PXHSV",$J,
|
|
| GETHLOC(PXHLOC) | ; Get hospital location abbreviation
|
|
| GETCPT(PXVDF,IDT,CNT) | ; Get Procedures performed during the visit
|
|
| GETPOV(PXVDF,IDT,CNT) | ; Get Purpose of visit
|
|
| GETPROV(PXVDF,IDT,CNT) | ;Entry point to get providers for a visits
|
|
| NONEXISTENTVISIT(VFILENUMBER,VFILEIEN,VISITIEN) | ;Send a message that a V-file entry
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVCPT("AD" | GETCPT+1, GETCPT+4 |
| ^AUPNVPOV("AD" | GETPOV+1, GETPOV+4 |
| ^AUPNVPRV("AD" | GETPROV+1, GETPROV+3 |
| ^SC - [#44] | GETHLOC+1 |
| ^TMP( | NONEXISTENTVISIT+5!, NONEXISTENTVISIT+6*, NONEXISTENTVISIT+7*, NONEXISTENTVISIT+8*, NONEXISTENTVISIT+9*, NONEXISTENTVISIT+10*, NONEXISTENTVISIT+14! |
| ^TMP("PXHSV" | GETREC+26*, GETCPT+15*, GETCPT+16*, GETCPT+26*, GETPOV+17*, GETPOV+18*, GETPOV+19*, GETPROV+13* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAUSE | GETPOV+5~, GETPOV+13*, GETPOV+17 |
| CHKOUT | GETREC+1~, GETREC+20*, GETREC+26 |
| CLINIC | GETREC+1~, GETREC+15*, GETREC+26 |
| CNT | GETCPT~, GETCPT+15, GETCPT+16, GETCPT+26, GETPOV~, GETPOV+17, GETPOV+18, GETPOV+19, GETPROV~, GETPROV+13 |
| COMMENT | GETCPT+2~, GETCPT+14*, GETCPT+16, GETPOV+2~, GETPOV+16*, GETPOV+19 |
| CPT | GETCPT+5~, GETCPT+10*, GETCPT+15 |
| DA | GETREC+1~, GETREC+3*, GETREC+9, GETREC+10, GETREC+12, GETREC+13, GETREC+14, GETREC+15, GETREC+21, GETREC+22 , GETREC+23, GETREC+24, GETCPT+5~, GETCPT+6*, GETCPT+10, GETCPT+11, GETCPT+12, GETCPT+13, GETCPT+14, GETPOV+5~ , GETPOV+6*, GETPOV+10, GETPOV+11, GETPOV+12, GETPOV+15, GETPOV+16, GETPROV+4~, GETPROV+5*, GETPROV+9, GETPROV+10 , GETPROV+11 |
| DIC | GETREC+1~, GETREC+3*, GETCPT+5~, GETCPT+6*, GETPOV+5~, GETPOV+6*, GETPROV+4~, GETPROV+5* |
| DIQ | GETREC+1~, GETREC+3*, GETCPT+5~, GETCPT+6*, GETPOV+5~, GETPOV+6*, GETPROV+4~, GETPROV+5* |
| DIQ(0 | GETREC+3*, GETCPT+6*, GETPOV+6*, GETPROV+5* |
| DR | GETREC+1~, GETREC+6*, GETCPT+5~, GETCPT+7*, GETPOV+5~, GETPOV+7*, GETPROV+4~, GETPROV+6* |
| ELIG | GETREC+1~, GETREC+21*, GETREC+26 |
| EMCODE | GETREC+1~, GETREC+18*, GETREC+26 |
| EXTRCODE | GETREC~, GETREC+27, GETREC+28, GETREC+29 |
| FROM | NONEXISTENTVISIT+2~, NONEXISTENTVISIT+11*, NONEXISTENTVISIT+13 |
| HLOC | GETREC+2~, GETREC+22*, GETREC+26 |
| HLOCABB | GETREC+2~, GETREC+23*, GETREC+26 |
| IDT | GETCPT~, GETCPT+15, GETCPT+16, GETCPT+24, GETCPT+26, GETPOV~, GETPOV+17, GETPOV+18, GETPOV+19, GETPROV~ , GETPROV+13 |
| IEXDT | GETREC~, GETREC+11*, GETREC+26, GETREC+27, GETREC+28, GETREC+29 |
| IPRIM | GETPROV+4~, GETPROV+11*, GETPROV+12*, GETPROV+13 |
| LOC | GETREC+1~, GETREC+13*, GETREC+26 |
| MOD | GETCPT+5~, GETCPT+23*, GETCPT+24*, GETCPT+25, GETCPT+26, GETPOV+5~, GETPOV+12*, GETPOV+17 |
| NARR | GETCPT+5~, GETCPT+11*, GETCPT+15, GETPOV+5~, GETPOV+11*, GETPOV+18 |
| NODE | NONEXISTENTVISIT+2~, NONEXISTENTVISIT+3*, NONEXISTENTVISIT+5, NONEXISTENTVISIT+6, NONEXISTENTVISIT+7, NONEXISTENTVISIT+8, NONEXISTENTVISIT+9, NONEXISTENTVISIT+10, NONEXISTENTVISIT+13, NONEXISTENTVISIT+14 |
| OLOC | GETREC+2~, GETREC+24*, GETREC+26 |
| PLACE | GETPOV+5~, GETPOV+14*, GETPOV+17 |
| POV | GETPOV+5~, GETPOV+10*, GETPOV+17 |
| PRIM | GETCPT+5~, GETCPT+13*, GETCPT+15, GETPOV+5~, GETPOV+15*, GETPOV+17, GETPROV+4~, GETPROV+10*, GETPROV+13 |
| PROV | GETPROV+4~, GETPROV+9*, GETPROV+13 |
| PXA | GETREC~, GETREC+3, GETREC+27, GETREC+28, GETREC+29 |
| PXCAT | GETREC~, GETREC+9 |
| PXCNT | GETREC~, GETREC+25*, GETREC+26, GETREC+27, GETREC+28, GETREC+29 |
| PXHLOC | GETHLOC~, GETHLOC+1 |
| PXPDN | GETCPT+2~, GETCPT+3*, GETCPT+4*, GETCPT+6, GETCPT+15, GETCPT+16, GETCPT+18, GETCPT+26, GETPOV+2~, GETPOV+3* , GETPOV+4*, GETPOV+6, GETPOV+17, GETPOV+18, GETPOV+19, GETPROV+2*, GETPROV+3*, GETPROV+5, GETPROV+13 |
| PXVDF | GETCPT~, GETCPT+1, GETCPT+4, GETPOV~, GETPOV+1, GETPOV+4, GETPROV~, GETPROV+1, GETPROV+3 |
| QTY | GETCPT+5~, GETCPT+12*, GETCPT+15 |
| REC | GETREC+1~, GETREC+8, GETCPT+5~, GETCPT+9, GETCPT+18!, GETCPT+20, GETPOV+5~, GETPOV+9, GETPROV+4~, GETPROV+8 |
| REC( | GETCPT+10, GETCPT+11, GETCPT+12, GETCPT+13, GETCPT+14, GETPOV+10, GETPOV+11, GETPOV+12, GETPOV+15, GETPOV+16 , GETPROV+9, GETPROV+10, GETPROV+11 |
| REC(1 | GETCPT+22, GETCPT+23 |
| REC(9000010 | GETREC+9, GETREC+10, GETREC+12, GETREC+13, GETREC+14, GETREC+15, GETREC+21, GETREC+22, GETREC+23, GETREC+24 |
| SERCAT | GETREC+1~, GETREC+14*, GETREC+26 |
| SUBIEN | GETCPT+5~, GETCPT+21*, GETCPT+22*, GETCPT+23 |
| SUBJECT | NONEXISTENTVISIT+2~, NONEXISTENTVISIT+12*, NONEXISTENTVISIT+13 |
| TYPE | GETREC+1~, GETREC+12*, GETREC+26 |
| U | GETREC+26, GETHLOC+1, GETCPT+15, GETPOV+17, GETPROV+13 |
| VFILEDATA | NONEXISTENTVISIT+2~ |
| VFILEDATA("NAME" | NONEXISTENTVISIT+6 |
| VFILEIEN | NONEXISTENTVISIT~, NONEXISTENTVISIT+7 |
| VFILENUMBER | NONEXISTENTVISIT~, NONEXISTENTVISIT+4 |
| VISIT | GETREC+1~, GETREC+10*, GETREC+11, GETREC+26 |
| VISITIEN | NONEXISTENTVISIT~, NONEXISTENTVISIT+7 |
| WALKAPT | GETREC+1~, GETREC+17*, GETREC+26 |
