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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BCDMSNDR

Package: Comprehensive Diabetes Management

Routine: BCDMSNDR


Information

BCDMSNDR ; ILC/ABQ/JLG - CDMP SEND HL7 MESSAGE;JUL 16, 2008 3:19 PM

Source Information

Source file <BCDMSNDR.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Patient Care Component 4 ^APCDALV  ^APCDALVR  (,GETVISIT)^APCDAPI4  DEDT^APCDEA2  
VA Fileman 4 C^%DTC  ^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  
IHS Support HL7 Interfaces 1 ($$BCDM,$$BCDMMED)^BHLEVENT  
IHS VA Utilities 1 ^XBFMK  
Patient Care Component Reports 1 $$START1^APCLDF  

Entry Points

Name Comments DBIA/ICR reference
VFILES ;
SET(P,D) ;-- set the BCDMPAT file
SEND(VISIEN) ;
A2(P) ;did patient ever have an A2 visit?
BSD ;
EVSIT ;EP - get/create event visit
SENDMED ;EP - called from option to send all visits for one patient in past 5 years
VDT(P,VDT) ;-- check to see if the patient has a record in ^BCDMPAT and the date so as not to send if not necessary
TEST ;
EP ;
A2CHK(V) ;-- is the visit A2

External References

Name Field # of Occurrence
C^%DTC EP+7
^APCDALV EVSIT+13
^APCDALVR VFILES+8
^APCDAPI4 EVSIT+3
GETVISIT^APCDAPI4 BSD+12
DEDT^APCDEA2 EVSIT+15, BSD+16
$$START1^APCLDF EP+21, A2+6, SENDMED+10
$$BCDM^BHLEVENT SEND+46
$$BCDMMED^BHLEVENT SEND+50
^DIC SENDMED+5
FILE^DIE SET+13
UPDATE^DIE SET+7
$$GET1^DIQ SEND+7, SEND+11, SEND+12, SEND+22, SEND+34
^XBFMK SENDMED+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to send all medical visits for one patient who has"
  • Line Location: SENDMED+1
Function Call: WRITE
  • Prompt: !,"had a Diabetic Retinopathy (A2) telehealth visit. This is in support of"
  • Line Location: SENDMED+2
Function Call: WRITE
  • Prompt: !,"the Chronic Disease Management System.",!
  • Line Location: SENDMED+3
Function Call: WRITE
  • Prompt: !!,"Clinic A2 missing from clinic stop file, notify supervisor."
  • Line Location: EVSIT+2
Function Call: WRITE
  • Prompt: !!,"error creating event visit for this patient, notify supervisor"
  • Line Location: BSD+14
Function Call: WRITE
  • Prompt: !!,"error creating V POV for event visit....notify supervisor.."
  • Line Location: VFILES+9
Routine Call
  • DIE
  • Line Location:
    • SET+7
Routine Call
  • DIE
  • Line Location:
    • SET+13
Routine Call
  • DIC
  • Line Location:
    • SENDMED+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNVSIT - [#9000010] GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] EVSIT+11, BSD+6
^AUPNPAT - [#9000001] SEND+17, SEND+19, SEND+30, SEND+32
^AUPNVMED("AD" SEND+14, SEND+47
^AUPNVSIT - [#9000010] EP+12, EP+13, EP+23, EP+24, A2CHK+3, A2+9, A2+10, A2+11, SEND+8, SENDMED+12
, SENDMED+13
^AUPNVSIT("AC" A2+3, TEST+7
^AUPNVSIT("ACDMP" EP+9, EP+11, EP+15!, EP+16!, EP+27!
^BCDMPAT - [#90520] VDT+4, SET+9
^BCDMPAT("B" VDT+1, VDT+3, SET+1
^DIC(40.7 - [#40.7] A2CHK+2, A2+4, EVSIT+1

Label References

Name Line Occurrences
$$A2 SENDMED+16
$$A2CHK EP+15
$$VDT EP+16
BSD EVSIT+3
EVSIT SENDMED+16
SEND EP+25, TEST+7, SENDMED+14
SET EP+26
VFILES EVSIT+3, EVSIT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDALVR SENDMED+17!, EVSIT+5!, EVSIT+16!, BSD+10!, VFILES+2!, VFILES+10!
APCDALVR("APCDAFLG" VFILES+9
APCDALVR("APCDATMP" VFILES+5*
APCDALVR("APCDAUTO" EVSIT+6*
APCDALVR("APCDCAT" EVSIT+8*
APCDALVR("APCDCLN" EVSIT+10*
APCDALVR("APCDDATE" EVSIT+12*
APCDALVR("APCDLOC" EVSIT+9*
APCDALVR("APCDPAT" EVSIT+7*, VFILES+3*
APCDALVR("APCDTNQ" VFILES+7*
APCDALVR("APCDTPOV" VFILES+6*
APCDALVR("APCDTYPE" EVSIT+11*
APCDALVR("APCDVSIT" EVSIT+14, EVSIT+15, VFILES+4*
APCDVSIT SENDMED+17!, EVSIT+4!
ASUFAC SEND+11*, SEND+16, SEND+24, SEND+34*, SEND+37, SEND+40, SEND+51!
>> ASUFAC2 SEND+22*, SEND+23
B EP+21*, EP+28!, A2+1~, A2+6*, SENDMED+10*, SENDMED+17!
BCDMBD EP+19*, EP+21, EP+28!, SENDMED+8*, SENDMED+10, SENDMED+17!
BCDMBSDV SENDMED+17!, BSD+11!, BSD+12
BCDMBSDV( BSD+16
BCDMBSDV(0 BSD+13, BSD+15
>> BCDMCLN EVSIT+1*, EVSIT+2, EVSIT+10, BSD+5
BCDMCNTR SEND+26~, SEND+29*, SEND+36*, SEND+37, SEND+39*, SEND+40
BCDMDA SEND+26~, SEND+30*, SEND+32, SEND+34, SEND+35, SEND+38
BCDMDATE EP+8*, EP+9*, EP+11, EP+15, EP+16, EP+27, EP+28!
BCDMG A2+1~, A2+7
BCDMG( A2+8
BCDMHRN SEND+31~, SEND+32*, SEND+33
BCDMIN BSD+1!, BSD+12
BCDMIN("CLINI C CODE" , BSD+5*
BCDMIN("PAT" BSD+2*
BCDMIN("SITE" BSD+4*
BCDMIN("SRV C AT" , BSD+7*
BCDMIN("TIME RANGE" , BSD+8*
BCDMIN("USR" BSD+9*
BCDMIN("VISIT DATE" , BSD+3*,  TYPE" , BSD+6*
BCDMINHF SEND+44~, SEND+46*
>> BCDMMCNT EP+4*, SEND+49*
BCDMMED SEND+48~, SEND+50*
BCDMPSTR SEND+26~, SEND+28*, SEND+37*, SEND+40*, SEND+41, SEND+42
BCDMV EP+20!, EP+28!, SENDMED+9!, SENDMED+17!
BCDMV( EP+22, SENDMED+11
>> BCDMVCNT EP+4*, SEND+45*
BCDMVIEN EP+22*, EP+23, EP+24, EP+25, EP+28!, SENDMED+11*, SENDMED+12, SENDMED+13, SENDMED+14, SENDMED+17!
>> BCDMVSIT EVSIT+14*, EVSIT+15, BSD+15*, BSD+16, VFILES+4
>> BCDMX EP+22*, SENDMED+11*
BIEN VDT+2~, VDT+3*, VDT+4
C A2+1~, A2+4*, A2+5, A2+11
CLN A2CHK+1~, A2CHK+2*, A2CHK+3
>> CS TEST+2*
D SET~, SET+6, SET+9, SET+12
DFN EP+13*, EP+14, EP+16, EP+21, EP+26, TEST+7, SEND+8*, SEND+9, SEND+17, SEND+19
, SEND+30, SEND+32, SEND+37, SEND+41, SEND+43, SENDMED+7*, SENDMED+10, SENDMED+16, SENDMED+17!, EVSIT+7
, BSD+2, VFILES+3
DIC SENDMED+4!, SENDMED+5*!
DIC(0 SENDMED+5*
DOMAIN SEND+12*, SEND+51!
DT EP+5, EP+19, EP+21, EP+26, SENDMED+8, SENDMED+10, EVSIT+12, BSD+3
DUZ BSD+9
DUZ(2 SEND+10, SEND+17, SEND+35, SEND+38, EVSIT+9, EVSIT+11, BSD+4, BSD+6
DUZ2 SEND+19*, SEND+20, SEND+21, SEND+51!
E EP+21*, EP+28!, A2+1~, A2+6*, SENDMED+10*, SENDMED+17!
>> ERR SET+8*
>> ESC TEST+5*
FDA SET+2~, SET+10~
FDA(90520 SET+5*, SET+6*, SET+12*
FERR SET+2~, SET+10~
FERR(1 SET+8
G A2+1~, A2+8*, A2+12*, A2+13
HRCN SEND+17*, SEND+18, SEND+23, SEND+24, SEND+31~, SEND+33*, SEND+40
ID2 SEND+1!, SEND+23*, SEND+24*
IENS SET+2~, SET+3*, SET+10~, SET+11*, SET+12, SEND+6*, SEND+7, SEND+10*, SEND+11, SEND+12
, SEND+21*, SEND+22, SEND+51!
IENS(1 SET+4*
INA SEND+1!, SEND+46, SEND+50
INA("ASUFAC" SEND+16*
INA("BCDMUSA" SEND+5*
INA("BCDUSA" SEND+43*
INA("EVDT" SEND+7*
INA("PATID" SEND+41*, SEND+42*
INA("VISIEN" SEND+4*
INDA SEND+1!, SEND+3*
INDA( SEND+2*, SEND+15*
INDA(2 SEND+9*
IVISIEN EP+28!
NUMSNT EP+3*, EP+9, EP+28!
OK A2CHK+1~
P A2~, A2+2, A2+3, A2+6, VDT~, VDT+1, VDT+3, SET~, SET+1, SET+4
, SET+5, SET+9, SET+11
R SEND+26~, SEND+27*, SEND+37, SEND+40
>> RS TEST+3*
>> SCS TEST+4*
SERVCAT EP+28!
T SENDMED+17!, BSD+13*, BSD+14
U EP+12, EP+13, EP+22, EP+24, A2CHK+3, A2+8, A2+10, A2+11, VDT+4, SET+9
, TEST+2, SEND+8, SEND+17, SEND+33, SENDMED+11, SENDMED+13, EVSIT+11, BSD+6, BSD+13
V EP+28!, A2CHK~, A2CHK+3, A2+8*, A2+9, A2+10, A2+11, BSD+15*, BSD+16
VDT VDT~, VDT+4
VISIEN EP+10*, EP+11*, EP+12, EP+13, EP+15, EP+16, EP+27, EP+28!, TEST+6*, TEST+7*
, SEND~, SEND+2, SEND+3, SEND+4, SEND+6, SEND+8, SEND+14, SEND+46, SEND+47, SEND+50
VMEDIEN SEND+13*, SEND+14*, SEND+15, SEND+16, SEND+51!
X EP+8, EP+28!, A2+8*
>> X1 EP+5*
>> X2 EP+6*
>> Y SENDMED+6, SENDMED+7

Marked Items

Name Field # of Occurrence
$T(^APCDAPI4 EVSIT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All