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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGOCPTP3

Package: GUI Objects

Routine: BGOCPTP3


Information

BGOCPTP3 ; IHS/MSC/MGH - Store a SNOMED association ;14-Apr-2016 12:37;du

Source Information

Source file <BGOCPTP3.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
GUI Objects 5 ICD10^BGOCPTP3  SET^BGOPROB  ($$ERR,$$UPDATE)^BGOUTL  $$AICD^BGOUTL2  (CHECK,SET)^BGOVPOV  
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  $$NOW^XLFDT  (EDIT,RESCH)^XUTMOPT  
VA Fileman 3 $$FIND1^DIC  $$GET1^DIQ  ^DIR  
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDCODE  ($$CODEN,$$ICDDX,$$ICDOP,$$IMP)^ICDEX  
IHS Patient 1 $$CONC^AUPNSICD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
GUI Objects 2 BGOCPTP3  BGOVPOV  

Entry Points

Name Comments DBIA/ICR reference
HDR2 ;EP
RPT ; EP Report to return codes that are unmapped to SNOMED or are still ICD9 procedure codes
ICD10 ;EP Entry to update SNOMED ICD associations
TMPGBL(X) ;EP
NOQUE ; Call report directly
STORE(RET,INP) ;EP Store POV and possibly problem
DEVICE ; Device handling
; Call with: ZTRTN
AUTOQ ;Queue this item to run
QUE ; Queue output
CHANGE ; Update and change all SNOMED ICD associations over to ICD-10 codes
SNOMED ;If SNOMED fields are not filled in add this to the report list
ADDPROB(DFN,SNO,DESC,ICD,FAC,SPEC,STAT) ;Add the problem is it isn't in the list
SNOUP ;Update the association
PROC ;If procedures is ICD-9 code add to report list
HDR(TYP) ;PRINT HEADER
OUT ;Run the report

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS QUE+7
^%ZTLOAD QUE+5
$$CONC^AUPNSICD STORE+16, SNOUP+6
ICD10^BGOCPTP3 CHANGE+1
SET^BGOPROB ADDPROB+5
$$ERR^BGOUTL STORE+28
$$UPDATE^BGOUTL SNOUP+16
$$AICD^BGOUTL2 STORE+24, SNOMED+5, PROC+5
CHECK^BGOVPOV STORE+29
SET^BGOVPOV STORE+45, STORE+46
$$FIND1^DIC AUTOQ+5, AUTOQ+6
$$GET1^DIQ STORE+10, STORE+40, SNOMED+4, PROC+4, SNOUP+10
^DIR RPT+8
$$ICDDX^ICDCODE SNOMED+9, SNOMED+10
$$ICDOP^ICDCODE PROC+7
$$CODEN^ICDEX STORE+25, SNOUP+9
$$ICDDX^ICDEX SNOMED+6, SNOMED+7, SNOUP+11, SNOUP+12
$$ICDOP^ICDEX PROC+6
$$IMP^ICDEX AUTOQ+1, ICD10+2
$$NOW^XLFDT SNOMED+6, SNOMED+7, SNOMED+9, SNOMED+10, PROC+6, PROC+7, AUTOQ+2, ICD10+3, SNOUP+11, SNOUP+12
EDIT^XUTMOPT AUTOQ+7, AUTOQ+10
RESCH^XUTMOPT AUTOQ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !,"Unconverted ICD9 diagnosis or procedure codes",!!
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Unconverted codes report for "_DTYP,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Superbill",?20,"CPT IEN",?30,"Code",?40,"ICD",?50,"Text"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SNOMED+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROC+11
Function Call: WRITE
  • Prompt: !,"Implementation date has not occurred. Cannot update items"
  • Line Location: ICD10+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !,"List of ICD-9 codes updated to ICD-10 for Super Bill Associations",!
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"Superbill",?20,"CPT IEN",?30,"Code",?40,"ICD",?50,"Text"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SNOUP+18
Routine Call
  • %ZIS
  • Line Location:
    • QUE+7
Routine Call
  • DIC
  • Line Location:
    • AUTOQ+5
    • AUTOQ+6
Routine Call
  • DIR
  • Line Location:
    • RPT+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

Used in RPC

RPC Name Call Tags
BGOCPTP3 STORE STORE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND1^DIC
^DIC(19.2 - [#19.2] FIND1^DIC
^ICPT - [#81] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^AUPNPROB - [#9000011] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPROB("APCT" STORE+39
^AUPNVPOV - [#9000010.07] STORE+34
^AUPNVPOV("AD" STORE+33
^AUPNVSIT - [#9000010] STORE+12
^BGOCPTPR - [#90362.31] OUT+3, OUT+4, OUT+6, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, PROC+2, ICD10+5
, ICD10+6, ICD10+8, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3
^ICD9("AB" STORE+27
^TMP("BGOMAP" TMPGBL+1!

Label References

Name Line Occurrences
$$ADDPROB STORE+42
@( NOQUE+1
DEVICE RPT+11
HDR OUT+2, SNOMED+11, PROC+11
HDR2 ICD10+4, SNOUP+18
PROC OUT+13
QUE DEVICE+4
SNOMED OUT+12
SNOUP ICD10+14

Naked Globals

Name Field # of Occurrence
^($J TMPGBL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE+1~
%ZIS DEVICE+2~, DEVICE+3*
ASSOC OUT+1~, OUT+11*, OUT+12, OUT+13, SNOMED+3, PROC+3, ICD10+13*, ICD10+14
BGORPT RPT+1~, RPT+9*, OUT+2, OUT+12, OUT+13, ICD10+14
CANDUP STORE+1~
CNAME OUT+1~, OUT+8*, ICD10+1~, ICD10+10*
CPT OUT+1~, OUT+7*, SNOMED+4, PROC+4, ICD10+1~, ICD10+9*, SNOUP+10
CPTCODE SNOMED+1~, SNOMED+4*, SNOMED+12, PROC+1~, PROC+4*, PROC+12, SNOUP+1~, SNOUP+10*, SNOUP+19
DATA ADDPROB+1~, ADDPROB+5, ADDPROB+6, PROC+6*, PROC+7*, PROC+8, PROC+9, PROC+10
DEL STORE+2~, STORE+40*, STORE+41
DESC STORE+1~, STORE+18*, STORE+42, STORE+44, ADDPROB~, ADDPROB+4
DFN STORE+1~, STORE+3*, STORE+4, STORE+29, STORE+39, STORE+42, STORE+44, ADDPROB~, ADDPROB+5
DIR RPT+1~
DIR("?" RPT+7*
DIR("A" RPT+5*
DIR("B" RPT+6*
DIR(0 RPT+4*
DT AUTOQ+1, ICD10+2
DTYP HDR+1~, HDR+2*, HDR+4, HDR2+1~
FAC STORE+1~, STORE+10*, STORE+42, ADDPROB~, ADDPROB+4
>> FDA SNOUP+14*, SNOUP+15, SNOUP+16
>> FDA( SNOUP+14
FOUND STORE+1~, STORE+32*, STORE+33, STORE+34*, STORE+35
I OUT+1~, OUT+3*, OUT+4, OUT+6, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, PROC+2
, ICD10+1~, ICD10+5*, ICD10+6, ICD10+8, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3
, SNOUP+13
ICD STORE+1~, STORE+9*, STORE+21*, STORE+25, STORE+27, ADDPROB~, ADDPROB+4, SNOUP+1~, SNOUP+7*, SNOUP+8*
, SNOUP+9
ICD2 STORE+1~, STORE+19*, STORE+20*, STORE+21
ICDCODE SNOMED+1~, SNOMED+7*, SNOMED+10*, SNOMED+12, PROC+1~, PROC+10*, PROC+12, SNOUP+1~, SNOUP+12*, SNOUP+19
ICDIEN STORE+1~, STORE+25*, STORE+27*, STORE+28, STORE+29, STORE+34, SNOMED+1~, SNOMED+3*, SNOMED+6, SNOMED+7
, SNOMED+9, SNOMED+10, PROC+1~, PROC+3*, PROC+6, PROC+7, SNOUP+9*, SNOUP+11, SNOUP+12
>> IEN SNOUP+16
>> IENS SNOUP+13*, SNOUP+14
IMP AUTOQ+1*, AUTOQ+2, ICD10+1~, ICD10+2*, ICD10+3
INP STORE~, STORE+3, STORE+5, STORE+7, STORE+9, STORE+11, STORE+13
IO("Q" DEVICE+4, QUE+3!
IOF RPT+2, HDR+3, SNOMED+11, PROC+11, HDR2+2, SNOUP+18
ION QUE+4
IOSL SNOMED+11, PROC+11, SNOUP+18
IOST HDR+3, SNOMED+11, PROC+11, HDR2+2, SNOUP+18
J OUT+1~, OUT+6*, OUT+7, OUT+8, OUT+10, OUT+11, SNOMED+2, SNOMED+12, PROC+2, PROC+12
, ICD10+1~, ICD10+8*, ICD10+9, ICD10+10, ICD10+12, ICD10+13, SNOUP+2, SNOUP+3, SNOUP+13, SNOUP+19
>> K OUT+10*, OUT+11, SNOMED+2, PROC+2, ICD10+12*, ICD10+13, SNOUP+2, SNOUP+3, SNOUP+13
LIN HDR+1~, HDR+6*, HDR2+1~, HDR2+5*
LIST ADDPROB+1~, ADDPROB+5
LIST(0 ADDPROB+4*
MATCH STORE+2~, STORE+38*, STORE+39, STORE+41*
NAME OUT+1~, OUT+4*, SNOMED+12, PROC+12, ICD10+1~, ICD10+6*, SNOUP+19
>> NEWCODE SNOUP+15
NORM STORE+2~, STORE+13*, STORE+45, STORE+46
PCPT OUT+1~, OUT+9*, ICD10+1~, ICD10+11*
PNAME OUT+1~, OUT+5*, ICD10+1~, ICD10+7*
>> POP DEVICE+3
PROB STORE+1~, STORE+39*, STORE+40, STORE+41
PRV STORE+1~, STORE+11*, STORE+44
RET STORE~, STORE+28*, STORE+29, STORE+30, STORE+35*, STORE+36, STORE+45, STORE+46
>> RET2 SNOUP+16*, SNOUP+17
SNO STORE+7*, STORE+8, STORE+16, STORE+29, STORE+39, STORE+42, STORE+44, ADDPROB~, ADDPROB+4, SNOUP+1~
, SNOUP+3*, SNOUP+6
SNODATA STORE+2~, STORE+22*, STORE+42, STORE+44, SNOUP+6*, SNOUP+7
SNOMED STORE+1~
SPEC ADDPROB~, ADDPROB+5
SPROB STORE+2~, STORE+38*, STORE+41*, STORE+42*, STORE+43, STORE+44
STAT STORE+2~, STORE+17*, STORE+42, ADDPROB~, ADDPROB+3*, ADDPROB+4
STRING STORE+1~, STORE+44*, STORE+45, STORE+46
TXT SNOMED+1~, SNOMED+6*, SNOMED+9*, SNOMED+12, PROC+1~, PROC+9*, PROC+12, SNOUP+1~, SNOUP+11*, SNOUP+19
TYP HDR~, HDR+2
TYPE STORE+2~, STORE+27
U STORE+3, STORE+5, STORE+7, STORE+9, STORE+11, STORE+13, STORE+17, STORE+18, STORE+19, STORE+22
, STORE+29, STORE+34, STORE+44, ADDPROB+4, OUT+4, OUT+7, OUT+8, OUT+11, SNOMED+2, SNOMED+6
, SNOMED+7, SNOMED+9, SNOMED+10, PROC+2, PROC+8, PROC+9, PROC+10, ICD10+6, ICD10+9, ICD10+10
, ICD10+13, SNOUP+2, SNOUP+3, SNOUP+7, SNOUP+11, SNOUP+12
VDT STORE+1~, STORE+12*, STORE+29
VIEN STORE+1~, STORE+5*, STORE+6, STORE+10, STORE+12, STORE+33, STORE+44, ADDPROB+5
VPOV STORE+1~, STORE+33*, STORE+34
X STORE+1~, STORE+16*, STORE+17, STORE+18, STORE+19, STORE+22, TMPGBL~
Y RPT+1~, RPT+9
ZTDESC QUE+4*, QUE+6!
ZTDTH QUE+1~, QUE+6!
ZTIO QUE+1~, QUE+4*, QUE+6!
ZTRTN RPT+1~, RPT+10*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE QUE+1~, QUE+6!
ZTSAVE("BGORPT" QUE+3*
ZTSK QUE+1~, QUE+5, QUE+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All