PXAIVST ;ISL/JVS,KWP,ESW - GET A VISIT FROM ENCOUNTER NODE ;12/01/2024
Source file <PXAIVST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VST | ;--CREATE A VISIT
|
|
| SET | ;--SET AND NEW VARIABLES
|
|
| VAL | ;--VALIDATE ENOUGH DATA
|
|
| SETVARA | ;--SET VISIT VARIABLES
|
|
| SETPXKA | ;--SET PXK ARRAY AFTER
|
|
| CALL | ;--CALL
|
|
| MULTMATCHMSG(VDT,HLOC,SVC,DSS,INS,TYPE,DUZ,VISITLIST) | ;Send a MailMan message to the
|
|
| SPKGSRC(PXAVISIT,EPKG,PXAPKG,ESOURCE,PXASOURC,PXAERRF,PXAERR) | ;Save Package and
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GET1^DIQ |
