LRCAPES1 ;DALOI/FHS/KLL-CONT MANUAL PCE CPT WORKLOAD CAPTURE ; 22-Oct-2013 09:22 ; MKK
Source file <LRCAPES1.m>
Package | Total | Call Graph |
---|---|---|
Lab Service | 6 | (CLEAN,EN,LOAD)^LRCAPES (LSTCPT,READ)^LRCAPES1 SEND^LRCAPPH1 STUFI^LRCAPV1 SET^LRCAPV1S RANGE^LRWU2 |
Kernel | 3 | ($$FMADD,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$GET^XUA4A72 |
VA Fileman | 2 | ($$GET1,EN)^DIQ ^DIR |
DRG Grouper | 1 | ($$CPT,$$CPTD)^ICPTCOD |
IHS Changes To Lab | 1 | $$PATCH^BLRUTIL4 |
PCE Patient Care Encounter | 1 | GETCPT^PXAPIOE |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; EP - Setup the order of defined NLT codes
|
|
READ | ;Select CPT codes for accession
; Ask if want to see previously loaded CPT codes |
|
SETWKL(LRAA,LRAD,LRAN) | ;Set workload into 68 from CPT coding
|
|
CHK | ;User accepts CPT list
|
|
SEND | ;Send data to PCE via DATA2PCE^PXAPI API
|
|
SET(DFN,LRPRO,LREDT,LRLOC,LRINS,LRCPT,LRAA,LRAD,LRAN) | ; Call to check variable
|
|
RD | ;DIR read
|
|
CHKCPT | ;Edit CPT code - does it exist,active in 81 or 64, linked to workload?
|
|
LSTCPT(LRAA,LRAD,LRAN) | ||
PG | ;Page break
|
|
DEM | ;
|
|
HLP | ;Help display for CPT selection
|
|
DIS | ;
|
Name | Field # of Occurrence |
---|---|
$$PATCH^BLRUTIL4 | EN+1, SET+1, SEND+1, SETWKL+1, DIS+1, CHK+1, DEM+1, CHKCPT+1, LSTCPT+1, HLP+1 |
$$GET1^DIQ | EN+19, EN+20, SEND+3, DEM+11, DEM+24, DEM+28, DEM+29 |
EN^DIQ | LSTCPT+16 |
^DIR | PG+2, RD+4, LSTCPT+9 |
$$CPT^ICPTCOD | EN+15 |
$$CPTD^ICPTCOD | EN+17 |
CLEAN^LRCAPES | SET+14 |
EN^LRCAPES | SET+12 |
LOAD^LRCAPES | SET+14 |
LSTCPT^LRCAPES1 | HLP+13 |
READ^LRCAPES1 | SET+12 |
SEND^LRCAPPH1 | SEND+8 |
STUFI^LRCAPV1 | SETWKL+19 |
SET^LRCAPV1S | SETWKL+19 |
RANGE^LRWU2 | DIS+8 |
GETCPT^PXAPIOE | LSTCPT+13 |
$$FMADD^XLFDT | EN+8, CHK+8 |
$$FMTE^XLFDT | DEM+7 |
$$NOW^XLFDT | SEND+6 |
$$CJ^XLFSTR | SEND+4, SEND+9, SETWKL+6, DEM+34, HLP+6, HLP+7 |
$$GET^XUA4A72 | SET+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^LR - [#63] | GET1^DIQ |
^LAM - [#64] | GET1^DIQ |
68.05 | GET1^DIQ |
^AUPNVCPT - [#9000010.18] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | SET+10 |
^DPT - [#2] | SET+4 |
^LAB(60 - [#60] | DEM+21 |
^LAM - [#64] | EN+14, EN+15, SETWKL+15, SETWKL+16, CHKCPT+14, CHKCPT+18, CHKCPT+21, CHKCPT+22, CHKCPT+24 |
^LAM("AB" | SETWKL+14, CHKCPT+7, CHKCPT+10, CHKCPT+13 |
^LR - [#63] | DEM+12, DEM+15 |
^LRO(68 - [#68] | SEND+5, SEND+10*, SETWKL+3, SETWKL+4, SETWKL+10, SETWKL+17, DEM+10, DEM+19, LSTCPT+6 |
^SC - [#44] | SET+7, SET+8 |
^TMP("LR" | EN+4, EN+6!, EN+8*, EN+9*, EN+19*, EN+20*, SET+13, SETWKL+5!, SETWKL+11, SETWKL+12 , SETWKL+14, SETWKL+20!, DIS+5!, DIS+10, CHK+7!, CHK+8*, DEM+33, DEM+38, DEM+40 |
^TMP("LRPXAPI" | SEND+3 |
Name | Line Occurrences |
---|---|
DEM | DIS+18 |
DIS | SET+13 |
LSTCPT | READ+2 |
PG | DEM+20, DEM+39, LSTCPT+15 |
RD | CHK+5, READ+8, HLP+12 |
SETWKL | SEND+11 |
Name | Field # of Occurrence |
---|---|
^( | DEM+15 |
^("PCE" | SEND+5*, DEM+10 |
^(0 | CHKCPT+14, CHKCPT+24 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | DEM+3~, LSTCPT+7~, LSTCPT+16* |
DFN | SET~, SET+4 |
DIC | LSTCPT+7~, LSTCPT+16* |
DIR | CHK+3~, PG+1~, READ+3~, LSTCPT+7~, HLP+3~ |
DIR("?" | READ+6* |
DIR("??" | READ+7* |
DIR("A" | CHK+4*, READ+5*, LSTCPT+8* |
DIR("B" | CHK+5*, LSTCPT+9* |
DIR(0 | CHK+5*, PG+2*, READ+4*, LSTCPT+8*, HLP+12* |
DIROUT | RD+1~ |
DIRUT | PG+1~, PG+3, RD+1~, RD+4, LSTCPT+7~, LSTCPT+9, HLP+3~ |
>> DOB | DEM+7 |
DR | LSTCPT+7~, LSTCPT+16* |
DT | EN+4, EN+8, EN+9, EN+15, SET+5, CHK+8 |
DTOUT | PG+1~, RD+1~, HLP+3~ |
DUOUT | PG+1~, RD+1~, LSTCPT+7~, HLP+3~ |
DUZ | EN+4, EN+9 |
ERR | LSTCPT+7~ |
>> HRCN | DEM+7 |
IEN | LSTCPT+7~, LSTCPT+12*, LSTCPT+13 |
IOF | PG+4, DEM+5, LSTCPT+11, LSTCPT+15, HLP+4, HLP+12 |
IOM | SEND+4, SETWKL+6, DEM+34, HLP+6, HLP+7 |
IOSL | DEM+20, DEM+39, LSTCPT+15, HLP+12 |
LRAA | SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+3, SETWKL+4, SETWKL+10, SETWKL+17 , READ+2, DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13 |
>> LRACTV | CHKCPT+4*, CHKCPT+21, CHKCPT+25*, CHKCPT+26*, CHKCPT+28 |
LRAD | SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+4, SETWKL+10, SETWKL+17, READ+2 , DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13 |
LRADD | SETWKL+7~, SETWKL+9* |
LRAN | SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+4, SETWKL+10, SETWKL+17, READ+2 , DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13 |
>> LRANSX | DIS+7, DIS+8, RD+2*, RD+5* |
>> LRANSY | DIS+17*, CHK+6, RD+2*, RD+5* |
LRCDEF | SETWKL+7~, SETWKL+9* |
>> LRCDT | DEM+8 |
LRCNT | EN+5~, EN+7*, EN+18*, SETWKL+7~, SETWKL+9*, DIS+4! |
LRCPT | SET~ |
LRCPT(0 | SET+11 |
>> LRD2 | CHKCPT+4*, CHKCPT+13*, CHKCPT+14, CHKCPT+18*, CHKCPT+19 |
LRDA | LSTCPT+7~, LSTCPT+14*, LSTCPT+16 |
LRDES | EN+5~, EN+11~, EN+17!* |
LRDES(1 | EN+19 |
>> LRDFN | SEND+3, DEM+12, DEM+15, DEM+24, DEM+27 |
>> LRDSSID | SET+9, SEND+3 |
LREDT | SET~, SET+6, SEND+6*, SEND+7*, CHKCPT+16, CHKCPT+26 |
LRENC | LSTCPT+7~ |
LRENC( | LSTCPT+14 |
LREND | SET+3*, PG+3*, RD+3*, RD+4*, READ+3~, READ+4*, DEM+17*, DEM+18~, DEM+19, DEM+20 , DEM+35*, DEM+36~, DEM+38, DEM+39, LSTCPT+7~, LSTCPT+14*, LSTCPT+15, HLP+3~, HLP+8, HLP+12 |
LRFL | DEM+23~, DEM+26*, DEM+28 |
LRI | EN+5~, EN+14*, EN+15, EN+19, EN+20, SETWKL+7~, SETWKL+11*, SETWKL+12, SETWKL+14, DIS+4! |
LRIA64 | DIS+6~, DIS+14, DEM+43, DEM+47, CHKCPT+28* |
LRIA81 | DIS+6~, DIS+13, DEM+43, DEM+46, CHKCPT+6* |
>> LRIDT | DEM+12, DEM+15, DEM+27 |
LRIENS | DEM+3~, DEM+4*, DEM+11, DEM+23~, DEM+27*, DEM+28 |
LRII | CHKCPT+3~, CHKCPT+20*, CHKCPT+21*, CHKCPT+22, CHKCPT+24 |
>> LRINA2 | CHKCPT+14*, CHKCPT+15, CHKCPT+16, CHKCPT+20*, CHKCPT+24*, CHKCPT+25, CHKCPT+26 |
LRINACT | CHKCPT+3~ |
LRINS | SET~, SET+10 |
>> LRLLOCX | DEM+9 |
LRLOC | SET~, SET+7, SET+8 |
LRLST | DIS+4! |
LRNOLK | DIS+6~, DIS+15, DEM+43, DEM+48, CHKCPT+8* |
LRNOTFD | DIS+6~, DIS+12, DEM+43, DEM+45, CHKCPT+5* |
>> LRNR | CHKCPT+4*, CHKCPT+8*, CHKCPT+28* |
>> LROK | SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, SET+8*, SET+9*, SET+10*, SET+11*, SET+13* , SET+15 |
LRP | SETWKL+7~, SETWKL+12*, SETWKL+13, SETWKL+14*, SETWKL+15, SETWKL+16, LSTCPT+7~, LSTCPT+12* |
>> LRPARAM | SETWKL+3 |
LRPATH | DEM+23~, DEM+24*, DEM+28*, DEM+29*, DEM+30, DEM+31 |
>> LRPCEN | SEND+5*, SEND+10 |
LRPRO | SET~, SET+5 |
>> LRQ | CHKCPT+11 |
>> LRQUIET | SEND+4, SEND+9, SETWKL+6 |
>> LRREL2 | CHKCPT+14*, CHKCPT+15, CHKCPT+16, CHKCPT+20*, CHKCPT+24*, CHKCPT+25, CHKCPT+26 |
LRRF64 | DIS+6~, DEM+43, DEM+49 |
>> LRSPECID | DEM+9 |
>> LRSS | DEM+12, DEM+15, DEM+24, DEM+25, DEM+26, DEM+30, DEM+31 |
LRSTR | LSTCPT+5~, LSTCPT+6*, LSTCPT+12 |
LRT | SETWKL+7~, SETWKL+16*, SETWKL+17*, SETWKL+18 |
LRT("P" | SETWKL+10* |
LRTIME | SETWKL+7~ |
LRTMP | DEM+36~, DEM+37*, DEM+40*, DEM+41, DEM+42 |
>> LRURG | SETWKL+8*, SETWKL+9 |
LRURGW | SETWKL+7~, SETWKL+9* |
>> LRVSITN | SEND+9, SEND+10 |
>> LRWL2 | CHKCPT+4*, CHKCPT+10*, CHKCPT+11*, CHKCPT+12, CHKCPT+13, CHKCPT+14, CHKCPT+18, CHKCPT+21, CHKCPT+22, CHKCPT+24 |
LRX | EN+5~, EN+15*, EN+16, EN+17, EN+19, EN+20, DIS+4!, DEM+13~, DEM+15*, DEM+17* , DEM+19*, DEM+21, DEM+35*, DEM+38*, DEM+40, DEM+41, CHKCPT+5, HLP+3~, HLP+5*, HLP+8* , HLP+9, HLP+10 |
LRX2 | EN+5~, EN+12*, EN+13, EN+19, EN+20 |
LRX3 | EN+5~, EN+12*, EN+13, EN+14, EN+15, EN+19, EN+20 |
LRXTST | DIS+4! |
LRXY | DIS+4!, CHKCPT+4, CHKCPT+6 |
>> LRXY1 | CHKCPT+4*, CHKCPT+5, CHKCPT+6, CHKCPT+7, CHKCPT+8, CHKCPT+10, CHKCPT+13, CHKCPT+23, CHKCPT+28 |
>> LRXY2 | CHKCPT+4*, CHKCPT+22*, CHKCPT+23 |
LRY | EN+5~, EN+10*, EN+12, HLP+3~, HLP+9*, HLP+10, HLP+11 |
>> PNM | DEM+7 |
S | LSTCPT+7~, LSTCPT+16* |
U | EN+4, EN+8, EN+9, EN+16, EN+19, EN+20, SET+8, SETWKL+3, SETWKL+12, SETWKL+14 , CHK+8, DEM+15, DEM+21, DEM+41, DEM+42, CHKCPT+4, CHKCPT+6, CHKCPT+14, CHKCPT+22, CHKCPT+24 , HLP+10, HLP+11 |
X | DIS+4!, DIS+8*, RD+1~, RD+5, LSTCPT+7~ |
X9 | DIS+3~, DIS+9 |
Y | RD+1~, RD+5, LSTCPT+7~, LSTCPT+9 |