PXKMAIN1 ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;Jul 26, 2021@09:35:17
Source file <PXKMAIN1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOP | ;+Copy delimited strings into sub-arrays. PXKSUB is the node.
|
|
| 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 | ;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
|
|
| CPTMOD(VCPTIEN,MODIEN) | ;
|
|
| ER | ;--PXKERROR MAKING IF NOT POPULATED CORRECTLY
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
