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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBACV

Package: Integrated Billing

Routine: IBACV


Information

IBACV ;WOIFO/SS-COMBAT VET UTILITIES ;7-AUG-03

Source Information

Source file <IBACV.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 5 $$CVEDT^IBACV  SEND^IBACVA2  $$CHNGDATE^IBAHVE3  $$PT^IBEFUNC  $$FILE^IBRXUTL  
Registration 2 $$CVEDT^DGCV  DEM^VADPT  
VA FileMan 2 DD^%DT  NOW^%DTC  
List Manager 1 $$LOWER^VALM1  
MailMan 1 ^XMD  
Scheduling 1 CL^SDCO21  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Integrated Billing 14 IB20P336  IBACV  IBAHVE3  IBAMTC  IBAMTD  IBAMTI  IBAMTI1  IBAMTS  
IBARX1  IBFBWL2  IBFBWL3  IBOVOP1  IBOVOP2  IBTRKR3  

Entry Points

Name Comments DBIA/ICR reference
CL(IBDFN,IBSDDT,IBSDOE,IBSDCLY) ;Build Classification Array
; Input -- DFN Patient file IEN
; SDDT Date/Time [Optional]
; SDOE Outpatient Encounter file IEN [Optional]
; Output -- SDCLY Classification Array
; Subscripted by Class. Type file (#409.41) IEN
CVEDT(IBDFN,IBDT) ;
PATTYPE(X,IBCASE) ; */
PATTYAB(X) ; Return External Abbreviation of Special Inpatient Billing Case Patient Type (#351.2,.03)
; Input: 351.2, .03 internal value
RXALRT(IBDFN,IBDT,IBRXPTR) ;
EMAIL(DFN,IBEFDT,IBEXPDT,IBRX) ;
IFCVEXP(IBDFN,IBNJDT,IB405) ;
XTMPLST() ;get the last CV check date in ^XTMP
SETXTPM(IBDFN,IBCHKDT,IBEXP,IBADMIS,IBPT) ;save info in ^XTMP
CVEXMAIL(IBDT) ;send all e-mails
HEADER ;prints a header for the e-mail
FOOTER(IBTOTAL) ;
MKEMAIL(IBEXP,IBADM,IBNAME,IBSSN) ;
SETXTMP0(IBDT) ;set the new "last CV check date" in ^XTMP
LRJ(IBST,IBLEN,IBCHR,IBSIDE) ;

External References

Name Field # of Occurrence
DD^%DT MKEMAIL+3, MKEMAIL+4
NOW^%DTC EMAIL+3
$$CVEDT^DGCV CVEDT+1
$$CVEDT^IBACV IFCVEXP+7
SEND^IBACVA2 CVEXMAIL+10
$$CHNGDATE^IBAHVE3 IFCVEXP+14, IFCVEXP+19, SETXTMP0+1
$$PT^IBEFUNC IFCVEXP+5
$$FILE^IBRXUTL EMAIL+9
CL^SDCO21 CL+7
DEM^VADPT EMAIL+6
$$LOWER^VALM1 PATTYPE+3
^XMD EMAIL+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EMAIL+3, EMAIL+15
^DGPM - [#405] IFCVEXP+15
^XTMP("IBCVEXPDT" XTMPLST+1, SETXTPM+5*, CVEXMAIL+4, CVEXMAIL+6, SETXTMP0+2!, SETXTMP0+3*

Label References

Name Line Occurrences
$$CVEDT RXALRT+2
$$LRJ HEADER+9, MKEMAIL+5
$$XTMPLST IFCVEXP+12
EMAIL RXALRT+3
FOOTER CVEXMAIL+9
HEADER CVEXMAIL+5
MKEMAIL CVEXMAIL+7
SETXTMP0 IFCVEXP+14, CVEXMAIL+11
SETXTPM IFCVEXP+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EMAIL+3
DFN EMAIL~, EMAIL+4
IB1 RXALRT+1~, RXALRT+2*, RXALRT+3
IB405 IFCVEXP~, IFCVEXP+15
IBADM IFCVEXP+4~, IFCVEXP+15*, IFCVEXP+21, IFCVEXP+23, MKEMAIL~, MKEMAIL+4*, MKEMAIL+5
IBADMIS SETXTPM~, SETXTPM+5
IBC CVEXMAIL+1~, CVEXMAIL+2*, CVEXMAIL+8, HEADER+1, HEADER+4*, HEADER+5*, HEADER+6*, HEADER+7*, HEADER+8*, HEADER+9*
, HEADER+10*, FOOTER+1*, FOOTER+2*, MKEMAIL+5*
IBCASE PATTYPE~, PATTYPE+3
IBCHKDT SETXTPM~, SETXTPM+5
IBCHR LRJ~, LRJ+1
IBDFN CL~, CL+7, CVEDT~, CVEDT+1, RXALRT~, RXALRT+2, RXALRT+3, IFCVEXP~, IFCVEXP+5, IFCVEXP+7
, IFCVEXP+23, SETXTPM~, SETXTPM+5
IBDT CVEDT~, CVEDT+1, RXALRT~, RXALRT+2, RXALRT+3, CVEXMAIL~, CVEXMAIL+11, SETXTMP0~, SETXTMP0+1, SETXTMP0+3
IBEFDT EMAIL~
IBEXP SETXTPM~, SETXTPM+5, MKEMAIL~, MKEMAIL+3*, MKEMAIL+5
IBEXPDT EMAIL~, EMAIL+15
IBEXPIR IFCVEXP+4~, IFCVEXP+6*, IFCVEXP+9*, IFCVEXP+10, IFCVEXP+18, IFCVEXP+23
IBLEN LRJ~, LRJ+1, LRJ+2
IBNAME MKEMAIL~, MKEMAIL+5
IBNJDT IFCVEXP~, IFCVEXP+7, IFCVEXP+10, IFCVEXP+14, IFCVEXP+16, IFCVEXP+18
IBPAT EMAIL+1~, EMAIL+7*, EMAIL+10*, EMAIL+14, IFCVEXP+4~, IFCVEXP+5*, IFCVEXP+23
IBPT SETXTPM~, SETXTPM+5
IBPURGDT SETXTMP0+1~*, SETXTMP0+3
IBRET CVEDT+1~*, CVEDT+2
IBRX EMAIL~, EMAIL+9*, EMAIL+18
IBRXPTR RXALRT~, RXALRT+3
IBSDCLY CL~, CL+7
IBSDDT CL~, CL+7
IBSDOE CL~, CL+7
IBSIDE LRJ~, LRJ+2
IBSSN EMAIL+1~, EMAIL+8*, EMAIL+16, MKEMAIL~, MKEMAIL+5
IBST LRJ~, LRJ+1, LRJ+2
IBT EMAIL+1~, CVEXMAIL+1~
IBT( HEADER+4*, HEADER+5*, HEADER+6*, HEADER+7*, HEADER+8*, HEADER+9*, HEADER+10*, FOOTER+1*, FOOTER+2*, MKEMAIL+5*
IBT(1 EMAIL+14*, EMAIL+15*
IBT(2 EMAIL+16*
IBT(3 EMAIL+17*
IBT(4 EMAIL+18*
IBT(5 EMAIL+19*
IBT(6 EMAIL+20*
IBT(7 EMAIL+21*
IBT(8 EMAIL+22*
IBT(9 EMAIL+23*
IBTODAY EMAIL+1~, EMAIL+3*, EMAIL+19
IBTOTAL CVEXMAIL+1~, CVEXMAIL+2*, CVEXMAIL+7*, CVEXMAIL+9, FOOTER~, FOOTER+2
IBTSTDT IFCVEXP+4~, IFCVEXP+12*, IFCVEXP+14*, IFCVEXP+16, IFCVEXP+18, IFCVEXP+19*, IFCVEXP+21, IFCVEXP+23
IBX HEADER+3~*, HEADER+10
IBZ PATTYPE+1~, PATTYPE+2*, PATTYPE+3, PATTYPE+4, PATTYAB+2~, PATTYAB+3*, PATTYAB+4, IFCVEXP+4~, IFCVEXP+6*, IFCVEXP+7*
, IFCVEXP+8, IFCVEXP+9
IBZ1 CVEXMAIL+1~, CVEXMAIL+4*, CVEXMAIL+6
IBZ2 CVEXMAIL+1~, CVEXMAIL+6*, CVEXMAIL+7
U CVEXMAIL+7
VA EMAIL+5~
VADM EMAIL+5~
VADM(1 EMAIL+7
VADM(2 EMAIL+8
VAERR EMAIL+5~
X PATTYPE~, PATTYPE+2, PATTYAB~, PATTYAB+2*, PATTYAB+3
XMDUZ EMAIL+2~, EMAIL+13*
XMSUB EMAIL+2~, EMAIL+11*, HEADER+2*
XMTEXT EMAIL+2~, EMAIL+13*
XMY EMAIL+2~
XMY("G.IB COM BAT VET RX COPAY" , EMAIL+12*
Y EMAIL+3~*, EMAIL+15*, CVEXMAIL+1~, MKEMAIL+2~, MKEMAIL+3*, MKEMAIL+4*, LRJ+1~*, LRJ+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All