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