PXRHS02 ;ISL/SBW - PCE Visit data extract subroutines ;8-Nov-96
Source file <PXRHS02.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 2 | CPTMODIF^PXAAVCPT ($$GETHLOC,GETCPT,GETPOV,GETPROV)^PXRHS02 |
DRG Grouper | 1 | $$MOD^ICPTMOD |
VA Fileman | 1 | EN^DIQ1 |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 4 | PXRHS01 PXRHS02 PXRHS03 PXRHS12 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETPROV(PXVDF,IDT,CNT) | ;Entry point to get providers for a visits
|
|
GETCPT(PXVDF,IDT,CNT) | ; Get Procedures performed during the visit
|
|
GETHLOC(PXHLOC) | ; Get hospital location abbreviation
|
|
GETREC(PXA,PXCAT,EXTRCODE,IEXDT,PXCNT) | ; Get rec and load ^TMP("PXHSV",$J,
|
|
GETPOV(PXVDF,IDT,CNT) | ; Get Purpose of visit
|
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("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 |
HLOC | GETREC+2~, GETREC+22*, GETREC+26 |
HLOCABB | GETREC+2~, GETREC+23*, GETREC+26 |
IDT | GETCPT~, GETCPT+15, GETCPT+16, 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 |
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 |
TYPE | GETREC+1~, GETREC+12*, GETREC+26 |
U | GETREC+26, GETHLOC+1, GETCPT+15, GETPOV+17, GETPROV+13 |
VISIT | GETREC+1~, GETREC+10*, GETREC+11, GETREC+26 |
WALKAPT | GETREC+1~, GETREC+17*, GETREC+26 |