VSIT ;ISD/MRL,RJP,PKR - Visit Tracking ;03/29/2018
Source file <VSIT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXIT | ;
|
|
| GET(VDT,DFN,PRAM,VSIT) | ; find or create a visit
|
|
| QUIT | ; - end of job
; set vsit api |
|
| DONE | ||
| ADD | ; - add to dependency count
; called via cross references on pointer files |
|
| SUB | ; - subtract from dependency count
; called via cross references on pointer files |
|
| UPD | ;Update Visit File
|
|
| PKG2IEN(PKG) | ;Pass in package name space and
; returns pointer to the package in the Package file #9.4 |
|
| PKG(PKG,VALUE) | ;-Entry point to add package to multiple in tracking parameters
|
|
| PKGON(PKG) | ; -- Returns the active flag for the package
; 1 the package can create visits ; 0 the package cannot create visits ; -1 called wrong or could not find package in VT parameters file |
|
| IEN2VID(IEN) | ; -- Call with Visit IEN and returns the Visit ID
|
|
| VID2IEN(VID) | ; -- Call with Visit's ID and returns the Visit IEN
|
|
| LOOKUP(IEN,FMT,WITHIEN) | ; -- Lookup a visit and return all of its information
|
|
| SELECTED(DFN,SDT,EDT,HOSLOC,ENCTYPE,NENCTYPE,SERVCAT,NSERVCAT,LASTN) | ;
; -- Returns selected visits depending on screens passed in. |
|
| HISTORIC(IEN) | ; -- Returns 1 if it is an Historical visit ("E" in #.07)
; 0 if it is not an Historical visit. ; -1 if the IEN is bad |
|
| MODIFIED(IEN) | ;Sets the Date Last Modified (.13) field to NOW
|
|