HBHCAPPT ; LR VAMC(IRMS)/MJT-HBHC batch job to create ^HBHC(632) (visit) nodes from PCE module info => patient, appointment date/time, hospital location (clinic), prov, DX code(s), & CPT code(s), calls ^HBHCCAN, HBHCAPP1 ; Jul 2000
Source file <HBHCAPPT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SCAN | ; Scan
|
|
EXIT | ; Exit module
|
|
CB(HBHCOEP,HBHCSCE0,HBHCSTOP) | ;
; Omit Child encounter, (child if Parent Encounter field contains data) |
|
VERIFY | ; Verify record doesn't already exist in ^HBHC(632) file
|
|
PROCESS | ; Process provider, diagnosis (DX), & CPT code data
; Dx |
|
SET | ; Set node, call ^DIK to set cross-refs in ^HBHC(632) (visit) file
|
|
SETLOOP | ; Set loop
|
|
CHECK | ; Check to ensure provider only has 1 HBHC Provider Number (631.4) or if > 1, has others flagged as Inactive Provider Numbers
|
|
PROV | ; Encounter provider & CPT code processing
|
|
SUB1 | ; Subroutine 1 for encounter provider & CPT code processing
|
|
SUB2 | ; Subroutine 2 for encounter provider & CPT code processing
|
|
SETCPT | ; Set CPT multiple
|
|
SETMOD | ; Set CPT Modifier multiple
|
FileNo | Call Tags |
---|---|
^HBHC(632 - [#632] | Classic Fileman Calls |