LRCAPPH1 ;DALOI/SED/RKS/KLL - PROCESS PHLEBOTOMY WORKLOAD DATA CONT ;07/30/04
Source file <LRCAPPH1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$NOW^XLFDT $$GET^XUA4A72 |
| Lab Service | 2 | $$GMOD^LRBEBA2 (MICRO1,MICRO2)^LRBEBA3 |
| PCE Patient Care Encounter | 2 | ($$DATA2PCE,$$DELVFILE)^PXAPI ENCEVENT^PXKENC |
| CPT HCPCS Codes | 1 | ($$CODM,$$CPT)^ICPTCOD |
| 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 |
|---|---|---|
| EN3 | ;LREDT = PATIENT ENCOUNTER DATE
|
|
| NP | ;Not perform entry
|
|
| EN5 | ;GET THE CPT CODES FOR THE TESTS
|
|
| END | ||
| END0 | ||
| EN6 | ;Called from LRCAPPNP
|
|
| LOC | ;Called from LRCAPPNP
|
|
| SET | ;SET IF VALID PROCEDURE
|
|
| SEND | ;BUILD ENCOUNTER INFO Called from LRCAPPNP
|
|
| PCE | ;SEND DATA TO PCE
|
|
| EN7 | ||
| CHK | ;Determine if any CPT code remain on the encounter, then delete encounter if false
|
|
| DELCAN | ;Mark PCE Encounter number as '-CPT CANC-ENC DEL'
|
|
| TEST | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | EN6+6 |
| ^LAB(69.9 - [#69.9] | TEST+2 |
| ^LAM - [#64] | EN6+8, EN6+10, EN6+13, EN6+18 |
| ^LAM("AD" | EN6+8, EN6+10 |
| ^LR - [#63] | NP+4, TEST+6 |
| ^LRO(68 - [#68] | EN5+9, EN5+11, EN6+3, LOC+2, SET+30, PCE+3 |
| ^LRO(69 - [#69] | NP+1, NP+2, NP+13, NP+14, NP+15, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11* , EN5+16, EN6+4, EN6+17, LOC+3, LOC+5, SET+34*, SEND+1, PCE+19, PCE+20, EN7+2 , EN7+6*, CHK+8, DELCAN+2, DELCAN+7*, DELCAN+10*, TEST+4, TEST+5 |
| ^SC - [#44] | NP+10, NP+12, LOC+4 |
| ^TMP("LRBEDX" | PCE+10! |
| ^TMP("LRMOD" | SET+2, SET+22 |
| ^TMP("LRPXAPI" | EN3+2!, EN5+14!, EN5+16, END0!, SET+14*, SET+15*, SET+19*, SET+20*, SET+23*, SET+25* , SET+28*, SET+31, SET+34, SEND+8*, SEND+9*, SEND+10*, SEND+11*, SEND+12*, SEND+13*, SEND+14* , PCE+6, PCE+16 |
| ^TMP("PXKENC" | CHK+1!, CHK+3!, CHK+5! |
| ^XTMP("LRPCELOG" | PCE+13, PCE+14, PCE+15*, PCE+16* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CPT | END0!, EN6+10*, EN6+16, EN6+17, SET+1, SET+2, SET+4, SET+7, SET+8, SET+10 , SET+12, SET+13, SET+15, SET+17, SET+18, SET+20, SET+22, SET+27 |
| >> DFN | NP+13, SEND+12, TEST+6* |
| DT | TEST+4 |
| DUZ | TEST+1 |
| EDATE | NP+6*, NP+11, END0!, EN6+15, EN6+20 |
| I | END0+1! |
| LOC | NP+8*, NP+10, NP+12, NP+13, END0+1! |
| LRAA | EN5+6*, EN5+9, EN5+11, EN5+12, EN5+14, END0+1!, EN6+3, LOC+1, LOC+2, SET+26 , SET+27, SET+30, PCE+3 |
| LRAAX | PCE+1~, PCE+3*, PCE+4, PCE+5, PCE+11 |
| LRBEID | EN3+1~, EN5+10*, PCE+15 |
| >> LRBEVSIT | PCE+4 |
| >> LRCCT | SET+8* |
| >> LRCDT | NP+2, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11, EN6+4, SET+33, PCE+8, PCE+19 , EN7+2, EN7+6, CHK+8, DELCAN+2, DELCAN+7, DELCAN+10, TEST+4*, TEST+5 |
| >> LRCE | CHK+8 |
| >> LRCEX | NP+1, NP+13, NP+14, NP+15, EN5+16, EN6+17, LOC+3, LOC+5, SET+34, SEND+1 , PCE+20 |
| LRCNT | EN5+2*, END0+1!, SET+7*, SET+8*, SET+10, SET+12, SET+14, SET+15, SET+17, SET+18 , SET+19, SET+20, SET+22, SET+23, SET+25, SET+28, SET+33 |
| >> LRDBUG | NP+5, EN5+11, END, PCE+17, TEST+3* |
| >> LRDLOC | LOC+2, TEST+2* |
| >> LRDPRAC | NP+11, TEST+1* |
| LRDSSID | EN5+13, EN5+14, END0+1!, LOC+4*, LOC+5, SEND+8 |
| >> LRDSSLOC | LOC+2*, LOC+3, LOC+4, SEND+10 |
| LRDUZ | NP+3~, NP+9*, PCE+9, PCE+12 |
| LREDT | EN3+1~, NP+2*, NP+4, NP+5*, NP+6, NP+7*, EN6+17, SEND+3 |
| LREN5 | EN5+4*, EN5+5, EN5+6, END0+1! |
| LRENCDT | SEND+2~, SEND+3*, SEND+7*, SEND+9 |
| LRENCDT(1 | SEND+3*, SEND+4*, SEND+5*, SEND+6*, SEND+7 |
| >> LRES | SET+25 |
| >> LRESCPT | SEND+1, PCE+18 |
| LRFLG | EN6+5~, EN6+12*, EN6+14*, EN6+15*, EN6+16 |
| LRFND | EN7~, EN7+4*, EN7+5, DELCAN+5*, DELCAN+6, DELCAN+8*, DELCAN+9 |
| LRI | END0+1! |
| LRICPT | END0!, EN6+6*, EN6+10*, EN6+13, EN6+18 |
| LRIDT | END0+2! |
| LRINA | END0!, EN6+13*, EN6+14, EN6+15, EN6+18*, EN6+19, EN6+20 |
| >> LRINS | NP+10 |
| LRLNOW | PCE+1~, PCE+14*, PCE+15, PCE+16 |
| LRNINS | NP+8*, NP+10*, NP+14, END0+1!, SEND+11 |
| LRNLT | END0!, EN6+6*, EN6+7, EN6+8, EN6+10, EN6+13, EN6+18 |
| LRNLTN | END0+2!, EN6+8*, EN6+9, SET+29 |
| LRNOP | EN3+1~, NP+13*, NP+14*, NP+15*, LOC+1*, LOC+3*, LOC+5* |
| >> LRNP | NP+16, SET+1, SET+10, SET+11, SET+16, SET+21, PCE+19, EN7+1 |
| >> LRNPX( | SET+1, SET+12, SET+13* |
| >> LROA | NP+1, NP+13, NP+14, NP+15, EN5+16, EN6+17, LOC+3, LOC+5, SET+34, SEND+1 , PCE+20 |
| LROK | END0+1!, PCE+2*, PCE+4*, PCE+9*, PCE+12*, PCE+17, PCE+19, PCE+20, EN7+1, CHK+4* , CHK+5 |
| LRPCE | EN7~, EN7+2*, EN7+3, EN7+4, EN7+5*, EN7+6, DELCAN+2*, DELCAN+4, DELCAN+5, DELCAN+6* , DELCAN+7, DELCAN+8, DELCAN+9*, DELCAN+10 |
| >> LRPKG | PCE+9, PCE+12, CHK+4, TEST+3* |
| LRPRO | NP+8*, NP+11*, NP+15, END0!, SET+14 |
| LRREL | END0!, EN6+13*, EN6+14, EN6+15, EN6+18*, EN6+19, EN6+20 |
| LRSN | NP+2, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11, EN6+4, SET+33, PCE+8, PCE+19 , EN7+2, EN7+6, CHK+6~, CHK+7*, CHK+8*, DELCAN+2, DELCAN+7, DELCAN+10, TEST+4*, TEST+5 |
| >> LRSS | PCE+11 |
| LRSTP | END0+1! |
| LRTST | EN5+2*, EN5+3*, EN5+4, EN5+10, EN5+11, END0!, SET+29, SET+33 |
| >> LRTSTP | EN5+6*, EN6+6, SET+29 |
| >> LRVSIT | TEST+3* |
| LRVSITN | EN3+2!, PCE+2!*, PCE+4*, PCE+9, PCE+12, PCE+15, PCE+17, PCE+19, EN7+1, EN7+3 , EN7+4, CHK+2, CHK+3, CHK+4, DELCAN+3, DELCAN+4, DELCAN+5, DELCAN+8 |
| LRXAA | EN5+2*, EN5+12*, EN5+14*, END0+1! |
| LRXCPT | EN3+2!, END0+2! |
| LRXCPT( | SET+7, SET+8*, SET+10*, SET+12*, SET+17, SET+18*, SET+20, SET+22 |
| LRXTST | EN3+2!, EN5+2!*, END0+1! |
| LRXTST( | SET+29* |
| LRXTSTU | END0+2! |
| MOD | SET+27*, SET+28! |
| >> NODE | NP+4, NP+8, NP+9, TEST+4*, TEST+6 |
| >> NODE(1 | NP+8, TEST+5* |
| U | NP+2, NP+8, NP+9, NP+10, NP+12, EN5+5, EN5+6, EN5+9, EN5+10, EN5+11 , EN6+3, EN6+6, EN6+8, EN6+10, EN6+13, EN6+17, EN6+18, LOC+4, SET+29, SET+30 , PCE+3, PCE+15, TEST+6 |
| X | SET+3~, SET+4* |
