IBJDI21 ;ALB/CPM - VETERANS WITH UNVERIFIED ELIGIBILITY (CONT'D) ;16-DEC-96
Source file <IBJDI21.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENQ | ||
OUTPT(DFN,IBBDT,IBEDT,IBCBK,IBMSG,IBQ,IBSUBSCR,IBQUERY,IBDIR) | ;
; Input: DFN = IEN of patient if using PATIENT/DATE index, otherwise, ; if null or 0, DATE/TIME index will be used ; IBCBK = The MUMPS code to execute when valid enctr found ; IBBDT/IBEDT = The start/end dates ; IBMSG = The text to send to STOP PROCESSING CALL (if null, no ; call made) ; IBQ = Flag that says whether or not the process was stopped ; by user ; IBQUERY = The # of the QUERY OBJECT to be used to extract outpt ; visits ; IBDIR = Null to look forward, 'B' to look backward thru file |
|
STOP(IBQ,MSG) | ; - Check if user wants to stop.
|
|
ENC(IBOED,IBQUERY1) | ; - Encounter extract for all patients loop.
; IBQUERY1 = the # of the QUERY to use to do the extract. ; Pre-set variables IB array, IBSORT are required. |
|
PROC(DFN,IBIPC,IBQUERY) | ; - Process each specific patient.
; Input: DFN = Pointer to the patient in file #2 ; IBIPC = Inpatient treatment marker ; ("*"=Had inpat. treatment, null=No inpat. treatment) ; IBQUERY = The # of the QUERY OBJECT to be used to extract ; outpatient visits |
|
PRCS | ||
PRCQ | ||
SET(IBQUERY) | ; - Set up detailed information to appear on the report.
; Working variable definitions: ; IBLT = Last treatment date ; IBDN = Zero node of Patient file entry ; IBDOD = Patient's date of death (if any) ; IBNUMO = No. outpatient visits in date range ; IBNUMD = No. discharges in date range ; IBNEXT = Next scheduled treatment date ; IBQUERY = The # of the QUERY OBJECT to be used to extract outpatient ; visits |
|
DIV(X,Y) | ; - Return division name.
; Input: X=1-Inpatient, 0-Outpatient ; Y=IEN of file #42 (If X=1) or IEN of file #40.8 (If X=0) |
|
DET | ; - Print the detailed report.
|
|
DETQ | ||
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.
|
|
ESTAT(X) | ; - Decode the eligibility status.
|
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 |
|