PXKMAIN ;ISL/JVS,PKR,ISA/Zoltan - Main Routine for Data Capture ;03/12/2020
Source file <PXKMAIN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ;+Main entry point to read ^TMP("PXK", Global
|
|
VST(VISITIEN,PXKDUZ,LOCK) | ;--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
|
|
CQDEL | ;Classification question deletion check
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^AUPNVIMM - [#9000010.11] | TURNON^DIAUTL |