IBJDI41 ;ALB/CPM - PATIENTS WITH UNIDENTIFIED INSURANCE (CONT'D) ;17-DEC-96
Source file <IBJDI41.m>
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 |
---|---|---|
EN | ; - Entry point from IBJDI4.
|
|
PRT | ; - Print the reports.
|
|
ENQ | ||
ENC(IBOED) | ; - Encounter extract for all patients loop.
; Input: IBOED = Outpatient encounter in file #409.68 ; Pre-set variables IB array, IBSORT also required. |
|
PROC(DFN,IBINDT,IBIPC) | ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2 ; IBINDT = Encounter or discharge date ; IBIPC = Inpatient treatment marker ; ("*"=Had inpat. treatment, null=No inpat. treatment) |
|
PRCQ | ||
DIV(X) | ; - Return division name.
|
|
DET | ; - Print the detailed report.
|
|
DETQ | ||
EXCOUT | ; OUTPUT EXCEL FORMAT
|
|
HDET | ; - Write the detail report header.
|
|
EXCHDR | ; Write the excel header.
|
|
SUM | ; - Print the summary report.
|
|
EXCSUM | ; - Print the summary report in excel format.
|
|
DASH(X) | ; - Return a dashed line.
|
|
ELIG(X) | ; - Return eligibility code name.
|
|
INSC(X) | ; - Return insurance company.
|
|
PAUSE | ; - Page break.
|
|
SSN(X) | ; - Format the SSN.
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | PRT+7 |
^DIR | PAUSE+4 |
^IBCNS | PROC+18 |
E^IBJDE | PRT+5 |
$$TESTP^IBJDI1 | PROC+8 |
$$DIV^IBJDI21 | EN+7, ENC+4 |
OUTPT^IBJDI21 | EN+17 |
$$TITLE^IBJDI4 | DET+1, DET+3, HDET+2, EXCHDR+1 |
$$TYPE^IBJDI4 | PROC+24 |
$$DAT1^IBOUTL | EN+36, HDET+3, EXCHDR+3, SUM+5, EXCSUM+5 |
$$DAT2^IBOUTL | PRT+7 |
$$STOP^IBOUTL | EN+5, EN+27, HDET+7 |
CLOSE^IBSDU | EN+16, EN+18 |
ELIG^VADPT | EN+30, PROC+9 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | DIV+1 |
^DGPM - [#405] | EN+6 |
^DGPM("ATT3" | EN+3, EN+4 |
^DIC(36 - [#36] | PROC+21, INSC+1 |
^DIC(8 - [#8] | ELIG+1 |
^DPT - [#2] | EN+34, EN+35, EN+36, PROC+12, PROC+46 |
^TMP("IBJDI41" | EN+11, EN+25, PROC+44* |
^TMP("IBJDI42" | EN+38*, DET+1, DET+3, DET+6, DET+8 |
Name | Line Occurrences |
---|---|
$$DASH | HDET+6, SUM+6, EXCSUM+6 |
$$ELIG | DET+12, DET+17, EXCOUT+2, EXCOUT+6 |
$$INSC | DET+13, DET+17, EXCOUT+3, EXCOUT+6 |
$$SSN | DET+11, EXCOUT+1 |
DET | PRT+9 |
DETQ | DET+1 |
ENQ | EN+13, EN+20, EN+42, PRT+3 |
EXCHDR | DET+5 |
EXCOUT | DET+9 |
EXCSUM | PRT+10 |
HDET | DET+1, DET+3, DET+7, DET+10 |
PAUSE | PRT+10, PRT+11, DET+10, DETQ |
PRCQ | PROC+9 |
PROC | EN+11, ENC+5 |
PRT | EN+22 |
SUM | PRT+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | PRT+7 |
DFN | EN+8*, EN+11, EN+25*, EN+27, EN+34, EN+35, EN+36, EN+38, PROC~, PROC+8 , PROC+12, PROC+44, PROC+46 |
DIR | PAUSE+2~ |
DIR(0 | PAUSE+4* |
DIROUT | PAUSE+2~ |
DIRUT | PAUSE+2~, PAUSE+4 |
DTOUT | PAUSE+2~ |
DUOUT | PAUSE+2~, PAUSE+4 |
>> IB( | EN+7, PRT+4*, PRT+8, ENC+4, PROC+15*, PROC+16*, PROC+22*, PROC+26*, PROC+29*, PROC+32* , PROC+35*, PROC+38*, PROC+40*, PROC+45*, PROC+46*, SUM+8, SUM+9, SUM+10, SUM+11, SUM+12 , SUM+13, SUM+14, SUM+15, SUM+16, SUM+17, SUM+18, SUM+19, SUM+20, SUM+21, SUM+22 , SUM+23, SUM+24, SUM+25, SUM+26, SUM+27, SUM+28, SUM+29, SUM+30, SUM+31, SUM+32 , SUM+33, SUM+34, EXCSUM+8, EXCSUM+9, EXCSUM+10, EXCSUM+11, EXCSUM+12, EXCSUM+13, EXCSUM+14, EXCSUM+15 , EXCSUM+16, EXCSUM+17, EXCSUM+18, EXCSUM+19, EXCSUM+20, EXCSUM+21, EXCSUM+22, EXCSUM+23, EXCSUM+24, EXCSUM+25 , EXCSUM+26, EXCSUM+27, EXCSUM+28, EXCSUM+29, EXCSUM+30, EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34 |
>> IB("ALL" | PRT+4 |
>> IBBDT | EN+3, EN+17, HDET+3, EXCHDR+3, SUM+5, EXCSUM+5 |
>> IBD | EN+3*, EN+4, EN+11 |
IBDD | PRCQ! |
IBDD( | PROC+19, PROC+24 |
>> IBDIV | EN+7*, PRT+8*, ENC+4*, PROC+15, PROC+16, PROC+22, PROC+26, PROC+29, PROC+32, PROC+35 , PROC+38, PROC+40, PROC+44, PROC+45, PROC+46, DET+1, DET+3, DET+6, DET+8, HDET+2 , EXCHDR+1, SUM+3, SUM+8, SUM+9, SUM+10, SUM+11, SUM+12, SUM+13, SUM+14, SUM+15 , SUM+16, SUM+17, SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, SUM+23, SUM+24, SUM+25 , SUM+26, SUM+27, SUM+28, SUM+29, SUM+30, SUM+31, SUM+32, SUM+33, SUM+34, EXCSUM+3 , EXCSUM+8, EXCSUM+9, EXCSUM+10, EXCSUM+11, EXCSUM+12, EXCSUM+13, EXCSUM+14, EXCSUM+15, EXCSUM+16, EXCSUM+17 , EXCSUM+18, EXCSUM+19, EXCSUM+20, EXCSUM+21, EXCSUM+22, EXCSUM+23, EXCSUM+24, EXCSUM+25, EXCSUM+26, EXCSUM+27 , EXCSUM+28, EXCSUM+29, EXCSUM+30, EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34 |
>> IBDN | EN+34*, EN+38 |
>> IBDOD | EN+36*, EN+38 |
>> IBEDT | EN+3, EN+17, HDET+3, EXCHDR+3, SUM+5, EXCSUM+5 |
>> IBELIG | EN+30*, EN+31*, EN+38, DET+12*, DET+15, DET+16, DET+17, EXCOUT+2*, EXCOUT+5, EXCOUT+6 |
IBFL | PRCQ! |
IBFL( | PROC+18* |
IBFL(0 | PROC+21, PROC+22* |
IBFL(1 | PROC+25, PROC+26* |
IBFL(2 | PROC+28, PROC+29* |
IBFL(3 | PROC+31, PROC+32* |
IBFL(4 | PROC+34, PROC+35* |
IBINDT | PROC~ |
IBINS | PROC+18, PRCQ! |
IBINSC | PROC+12*, PROC+20*, PROC+41*, PROC+44, PRCQ!, DET+13*, DET+15, DET+16, DET+17, EXCOUT+3* , EXCOUT+5, EXCOUT+6 |
IBIPC | PROC~, PROC+44 |
IBOED | ENC~, ENC+4, ENC+5 |
>> IBOUT | PRT+10, DET+5, DET+7, DET+9 |
IBOUTP | PROC+18*, PRCQ! |
>> IBPAG | DET+3*, DET+7*, HDET+1*, HDET+2, SUM+1*, EXCSUM+1* |
>> IBPAT | EN+34*, EN+38 |
>> IBPER(1 | SUM+8*, SUM+25, EXCSUM+8*, EXCSUM+25 |
>> IBPER(10 | SUM+17*, SUM+29, EXCSUM+17*, EXCSUM+29 |
>> IBPER(11 | SUM+18*, SUM+29, EXCSUM+18*, EXCSUM+29 |
>> IBPER(12 | SUM+19*, SUM+30, EXCSUM+19*, EXCSUM+30 |
>> IBPER(13 | SUM+20*, SUM+31, EXCSUM+20*, EXCSUM+31 |
>> IBPER(14 | SUM+21*, SUM+32, EXCSUM+21*, EXCSUM+32 |
>> IBPER(15 | SUM+22*, SUM+33, EXCSUM+22*, EXCSUM+33 |
>> IBPER(16 | SUM+23*, SUM+34, EXCSUM+23*, EXCSUM+34 |
>> IBPER(2 | SUM+9*, SUM+26, EXCSUM+9*, EXCSUM+26 |
>> IBPER(3 | SUM+10*, SUM+26, EXCSUM+10*, EXCSUM+26 |
>> IBPER(4 | SUM+11*, SUM+27, EXCSUM+11*, EXCSUM+27 |
>> IBPER(5 | SUM+12*, SUM+27, EXCSUM+12*, EXCSUM+27 |
>> IBPER(6 | SUM+13*, SUM+27, EXCSUM+13*, EXCSUM+27 |
>> IBPER(7 | SUM+14*, SUM+28, EXCSUM+14*, EXCSUM+28 |
>> IBPER(8 | SUM+15*, SUM+28, EXCSUM+15*, EXCSUM+28 |
>> IBPER(9 | SUM+16*, SUM+29, EXCSUM+16*, EXCSUM+29 |
>> IBPH | EN+35*, EN+38 |
>> IBPM | EN+4*, EN+5, EN+6 |
>> IBPMD | EN+6*, EN+7, EN+8 |
>> IBQ | EN+3, EN+4, EN+5*, EN+13, EN+17, EN+20, EN+25, EN+27*, EN+42, PRT+7* , PRT+8, PRT+11, DET+6, DET+7, DET+8, DET+10, DETQ, HDET+7*, PAUSE+4* |
>> IBQUERY | EN+16, EN+17, EN+18 |
>> IBRMK | EN+38, DET+14, EXCOUT+4 |
>> IBRPT | EN+22, PRT+9, PROC+20, PROC+41, PROC+44 |
>> IBRUN | PRT+7*, HDET+2, EXCHDR+2, SUM+6, EXCSUM+6 |
>> IBSEL | EN+26, PROC+12, PROC+15, PROC+16, PROC+20, PROC+23, PROC+27, PROC+30, PROC+33, PROC+36 , PROC+38, PROC+40, PROC+41, DET+1, DET+2 |
>> IBSEL1 | EN+35*, EN+37, PROC+12*, PROC+15*, PROC+16*, PROC+23*, PROC+27*, PROC+30*, PROC+33*, PROC+36* , PROC+38*, PROC+40*, PROC+44 |
>> IBSORT | EN+7, ENC+4 |
IBTYP | PROC+24*, PROC+25, PROC+28, PROC+31, PROC+34, PRCQ! |
IBWNR | PROC+18*, PRCQ! |
IBX | EN+25*, EN+26, EN+34, EN+35, EN+38, PROC+12*, PROC+13, PROC+14, PROC+37, PROC+39 , PROC+41, PRCQ!, DET+1*, DET+2*, DET+3, DET+6*, DET+8, HDET+2, EXCHDR+1, PAUSE+2~ , PAUSE+3* |
>> IBX1 | DET+8*, DET+11, EXCOUT+1 |
>> IBX2 | DET+8*, DET+11, DET+12, DET+13, DET+14, DET+15, EXCOUT+1, EXCOUT+2, EXCOUT+3, EXCOUT+4 |
>> IBXTRACT | PRT+3 |
IOF | HDET+1, SUM+1, EXCSUM+1 |
IOSL | DET+10, PAUSE+3 |
IOST | PAUSE+1 |
U | EN+7, EN+8, EN+26, EN+34, EN+35, EN+38, ENC+4, ENC+5, PROC+12, PROC+21 , PROC+44, DIV+1, DET+11, DET+12, DET+13, DET+14, DET+15, EXCOUT+1, EXCOUT+2, EXCOUT+3 , EXCOUT+4, EXCOUT+6, EXCHDR+4, EXCSUM+24, EXCSUM+25, EXCSUM+26, EXCSUM+27, EXCSUM+28, EXCSUM+29, EXCSUM+30 , EXCSUM+31, EXCSUM+32, EXCSUM+33, EXCSUM+34, ELIG+1, INSC+2 |
VA | EN+40!, PRCQ! |
VAEL | EN+40!, PRCQ! |
VAEL(1 | EN+30, EN+31 |
VAEL(4 | PROC+9 |
VAERR | EN+40!, PRCQ! |
X | EN+31*, EN+37*, PRT+4*, PROC+18*, PROC+19*, PROC+20, PROC+21, PROC+24, PRCQ!, DIV~ , DIV+1, DET+2*, DET+16*, DET+17, EXCOUT+5*, EXCOUT+6, DASH~, DASH+1, ELIG~, ELIG+1 , INSC~, INSC+1*, INSC+2, PAUSE+2~, SSN~, SSN+1 |
>> X1 | EN+37*, EN+38 |
Y | DIV+1*, DIV+2, PAUSE+2~ |