HBHCRP22 ; LR VAMC(IRMS)/MJT-HBHC rpt, file 632, user selected date range, CPT code(s) (can be range of CPTs), & Provider, with summary totals ; Apr 2000
Source file <HBHCRP22.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DQ | ; De-queue
|
|
| LOOP | ; Loop thru ^HBHC(632) "C" (visit date) cross-ref to build report
|
|
| EXIT | ; Exit module
|
|
| PROCESS | ; Process record & create ^TMP("HBHC",$J global
; Quit if not provider requested |
|
| SET | ; Set TMP node for CPTs
|
|
| PRTLOOP | ; Print loop
|
|
| ; Print report
|
||
| HDR | ; Report header setup
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | LOOP+1 |
| ^%ZIS | HBHCRP22+7 |
| ^%ZISC | EXIT+1 |
| ^%ZTLOAD | HBHCRP22+8 |
| HDRRANGE^HBHCUTL | LOOP+3, PRINT+3, HDR+2 |
| ENDRPT^HBHCUTL1 | LOOP+5 |
| EN^HBHCUTL2 | HBHCRP22+3 |
| FTOT^HBHCUTL2 | LOOP+4 |
| PROV^HBHCUTL2 | HBHCRP22+3 |
| TOT^HBHCUTL2 | PRTLOOP+1 |
| CPT^HBHCUTL3 | PROCESS+5 |
| EN1^HBHCUTL4 | HBHCRP22+5 |
| KILL^HBHCUTL4 | EXIT+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PROCESS+4 |
| ^HBHC(631.4 - [#631.4] | SET+3 |
| ^HBHC(632 - [#632] | LOOP+2 |
| ^TMP("HBHC" | DQ+2!, LOOP+3, LOOP+4, SET+4*, SET+5*, PRTLOOP+1, PRINT+1 |
| ^VA(200 - [#200] | SET+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | HBHCRP22+4, EXIT+2! |
| >> %ZIS | HBHCRP22+7* |
| DIC | EXIT+2! |
| DTOUT | HBHCRP22+4, HBHCRP22+6, EXIT+2! |
| DUOUT | HBHCRP22+4, EXIT+2! |
| HBHCBEG1 | HBHCRP22+6, LOOP+1, EXIT+2! |
| >> HBHCCC | PRINT+3 |
| HBHCCLM1 | EXIT+2!, HDR+1* |
| >> HBHCCNT | PRINT+1*, PRINT+2, PRINT+4 |
| >> HBHCCOLM | DQ+3* |
| >> HBHCCPT | PROCESS+6*, SET+1, SET+2, SET+4, SET+5, PRTLOOP+1*, PRINT+1, PRINT+4 |
| >> HBHCCPTA( | PROCESS+6 |
| HBHCCPTB | HBHCRP22+6, EXIT+2!, SET+1 |
| HBHCCPTE | HBHCRP22+6, EXIT+2!, SET+1 |
| >> HBHCDATE | LOOP+1*, LOOP+2* |
| >> HBHCDFN | LOOP+2* |
| >> HBHCDIR | SET+1, SET+2 |
| >> HBHCDPT0 | PROCESS+4* |
| HBHCEND1 | HBHCRP22+6, LOOP+2, EXIT+2! |
| HBHCFTOT | DQ+3*, EXIT+2! |
| >> HBHCHDR | DQ+3* |
| HBHCHEAD | DQ+3*, EXIT+2! |
| >> HBHCI | PROCESS+6* |
| HBHCNAM | LOOP+3!, EXIT+2!, SET+3*, SET+4, SET+5, HDR+1* |
| >> HBHCNOD0 | LOOP+2*, PROCESS+2, PROCESS+4 |
| HBHCONE | DQ+3*, EXIT+2! |
| >> HBHCPAGE | HDR+1* |
| HBHCPRV | EXIT+2!, PROCESS+2*, PROCESS+3, SET+3, PRTLOOP+1*, PRINT+1, HDR+1 |
| HBHCPRVL | LOOP+4, EXIT+2!, PROCESS+3 |
| HBHCPRVL( | PROCESS+3 |
| >> HBHCTMP | HBHCRP22+6 |
| >> HBHCTMP( | SET+2 |
| >> HBHCTOT | DQ+3*, PRTLOOP+1, PRINT+2* |
| HBHCTXT | DQ+3*, EXIT+2! |
| HBHCWHO | EXIT+2! |
| HBHCWHOC | EXIT+2! |
| HBHCWHOS | EXIT+2! |
| >> HBHCY | DQ+3*, PRINT+5 |
| IO | DQ+1 |
| IO("Q" | HBHCRP22+8 |
| IOF | PRINT+3, HDR+2 |
| IOP | HBHCRP22+7! |
| IOSL | PRINT+3 |
| >> POP | HBHCRP22+7 |
| U | LOOP+2, PROCESS+2, PROCESS+4, SET+3 |
| >> X | LOOP+1 |
| >> X1 | LOOP+1* |
| >> X2 | LOOP+1* |
| Y | EXIT+2! |
| >> ZTDESC | HBHCRP22+8* |
| ZTIO | HBHCRP22+7! |
| >> ZTRTN | HBHCRP22+8*, PRINT+3 |
| ZTSAVE | HBHCRP22+7! |
| ZTSAVE("HBHC*" | HBHCRP22+8* |
