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