Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: HBHCUPD

Package: Hospital Based Home Care

Routine: HBHCUPD


Information

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 Information

Source file <HBHCUPD.m>

Entry Points

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) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+1
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient has no records containing errors on file.",!
  • Line Location: PROMPT+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Another user is editing this "_HBHCTXT_" entry.",!
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!!?HBHCCOLM,"=== Editing "_$S(HBHCDATE]"":HBHCDATE_" "_HBHCTXT,1:HBHCTXT)_" data ===",!
  • Line Location: PROCESS+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call