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 |