IBJD ;ALB/CPM - DIAGNOSTIC MEASURES UTILITIES ; 16-DEC-96
Source file <IBJD.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | ^DIC Y^DIQ ^DIR |
Integrated Billing | 1 | PSDR^IBODIV |
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 |
---|---|---|
DS | ; Print a (S)ummary or (D)etail Report?
|
|
SDIV() | ; - Sort by division.
; Output: SDIV = 1 - Sort by Division / 0 - Do not sort by Division ; or "^" - User selected "^" ; VAUTD = 1 - All divisions selected / 0 - Specific divisions ; VAUTD(DIV) = Divsions selected |
|
QDIV | ||
MLTP(PRPT,OPT,ALL) | ; Function for multiple value selection
; Input: PRPT - String to be prompted to the user, before listing options ; OPT - Array containing the possible entries (indexed by code) ; Obs: Code must be sequential starting with 1 ; ALL - Flag indicating if the last option is ALL OF THE ABOVE |
|
PRPT | ||
QT | ||
SNL() | ; - Determine the sorting of the patient (By Name or Last 4 SSN)
; Output: SNL = "N" (Name)/"L" (Last 4 SSN) ^ "NAME" or "LAST 4" |
|
INTV(SORT) | ; Selects the interval
; Output: First value ^ Last Value ^ "ALL"/"NULL"/"" |
|
FRST | ||
LAST | ||
QINT | ||
EXCEL() | ; - Returns whether to catpture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data) |
|
CLMACT(X,Y) | ; - Check if AR has a corresponding claim or IB action.
; Input: X=Claim/AR pointer to file #399/#430 ; Y=AR category pointer to file #430.2 ; Output: Z=1-IB action, 2-Claim, 3-No IB action or claim ; ^ IB action IEN (if 1) or AR/claim IEN (if 2 or 3) ; OR null=Invalid IB action or claim |
|
CLAC1 | ; - Check for IB claim.
|
|
CLACQ | ||
ALSP(PRPT,FILE,ARR) | ; Selection of (A)LL or (S)pecific values from a given file
; Input: PRPT - Piece 1: Label for the PROMPT to be asked for the ; selection (in the plural) - e.g. "Providers" ; Piece 2: Singular of piece 1 - e.g. "Provider" ; Exaple: "Specialties^Specialty" ; FILE - File global root (e.g., "^IBE(356.8," ) that the values ; will be selected from ; ARR - Name of the array that will contain the specific values ; (must be passed as a refernce value ".ARR") ; Output: ARR - "A" - ALL values OR "S" - Specific values OR "^" ; The values will be returned in the array indicated in ; ARR parameter |
|
ALSP1 | ||
ALSP2 | ||
QALSP | ||
HDS | ; Help for Summary/Detail prompt.
|
|
HDIV | ; - 'Sort by division...' prompt
|
|
HNL | ; - 'Sort Patients by (N)AME... ' prompt
|
|
HFST | ; - 'START WITH PATIENT/DEBTOR...' prompt
|
|
HLST | ; - 'GO TO PATIENT/DEBTOR' prompt
|
|
HEXC | ; - 'Do you want to capture data...' prompt
|
|
HALSP | ; - 'Run report for (A)LL or (S)pecific...' prompt.
|
|
EXMSG | ; - Displays the message about capturing to an Excel file format
|
|
EXPAND(FILE,FIELD,VALUE) | ; Resolve coded data.
|
|
EXPQ | ||
DT(X,Y) | ; - Return date.
; Input: X=Date in Fileman format ; Output: Z=Date in MMM DD,YYYY format or MMDDYY format if Y=1 |
|
DTQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | EXPAND+3 |
^DD("DD" | DT+5 |
^DG(40.8 - [#40.8] | SDIV+17 |
^DGCR(399 - [#399] | CLAC1+1, CLAC1+2 |
^DGCR(399.3 - [#399.3] | CLAC1+3 |
^IB - [#350] | CLMACT+11 |
^IB("ABIL" | CLMACT+10 |
^IBE(350.1 - [#350.1] | CLMACT+13 |
^PRCA(430 - [#430] | CLMACT+7 |
Name | Line Occurrences |
---|---|
ALSP1 | ALSP1+2, ALSP2+4 |
ALSP2 | ALSP2+5, ALSP2+7 |
CLAC1 | CLMACT+10, CLMACT+11 |
CLACQ | CLMACT+6, CLMACT+7, CLMACT+12, CLMACT+13, CLAC1+1, CLAC1+2, CLAC1+3 |
DTQ | DT+3, DT+4 |
EXPQ | EXPAND+2 |
FRST | FRST+1 |
HALSP | ALSP1+2 |
HFST | FRST+1 |
HLST | LAST+1 |
LAST | LAST+1, LAST+4 |
PRPT | PRPT+21 |
QALSP | ALSP1+1, ALSP1+3, ALSP2+3, ALSP2+4 |
QDIV | SDIV+12 |
QINT | LAST+2, LAST+3 |
QT | PRPT+8, PRPT+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | MLTP+9~, PRPT+4*, PRPT+5*, PRPT+6, PRPT+14* |
ACT | CLMACT+6~, CLMACT+10*, CLMACT+11, CLMACT+13 |
ALL | MLTP~, PRPT*, PRPT+11, PRPT+23 |
ALNU | INTV+3~, INTV+5*, LAST+2*, LAST+3*, QINT |
ARR | ALSP~, ALSP+14!, ALSP1+1*, ALSP1+3!*, ALSP1+4*, ALSP2+3!* |
ARR( | ALSP2+5, ALSP2+7* |
ARR("" | ALSP2+1, ALSP2+4 |
BILL | CLMACT+6~, CLMACT+7*, CLMACT+10 |
C | EXPAND+1~, EXPAND+3* |
DIC | ALSP+13~, ALSP2*, ALSP2+3! |
DIC("A" | ALSP2+1*, ALSP2+2* |
DIC(0 | ALSP2* |
DIR | DS+4!, SDIV+6~, SDIV+8!, SDIV+11!, MLTP+9~, PRPT+8!, PRPT+20!, PRPT+21!, SNL+3~, SNL+8! , EXCEL+3~, EXCEL+8! |
DIR("?" | DS+3*, SDIV+10*, SNL+7*, EXCEL+7* |
DIR("A" | DS+2*, SDIV+9*, PRPT+3*, PRPT+6*, PRPT+7*, PRPT+13*, PRPT+16*, PRPT+18*, PRPT+19*, SNL+6* , EXCEL+6* |
DIR("B" | SDIV+8*, PRPT+7*, PRPT+19*, SNL+7*, EXCEL+5* |
DIR("T" | SDIV+10*, PRPT+7*, PRPT+19*, SNL+7*, EXCEL+5* |
DIR(0 | DS+1*, SDIV+8*, PRPT+2*, PRPT+13*, SNL+5*, EXCEL+5* |
DIROUT | SDIV+12, SDIV+13!, MLTP+9~, PRPT+8, PRPT+9!, PRPT+20, PRPT+21!, SNL+3~, EXCEL+3~, EXCEL+8 , EXCEL+9! |
DIRUT | SDIV+12, SDIV+13!, MLTP+9~, PRPT+8, PRPT+9!, PRPT+20, PRPT+21!, SNL+3~, EXCEL+3~, EXCEL+8 , EXCEL+9! |
DTIME | SDIV+10, PRPT+7, PRPT+19, SNL+7, FRST, LAST, EXCEL+5, ALSP1+1 |
DTOUT | SDIV+12, SDIV+13!, MLTP+9~, PRPT+8, PRPT+9!, PRPT+20, PRPT+21!, SNL+3~, EXCEL+3~, EXCEL+8 , EXCEL+9!, ALSP2+3 |
DUOUT | SDIV+12, SDIV+13!, MLTP+9~, PRPT+8, PRPT+9!, PRPT+20, PRPT+21!, SNL+3~, EXCEL+3~, EXCEL+8 , EXCEL+9!, ALSP2+3 |
EXCEL | EXCEL+3~, EXCEL+10*, EXCEL+12 |
FIELD | EXPAND~, EXPAND+2, EXPAND+3 |
FILE | ALSP~, ALSP2, EXPAND~, EXPAND+2, EXPAND+3 |
FRST | INTV+3~, INTV+5*, FRST+2*, LAST+2, LAST+3, LAST+4, QINT |
I | MLTP+9~, PRPT+15*, PRPT+16, PRPT+24* |
>> IBRPT | DS+4* |
IX | MLTP+9~, PRPT+4*, PRPT+6*, PRPT+7, PRPT+14*, PRPT+16, PRPT+17*, PRPT+18 |
J | SDIV+6~, SDIV+17* |
LAST | INTV+3~, INTV+5*, LAST+2*, LAST+3*, LAST+6*, QINT |
LST | MLTP+9~, PRPT+1*, PRPT+2, PRPT+7, PRPT+11, PRPT+23, PRPT+24 |
MLTP | MLTP+9~, PRPT*, PRPT+9*, PRPT+11*, PRPT+15, PRPT+16, PRPT+20*, PRPT+23, PRPT+24*, QT |
NODE | CLMACT+6~, CLMACT+11*, CLMACT+12, CLMACT+13, CLAC1+2*, CLAC1+3 |
NODE1 | CLMACT+6~, CLAC1+3*, CLAC1+4 |
OPT | MLTP~ |
OPT( | PRPT+5, PRPT+6, PRPT+16 |
OPT("" | PRPT+1 |
PRL | ALSP+13~, ALSP+14*, ALSP1, HALSP+1, HALSP+2 |
PRPT | MLTP~, PRPT+3, ALSP~, ALSP+14 |
SDIV | SDIV+6~, SDIV+12*, SDIV+13*, SDIV+14*, SDIV+17, QDIV |
SNG | ALSP+13~, ALSP+14*, ALSP2+2, ALSP2+6 |
SNL | SNL+3~, SNL+4*, SNL+9*, SNL+11 |
SORT | INTV~, FRST, LAST |
U | CLMACT+7, CLMACT+12, CLMACT+13, CLAC1+1, CLAC1+2, CLAC1+3, CLAC1+4 |
VALUE | EXPAND~, EXPAND+1, EXPAND+2, EXPAND+3 |
VAUTD | SDIV+8!, SDIV+17 |
VAUTD( | SDIV+17* |
X | SNL+8, INTV+3~, FRST*, FRST+1, FRST+2, LAST*, LAST+1, LAST+2, LAST+3, LAST+4 , LAST+6, CLMACT~, CLMACT+6, CLMACT+7, CLAC1+1, CLAC1+2, CLAC1+4, ALSP+13~, ALSP1+1*, ALSP1+2* , ALSP1+3, DT~, DT+3, DT+4, DT+5 |
Y | DS+4, SDIV+13, SDIV+14, PRPT+9, PRPT+21, SNL+8, SNL+9, EXCEL+10, CLMACT~, CLMACT+6 , CLMACT+13, CLAC1+4, ALSP2+4, ALSP2+5, ALSP2+7, EXPAND+1~*, EXPAND+3*, EXPQ, DT~, DT+4 , DT+5~* |
Z | CLMACT+6~*, CLMACT+13*, CLAC1+1*, CLAC1+4*, CLACQ, DT+3~*, DT+4*, DT+5*, DTQ |