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

Package: Referred Care Information System

Routine: BMCADD1


Information

BMCADD1 ; IHS/PHXAO/TMJ - add a referral part 2 ;

Source Information

Source file <BMCADD1.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Referred Care Information System 11 ($$GETR,EOP)^BMC  MEDCOM^BMCADD  PALRT1^BMCALERT  ^BMCDXSTF  DIE^BMCFMC  ENMM^BMCMM  (DX,PROC)^BMCMOD  ^BMCPXSTF  
^BMCRCHK  ^BMCRCHK1  $$AVDOS^BMCRLU  
VA Fileman 7 DD^%DT  $$GET^DDSVAL  ^DIC  FILE^DICN  ^DIE  ^DIK  ^DIR  
Lexicon Utility 3 ^LEXA1  CONFIG^LEXSET  ($$CSYS,$$IMPDATE)^LEXU  
IHS VA Utilities 2 ENPM^XBDIQ1  ^XBFMK  
DRG Grouper 1 ($$CODEN,$$STATCHK)^ICDEX  
IHS Patient 1 ($$MCD,$$MCR,$$PI)^AUPNPAT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Referred Care Information System 3 BMCADD  BMCADDFY  BMCMOD  

Entry Points

Name Comments DBIA/ICR reference
MGDCARE ;EP;Prompt for Managed Care Committee Action
DXASK ;
DOSDX(Y) ;EP FR DD SCREEN FOR DX CATEGORY
DXCAT ;EP From Add referrals, test for active DX Cat codes;BMC*4.0*9 NEW SUB
PXASK ;Check Existence of Primary PX
PX ; GET PROVISIONAL PROCEDURES
COMMENTS ;EP ADD COMMENTS ;CALLED FR BMCADD,BMCADDFY,BMCADDS,BMCMOD,BMCMODS
ADDDX ;EP auto stuff dx and proc from routine referral
STATIC ;EP - STORE STATIC DATA
DX ;EP FROM BMCMOD
MEDHX ; GET PROVISIONAL DIAGNOSES
DXPX ;EP GET PROVIDIONAL DIAGNOSES/PROCEDURES IF WANTED
ADDPX ;EP auto stuff proc from routine referral
REFSNO ;EP FR BMCMODS AND BMCADDS;BMC*4.0*9 ADD SNOMED CODE FOR SITE W/O PCC

External References

Name Field # of Occurrence
DD^%DT MEDHX+3
$$MCD^AUPNPAT STATIC+22
$$MCR^AUPNPAT STATIC+21
$$PI^AUPNPAT STATIC+23
$$GETR^BMC MEDHX+2
EOP^BMC STATIC+36
MEDCOM^BMCADD MEDHX+6
PALRT1^BMCALERT STATIC+35
^BMCDXSTF DX+6
DIE^BMCFMC DX+27, COMMENTS+13, MGDCARE+9, STATIC+26
ENMM^BMCMM STATIC+30, STATIC+31, STATIC+32, STATIC+33
DX^BMCMOD DX+1, DXASK+3
PROC^BMCMOD PX+2, PX+8, PXASK+3
^BMCPXSTF PX+7
^BMCRCHK DXASK+2
^BMCRCHK1 PXASK+2
$$AVDOS^BMCRLU DX+7
$$GET^DDSVAL DXCAT+3, DXCAT+4
^DIC COMMENTS+3, REFSNO+5
FILE^DICN DX+23, ADDDX+8, ADDPX+4
^DIE COMMENTS+7, ADDDX+10, ADDPX+6
^DIK COMMENTS+8
^DIR DX+4, PX+4, MGDCARE+4
$$CODEN^ICDEX DX+19
$$STATCHK^ICDEX ADDDX+7
^LEXA1 DX+17
CONFIG^LEXSET DX+16
$$CSYS^LEXU DX+10
$$IMPDATE^LEXU DX+8
ENPM^XBDIQ1 ADDDX+2, ADDPX+2
^XBFMK ADDDX+12, ADDPX+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Referral #: ",$$GETR^BMC
  • Line Location: MEDHX+2
Function Call: WRITE
  • Prompt: !?5,"Referral Date: "
  • Line Location: MEDHX+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: MEDHX+3
Function Call: WRITE
  • Prompt: ?40,"Patient Name: ",$P(^DPT(BMCDFN,0),U)
  • Line Location: MEDHX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: MEDHX+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DX+17
Function Call: WRITE
  • Prompt: !!,"INVALID CODE cannot add."
  • Line Location: DX+20
Function Call: WRITE
  • Prompt: !,"Unable to add DX code."
  • Line Location: DX+24
Function Call: WRITE
  • Prompt: !
  • Line Location: DX+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PX+1
Function Call: WRITE
  • Prompt: !,"Unable to add CPT Procedure code."
  • Line Location: PX+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MGDCARE+1
Function Call: WRITE
  • Prompt: !,"Storing static fields....",!
  • Line Location: STATIC+1
Function Call: WRITE
  • Prompt: !,"Entry of Referral ",$P(^BMCREF(BMCRIEN,0),U,2)," is complete.",!
  • Line Location: STATIC+28
Function Call: WRITE
  • Prompt: !,"Adding referral diagnoses.."
  • Line Location: ADDDX+1
Function Call: WRITE
  • Prompt: !!,"bad news -- error creating dx record - notify programmer"
  • Line Location: ADDDX+9
Function Call: WRITE
  • Prompt: !!,"ADDING DX FAILED"
  • Line Location: ADDDX+11
Function Call: WRITE
  • Prompt: !,"INVALID ICD DX CODE FOR DATE OF SERVICE, Please Edit DX for Template"
  • Line Location: ADDDX+13
Function Call: WRITE
  • Prompt: !,"Adding referral procedures.."
  • Line Location: ADDPX+1
Function Call: WRITE
  • Prompt: !!,"bad news -- error creating proc record - notify programmer"
  • Line Location: ADDPX+5
Function Call: WRITE
  • Prompt: !!,"ADDING PROC FAILED"
  • Line Location: ADDPX+7
Function Call: WRITE
  • Prompt: !,"The snomed clinical term was not added to the referral."
  • Line Location: REFSNO+6
Routine Call
  • DIE
  • Line Location:
    • COMMENTS+7
    • ADDDX+10
    • ADDPX+6
Routine Call
  • DIC
  • Line Location:
    • COMMENTS+3
    • REFSNO+5
Routine Call
  • DIR
  • Line Location:
    • DX+4
    • PX+4
    • MGDCARE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BMCREF - [#90001] Classic Fileman Calls,  GET^DDSVAL
^BMCDX - [#90001.01] Classic Fileman Calls
^BMCPX - [#90001.02] Classic Fileman Calls
^BMCCOM - [#90001.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] STATIC+10, STATIC+13
^AUTTLOC - [#9999999.06] STATIC+12
^AUTTTRI - [#9999999.03] STATIC+15
^AUTTVNDR - [#9999999.11] STATIC+18, STATIC+19
^BMCCOM - [#90001.03] COMMENTS+8, COMMENTS+9*
^BMCPARM - [#90001.31] STATIC+35
^BMCREF - [#90001] MEDHX+3, DX+7, STATIC+2, STATIC+28, DXCAT+5, REFSNO+3
^BMCRTNRF - [#90001.32] DX+1, PX+2
^BMCTDXC - [#90001.51] DOSDX+2
^DIC(4 - [#4] STATIC+11
^DPT - [#2] MEDHX+4, STATIC+3

Label References

Name Line Occurrences
ADDDX DX+1
ADDPX PX+2
DX DXPX+3
DXASK DX+6
MEDHX DXPX+1
PX DXPX+4
PXASK PX+7
REFSNO STATIC+27

Naked Globals

Name Field # of Occurrence
^(0 DOSDX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % STATIC+8*, STATIC+9, STATIC+10, STATIC+11, STATIC+12, STATIC+16*, STATIC+17, STATIC+18, STATIC+19, STATIC+20*
, STATIC+21, STATIC+22, STATIC+23
BMCAR ADDDX+2!, ADDDX+3, ADDDX+14!, ADDPX+2!, ADDPX+3, ADDPX+9!
BMCAR( ADDDX+5, ADDDX+6, ADDPX+4
>> BMCASK DX+5*, DX+6, DX+11, PX+6*, PX+7
>> BMCCD ADDDX+6*, ADDDX+7
>> BMCCDI ADDDX+6*, ADDDX+8
>> BMCCHSA STATIC+30
>> BMCCTYP COMMENTS+6, COMMENTS+11
>> BMCDFN MEDHX+4, DX+25, COMMENTS+6, STATIC+3, STATIC+10, STATIC+13, STATIC+21, STATIC+22, STATIC+23, ADDDX+10
, ADDPX+6
>> BMCDI ADDDX+5*
>> BMCDOS DX+7*, DX+8, DX+16, ADDDX+7, DXCAT+2*, DXCAT+3*, DXCAT+4*, DXCAT+5*, DXCAT+6*, DOSDX+1*
, DOSDX+2
BMCDX DX+30!
>> BMCDXASK DXASK+1*, DXASK+3*
>> BMCDXCPT DX+6, PX+7
>> BMCDXPR DXPX+2
>> BMCHOUSA STATIC+33
BMCI ADDDX+5*, ADDDX+6, ADDDX+14!, ADDPX+4*, ADDPX+9!
>> BMCICD DX+8*, DX+9*, DX+10, DX+16
>> BMCICD1 DX+8*, DX+9*, DX+16
>> BMCIHSA STATIC+31
BMCLEX DX+10*, DX+19, DX+30!
BMCLOOK DX+12*, DX+28!, COMMENTS+2*, COMMENTS+10!, MGDCARE+7*
>> BMCMGCR MGDCARE+2
>> BMCOTHRA STATIC+32
>> BMCPCC STATIC+27
>> BMCPXASK PXASK+1*, PXASK+3*
>> BMCQ DX+6*, DX+11*, DX+18*, DX+24*, DXASK+4*, PX+7*, PXASK+4*, COMMENTS+2*, COMMENTS+14*, MGDCARE+6*
, MGDCARE+10*
>> BMCREC STATIC+2*, STATIC+8, STATIC+16, STATIC+20
>> BMCRHDR STATIC+35*
>> BMCRIEN MEDHX+3, DX+7, DX+25, COMMENTS+6, COMMENTS+12, MGDCARE+8, STATIC+2, STATIC+25, STATIC+28, ADDDX+10
, ADDPX+6, DXCAT+5, REFSNO+3, REFSNO+4
>> BMCRR DX+1, PX+2, ADDDX+2, ADDPX+2
>> BMCRTYPE STATIC+30, STATIC+31, STATIC+32, STATIC+33
>> BMCSCOD REFSNO+2
>> BMCTST ADDDX+5*, ADDDX+7*, ADDDX+13
>> BMCV DX+2, DX+11
D0 ADDDX+8!, ADDPX+4!
DA DX+30!, COMMENTS+4*, COMMENTS+8, COMMENTS+9, COMMENTS+10!, COMMENTS+12*, MGDCARE+8*, STATIC+25*, ADDDX+8!, ADDDX+10*
, ADDPX+4!, ADDPX+6*, DXCAT+2, DXCAT+3, DXCAT+4, REFSNO+7!
DA(1 REFSNO+4*
DD ADDDX+8!, ADDPX+4!
DDSERROR DXCAT+1!
DIADD COMMENTS+3*, COMMENTS+10!, REFSNO+3*
DIC DX+21!, DX+23*, DX+30!, COMMENTS+3*, COMMENTS+4, COMMENTS+10!, ADDDX+8*, ADDPX+4*, REFSNO+2*, REFSNO+4*
, REFSNO+7!
DIC("A" DX+17*
DIC("P" REFSNO+3*
DIC(0 DX+23*, COMMENTS+3*, ADDDX+8*, ADDPX+4*, REFSNO+3*
DIE DX+26*, DX+30!, COMMENTS+4*, COMMENTS+10!, COMMENTS+12*, MGDCARE+8*, STATIC+25*, STATIC+26!, ADDDX+10*, ADDPX+6*
>> DIK COMMENTS+8*
DIR DX+4!, PX+4!, MGDCARE+4!
DIR("?" DX+3*, PX+3*, MGDCARE+3*
DIR("A" DX+3*, PX+3*, MGDCARE+3*
DIR("B" DX+3*, PX+3*, MGDCARE+3*
DIR(0 DX+3*, PX+3*, MGDCARE+3*
>> DIRUT DX+2, PX+5, MGDCARE+5
DLAYGO DX+23*, COMMENTS+3*, COMMENTS+10!, ADDDX+8*, ADDPX+4*
DR DX+25*, DX+30!, COMMENTS+6*, COMMENTS+10!, COMMENTS+12*, MGDCARE+8*, STATIC+4*, STATIC+5*, STATIC+6*, STATIC+7*
, STATIC+10*, STATIC+11*, STATIC+12*, STATIC+14*, STATIC+15*, STATIC+18*, STATIC+19*, STATIC+21*, STATIC+22*, STATIC+23*
, STATIC+26!, ADDDX+10*, ADDPX+6*
DT COMMENTS+3, DOSDX+1
DUZ COMMENTS+6
DUZ(2 STATIC+35
HLP DXCAT+1!
ICDV DX+30!
IOF MEDHX+1
>> LAYGO REFSNO+3*
LEXQ DX+30!
LEXVDT DX+30!
U MEDHX+3, MEDHX+4, DX+7, COMMENTS+9, STATIC+4, STATIC+5, STATIC+6, STATIC+7, STATIC+8, STATIC+10
, STATIC+11, STATIC+12, STATIC+14, STATIC+15, STATIC+16, STATIC+18, STATIC+19, STATIC+20, STATIC+28, STATIC+35
, DXCAT+5, DOSDX+2
X DX+17!, DX+19*, DX+20, DX+30!, COMMENTS+3*, ADDDX+8*, ADDDX+14!, ADDPX+4*, REFSNO+2*
XQA STATIC+35~
Y MEDHX+3*, DX+5, DX+18, DX+21!, DX+24, PX+6, COMMENTS+4, MGDCARE+6, STATIC+3*, STATIC+4
, STATIC+5, STATIC+6, STATIC+7, STATIC+13*, STATIC+14, STATIC+15, ADDDX+9, ADDDX+10, ADDDX+11, ADDPX+5
, ADDPX+6, ADDPX+7, DOSDX~, DOSDX+2, REFSNO+6
Y( DX+19
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