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