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
|
|