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 |
