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 ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <LRCAPES1.m>

Call Graph

Call Graph Total: 14

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRCAPES  LRCAPES1  

Entry Points

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 ;

External References

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

Interaction Calls

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

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+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

Label References

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

Naked Globals

Name Field # of Occurrence
^( DEM+15
^("PCE" SEND+5*, DEM+10
^(0 CHKCPT+14, CHKCPT+24

Local Variables

Legend:

>> 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
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