VSIT ;ISD/MRL,RJP,PKR - Visit Tracking ;03/29/2018
Source file <VSIT.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 14 | (ADD,SUB)^AUPNVSIT SENDEMSG^PXMCLINK UPD^VSIT ($$PKG,$$PKG2IEN,$$PKGON)^VSIT0 $$VSIT^VSITASK SND^VSITBUL SETALL^VSITCK $$IP^VSITCK1 ($$REQUIRED,DEFAULTS)^VSITDEF FLD^VSITFLD LST^VSITGET VSITAPI^VSITOE ^VSITPUT ALL^VSITVAR |
Registration | 2 | $$GETCUR^DGNTAPI $$FILEHNC^DGNTAPI1 |
VA FileMan | 2 | DT^DICRW FILE^DIE |
Integrated Billing | 1 | $$SWSTAT^IBBAPI |
Kernel | 1 | $$NOW^XLFDT |
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
|
|
Name | Field # of Occurrence |
---|---|
ADD^AUPNVSIT | ADD+2 |
SUB^AUPNVSIT | SUB+2 |
$$GETCUR^DGNTAPI | UPD+27 |
$$FILEHNC^DGNTAPI1 | UPD+29 |
DT^DICRW | GET+33 |
FILE^DIE | UPD+13 |
$$SWSTAT^IBBAPI | GET+42 |
SENDEMSG^PXMCLINK | UPD+18 |
UPD^VSIT | GET+45 |
$$PKG^VSIT0 | PKG+4 |
$$PKG2IEN^VSIT0 | GET+12, PKG2IEN+2 |
$$PKGON^VSIT0 | PKGON+4 |
$$VSIT^VSITASK | GET+51 |
SND^VSITBUL | DONE |
SETALL^VSITCK | GET+26 |
$$IP^VSITCK1 | GET+29 |
$$REQUIRED^VSITDEF | GET+31 |
DEFAULTS^VSITDEF | GET+37, GET+48 |
FLD^VSITFLD | GET+24, UPD+6 |
LST^VSITGET | GET+41 |
VSITAPI^VSITOE | SELECTED+2 |
^VSITPUT | GET+38, GET+49 |
ALL^VSITVAR | QUIT+3, LOOKUP+30 |
$$NOW^XLFDT | UPD+5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | GET+44, UPD+2, UPD+12, UPD+14, UPD+22, UPD+25, IEN2VID+1, IEN2VID+2, LOOKUP+26, HISTORIC+3 |
^AUPNVSIT("VID" | VID2IEN+2 |
^DIC(150.9 - [#150.9] | GET+15 |
^TMP("VSITDD" | GET+17!, DONE+2!, UPD+9, UPD+10, UPD+19! |
^TMP($J | GET+17!, DONE |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | GET+43~, GET+45* |
DFN | VSIT+18, GET~, GET+19, SELECTED~, SELECTED+2 |
DGARR | UPD+24~ |
DGARR("STAT" | UPD+28 |
>> DILOCKTM | UPD+12 |
DT | GET+33 |
EDT | SELECTED~, SELECTED+2 |
ENCTYPE | SELECTED~, SELECTED+2 |
FDA | UPD+3~ |
FDA(9000010 | UPD+11* |
FMT | LOOKUP~, LOOKUP+27*, LOOKUP+28*, LOOKUP+30 |
HNC | UPD+3~, UPD+22*, UPD+23 |
HOSLOC | SELECTED~, SELECTED+2 |
IEN | IEN2VID~, IEN2VID+1, IEN2VID+2, VID2IEN+1~, VID2IEN+2*, VID2IEN+3, LOOKUP~, LOOKUP+24, LOOKUP+25*, LOOKUP+26 , LOOKUP+30, LOOKUP+31, HISTORIC~, HISTORIC+3, MODIFIED~, MODIFIED+3 |
IENS | UPD+3~, UPD+4*, UPD+11 |
LASTN | SELECTED~, SELECTED+2 |
MSG | UPD+3~, UPD+15, UPD+18 |
NENCTYPE | SELECTED~, SELECTED+2 |
NSERVCAT | SELECTED~, SELECTED+2 |
PKG | PKG2IEN~, PKG2IEN+2, PKG~, PKG+4, PKGON~, PKGON+4 |
PKGP | GET+11~, GET+12*, GET+13 |
PRAM | GET~, GET+20 |
PXDFN | UPD+24~, UPD+25*, UPD+26, UPD+27, UPD+29 |
SDRES | UPD+24~, UPD+27*, UPD+29* |
SDT | SELECTED~, SELECTED+2 |
SERVCAT | SELECTED~, SELECTED+2 |
SUBJECT | UPD+16~, UPD+17*, UPD+18 |
U | UPD+22, UPD+25 |
VALUE | PKG~, PKG+4 |
VDT | GET~, GET+18 |
VID | VID2IEN~, VID2IEN+2 |
VSIT | VSIT+18, GET~, GET+41, GET+45!, MODIFIED+2~ |
VSIT( | UPD+8, UPD+11 |
VSIT("ACT" | GET+44*, GET+45* |
VSIT("CLN" | GET+22 |
VSIT("DSS" | GET+22* |
VSIT("IEN" | VSIT+18*, GET+13*, GET+15*, GET+17!, GET+31*, GET+45*, GET+50*, GET+51*, GET+52*, GET+53* , QUIT+2*, QUIT+3, DONE, DONE+3, UPD+1, UPD+2, UPD+4, UPD+12, UPD+14, UPD+17 , UPD+22, UPD+25, MODIFIED+3* |
VSIT("MDT" | UPD+5* |
VSIT("PAT" | GET+19*, GET+29, GET+51 |
VSIT("PKG" | GET+9*, GET+10* |
VSIT("VDT" | GET+18*, GET+29 |
VSIT(0 | VSIT+18, GET+20*, GET+36, GET+47, GET+51, GET+52, DONE |
VSITDR | UPD+3~, UPD+7*, UPD+8*, UPD+9, UPD+10, UPD+11 |
VSITFLD | UPD+3~, UPD+10*, UPD+11 |
VSITGET | GET+41, GET+42, GET+47, GET+50, GET+51, GET+52, DONE+1! |
VSITGET( | GET+51 |
VSITGET(1 | GET+44, GET+45, GET+50, GET+52 |
VSITIPM | GET+29~* |
>> VSITPKG | GET+9, GET+10*, GET+12 |
WITHIEN | LOOKUP~, LOOKUP+29*, LOOKUP+30 |
>> Y | GET+51* |