PXKMAIN1 ;ISL/JVS,ISA/Zoltan - Main Routine for Data Capture ;5/6/1999
Source file <PXKMAIN1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | FILE^DICN ^DIE ^DIK |
PCE Patient Care Encounter | 2 | UPD^PXKFVST (LOOP,UPD)^PXKMOD |
Uncategorized | 1 | ^@( |
Name | Comments | DBIA/ICR reference |
---|---|---|
AUD2 | ;--Set second audit fields
|
|
CLEAN | ;--Clean out the PXKAV array
|
|
DIE | ;+Lock global and invoke FM ^DIE call.
|
|
LOOP | ;+Copy delimited strings into sub-arrays.
|
|
FILE | ;+Create a new entry in file and get IEN
|
|
ERROR | ;+Check for missing required fields
|
|
DUP | ;+Code to check for duplicates
|
|
DRDIE | ;--Set the DR string and DO DIE
|
|
ER | ;--PXKERROR MAKING IF NOT POPULATED CORRECTLY
|
|
AUD12 | ;--Set both audit fields
|
|
DELETE | ;+Use FM ^DIK call to delete entry identified by PXKPIEN.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("PXK" | DRDIE+8, DRDIE+13 |
Name | Line Occurrences |
---|---|
DIE | DRDIE+12, DRDIE+27, DRDIE+28 |
ER | DRDIE+30 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DA | FILE+8*, DELETE+1*, ER+7, ER+19, ER+20, ER+21 |
DD | FILE+3! |
DIC | FILE+4*, FILE+10! |
DIC(0 | FILE+5*, DRDIE+29! |
DIE | DRDIE+2*, DRDIE+29! |
DIK | DELETE+2*, DELETE+4! |
DO | FILE+3! |
DR | FILE+9*, AUD12+1*, AUD12+6*, AUD12+7*, AUD2+1*, AUD2+6*, AUD2+9*, DRDIE+26*, DRDIE+27, DIE+4! , DIE+5* |
>> PX | DUP+14*, DUP+15*, DUP+18 |
>> PXFG | DUP+14*, DUP+15, DUP+19* |
>> PXJ | ERROR+6*, ERROR+7, DUP+17* |
PXJJ | ERROR+7*, ERROR+8, ERROR+9, ERROR+14!, DUP+17*, DUP+18 |
>> PXJJJ | DUP+9*, DUP+16*, DUP+18*, DUP+19 |
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+5!, DRDIE+5, DRDIE+15, DRDIE+24, DRDIE+25, DUP+18, ER+4, ER+6 , ER+10, ER+11, ER+18, ER+20 |
>> PXKAV(0 | ERROR+1, FILE+6 |
>> PXKBEF( | LOOP+2 |
>> PXKBV( | LOOP+2*, CLEAN+2, CLEAN+4, CLEAN+5 |
>> PXKCAT | LOOP+4, ERROR+13, DRDIE+1, DRDIE+7, DRDIE+8, DRDIE+11, DRDIE+13, DUP+1, DUP+2, ER+8 , ER+13, ER+19, ER+20, ER+21 |
>> PXKER | ERROR+4*, ERROR+5, ERROR+6, ERROR+7, AUD12+7, AUD2+9, DRDIE+17, DRDIE+18, DRDIE+19*, DRDIE+20* , DRDIE+21*, DRDIE+22*, DRDIE+23, DRDIE+24*, DRDIE+25*, DRDIE+26, DUP+11, DUP+12*, DUP+13, DUP+17 , DUP+19 |
>> PXKERROR( | ERROR+13*, ER+19, ER+20, ER+21* |
PXKFD | ERROR+11, ERROR+14!, ER+15 |
>> PXKFGAD | DRDIE+6, DRDIE+9, DRDIE+19, DRDIE+20 |
>> PXKFGED | DRDIE+10, DRDIE+21, DRDIE+22 |
PXKFLD | ERROR+11*, ERROR+12*, ERROR+13, ERROR+14!, ER+15*, ER+16*, ER+17, ER+19, ER+20, ER+21 |
>> PXKFVDLM | AUD12+8*, AUD2+10* |
PXKI | LOOP+1*, LOOP+2*, LOOP+3!, CLEAN+3*, CLEAN+4*, CLEAN+5, CLEAN+6! |
PXKJ | LOOP+3!, CLEAN+1*, CLEAN+2*, CLEAN+4, CLEAN+5, CLEAN+6! |
PXKLR | DRDIE+3*, DRDIE+29!, DIE+1, DIE+3 |
PXKMOD | ER+1~, ER+2* |
>> PXKN | ER+3*, ER+4*, ER+6, ER+8, ER+9, ER+10, ER+11, ER+12, ER+18, ER+20 |
>> PXKNOD | ERROR+2*, ERROR+8, AUD12+5*, AUD2+5*, DRDIE+4*, DRDIE+5*, DRDIE+6, DRDIE+9, DRDIE+11, DRDIE+15 , DRDIE+24, DRDIE+25, DRDIE+26, DUP+5*, ER+12*, ER+13 |
>> PXKP | ER+5*, ER+6*, ER+8, ER+10, ER+11, ER+12, ER+18, ER+20 |
>> PXKPCE | ERROR+2*, ERROR+9*, AUD12+7*, AUD2+7*, DRDIE+6*, DRDIE+8*, DRDIE+9*, DRDIE+10*, DRDIE+15*, DRDIE+24 , DRDIE+25, DRDIE+26, DUP+6*, ER+12*, ER+13* |
PXKPIEN | FILE+8*, DRDIE+8, DRDIE+25, DELETE+1, DUP+4~*, DUP+18 |
PXKPTR | DRDIE+2! |
PXKPTR( | DRDIE+25* |
>> PXKRRT | ER+7*, ER+8*, ER+9*, ER+10 |
PXKRT | ER+1~ |
PXKRTN | ERROR+3, ERROR+10, AUD12+7, AUD2+8, DRDIE+16, DUP+3~, DUP+7*, DUP+10, ER+14 |
>> PXKSEQ | ERROR+13, DRDIE+8, DRDIE+13, ER+2, ER+19, ER+20, ER+21 |
>> PXKSORR | AUD12+3, AUD2+3 |
PXKSTR | ER+1~, ER+18*, ER+20*, ER+21 |
>> PXKSUB | LOOP+1, LOOP+2, LOOP+4 |
>> PXKVCAT | DUP+7 |
>> PXKVRTN | DUP+8*, DUP+15, DUP+18 |
>> PXKVST | DUP+15 |
X | FILE+6*, FILE+10! |
Y | FILE+8, FILE+10! |
Name | Field # of Occurrence |
---|---|
$T(GLOBAL^@PXKRTN | FILE+4, AUD12+2, AUD2+2, DRDIE+2, DRDIE+3, DELETE+2, DUP+8, ER+7 |