IBACV ;WOIFO/SS-COMBAT VET UTILITIES ;7-AUG-03
Source file <IBACV.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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) | ;
|
| 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 |
| 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* |
| >> | 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 |
