Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRCAPES1

Package: Lab Service

Routine: LRCAPES1


Information

LRCAPES1 ;DALOI/FHS/KLL - CONT MANUAL PCE CPT WORKLOAD CAPTURE ;02/28/12 20:29

Source Information

Source file <LRCAPES1.m>

Call Graph

Call Graph

Call Graph Total: 13

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  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
PCE Patient Care Encounter 1 GETCPT^PXAPIOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRCAPES  LRCAPES1  

Entry Points

Name Comments DBIA/ICR reference
EN ; Setup the order of defined NLT codes
SET(DFN,LRPRO,LREDT,LRLOC,LRINS,LRCPT,LRAA,LRAD,LRAN) ; Call to check variable
SEND ; Send data to PCE via DATA2PCE^PXAPI API
SETWKL(LRAA,LRAD,LRAN) ; Set workload into 68 from CPT coding
DIS ;
CHK ; User accepts CPT list
PG ; Page break
RD ; DIR read
READ ; Select CPT codes for accession
; Ask if want to see previously loaded CPT codes
DEM ;
CHKCPT ; Edit CPT code - does it exist,active in 81 or 64, linked to workload?
GETWL2 ;
LSTCPT(LRAA,LRAD,LRAN)
HLP ; Help display for CPT selection

External References

Name Field # of Occurrence
$$GET1^DIQ EN+17, EN+18, SEND+1, DEM+9, DEM+23, DEM+27, DEM+28
EN^DIQ LSTCPT+16
^DIR PG+2, RD+4, LSTCPT+6
$$CPT^ICPTCOD EN+13
$$CPTD^ICPTCOD EN+15
CLEAN^LRCAPES SET+12
EN^LRCAPES SET+10
LOAD^LRCAPES SET+12
LSTCPT^LRCAPES1 HLP+11
READ^LRCAPES1 SET+10
SEND^LRCAPPH1 SEND+6
STUFI^LRCAPV1 SETWKL+17
SET^LRCAPV1S SETWKL+17
RANGE^LRWU2 DIS+5
GETCPT^PXAPIOE LSTCPT+11
$$FMADD^XLFDT EN+6, CHK+6
$$FMTE^XLFDT DEM+5
$$NOW^XLFDT SEND+4
$$CJ^XLFSTR SEND+2, SEND+8, SETWKL+4, DEM+33, HLP+4, HLP+5
$$GET^XUA4A72 SET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Sending PCE Workload",IOM)
  • Line Location: SEND+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Visit # "_LRVSITN,80)
  • Line Location: SEND+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Storing LMIP Workload",IOM)
  • Line Location: SETWKL+4
Function Call: WRITE
  • Prompt: !,?5,"The following CPT Code(s) are not selected:"
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEM+4
Function Call: WRITE
  • Prompt: !?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1)
  • Line Location: DEM+5
Function Call: WRITE
  • Prompt: !?5,LRCDT
  • Line Location: DEM+6
Function Call: WRITE
  • Prompt: !?10,LRSPECID,?60,"Loc: ",$G(LRLLOCX)
  • Line Location: DEM+7
Function Call: WRITE
  • Prompt: !?15,"PCE ENC # "_^("PCE")
  • Line Location: DEM+8
Function Call: WRITE
  • Prompt: !?15,"Specimen: ",$$GET1^DIQ(68.05,"1,"_LRIENS,.01,"E")
  • Line Location: DEM+9
Function Call: WRITE
  • Prompt: !?5,"Tissue Specimens: "
  • Line Location: DEM+12
Function Call: WRITE
  • Prompt: !,?15,$P($G(^(LRX,0)),U)
  • Line Location: DEM+13
Function Call: WRITE
  • Prompt: !?5,"Test(s); "
  • Line Location: DEM+14
Function Call: WRITE
  • Prompt: ?15,$P($G(^LAB(60,+LRX,0)),U)_"/ "
  • Line Location: DEM+19
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Selected CPT Codes",IOM)
  • Line Location: DEM+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DEM+34
Function Call: WRITE
  • Prompt: !?5,"("_LRX_") "_$P(LRTMP,U)_" "_$E($P(LRTMP,U,3),1,50),!
  • Line Location: DEM+41
Function Call: WRITE
  • Prompt: !!!?5,"The following CPT Codes are NOT Selected"
  • Line Location: DEM+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LSTCPT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LSTCPT+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("List or range e.g, 1,3,5-7,88300.",IOM)
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Select from the following or enter CPT separated by a comma",IOM),!
  • Line Location: HLP+5
Function Call: WRITE
  • Prompt: !?3,$QS(LRX,4),?6," = "_$QS(LRX,6)_" "_$E($P(LRY,U,2),1,60),!
  • Line Location: HLP+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HLP+10
Routine Call
  • DIR
  • Line Location:
    • PG+2
    • RD+4
    • LSTCPT+6

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SET+8
^DPT - [#2] SET+2
^LAB(60 - [#60] DEM+19
^LAM - [#64] EN+12, EN+13, SETWKL+13, SETWKL+14, CHKCPT+20, CHKCPT+23, CHKCPT+24, CHKCPT+26, GETWL2+7, GETWL2+16
^LAM("AB" SETWKL+12, CHKCPT+5, GETWL2+6, GETWL2+14, GETWL2+15, GETWL2+20
^LR - [#63] DEM+10, DEM+13
^LRO(68 - [#68] SEND+3, SEND+9*, SETWKL+1, SETWKL+2, SETWKL+8, SETWKL+15, DEM+8, DEM+17, LSTCPT+3
^SC - [#44] SET+5, SET+6
^TMP("LR" EN+2, EN+4!, EN+6*, EN+7*, EN+17*, EN+18*, SET+11, SETWKL+3!, SETWKL+9, SETWKL+10
, SETWKL+12, SETWKL+18!, DIS+3!, DIS+7, CHK+5!, CHK+6*, DEM+32, DEM+38, DEM+40
^TMP("LRPXAPI" SEND+1

Label References

Name Line Occurrences
DEM DIS+17
DIS SET+11
GETWL2 CHKCPT+11
LSTCPT READ+2
PG DEM+18, DEM+39, LSTCPT+15
RD CHK+3, READ+8, HLP+10
SETWKL SEND+10

Naked Globals

Name Field # of Occurrence
^( DEM+13
^("PCE" SEND+3*, DEM+8
^(0 CHKCPT+26, GETWL2+7, GETWL2+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DEM+2~, LSTCPT+4~, LSTCPT+16*
DFN SET~, SET+2
DIC LSTCPT+4~, LSTCPT+16*
DIR CHK+1~, PG+1~, READ+3~, LSTCPT+4~, HLP+1~
DIR("?" READ+6*
DIR("??" READ+7*
DIR("A" CHK+2*, READ+5*, LSTCPT+5*
DIR("B" CHK+3*, LSTCPT+6*
DIR(0 CHK+3*, PG+2*, READ+4*, LSTCPT+5*, HLP+10*
DIROUT RD+1~
DIRUT PG+1~, PG+3, RD+1~, RD+4, LSTCPT+4~, HLP+1~
>> DOB DEM+5
DR LSTCPT+4~, LSTCPT+16*
DT EN+2, EN+6, EN+7, EN+13, SET+3, CHK+6
DTOUT PG+1~, RD+1~, HLP+1~
DUOUT PG+1~, RD+1~, LSTCPT+4~, HLP+1~
DUZ EN+2, EN+7
ERR LSTCPT+4~
IEN LSTCPT+4~, LSTCPT+11*
IOF PG+4, DEM+4, LSTCPT+10, LSTCPT+15, HLP+2, HLP+10
IOM SEND+2, SETWKL+4, DEM+33, HLP+4, HLP+5
IOSL DEM+18, DEM+39, LSTCPT+15, HLP+10
LRAA SET~, SET+1*, SEND+3, SEND+9, SEND+10, SETWKL~, SETWKL+1, SETWKL+2, SETWKL+8, SETWKL+15
, READ+2, DEM+1, DEM+3, DEM+8, DEM+17, LSTCPT~, LSTCPT+1, LSTCPT+3, HLP+11
>> LRACTV CHKCPT+2*, CHKCPT+23, CHKCPT+27*, CHKCPT+28*, CHKCPT+30
LRAD SET~, SET+1*, SEND+3, SEND+9, SEND+10, SETWKL~, SETWKL+2, SETWKL+8, SETWKL+15, READ+2
, DEM+1, DEM+3, DEM+8, DEM+17, LSTCPT~, LSTCPT+1, LSTCPT+3, HLP+11
LRADD SETWKL+5~, SETWKL+7*
LRAN SET~, SET+1*, SEND+3, SEND+9, SEND+10, SETWKL~, SETWKL+2, SETWKL+8, SETWKL+15, READ+2
, DEM+1, DEM+3, DEM+8, DEM+17, LSTCPT~, LSTCPT+1, LSTCPT+3, HLP+11
>> LRANSX DIS+4, DIS+5, RD+2*, RD+5*
>> LRANSY DIS+16*, CHK+4, RD+2*, RD+5*
LRCDEF SETWKL+5~, SETWKL+7*
>> LRCDT DEM+1, DEM+6
LRCNT EN+3~, EN+5*, EN+16*, SETWKL+5~, SETWKL+7*, DIS+2!
LRCPT SET~
LRCPT(0 SET+9
LRD2 CHKCPT+2*, CHKCPT+20*, CHKCPT+21, GETWL2+2~, GETWL2+3*, GETWL2+6*, GETWL2+7, GETWL2+15*, GETWL2+16
LRDA LSTCPT+4~, LSTCPT+13*, LSTCPT+14*, LSTCPT+16
LRDES EN+3~, EN+9~, EN+15!*
LRDES(1 EN+17
>> LRDFN SEND+1, DEM+10, DEM+13, DEM+23, DEM+26
>> LRDSSID SET+7, SEND+1
LREDT SET~, SET+4, SEND+4*, SEND+5*, CHKCPT+28, GETWL2+9, GETWL2+18
LRENC LSTCPT+4~
LRENC( LSTCPT+14
LREND SET+1*, PG+3*, RD+3*, RD+4*, READ+3~, READ+4*, DEM+15*, DEM+16~, DEM+17, DEM+18
, DEM+34*, DEM+36~, DEM+38, DEM+39, LSTCPT+4~, LSTCPT+13*, LSTCPT+14, LSTCPT+15, HLP+1~, HLP+6
, HLP+10
LRFL DEM+22~, DEM+25*, DEM+27
LRI EN+3~, EN+12*, EN+13, EN+17, EN+18, SETWKL+5~, SETWKL+9*, SETWKL+10, SETWKL+12, DIS+2!
LRIA64 DIS+1~, DIS+8, DIS+12, DEM+44, DEM+48, CHKCPT+30*
LRIA81 DIS+1~, DIS+8, DIS+11, DEM+44, DEM+47, CHKCPT+4*
>> LRIDT DEM+10, DEM+13, DEM+26
LRIENS DEM+2~, DEM+3*, DEM+9, DEM+22~, DEM+26*, DEM+27
LRII CHKCPT+1~, CHKCPT+22*, CHKCPT+23*, CHKCPT+24, CHKCPT+26
>> LRINA2 CHKCPT+22*, CHKCPT+26*, CHKCPT+27, CHKCPT+28, GETWL2+7*, GETWL2+8, GETWL2+9, GETWL2+16*, GETWL2+17, GETWL2+18
LRINACT CHKCPT+1~
LRINS SET~, SET+8
LRINVES DIS+1~, DIS+8, DIS+14, DEM+44, DEM+51
>> LRLLOCX DEM+7
LRLOC SET~, SET+5, SET+6
LRLST DIS+2!
LRNOLK DIS+1~, DIS+8, DIS+13, DEM+44, DEM+49, CHKCPT+6*
LRNOTFD DIS+1~, DIS+8, DIS+10, DEM+44, DEM+46, CHKCPT+3*
>> LRNR CHKCPT+2*, CHKCPT+6*, CHKCPT+30*
>> LROK SET+1*, SET+2*, SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, SET+8*, SET+9*, SET+11*
, SET+13
LRP SETWKL+5~, SETWKL+10*, SETWKL+11, SETWKL+12*, SETWKL+13, SETWKL+14, LSTCPT+4~, LSTCPT+11*
>> LRPARAM SETWKL+1
LRPATH DEM+22~, DEM+23*, DEM+27*, DEM+28*, DEM+29, DEM+30
>> LRPCEN SEND+3*, SEND+9
LRPRO SET~, SET+3
>> LRQ GETWL2+5
>> LRQUIET SEND+2, SEND+7, SEND+8, SETWKL+4
>> LRREL2 CHKCPT+22*, CHKCPT+26*, CHKCPT+27, CHKCPT+28, GETWL2+7*, GETWL2+8, GETWL2+9, GETWL2+16*, GETWL2+17, GETWL2+18
LRRF64 DIS+1~, DIS+8, DEM+44, DEM+50
>> LRSPECID DEM+7
>> LRSS DEM+10, DEM+13, DEM+23, DEM+24, DEM+25, DEM+29, DEM+30
LRSTR LSTCPT+2~, LSTCPT+3*, LSTCPT+11
LRT SETWKL+5~, SETWKL+14*, SETWKL+15*, SETWKL+16
LRT("P" SETWKL+8*
LRTIME SETWKL+5~
LRTMP DEM+36~, DEM+37*, DEM+40*, DEM+41, DEM+42
>> LRURG SETWKL+6*, SETWKL+7
LRURGW SETWKL+5~, SETWKL+7*
>> LRVSITN SEND+7, SEND+8, SEND+9
LRWL GETWL2+2~, GETWL2+13*, GETWL2+14*, GETWL2+15, GETWL2+16, GETWL2+17, GETWL2+18
>> LRWL2 CHKCPT+2*, CHKCPT+12, CHKCPT+20, CHKCPT+23, CHKCPT+24, CHKCPT+26, GETWL2+5*, GETWL2+6, GETWL2+7, GETWL2+11*
, GETWL2+14, GETWL2+15, GETWL2+17*, GETWL2+18*, GETWL2+20*
LRWLQUFL CHKCPT+10*, CHKCPT+17, CHKCPT+18!, GETWL2+8*, GETWL2+9*, GETWL2+17*, GETWL2+18*
LRX EN+3~, EN+13*, EN+14, EN+15, EN+17, EN+18, DIS+2!, DEM+11~, DEM+13*, DEM+15*
, DEM+17*, DEM+19, DEM+34*, DEM+38*, DEM+40, DEM+41, CHKCPT+3, HLP+1~, HLP+3*, HLP+6*
, HLP+7, HLP+8
LRX2 EN+3~, EN+10*, EN+11, EN+17, EN+18
LRX3 EN+3~, EN+10*, EN+11, EN+12, EN+13, EN+17, EN+18
LRXTST DIS+2!
LRXY DIS+2!, CHKCPT+2, CHKCPT+4
>> LRXY1 CHKCPT+2*, CHKCPT+3, CHKCPT+4, CHKCPT+5, CHKCPT+6, CHKCPT+25, CHKCPT+30, GETWL2+6, GETWL2+14, GETWL2+15
, GETWL2+20
>> LRXY2 CHKCPT+2*, CHKCPT+24*, CHKCPT+25
LRY EN+3~, EN+8*, EN+10, HLP+1~, HLP+7*, HLP+8, HLP+9
>> PNM DEM+5
S LSTCPT+4~, LSTCPT+16*
>> SSN DEM+5
U EN+2, EN+6, EN+7, EN+14, EN+17, EN+18, SET+6, SETWKL+1, SETWKL+10, SETWKL+12
, CHK+6, DEM+13, DEM+19, DEM+41, DEM+42, CHKCPT+2, CHKCPT+4, CHKCPT+24, CHKCPT+26, GETWL2+7
, GETWL2+16, HLP+8, HLP+9
X DIS+2!, DIS+5*, RD+1~, RD+5, LSTCPT+4~
X9 DIS+1~, DIS+6
Y RD+1~, RD+5, LSTCPT+4~, LSTCPT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All