VSIT ;ISD/MRL,RJP - Visit Tracking ; 5/9/02 4:31pm
Source file <VSIT.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 11 | ($$ACTIVE,$$GETPKG,$$PKG,$$PKG2IEN,$$PKGON)^VSIT0 $$VSIT^VSITASK SND^VSITBUL SETALL^VSITCK $$IP^VSITCK1 ($$REQUIRED,DEFAULTS)^VSITDEF FLD^VSITFLD LST^VSITGET VSITAPI^VSITOE ^VSITPUT ALL^VSITVAR |
VA Fileman | 4 | NOW^%DTC DT^DICRW ^DIE GETS^DIQ |
Registration | 2 | $$GETCUR^DGNTAPI $$FILEHNC^DGNTAPI1 |
IHS Patient | 1 | (ADD,SUB)^AUPNVSIT |
Name | Comments | DBIA/ICR reference |
---|---|---|
QUIT | ; - end of job
|
|
SUB | ; - subtract from dependency count
; called via cross references on pointer files |
|
PKG(PKG,VALUE) | ;-Entry point to add package to multiple in tracking param
|
|
VID2IEN(VID) | ; -- Call with Visit's ID and returns the Visit IEN
|
|
IEN2VID(IEN) | ; -- Call with Visit IEN and returns the Visit ID
|
|
UPD | ; Update Visit File
|
|
PKG2IEN(PKG) | ;Pass in package name space and
; returns pointer to the package in the Package file #9.4 |
|
LOOKUP(IEN,FMT,WITHIEN) | ; -- Lookup a visit and return all of its information
|
|
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 |
|
ADD | ; - add to dependency count
; called via cross references on pointer files |
|
GET(VDT,DFN,PRAM,VSIT) | ; find or create a visit
|
|
DONE | ||
EXIT | ;
|
|
PKGON(PKG) | ; -- Returns the active flage 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 |
|
MODIFIED(IEN) | ;Sets the Date Last Modified (.13) field to NOW
|
|
SELECTED(DFN,SDT,EDT,HOSLOC,ENCTYPE,NENCTYPE,SERVCAT,NSERVCAT,LASTN) | ;
; -- Returns selected visits depending on screens passed in. |
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | UPD+5 |
ADD^AUPNVSIT | ADD+2 |
SUB^AUPNVSIT | SUB+3 |
$$GETCUR^DGNTAPI | UPD+31 |
$$FILEHNC^DGNTAPI1 | UPD+34 |
DT^DICRW | GET+36 |
^DIE | UPD+16, UPD+17 |
GETS^DIQ | UPD+23 |
$$ACTIVE^VSIT0 | GET+16 |
$$GETPKG^VSIT0 | GET+13 |
$$PKG^VSIT0 | PKG+4 |
$$PKG2IEN^VSIT0 | PKG2IEN+2 |
$$PKGON^VSIT0 | PKGON+4 |
$$VSIT^VSITASK | GET+50 |
SND^VSITBUL | DONE |
SETALL^VSITCK | GET+29 |
$$IP^VSITCK1 | GET+32 |
$$REQUIRED^VSITDEF | GET+34 |
DEFAULTS^VSITDEF | GET+40, GET+47 |
FLD^VSITFLD | GET+27, UPD+7 |
LST^VSITGET | GET+44 |
VSITAPI^VSITOE | SELECTED+2 |
^VSITPUT | GET+41, GET+48 |
ALL^VSITVAR | QUIT+4, LOOKUP+30 |
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | UPD+2, UPD+10, UPD+36, IEN2VID+1, IEN2VID+2, LOOKUP+26, HISTORIC+3 |
^AUPNVSIT("VID" | VID2IEN+2 |
^DIC(150.9 - [#150.9] | GET+18 |
^TMP("VSITDD" | GET+20!, DONE+2!, UPD+11, UPD+12, UPD+15, UPD+16, UPD+37! |
^TMP($J | GET+20!, DONE |
Name | Line Occurrences |
---|---|
$$GET | VSIT+18 |
$$VID2IEN | LOOKUP+25 |
DONE | GET+15, GET+16, GET+18, GET+34 |
QUIT | GET+39, GET+46, GET+49, GET+50, GET+51 |
UPD | MODIFIED+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | UPD+4~, UPD+6 |
%H | UPD+4~ |
%I | UPD+4~ |
DA | UPD+3~, UPD+8* |
DFN | VSIT+18, GET~, GET+22, UPD+28, SELECTED~, SELECTED+2 |
DGARR | UPD+27~ |
DGARR("STAT" | UPD+32 |
DIE | UPD+3~, UPD+8* |
DR | UPD+3~, UPD+9*, UPD+15*, UPD+16*, UPD+17* |
DT | GET+36 |
EDT | SELECTED~, SELECTED+2 |
ENCTYPE | SELECTED~, SELECTED+2 |
FMT | LOOKUP~, LOOKUP+27*, LOOKUP+28*, LOOKUP+30 |
HNCARR | UPD+21~, UPD+22! |
HNCARR(9000010 | UPD+25 |
HNCERR | UPD+21~, UPD+22!, UPD+24 |
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 |
LASTN | SELECTED~, SELECTED+2 |
NENCTYPE | SELECTED~, SELECTED+2 |
NSERVCAT | SELECTED~, SELECTED+2 |
PCEXDFN | UPD+27~, UPD+28*, UPD+29*, UPD+30, UPD+31, UPD+34 |
PKG | PKG2IEN~, PKG2IEN+2, PKG~, PKG+4, PKGON~, PKGON+4 |
PRAM | GET~, GET+23 |
>> PXAA("PATIENT" | UPD+29 |
SDELG0 | UPD+27~, UPD+31*, UPD+32*, UPD+33, UPD+34* |
SDT | SELECTED~, SELECTED+2 |
SERVCAT | SELECTED~, SELECTED+2 |
VALUE | PKG~, PKG+4 |
VDT | GET~, GET+21 |
VID | VID2IEN~, VID2IEN+2 |
VSIT | VSIT+18, GET~, GET+44, MODIFIED+2~ |
VSIT( | UPD+11, UPD+13, UPD+15, UPD+16 |
VSIT("CLN" | GET+25 |
VSIT("DSS" | GET+25* |
VSIT("IEN" | VSIT+18*, GET+15*, GET+16*, GET+18*, GET+20!, GET+34*, GET+49*, GET+50*, GET+51*, GET+52* , QUIT+3*, QUIT+4, DONE, DONE+3, UPD+1, UPD+2, UPD+8, UPD+10, UPD+23, UPD+25 , UPD+36, MODIFIED+3* |
VSIT("MDT" | UPD+6* |
VSIT("PAT" | GET+22*, GET+32, GET+50 |
VSIT("PKG" | GET+10*, GET+11* |
VSIT("VDT" | GET+21*, GET+32 |
VSIT(0 | VSIT+18, GET+23*, GET+39, GET+46, GET+50, GET+51, DONE |
VSITDATA | UPD+3~, UPD+13* |
VSITDR | UPD+3~, UPD+9*, UPD+11*, UPD+12, UPD+13, UPD+15, UPD+16 |
VSITFLD | UPD+3~, UPD+12* |
VSITGET | GET+44, GET+46, GET+49, GET+50, GET+51, DONE+1! |
VSITGET( | GET+50 |
VSITGET(1 | GET+49, GET+51 |
VSITIPM | GET+32~* |
>> VSITPKG | GET+10, GET+11*, GET+13 |
VSITPKGP | GET+12~, GET+13*, GET+15, GET+16 |
WITHIEN | LOOKUP~, LOOKUP+29*, LOOKUP+30 |
X | UPD+4~ |
>> Y | GET+50* |