HBHCRP21 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, number of pat visits by date range, with total pats & total visits, user selectable alpha or number of visits sort, number of visits has subtotals & summary, calls CPT^HBHCUTL3 ; Apr 2000
Source file <HBHCRP21.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROMPT | ; Prompt user for CPT code
|
|
DQ | ; De-queue
; CPT codes omitted from inclusion on report ; Active |
|
LOOP | ; Loop thru ^HBHC(632) "C" (appointment date) cross-ref to build report
|
|
EXIT | ; Exit module
|
|
PROCESS | ; Process record & build ^TMP("HBHC",$J) global
; Quit if no CPT codes |
|
SORT | ; Sort TMP according to number of visits
|
|
SORTLOOP | ; Sort loop
|
|
SET | ; Set TMP in re-sorted order by number of visits, kill old TMP node
|
|
PRTLOOP | ; Print loop
|
|
PRTLOOP2 | ; Print loop continued
|
|
PRTLOOP3 | ; Print loop continued again
|
|
APRTLOOP | ; Print loop for alphabetic sort
|
|
APRTLP2 | ; Print loop for alphabetic sort continued
|
|
; Print report
|
||
SUMMARY | ; Print report summary
|
|
OMIT | ; Print Omitted CPT Codes listing
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|