IBJDI6 ;ALB/CPM - SC VETS W/ NSC EPISODES OF INPT CARE ; 18-DEC-96
Source file <IBJDI6.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; - Option entry point.
|
|
DATE | ||
DQ | ; - Tasked entry point.
|
|
ENQ | ||
ENQ1 | ||
DET | ; - Print the detailed report.
|
|
DETQ | ||
PAT | ; - Write the patient information.
|
|
HDET | ; - Write the detail report header.
|
|
SUM | ; - Print the summary report.
|
|
DASH(X) | ; - Return a dashed line.
|
|
PAUSE | ; - Page break.
|
|
SSN(X) | ; - Format the SSN.
|
|
PTF(IBPTF) | ; - Does the PTF record have an NSC-related movement?
; Input: IBPTF = Pointer to the PTF record in file #45 ; Output: IBNSC = 1 (NSC movement) or 0 (No NSC movement) |
|
PTFQ | ||
BILL(IBPTF,DFN,IBADM,IBDIS) | ; - Has this episode of care been billed?
; Input: IBPTF = Pointer to the PTF record in file #45 ; DFN = Pointer to the patient in file #2 ; IBADM = Episode admission date ; IBDIS = Episode discharge date ; Output: BILL = 1 (Episode has been billed) ; 0 (Episode has not been billed) |
|
BILLQ |
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 |
|