PXKMAIN ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;05/17/16 12:58
Source file <PXKMAIN.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 |
---|---|---|
EN1 | ;+Main entry point to read ^TMP("PXK", Global
|
|
VST | ;--Check for visit node and get one created or quit.
|
|
NEW | ;--New variables and set main variables
|
|
PRVTYPE | ;---DO PROVIDER TYPE--PXKMAIN2
|
|
SET | ;--SET VARIABLES NECESSARY
|
|
SOURCE | ||
VISIT | ||
ORDER | ;--$ORDER Through the ^TMP("PXK", global setting variables
|
|
CATEG | ||
SEQUE | ||
SUBSCR | ||
AFTER | ||
BEFORE | ||
MULT | ; Add multiples to PXKAFT, PXKBEF, PXKAV, PXKBV arrays
|
|
CHKAUD | ; Check and turn on Auditing
|
|
EXIT | ;--EXIT
|
|
EVENT | ;--ENTRY POINT TO POST EXECUTE PCE'S EVENT
|
|
LOCK | ; Lock (results in PXP59LOC)--Patch PX*1.0*59.
|
|
L2 | ; Get values from visit 0 node (PX0).
|
|
UNLOCK | ; Unlock (use info in PXP59LOC)--Patch PX*1.0*59.
|
|
CQDEL | ;Classification question deletion check
|
Name | Field # of Occurrence |
---|---|
TURNON^DIAUTL | CHKAUD+1 |
VST^PXCECCLS | EVENT+8 |
REMOVE^PXCEVFIL | BEFORE+19 |
AUD12^PXKMAIN1 | BEFORE+23 |
AUD2^PXKMAIN1 | BEFORE+22 |
CLEAN^PXKMAIN1 | BEFORE+10 |
DELETE^PXKMAIN1 | BEFORE+7 |
DRDIE^PXKMAIN1 | BEFORE+22, BEFORE+23, BEFORE+24 |
DUP^PXKMAIN1 | BEFORE+16, BEFORE+23, BEFORE+24 |
ERROR^PXKMAIN1 | BEFORE+3, BEFORE+14 |
FILE^PXKMAIN1 | BEFORE+20 |
LOOP^PXKMAIN1 | BEFORE+3 |
PRVTYPE^PXKMAIN2 | PRVTYPE+1 |
RECALL^PXKMAIN2 | BEFORE+27 |
SPEC2^PXKMAIN2 | BEFORE+25 |
EN1^PXKMASC | BEFORE+7, BEFORE+12, BEFORE+22, BEFORE+23, BEFORE+24 |
EVENT^PXKMASC | EVENT+13 |
SUBSCR^PXKMOD | BEFORE+1 |
VSIT^PXKVST | VST+2 |
MODIFIED^VSIT | EXIT+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^AUPNVIMM - [#9000010.11] | TURNON^DIAUTL |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | CATEG+3 |
^AUPNVSIT - [#9000010] | LOCK+11, LOCK+12 |
^PXLOCK( | LOCK+29 |
^TMP("PXK" | VST+1, VST+3, VST+4, VST+5, SOURCE, VISIT, LOCK+4, LOCK+5, LOCK+8, LOCK+9 |
^TMP("PXKCO" | EVENT+6, EVENT+7, EVENT+10!, LOCK+15, LOCK+16, LOCK+18 |
^TMP("PXKENC" | LOCK+22, LOCK+23, LOCK+25 |
^TMP("PXKSAVE" | BEFORE+27 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | SET+2~, BEFORE+21*, BEFORE+23*, BEFORE+24*, EXIT+3! |
DR | EXIT+3! |
DUZ | EN1+18 |
PX | NEW+4~ |
PX0 | LOCK+1~, LOCK+5*, LOCK+12*, LOCK+18*, LOCK+19, LOCK+25*, LOCK+26, L2+1, L2+2, L2+3 |
PXDFG | NEW+4~, SET+4*, SEQUE+1*, SUBSCR, BEFORE+3* |
PXEXIT | LOCK+1~, LOCK+2*, LOCK+15, LOCK+22, LOCK+28, L2+4* |
PXFG | NEW+1~, SET+4*, SEQUE*, SUBSCR, BEFORE+4, BEFORE+7*, BEFORE+13, BEFORE+15*, BEFORE+16, BEFORE+17 , BEFORE+23, BEFORE+24 |
PXJ | CQDEL+2*, CQDEL+3! |
PXJJJ | NEW+4~ |
PXKAFT | NEW+1~, BEFORE+26! |
PXKAFT( | AFTER*, BEFORE+3*, MULT+8*, MULT+9, MULT+10, MULT+18* |
PXKAFT8 | NEW+4~, EXIT+3! |
PXKAFTR | NEW+4~, EXIT+3! |
PXKAUDIT | NEW+1~ |
PXKAV | SEQUE!, BEFORE+5, BEFORE+6, BEFORE+11 |
PXKAV( | MULT+10*, MULT+19* |
PXKAV(0 | BEFORE+3! |
PXKAV(800 | CQDEL+2* |
PXKBEF | NEW+1~, BEFORE+26! |
PXKBEF( | BEFORE*, MULT+13*, MULT+14, MULT+15 |
PXKBV | SEQUE!, BEFORE+5, BEFORE+6, BEFORE+11 |
PXKBV( | MULT+15* |
PXKBV(800 | CQDEL+2 |
PXKCAT | NEW+2~, CATEG*, CATEG+1, CATEG+2, SEQUE, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+1 , BEFORE+2, BEFORE+5, BEFORE+9, BEFORE+11, BEFORE+12, BEFORE+15, BEFORE+18, BEFORE+19, BEFORE+23, BEFORE+24 , MULT+5, MULT+7, MULT+8, MULT+12, MULT+13, MULT+17, CHKAUD+1, CQDEL+1 |
>> PXKCO("SOR" | SOURCE+1* |
PXKDFN | NEW+1~ |
PXKDUZ | EN1+17, EN1+18*, EN1+19*, BEFORE+5, BEFORE+11, EXIT+3! |
PXKER | NEW+2~ |
PXKERROR | EN1+16! |
PXKERROR( | BEFORE+15 |
PXKERROR("SOURCE" | SOURCE, SOURCE+2* |
PXKERROR("VISIT" | VST+3*, VST+4*, VST+5* |
PXKFGAD | NEW+2~, SEQUE+1*, BEFORE+5*, BEFORE+8, BEFORE+12, BEFORE+13 |
PXKFGDE | NEW+2~, SEQUE+1*, BEFORE+6*, BEFORE+8, BEFORE+12 |
PXKFGED | NEW+2~, SEQUE+1*, BEFORE+11*, BEFORE+12, BEFORE+23, BEFORE+24 |
PXKFVDLM | NEW+5~, BEFORE+6*, EXIT+1 |
PXKGN | NEW+4~ |
PXKI | MULT+2~, MULT+9*, MULT+10, MULT+14*, MULT+15, EXIT+3! |
PXKJ | EXIT+3! |
PXKLAYGO | SET+4*, EXIT+3! |
PXKN | NEW+4~ |
PXKNOD | NEW+2~ |
>> PXKNOEVT | EVENT+10 |
PXKNOW | NEW+4~ |
PXKP | NEW+4~ |
PXKPCE | NEW+2~ |
PXKPIEN | NEW+3~, SEQUE+1*, BEFORE+7, BEFORE+20, BEFORE+21, BEFORE+23, BEFORE+24 |
PXKPTR | NEW+4~ |
PXKPXD | EXIT+2! |
PXKREF | NEW+3~, ORDER+1*, CATEG, SEQUE, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+19, MULT+5 , MULT+7, MULT+8, MULT+12, MULT+13, MULT+17 |
PXKRRT | NEW+5~ |
PXKRT | NEW+5~, BEFORE+7*!, BEFORE+23*, BEFORE+24* |
PXKRTN | NEW+3~, CATEG+2*, CATEG+3 |
PXKSEQ | NEW+1~, SEQUE*, SEQUE+1, SUBSCR, AFTER, BEFORE, BEFORE+15, BEFORE+19, MULT+5, MULT+7 , MULT+8, MULT+12, MULT+13, MULT+17 |
PXKSOR | NEW+1~, SOURCE*, SOURCE+1, SOURCE+2, BEFORE+5, BEFORE+11 |
PXKSORR | NEW+3~, BEFORE+5*, BEFORE+11* |
PXKSUB | NEW+3~, SUBSCR*, AFTER, BEFORE, BEFORE+1, BEFORE+2, BEFORE+3, MULT+5, MULT+7, MULT+8 , MULT+9, MULT+10, MULT+12, MULT+13, MULT+14, MULT+15, MULT+17, MULT+18, MULT+19 |
PXKSUBIEN | MULT+2~, MULT+4*, MULT+5*, MULT+7, MULT+8, MULT+9, MULT+10, MULT+12, MULT+13, MULT+14 , MULT+15 |
PXKVCAT | NEW+3~, CATEG*, CATEG+1* |
PXKVRTN | NEW+5~ |
PXKVST | NEW+1~, VISIT*, BEFORE+11, EXIT+1 |
>> PXKVVST | EVENT+7*, EVENT+8 |
PXP59LOC | EN1+14~, EN1+21, EVENT+11~, EVENT+14, LOCK+29*, LOCK+30, LOCK+31!, UNLOCK+1 |
PXVISIT | LOCK+1~, LOCK+9*, LOCK+10, LOCK+11, LOCK+12, LOCK+16*, LOCK+17, LOCK+18, LOCK+23*, LOCK+24 , LOCK+25 |
PXWHEN | LOCK+1~, LOCK+2*, LOCK+29, L2+2*, L2+4 |
PXWHERE | LOCK+1~, LOCK+2*, LOCK+29, L2+3* |
PXWHO | LOCK+1~, LOCK+2*, LOCK+29, L2+1*, L2+4 |
TMPPX | NEW+5~, SET+4*, EXIT+2! |
U | L2+1, L2+2, L2+3 |
>> VSIT("IEN" | VISIT*, EXIT+3! |
>> X | CATEG+3* |