PXKMAIN1 ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;06/17/16 13:52
Source file <PXKMAIN1.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 |
|---|---|---|
| LOOP | ;+Copy delimited strings into sub-arrays.
|
|
| ERROR | ;+Check for missing required fields
|
|
| CLEAN | ;--Clean out the PXKAV array
|
|
| FILE | ;+Create a new entry in file and get IEN
|
|
| AUD12 | ;--Set both audit fields
|
|
| AUD2 | ;--Set second audit fields
|
|
| TMSTAMP | ; set Timestamp
|
|
| DRDIE | ;--Set the DR string and DO DIE
|
|
| DIE | ;+Lock global and invoke FM ^DIE call.
|
|
| DELETE | ;+Use FM ^DIK call to delete entry identified by PXKPIEN.
|
|
| COPYDEL | ; Make a copy of entry
|
|
| DUP | ;+Code to check for duplicates
|
|
| ER | ;--PXKERROR MAKING IF NOT POPULATED CORRECTLY
|
| Name | Field # of Occurrence |
|---|---|
| ^@( | ERROR+3, ERROR+10, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+21, DUP+11, ER+15 |
| FILE^DICN | FILE+7, COPYDEL+17 |
| ^DIE | DIE+2 |
| ^DIK | DELETE+7 |
| IX1^DIK | COPYDEL+28 |
| UPD^PXKFVST | DRDIE+1 |
| CLEAN^PXKIMM | CLEAN+3 |
| DIE^PXKIMM | DRDIE+18 |
| ER^PXKIMM | ER+5 |
| LOOP^PXKMOD | LOOP+4 |
| UPD^PXKMOD | DRDIE+16 |
| STOCK^PXVXR | DRDIE+34 |
| $$NOW^XLFDT | TMSTAMP+1, COPYDEL+25 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PXK" | DRDIE+10, DRDIE+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | FILE+8*, DELETE+5*, COPYDEL+2~, COPYDEL+27*, ER+8, ER+20, ER+21, ER+22 |
| DD | FILE+3! |
| DIC | FILE+4*, FILE+10!, COPYDEL+2~, COPYDEL+12* |
| DIC(0 | FILE+5*, DRDIE+35!, COPYDEL+13* |
| DIE | DRDIE+3*, DRDIE+35! |
| DIK | DELETE+6*, DELETE+8!, COPYDEL+2~, COPYDEL+26* |
| >> DILOCKTM | COPYDEL+14, COPYDEL+23 |
| DINUM | COPYDEL+2~, COPYDEL+16* |
| DO | FILE+3!, COPYDEL+2~ |
| DR | FILE+9*, AUD12+1*, AUD12+6*, AUD12+7*, AUD2+1*, AUD2+6*, AUD2+9*, TMSTAMP+5*, DRDIE+31*, DRDIE+32 , DIE+4!, DIE+5* |
| DUZ | COPYDEL+25 |
| >> PX | DUP+15*, DUP+16*, DUP+19 |
| PXDELGBL | COPYDEL+2~, COPYDEL+4*, COPYDEL+5, COPYDEL+12, COPYDEL+14, COPYDEL+16, COPYDEL+18, COPYDEL+23, COPYDEL+24, COPYDEL+25 , COPYDEL+26, COPYDEL+29 |
| >> PXFG | DUP+15*, DUP+16, DUP+20* |
| PXGBL | COPYDEL+2~, COPYDEL+6*, COPYDEL+9, COPYDEL+24 |
| >> PXJ | ERROR+6*, ERROR+7, DUP+18* |
| PXJJ | ERROR+7*, ERROR+8, ERROR+9, ERROR+14!, DUP+18*, DUP+19 |
| >> PXJJJ | DUP+10*, DUP+17*, DUP+19*, DUP+20 |
| PXK | ERROR+14! |
| >> PXKAFT( | LOOP+1 |
| >> PXKAUDIT | AUD12+2*, AUD12+3*, AUD12+4*, AUD2+2*, AUD2+3*, AUD2+4* |
| >> PXKAV( | LOOP+1*, ERROR+8, CLEAN+6!, DRDIE+7, DRDIE+20, DRDIE+29, DRDIE+30, DUP+19, ER+4, ER+7 , ER+11, ER+12, ER+19, ER+21 |
| >> PXKAV(0 | ERROR+1, FILE+6 |
| >> PXKBEF( | LOOP+2 |
| >> PXKBV( | LOOP+2*, CLEAN+2, CLEAN+5, CLEAN+6 |
| >> PXKCAT | LOOP+4, ERROR+13, CLEAN+3, FILE+11, AUD12+8, AUD2+10, DRDIE+1, DRDIE+9, DRDIE+10, DRDIE+13 , DRDIE+15, DRDIE+18, DRDIE+34, DUP+1, DUP+2, DUP+3, ER+5, ER+9, ER+14, ER+20 , ER+21, ER+22 |
| >> PXKER | ERROR+4*, ERROR+5, ERROR+6, ERROR+7, AUD12+7, AUD2+9, TMSTAMP+5, DRDIE+22, DRDIE+23, DRDIE+24* , DRDIE+25*, DRDIE+26*, DRDIE+27*, DRDIE+28, DRDIE+29*, DRDIE+30*, DRDIE+31, DUP+12, DUP+13*, DUP+14 , DUP+18, DUP+20 |
| >> PXKERROR( | ERROR+13*, ER+20, ER+21, ER+22* |
| PXKFD | ERROR+11, ERROR+14!, ER+16 |
| >> PXKFGAD | DRDIE+8, DRDIE+11, DRDIE+24, DRDIE+25 |
| >> PXKFGED | DRDIE+12, DRDIE+26, DRDIE+27 |
| PXKFLD | ERROR+11*, ERROR+12*, ERROR+13, ERROR+14!, ER+16*, ER+17*, ER+18, ER+20, ER+21, ER+22 |
| >> PXKFVDLM | AUD12+9*, AUD2+11* |
| PXKI | LOOP+1*, LOOP+2*, LOOP+3!, CLEAN+4*, CLEAN+5*, CLEAN+6, CLEAN+7! |
| PXKJ | LOOP+3!, CLEAN+1*, CLEAN+2*, CLEAN+3, CLEAN+5, CLEAN+6, CLEAN+7! |
| PXKLR | DRDIE+4*, DRDIE+35!, DIE+1, DIE+3 |
| PXKMOD | ER+1~, ER+2* |
| >> PXKN | ER+3*, ER+4*, ER+5, ER+7, ER+9, ER+10, ER+11, ER+12, ER+13, ER+19 , ER+21 |
| >> PXKNOD | ERROR+2*, ERROR+8, AUD12+5*, AUD2+5*, TMSTAMP+2*, DRDIE+6*, DRDIE+7*, DRDIE+8, DRDIE+11, DRDIE+13 , DRDIE+18, DRDIE+20, DRDIE+29, DRDIE+30, DRDIE+31, DUP+6*, ER+13*, ER+14 |
| >> PXKNOW | TMSTAMP+1* |
| >> PXKP | ER+6*, ER+7*, ER+9, ER+11, ER+12, ER+13, ER+19, ER+21 |
| >> PXKPCE | ERROR+2*, ERROR+9*, AUD12+7*, AUD2+7*, TMSTAMP+3*, DRDIE+8*, DRDIE+10*, DRDIE+11*, DRDIE+12*, DRDIE+20* , DRDIE+29, DRDIE+30, DRDIE+31, DUP+7*, ER+13*, ER+14* |
| PXKPDELIEN | COPYDEL+2~, COPYDEL+21*, COPYDEL+22, COPYDEL+23, COPYDEL+24, COPYDEL+25, COPYDEL+27, COPYDEL+29 |
| PXKPIEN | FILE+8*, FILE+11, DRDIE+10, DRDIE+30, DELETE+5, COPYDEL+9, COPYDEL+14, COPYDEL+16, COPYDEL+18, COPYDEL+24 , DUP+5~*, DUP+19 |
| PXKPTR | DRDIE+3! |
| PXKPTR( | DRDIE+30* |
| >> PXKRRT | ER+8*, ER+9*, ER+10*, ER+11 |
| PXKRT | ER+1~ |
| PXKRTN | ERROR+3, ERROR+10, AUD12+7, AUD2+8, TMSTAMP+4, DRDIE+21, DUP+4~, DUP+8*, DUP+11, ER+15 |
| >> PXKSEQ | ERROR+13, DRDIE+10, DRDIE+15, ER+2, ER+20, ER+21, ER+22 |
| >> PXKSORR | AUD12+3, AUD2+3 |
| PXKSTR | ER+1~, ER+19*, ER+21*, ER+22 |
| >> PXKSUB | LOOP+1, LOOP+2, LOOP+4 |
| >> PXKVCAT | DUP+8 |
| >> PXKVRTN | DUP+9*, DUP+16, DUP+19 |
| >> PXKVST | DUP+16 |
| PXTMP | COPYDEL+2~, COPYDEL+9*, COPYDEL+10, COPYDEL+11 |
| >> PXVNEWDA | FILE+11* |
| PXVNEWIM | FILE+11*, DRDIE+34! |
| U | COPYDEL+10, COPYDEL+11, COPYDEL+21, COPYDEL+25 |
| X | FILE+6*, FILE+10!, COPYDEL+2~, COPYDEL+11* |
| Y | FILE+8, FILE+10!, COPYDEL+2~, COPYDEL+21 |
