HBHCUPD ;LR VAMC(IRMS)/MJT - HBHC update missing data in ^HBHC(631) using ^HBHC(634.1) & ^HBHC(634.3) as input for which records/fields to update, HBHC(634.2 errors must be corrected using PCE, 634.2 data killed @ end of processing ;3/18/14
Source file <HBHCUPD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROMPT | ; Prompt user for patient name
|
|
PSEUDO | ; Process pseudo SSN message
|
|
EXIT | ; Exit module
; HBHC(634.2 visit errors must be corrected using PCE software, 634.2 killed here so validity processing can occur again |
|
PROCESS | ; Process errors via DIE
|
|
SET | ; Set DR string(s) for Discharge data
|
|
ICD() | ;
; Set ICDVDT based on whether process Admission or Discharge |
|
DXCHKA1(DA) | ; Admissions - Check for DX codes and adjust DR as needed for first ^DIE call
|
|
DXCHKA2(DA) | ; Admissions - adjust DR as needed for second ^DIE call
|
|
DXCHKD1(DA,HBHCIEN) | ; Discharges - Check for DX codes as adjust as needed for first ^DIE call
; DA = #631 IEN ; HBHCIEN = #634.3 IEN ; Loop through DR looking for DISCHARGE DATE #39 & PRI DX @ DISCHARGE (#46). ; Fields are stored in numerical sequence so if DISCHARGE DATE (#39) is defined, it will be processed first |
|
DXCHKD2(DA) | ; Discharges - Load fields in HBHCDRD into DR for second ^DIE call
; Determine Date of Interest based on current value in #39 |
|
FNDIT(HBHCFLD,HBHCCNT,HBHCDATA) | ;
; Find target HBHCFLD in string HBHBDATA ; Return either HBHC39 or HBHC46 = Line^Piece |
|
GETDT(DA) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |