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 |  Local Variables |  All
Print Page as PDF
Routine: BMCFUNC

Package: Referred Care Information System

Routine: BMCFUNC


Information

BMCFUNC ; IHS/PHXAO/TMJ - FIX UNCODED DX ;

Source Information

Source file <BMCFUNC.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lexicon Utility 3 ^LEXA1  CONFIG^LEXSET  ($$CSYS,$$IMPDATE)^LEXU  
VA Fileman 3 ^%DTC  ^DIE  ^DIR  
Referred Care Information System 2 DIE^BMCFMC  $$AVDOS^BMCRLU  
DRG Grouper 1 $$CODEN^ICDEX  
IHS Patient 1 ^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMCFIXVPOV  

Entry Points

Name Comments DBIA/ICR reference
GETCODE ;
POV ;EP
BMCDIE ;
PROCESS ;
XIT ;
CONT ;
SETDEF ;SET DEFAULT OF .9999

External References

Name Field # of Occurrence
^%DTC BMCDIE+4
^AUPNPAT BMCDIE+3
DIE^BMCFMC BMCDIE+25
$$AVDOS^BMCRLU BMCDIE+13
^DIE BMCDIE+32
^DIR CONT+2
$$CODEN^ICDEX BMCDIE+21
^LEXA1 BMCDIE+18
CONFIG^LEXSET BMCDIE+17
$$CSYS^LEXU BMCDIE+16
$$IMPDATE^LEXU BMCDIE+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"All done with the ",$P(^DIC(BMCFILE,0),U)," file",!
  • Line Location: POV+5
Function Call: WRITE
  • Prompt: !!,"ERROR -- UNCODED DX IS NOT IN ICD DIAGNOSIS FILE, NOTIFY YOUR SUPERVISOR"
  • Line Location: PROCESS+1
Function Call: WRITE
  • Prompt: !!,"FILE DOES NOT EXIST -- NOTIFY YOUR SUPERVISOR"
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: !,"ERROR IN ^DIC -- NOTIFY PROGRAMMER"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: ?10,!!,"***There are no Uncoded DX codes to change.***"
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !!,"Searching the ",$P(^DIC(BMCFILE,0),U)," File",!
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !,"ERROR IN GLOBAL -- NOTIFY PROGRAMMER - PATIENT OR VISIT DFN MISSING"
  • Line Location: BMCDIE+2
Function Call: WRITE
  • Prompt: !,"NAME: ",$P(^DPT(AUPNPAT,0),U)," DOB: ",BMCDOB," SEX: ",AUPNSEX," HRN: ",$S(BMCHRN]"":BMCHRN,1:"NONE")
  • Line Location: BMCDIE+7
Function Call: WRITE
  • Prompt: !,"Referral: ",$P(^BMCREF(BMCRIEN,0),U,2)," DX NAR: ",$P($G(^BMCREF(BMCRIEN,12)),U)
  • Line Location: BMCDIE+8
Function Call: WRITE
  • Prompt: !,"DATE OF VISIT: "
  • Line Location: BMCDIE+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: BMCDIE+18
Function Call: WRITE
  • Prompt: !,"Unable to add DX code."
  • Line Location: BMCDIE+22
Routine Call
  • DIE
  • Line Location:
    • BMCDIE+32
Routine Call
  • DIR
  • Line Location:
    • CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BMCREF - [#90001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] POV+4
^AUPNPAT - [#9000001] BMCDIE+6
^BMCREF - [#90001] BMCDIE+4, BMCDIE+8
^DD("DD" BMCDIE+5
^DIC - [#1] POV+5, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10
^DPT - [#2] BMCDIE+7
^ICD9("AB" POV+4

Label References

Name Line Occurrences
BMCDIE PROCESS+11
CONT PROCESS+11
PROCESS POV+4
XIT POV+6, PROCESS+1, PROCESS+3, PROCESS+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUPNDAYS XIT+1!, BMCDIE+4*
AUPNDOB XIT+1!, BMCDIE+4, BMCDIE+5
AUPNDOD XIT+1!
AUPNPAT XIT+1!, BMCDIE+6, BMCDIE+7
AUPNSEX XIT+1!, BMCDIE+7
BMC999 POV+4*, XIT+1!, PROCESS+1
BMCCAT XIT+1!
BMCCONT POV+3*, POV+4, XIT+1!, PROCESS+11*, CONT+4*
BMCDFN XIT+1!, PROCESS+2*, PROCESS+11*, BMCDIE+23
BMCDOB XIT+1!, BMCDIE+5*, BMCDIE+7
>> BMCDOS BMCDIE+13*, BMCDIE+14, BMCDIE+17
BMCDX BMCDIE+26!
BMCDX10 XIT+2!
BMCDXCPT XIT+2!
BMCDXPR XIT+2!
BMCEIN XIT+1!, PROCESS+2*
BMCFILE POV+3*, POV+5, XIT+1!, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10, BMCDIE+4
BMCG XIT+1!, PROCESS+6*, PROCESS+7, PROCESS+8, BMCDIE+2*
BMCHRN XIT+1!, BMCDIE+6*, BMCDIE+7
BMCICD XIT+2!, BMCDIE+14*, BMCDIE+15*, BMCDIE+16, BMCDIE+17, BMCDIE+26!
BMCICD1 XIT+2!, BMCDIE+14*, BMCDIE+15*, BMCDIE+17, BMCDIE+26!
BMCL XIT+1!, PROCESS+11*
BMCLEX XIT+2!, BMCDIE+16*, BMCDIE+21, BMCDIE+26!
>> BMCQ BMCDIE+1*, BMCDIE+19*, BMCDIE+22*
BMCRIEN XIT+1!, BMCDIE+2*, BMCDIE+4, BMCDIE+8, BMCDIE+13, BMCDIE+23, BMCDIE+32
BMCTEMP XIT+1!
BMCVDG XIT+1!, PROCESS+4*, PROCESS+5*, PROCESS+6, PROCESS+9, BMCDIE+2, BMCDIE+24
BMCVIGR XIT+1!, PROCESS+9*, PROCESS+11
DA BMCDIE+23*, BMCDIE+26!, BMCDIE+32*!
>> DFN BMCDIE+23
DIC XIT+2!, BMCDIE+20!, BMCDIE+26!
DIC("A" BMCDIE+18*
DIE BMCDIE+24*, BMCDIE+26!, BMCDIE+32*!
DIR CONT+6!
DIR("A" CONT+2*
DIR("B" CONT+2*
DIR(0 CONT+2*
DIROUT CONT+6!
DIRUT CONT+3, CONT+6!
DIU BMCDIE+32!
DIV BMCDIE+32!
DR BMCDIE+23*, BMCDIE+26!, BMCDIE+32*!
DT BMCDIE+32
DTOUT CONT+6!
DUOUT CONT+6!
DUZ(2 POV+4, BMCDIE+6
>> I POV+4*, PROCESS+7
ICDV BMCDIE+26!
LEXQ BMCDIE+26!
LEXVDT XIT+2!, BMCDIE+26!
U POV+4, POV+5, PROCESS+2*, PROCESS+4, PROCESS+10, BMCDIE+2, BMCDIE+4, BMCDIE+6, BMCDIE+7, BMCDIE+8
X CONT+3*, CONT+4, BMCDIE+4, BMCDIE+18!, BMCDIE+21*, BMCDIE+23, BMCDIE+26!
>> X1 BMCDIE+4*
>> X2 BMCDIE+4*
>> Y BMCDIE+2*, BMCDIE+5*, BMCDIE+19, BMCDIE+22
>> Y( BMCDIE+21
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 |  Local Variables |  All