VSIT ;ISD/MRL,RJP,PKR - Visit Tracking ;Aug 04, 2025@08:53:23
Source file <VSIT.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 15 | (ADD,SUB)^AUPNVSIT SENDEMSG^PXMCLINK ($$SAVALUEFORVISIT,BLDFDA)^PXSPECAUTH 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+30 |
| $$FILEHNC^DGNTAPI1 | UPD+32 |
| DT^DICRW | GET+33 |
| FILE^DIE | UPD+15 |
| $$SWSTAT^IBBAPI | GET+42 |
| SENDEMSG^PXMCLINK | UPD+20 |
| $$SAVALUEFORVISIT^PXSPECAUTH | UPD+24 |
| BLDFDA^PXSPECAUTH | UPD+14 |
| 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+7 |
| 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+13, UPD+16, UPD+28, 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+10, UPD+11, UPD+21! |
| ^TMP($J | GET+17!, DONE |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | GET+43~, GET+45* |
| DFN | VSIT+23, GET~, GET+19, SELECTED~, SELECTED+2 |
| DGARR | UPD+27~ |
| DGARR("STAT" | UPD+31 |
| >> DILOCKTM | UPD+13 |
| DT | GET+33 |
| EDT | SELECTED~, SELECTED+2 |
| ENCTYPE | SELECTED~, SELECTED+2 |
| FDA | UPD+3~, UPD+14 |
| FDA(9000010 | UPD+12* |
| FMT | LOOKUP~, LOOKUP+27*, LOOKUP+28*, LOOKUP+30 |
| HNC | UPD+3~, UPD+24*, UPD+26 |
| 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+12 |
| LASTN | SELECTED~, SELECTED+2 |
| MSG | UPD+3~, UPD+17, UPD+20 |
| 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+27~, UPD+28*, UPD+29, UPD+30, UPD+32 |
| SAS | UPD+3~, UPD+6*, UPD+14 |
| SDRES | UPD+27~, UPD+30*, UPD+32* |
| SDT | SELECTED~, SELECTED+2 |
| SERVCAT | SELECTED~, SELECTED+2 |
| SUBJECT | UPD+18~, UPD+19*, UPD+20 |
| U | UPD+28 |
| VALUE | PKG~, PKG+4 |
| VDT | GET~, GET+18 |
| VID | VID2IEN~, VID2IEN+2 |
| VSIT | VSIT+23, GET~, GET+41, GET+45!, MODIFIED+2~ |
| VSIT( | UPD+9, UPD+12 |
| VSIT("ACT" | GET+44*, GET+45* |
| VSIT("CLN" | GET+22 |
| VSIT("DSS" | GET+22* |
| VSIT("IEN" | VSIT+23*, 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+13, UPD+14, UPD+16 , UPD+19, UPD+24, UPD+28, 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+23, GET+20*, GET+36, GET+47, GET+51, GET+52, DONE |
| VSIT(800 | UPD+6! |
| VSIT(900 | UPD+6! |
| VSITDR | UPD+3~, UPD+8*, UPD+9*, UPD+10, UPD+11, UPD+12 |
| VSITFLD | UPD+3~, UPD+11*, UPD+12 |
| 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* |