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 |
