HBHCR15A ;LR VAMC(IRMS)/MJT-HBHC rpt using file 634.6, user selects date/forms from last 12 transmit batchs, fields: form#, pat name, last 4, form date, + action on form 3, prov #, & prov name on visits, & Adm or D/C on form 6 ;2/5/98
Source file <HBHCR15A.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(634.6,"C" (transmit date) cross-ref to build report
|
|
| EXIT | ; Exit module
|
|
| PROCESS | ; Process records
|
|
| FORM3 | ; Process Form 3 (Admission) records
|
|
| FORM4 | ; Process Form 4 (Visit) records
|
|
| NAME | ; Form 4 Name
|
|
| FORM5 | ; Process Form 5 (Discharge) records
|
|
| FORM6 | ; Process Form 6 (Correction) records
|
|
| FORM7 | ; Process Form 7 Medical Foster Home (MFH) records
|
|
| SET | ; Set TMP node
; By design, records are processed/printed in the following order by form number: 6, 3 (A), 5 (D), 4 (V), & 7 (Z) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | FORM3+6, FORM4+3, FORM5+4, FORM6+4 |
| ^DPT("SSN" | FORM3+6, FORM4+3, FORM5+4, FORM6+4 |
| ^HBHC(631.4 - [#631.4] | FORM4+8, NAME+2 |
| ^HBHC(631.9 - [#631.9] | HBHCR15A+7 |
| ^HBHC(634.6 - [#634.6] | HBHCR15A+6, LOOP+1 |
| ^TMP("HBHC" | EXIT+3!, SET+2* |
| ^TMP($J | EXIT+3!, SET+3* |
| ^VA(200 - [#200] | NAME+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | HBHCR15A+10* |
| DIR | EXIT+2! |
| DIRUT | HBHCR15A+9, EXIT+2! |
| HBHC | EXIT+2! |
| HBHCACTN | EXIT+2!, PROCESS+1*, FORM3+2*, FORM3+3*, SET+2 |
| HBHCCC | EXIT+2! |
| HBHCCNT | EXIT+2! |
| HBHCCNT4 | DQ+2*, EXIT+2!, FORM4+1* |
| HBHCCNT5 | DQ+2*, EXIT+2!, FORM5+1* |
| HBHCCNT6 | DQ+2*, EXIT+2!, FORM6+1* |
| HBHCCNT7 | DQ+2*, EXIT+2!, FORM7+1* |
| HBHCCNTA | DQ+2*, EXIT+2!, FORM3+2* |
| HBHCCNTR | DQ+2*, EXIT+2!, FORM3+3* |
| HBHCCOLM | DQ+2*, EXIT+2! |
| HBHCDATE | EXIT+2!, FORM3+1*, FORM4+5*, FORM5+6*, FORM6+8*, FORM7+5*, SET+2, SET+3 |
| HBHCDFN | EXIT+2!, FORM3+6*, FORM4+3*, FORM5+4*, FORM6+4* |
| HBHCDIR | DQ+3, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, FORM3+4, FORM5+2, FORM6+2 , FORM7+2, SET+2 |
| HBHCDSDT | EXIT+2!, FORM6+6*, FORM6+8, FORM6+9 |
| HBHCFLG | EXIT+2!, FORM4+8*, NAME+1, NAME+2* |
| HBHCFORM | EXIT+2!, FORM3+5*, FORM4+2*, FORM5+3*, FORM6+3*, FORM7+3*, SET+2, SET+3 |
| HBHCHDR | DQ+3*, EXIT+2! |
| HBHCHEAD | DQ+2, EXIT+2! |
| HBHCI | EXIT+2! |
| HBHCIEN | LOOP+1*, EXIT+2!, SET+2 |
| HBHCINFO | LOOP+1*, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, FORM3+1, FORM3+2, FORM3+3 , FORM3+6, FORM3+7, FORM4+3, FORM4+4, FORM4+5, FORM4+6, FORM4+7, FORM5+4, FORM5+5, FORM5+6 , FORM6+4, FORM6+5, FORM6+6, FORM6+8, FORM7+4, FORM7+5 |
| HBHCIOP | EXIT+2! |
| HBHCLST4 | EXIT+2!, FORM3+7*, FORM4+4*, FORM5+5*, FORM6+5*, FORM7+6*, SET+2, SET+3 |
| HBHCMFHS | EXIT+2!, PROCESS+6 |
| HBHCNAME | EXIT+3!, FORM3+6*, FORM4+3*, FORM5+4*, FORM6+4*, FORM7+4*, SET+2, SET+3 |
| HBHCPAGE | DQ+2*, EXIT+3! |
| HBHCPIEN | EXIT+3!, FORM4+8*, NAME+2 |
| HBHCPRV | EXIT+3!, PROCESS+1*, NAME+1*, NAME+2*, SET+2, SET+3 |
| HBHCPRVN | EXIT+3!, PROCESS+1*, FORM4+7*, FORM4+8, SET+2 |
| HBHCTDY | EXIT+3! |
| HBHCTIME | EXIT+3!, PROCESS+1*, FORM4+6*, SET+2, SET+3 |
| HBHCTYPE | EXIT+3!, PROCESS+1*, FORM6+9*, SET+2 |
| HBHCXMDT | LOOP+1, EXIT+3! |
| HBHCY | DQ+2*, EXIT+3! |
| HBHCY0 | EXIT+3! |
| HBHCZ | EXIT+3! |
| IO | DQ+1 |
| IO("Q" | HBHCR15A+11 |
| >> POP | HBHCR15A+10 |
| TMP | EXIT+3! |
| U | HBHCR15A+7, LOOP+1, FORM3+6, FORM4+3, NAME+2, FORM5+4, FORM6+4, SET+2 |
| X | EXIT+3! |
| Y | EXIT+3! |
| >> ZTDESC | HBHCR15A+11* |
| >> ZTRTN | HBHCR15A+11* |
| >> ZTSAVE("HBHC*" | HBHCR15A+11* |
