Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call