PRCHAMXC ;WISC/DJM-'CHANGES' ROUTINES #3 FOR 443.6 ;5/12/95 11:58 AM
Source file <PRCHAMXC.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 |
| Package | Total | Caller Graph |
|---|---|---|
| IFCAP | 5 | PRCHMA2 PRCHMA3 ^PRC(443.6 ADMINISTRATIVE CERTIFICATIONS DISCOUNT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
| EN1 | ;SAVES 'ADMINISTRATIVE CERTIFICATIONS'
|
|
| EN2 | ;SAVES 'DESCRIPTION LINE COUNT'
|
|
| EN3 | ;SAVES 'DIRECT DELIVERY PATIENT' IN MAIN FILE
|
|
| EN4 | ;SAVES 'EST.SHIPPING' IN MAIN FILE
|
|
| EN5 | ;SAVES 'FCP' IN MAIN FILE
|
|
| EN6 | ;SAVES 'COST CENTER' IN MAIN FILE
|
|
| EN7 | ;SAVES 'REQUESTING SERVICE' IN MAIN FILE
|
|
| EN8 | ;SAVES 'F.O.B. POINT' IN MAIN FILE
|
|
| EN9 | ;SAVES 'DISCOUNT ITEM' IN 'DISCOUNT' MULTIPLE
|
|
| EN10 | ;SAVES 'PERCENT/DOLLAR AMOUNT' IN 'DISCOUNT' MULTIPLE
|
|
| EN11 | ;SAVES 'EST. SHIPPING BOC' IN MAIN FILE
|
|
| EN12 | ;SAVES 'GOV'T B/L NO.' IN MAIN FILE
|
|
| EN13 | ;SAVES 'SHIP VIA' IN MAIN FILE
|
|
| EN14 | ;SAVES 'GBL P.O. NUMBER' IN MAIN FILE
|
|
| SAVE(FF,PRCHDA1,RECORD) | ;THIS WILL DO THE ACTUAL SAVING OF THE INFORMATION.
|
|
| NEXT(DA,DA1,DA2) | ;COME HERE TO CREATE THE NEXT ENTRY IN THE 'CHANGES' MULTIPLE.
|
|
| FIND | ||
| ENTER |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(443.67 | NEXT+3 |
| ^PRC(443.6 - [#443.6] | SAVE+7, NEXT+3*, FIND |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AA | NEXT+2~, NEXT+3*, NEXT+4*, FIND*, ENTER |
| ALREADY | SAVE+6~, SAVE+7*, SAVE+8 |
| BB | NEXT+2~, FIND* |
| D | SAVE+6~ |
| D0 | SAVE+6~ |
| D1 | SAVE+6~ |
| D2 | SAVE+6~ |
| DA | EN1+2, EN2+2, EN3+2, EN4+2, EN5+2, EN6+2, EN7+2, EN8+2, EN9+2, EN10+2 , EN11+2, EN12+2, EN13+2, EN14+2, SAVE+10~, SAVE+13*, NEXT~, NEXT+3, FIND, ENTER |
| DA(1 | EN1+2, EN2+2, EN9+2, EN10+2, SAVE+13*, ENTER* |
| DA(2 | SAVE+13*, ENTER* |
| DA1 | NEXT~, NEXT+3, FIND, ENTER |
| DA2 | NEXT~, ENTER+1* |
| DC | SAVE+12~ |
| DD | SAVE+12~, NEXT+2~, ENTER! |
| DE | SAVE+12~ |
| DG | SAVE+12~ |
| DH | SAVE+6~ |
| DI | SAVE+12~ |
| DIC | NEXT+2~, ENTER* |
| DIC(0 | ENTER* |
| DIE | SAVE+12~, SAVE+13* |
| DIEL | SAVE+12~ |
| DIFLD | SAVE+6~ |
| DIG | SAVE+6~ |
| DIH | SAVE+6~ |
| DIK | EN1+1~ |
| DINUM | NEXT+2~, ENTER* |
| DIOV | SAVE+6~ |
| DIP | SAVE+6~ |
| DISYS | SAVE+6~ |
| DIU | SAVE+6~ |
| DIV | SAVE+6~ |
| DK | SAVE+12~ |
| DL | SAVE+12~ |
| DM | SAVE+12~ |
| DO | SAVE+12~, NEXT+2~, ENTER! |
| DOV | SAVE+6~ |
| DP | SAVE+12~ |
| DQ | SAVE+12~ |
| DR | SAVE+12~, SAVE+14* |
| DS | SAVE+6~ |
| DU | SAVE+6~ |
| DV | SAVE+6~ |
| DW | SAVE+6~ |
| F2NUMBER | SAVE+6~, SAVE+7* |
| FF | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, EN13+1~, EN13+2*, EN13+3, EN14+1~ , EN14+2*, EN14+3, SAVE~, SAVE+7 |
| J | SAVE+6~ |
| L | SAVE+6~ |
| OLD | SAVE+6~, SAVE+9* |
| >> PRCHAM | SAVE+7, SAVE+11, SAVE+13 |
| PRCHDA | SAVE+6~, SAVE+9*, SAVE+11, SAVE+13 |
| PRCHDA1 | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, EN13+1~, EN13+2*, EN13+3, EN14+1~ , EN14+2*, EN14+3, SAVE~, SAVE+7, SAVE+11, SAVE+13 |
| RECORD | EN1+1~, EN1+2*, EN1+3, EN2+1~, EN2+2*, EN2+3, EN3+1~, EN3+2*, EN3+3, EN4+1~ , EN4+2*, EN4+3, EN5+1~, EN5+2*, EN5+3, EN6+1~, EN6+2*, EN6+3, EN7+1~, EN7+2* , EN7+3, EN8+1~, EN8+2*, EN8+3, EN9+1~, EN9+2*, EN9+3, EN10+1~, EN10+2*, EN10+3 , EN11+1~, EN11+2*, EN11+3, EN12+1~, EN12+2*, EN12+3, EN13+1~, EN13+2*, EN13+3, EN14+1~ , EN14+2*, EN14+3, SAVE~, SAVE+7 |
| U | NEXT+4 |
| X | SAVE+9, SAVE+10~, NEXT+2~, ENTER* |
| Y | EN1+1~, EN2+1~, EN3+1~, EN4+1~, EN5+1~, EN6+1~, EN7+1~, EN8+1~, EN9+1~, EN10+1~ , EN11+1~, EN12+1~, EN13+1~, EN14+1~, NEXT+2~, ENTER, ENTER+1 |