HBHCR19A ;LR VAMC(IRMS)/MJT - HBHC file 632 rpt, DX info by date range, sorted by DX category, then pt name, includes: name, last four, DX (code & text), w/category subtotals & grand total, calls HBHCR19B & DX^HBHCUTL3 ;12/21/05 3:39pm
Source file <HBHCR19A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROMPT1 | ; Prompt user for whether to include all ICD Diagnosis Codes
|
|
PROMPT2 | ; Prompt user for individual ICD9 Diagnosis Code
|
|
PROMPT3 | ; Prompt user for whether ICD9 category is to be considered a range (e.g. Diabetes ICD9 codes range from 250 to 250.93 (as of 8/97))
|
|
START1 | ; Initialization 1
|
|
START2 | ; Initialization 2
|
|
DQ | ; De-queue
|
|
LOOP | ; Loop thru ^HBHC(632,"C" (appointment date) cross-ref to build report
|
|
EXIT | ; Exit module
|
|
PROCESS | ; Process record & build ^TMP("HBHC",$J) global
|
|
DX | ; Process Diagnosis (DX), HBHCDFN must be defined prior to call, returns code plus text in local array HBHCDX
|
|
SET | ; Set ^TMP node
; HBH*1*22 shortens SSN to Last 4 only for display; following full SSN left intact since used as subscript |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|