SD5384PT ;ALB/MLI - clean-up routine to remove credit stop code encounters ; 12 Dec 96 @ 10:02
Source file <SD5384PT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; process task
|
|
| LOOP | ; loop through encounter file and delete bogus credit stop entries
|
|
| LOOPQ | ||
| DEL(IEN) | ; delete encounter and increment counter by location
|
|
| ; send bulletin of results
|
||
| LINE(TEXT) | ; add text to mail message
|
|
| CLINIC | ; entry point if a site wants to delete ALL credit stop encounters associated with one (or more) hospital location(s)
|
|
| QUEUE | ; queue process to run
|
|
| RETRAN | ; flag errors of one type to retransmit
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SCE - [#409.68] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | MAIL+14, MAIL+19 |
| ^SCE - [#409.68] | LOOP+23, LOOP+28, DEL+5 |
| ^SCE("B" | LOOP+20, LOOP+22 |
| ^SD(409.75 - [#409.75] | RETRAN+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RETRAN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL+4~, DEL+8* |
| >> DIC | CLINIC+6* |
| >> DIC("S" | CLINIC+6* |
| DIFROM | MAIL+1~ |
| DIK | DEL+4~, DEL+7* |
| DIR | RETRAN+1~ |
| DIR(0 | RETRAN+2* |
| DIROUT | RETRAN+1~ |
| DIRUT | RETRAN+1~ |
| DT | LOOP+18 |
| DTOUT | RETRAN+1~ |
| DUOUT | RETRAN+1~ |
| DUZ | MAIL+22 |
| ERROR | RETRAN+1~, RETRAN+5*, RETRAN+7 |
| I | MAIL+14*, MAIL+19*, QUEUE+1~, QUEUE+4* |
| IEN | DEL~, DEL+5, DEL+8 |
| LOC | DEL+4~, DEL+5*, DEL+6 |
| SDALL | LOOP+17~, LOOP+19*, LOOP+25 |
| >> SDBEGDT | LOOP+18*, LOOP+19 |
| SDCLINIC | CLINIC+4~ |
| SDCLINIC( | LOOP+26, MAIL+19 |
| SDCLINIC(0 | LOOP+19, MAIL+6 |
| SDCOUNT | EN+1~, MAIL+2*, LINE+1* |
| SDCOUNT( | DEL+6*, MAIL+14, MAIL+19 |
| SDCOUNT(0 | MAIL+15 |
| SDCRED | LOOP+17~, LOOP+27*, LOOP+30 |
| SDDATE | LOOP+17~, LOOP+19*, LOOP+20*, LOOP+22 |
| SDENC | LOOP+17~, LOOP+21*, LOOP+22*, LOOP+23, LOOP+26, LOOP+29, LOOP+30 |
| >> SDENDDT | LOOP+18*, LOOP+20 |
| SDLOOP | RETRAN+1~, RETRAN+5*, RETRAN+6* |
| SDNODE | LOOP+17~, LOOP+23*, LOOP+24, LOOP+26, LOOP+27, LOOP+28 |
| >> SDNODEL | DEL+9 |
| SDPAR | LOOP+17~, LOOP+28*, LOOP+29, LOOP+30 |
| SDSTART | EN+1~, EN+2*, MAIL+4 |
| SDTEXT | MAIL+1~ |
| SDTEXT( | LINE+1* |
| TEXT | LINE~, LINE+1 |
| >> VAUTNALL | CLINIC+5* |
| >> VAUTNI | CLINIC+5* |
| >> VAUTSTR | CLINIC+5* |
| >> VAUTVB | CLINIC+5* |
| X | RETRAN+1~, RETRAN+6*, RETRAN+7 |
| XMDUZ | MAIL+22*, MAIL+24! |
| XMN | MAIL+20*, MAIL+24! |
| XMSUB | MAIL+20*, MAIL+24! |
| XMTEXT | MAIL+21*, MAIL+24! |
| XMY | MAIL+24! |
| XMY( | MAIL+22* |
| Y | CLINIC+8, RETRAN+1~, RETRAN+4, RETRAN+5 |
| ZTDESC | QUEUE+2*, QUEUE+8! |
| ZTIO | QUEUE+3*, QUEUE+8! |
| ZTRTN | QUEUE+5*, QUEUE+8! |
| ZTSAVE | QUEUE+8! |
| ZTSAVE( | QUEUE+4* |
| ZTSK | QUEUE+7, QUEUE+8! |
