IBCONS1 ;ALB/AAS - NSC PATIENTS W/ INS BACKGROUND PRINTS ; 7 JUN 90
Source file <IBCONS1.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 4 | GVAR^IBCBB END^IBCBB1 ALL^IBCNS1 BEGIN^IBCONSC |
VA Fileman | 2 | ^%DT ^DIR |
Kernel | 1 | $$S^%ZTLOAD |
Registration | 1 | PID^VADPT6 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 4 | IB BACKGRND VET DISCHS W/INS IB BACKGRND VETS INPT W/INS IB BACKGRND VETS OPT W/INS IBCONSC |
Name | Comments | DBIA/ICR reference |
---|---|---|
LOOP31 | ; Loop through each name or terminal digit (and associated DFN).
|
|
Q | ||
HEAD | ; Print header; don't pause on first pass through.
|
|
EN | ; Inpatient Discharge entry to que background once weekly
|
|
LOOP25 | ; Print all NSC w/Insurance reports.
|
|
INSPQ | ||
; Print each detail line.
|
||
PRINT1 | ; If an episode of care has been billed, display billing information.
|
|
QUEUE | ; Set up the background job to run for the previous week
|
|
EN1 | ; Inpatient Admission entry to que background once weekly
|
|
EN2 | ; Outpatient entry to que background once weekly
|
|
PAUSE | ||
INSP(DFN,IBDAT) | ; -- print ins. company on report logic
|
|
LOOP3 | ; Loop through billed, unbilled, or both types of episodes of care.
|
|
LOOP4 | ; Loop through each episode of care for a patient.
|
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 |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | PRINT+4 |
^DG(40.8 - [#40.8] | HEAD+7 |
^DGCR(399 - [#399] | PRINT1+2 |
^DGCR(399.3 - [#399.3] | PRINT1+2 |
^DIC(36 - [#36] | PRINT1+6, INSP+8 |
^DIC(4 - [#4] | PRINT1+7 |
^DIC(8 - [#8] | PRINT+3 |
^DPT - [#2] | PRINT+3, PRINT1+8 |
^TMP($J | QUEUE+5!, LOOP25+2, Q+1!, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17 |
Name | Line Occurrences |
---|---|
$$INSP | PRINT+7 |
HEAD | LOOP3+1, LOOP4+1 |
INSPQ | INSP+3 |
LOOP3 | LOOP25+2 |
LOOP31 | LOOP3+1 |
LOOP4 | LOOP31+4 |
PAUSE | LOOP25+3, HEAD+2 |
LOOP4+1 | |
PRINT1 | PRINT+17 |
QUEUE | EN+1, EN1+1 |
Name | Field # of Occurrence |
---|---|
^( | PRINT+3 |
^(0 | PRINT1+6, PRINT1+7 |
^(2 | PRINT+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | Q! |
%DT | QUEUE+6*, QUEUE+7*!, Q! |
B | Q! |
DFN | Q!, LOOP31+4*, LOOP4+1, PRINT+1, PRINT+3, PRINT+7, PRINT+13, PRINT+15, PRINT+17, PRINT1+8 , INSP~, INSP+3, INSP+4 |
DIR | PAUSE+2! |
DIR(0 | PAUSE+2* |
DIRUT | PAUSE+2! |
DTOUT | PAUSE+2! |
DUOUT | PAUSE+2! |
I | Q!, LOOP4+1* |
IBAPPT | Q+1! |
>> IBAT | PRINT1+2 |
IBBEG | QUEUE+7*, Q+1! |
IBBEG1 | Q! |
IBBILL | Q!, LOOP3+1*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17, HEAD+7 |
>> IBCL | PRINT1+2 |
IBCNT | Q!, INSP+1~, INSP+2*, INSP+5, INSP+6*, INSP+7 |
IBDAT | Q+1!, LOOP4+1*, PRINT+1, PRINT+4, PRINT+7, PRINT+13, PRINT+15, PRINT+17, INSP~, INSP+3 , INSP+4 |
IBDATE | Q!, HEAD+7 |
IBDC | Q+1!, PRINT+16* |
IBDD | INSP+1~, INSP+4* |
IBDD( | INSP+5, INSP+8 |
IBDD(0 | INSP+10 |
IBDDINS | INSP+1~, INSP+2*, INSP+7*, INSP+8*, INSP+9*, INSP+10*, INSPQ |
IBDFN | Q+1! |
IBDT | Q! |
>> IBDV | LOOP25+1*, LOOP25+2*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17, HEAD+7 |
IBEND | QUEUE+6*, Q+1! |
>> IBFDT | PRINT1+3 |
>> IBFL | LOOP25+1*, HEAD+2* |
IBFLAG | Q!, Q+1!, LOOP3+1!, LOOP31+2, PRINT+2* |
>> IBFORMFD | HEAD+5, HEAD+6* |
IBHD | Q!, HEAD+7 |
IBI | Q! |
IBIFN | Q!, PRINT+17*, PRINT1+2 |
IBINPT | EN+1*, EN1+1*, EN2+1*, Q+1!, HEAD+8 |
IBL | Q!, HEAD+10 |
IBNAME | Q+1!, LOOP3+1*, LOOP31+1*, LOOP31+2, LOOP31+3, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15 , PRINT+17 |
>> IBNDM | PRINT1+6, PRINT1+7 |
IBPAGE | Q!, LOOP3+1*, HEAD+3*, HEAD+5, HEAD+7 |
>> IBQUIT | LOOP25+1*, LOOP25+2, LOOP25+3, LOOP3+1, LOOP31+1, LOOP31+4, LOOP4+1, HEAD+1*, HEAD+2, PAUSE+2* |
>> IBRNB | QUEUE+8*, PRINT+1, HEAD+9 |
>> IBSORT | QUEUE+8*, LOOP3+1 |
>> IBSUB | EN+1*, EN1+1*, EN2+1* |
>> IBTDT | PRINT1+4 |
>> IBTERM | QUEUE+8* |
>> IBWHO | PRINT1+6, PRINT1+7, PRINT1+8 |
IO | QUEUE+9 |
IOF | HEAD+5 |
IOSL | LOOP4+1, PAUSE+1 |
IOST | HEAD+5, PAUSE |
J | Q!, PAUSE+1* |
K | Q!, PRINT+17* |
L | Q! |
M | Q! |
POP | Q+1! |
VA | PRINT+3! |
VA("BID" | PRINT+3 |
VA("PID" | PRINT+3 |
VAERR | PRINT+3! |
>> VAUTD | QUEUE+8* |
X | QUEUE+6*, QUEUE+7*, Q!, PRINT+7*, PRINT+15*, PRINT+16, PRINT+17*, INSP+1~, INSP+5*, INSP+8 |
X1 | Q! |
X2 | Q! |
Y | QUEUE+6, QUEUE+7, Q!, PRINT+4* |
>> ZTQUEUED | HEAD+1 |
>> ZTSTOP | HEAD+1* |