IBACV ;WOIFO/SS-COMBAT VET UTILITIES ;7-AUG-03
Source file <IBACV.m>
| 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) | ;
|
