Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: EDPLPCE

Package: Emergency Department Integration Software

Routine: EDPLPCE


Information

EDPLPCE ;SLC/KCM - Create a Visit ;2/28/12 08:33am

Source Information

Source file <EDPLPCE.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
DRG Grouper 1 $$CODEC^ICDEX  
Emergency Department Integration Software 1 ($$CSYS,$$ICDDATA)^EDPLEX  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Lexicon Utility 1 ($$CPTONE,$$ONE)^LEXU  
PCE Patient Care Encounter 1 ($$DATA2PCE,$$DELVFILE,ENCEVENT)^PXAPI  
Toolkit 1 ($$GET,GETLST)^XPAR  
VA FileMan 1 FILE^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Emergency Department Integration Software 3 EDPLOG  EDPLOGA  EDPVIT  

Entry Points

Name Comments DBIA/ICR reference
XFERDIAG(LOG,PCE) ; Setup diagnosis list based on entries in 230
DELVISIT(LOG) ; Delete visit for stub entry
UPDVISIT(LOG,PCE) ; Get / Create a Visit
; PCE is list of potential updates to the visit
; PCE(TYP,n)=type^ien^code^label^add^del^upd^prim^qty
TS4VISIT(DFN,LOC,TS,PRVVISIT) ; Return visit time if there is already a visit
TEST ; Test creation of encounter
DFLTLOC(DFN) ; Return the default location for the ED

External References

Name Field # of Occurrence
FILE^DIE UPDVISIT+91, DELVISIT+6
$$CSYS^EDPLEX UPDVISIT+39
$$ICDDATA^EDPLEX UPDVISIT+43, UPDVISIT+48, XFERDIAG+7
$$CODEC^ICDEX UPDVISIT+45
$$CPTONE^LEXU UPDVISIT+59
$$ONE^LEXU UPDVISIT+41
$$DATA2PCE^PXAPI UPDVISIT+79, TEST+17
$$DELVFILE^PXAPI DELVISIT+8
ENCEVENT^PXAPI UPDVISIT+24
$$FMADD^XLFDT UPDVISIT+82, DFLTLOC+15, TS4VISIT+2
$$NOW^XLFDT UPDVISIT+81, DFLTLOC+3, DFLTLOC+15, TS4VISIT+2, TEST+11
$$GET^XPAR TEST+2
GETLST^XPAR DFLTLOC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT("AET" DFLTLOC+17, DFLTLOC+18, TS4VISIT+3, TS4VISIT+4, TS4VISIT+5, TS4VISIT+7
^DIC(9.4 - [#9.4] UPDVISIT+71, TEST+5
^EDP(230 - [#230] UPDVISIT+4, XFERDIAG+4, XFERDIAG+5, DELVISIT+1
^ICPT("B" UPDVISIT+62
^TMP("PXKENC" UPDVISIT+23!, UPDVISIT+25, UPDVISIT+26
^XTMP("EDPERR-PCE-" UPDVISIT+82*, UPDVISIT+83*, UPDVISIT+84*, UPDVISIT+85*

Label References

Name Line Occurrences
$$DFLTLOC UPDVISIT+5
$$TS4VISIT UPDVISIT+9
XFERDIAG UPDVISIT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BACKTO DFLTLOC+14~, DFLTLOC+15*, DFLTLOC+17, TS4VISIT+1~, TS4VISIT+2*, TS4VISIT+3
BEG DFLTLOC+1~, DFLTLOC+9*, DFLTLOC+10
CODE UPDVISIT+45~*, UPDVISIT+46, UPDVISIT+59~*, UPDVISIT+60, XFERDIAG+2~, XFERDIAG+7*, XFERDIAG+9
DFN UPDVISIT+3~, UPDVISIT+4*, UPDVISIT+5, UPDVISIT+6, UPDVISIT+9, UPDVISIT+73, DFLTLOC~, DFLTLOC+16, DFLTLOC+17, DFLTLOC+18
, TS4VISIT~, TS4VISIT+3, TS4VISIT+4, TS4VISIT+5, TS4VISIT+7, TEST+1~*, TEST+7
DIERR UPDVISIT+89~, DELVISIT+4~
DUZ(2 TEST+2
EDPDATA UPDVISIT+8~, UPDVISIT+68, UPDVISIT+84
EDPDATA("DX/PL" UPDVISIT+49*, UPDVISIT+51*, UPDVISIT+52*, UPDVISIT+53*
EDPDATA("ENCOUNTER" UPDVISIT+73*, UPDVISIT+74*, UPDVISIT+75*, UPDVISIT+76*, UPDVISIT+77*, TEST+7*, TEST+8*, TEST+9*, TEST+10*, TEST+11*
EDPDATA("PROCEDURE" UPDVISIT+63*, UPDVISIT+64*, UPDVISIT+65*, UPDVISIT+66*
EDPDATA("PROVIDER" UPDVISIT+28*, UPDVISIT+31*, UPDVISIT+32*, TEST+15*
EDPDOI XFERDIAG+2~, XFERDIAG+5*, XFERDIAG+7
EDPERR UPDVISIT+70~, UPDVISIT+79, UPDVISIT+85
EDPKG UPDVISIT+70~, UPDVISIT+71*, UPDVISIT+79, TEST+4~, TEST+5*, TEST+17
EDPLCIEN UPDVISIT+18~, UPDVISIT+41~*, UPDVISIT+42, UPDVISIT+43, UPDVISIT+48*, UPDVISIT+49, XFERDIAG+2~, XFERDIAG+6*, XFERDIAG+7
EDPLCSYS UPDVISIT+18~, UPDVISIT+39*, UPDVISIT+40, UPDVISIT+41, UPDVISIT+43
EDPLST DFLTLOC+1~, DFLTLOC+2
EDPLST( DFLTLOC+5, DFLTLOC+7, DFLTLOC+9, DFLTLOC+11
EDPPCHG UPDVISIT+8~, UPDVISIT+9*, UPDVISIT+32*, UPDVISIT+79
>> EDPSITE DFLTLOC+2
EDPSRC UPDVISIT+70~, UPDVISIT+72*, UPDVISIT+79, TEST+4~, TEST+6*, TEST+17
EDPVISIT UPDVISIT+8~, UPDVISIT+9*, UPDVISIT+12, UPDVISIT+15, UPDVISIT+21, UPDVISIT+77, UPDVISIT+79, UPDVISIT+83, UPDVISIT+88, UPDVISIT+90
, DELVISIT+1~*, DELVISIT+2, DELVISIT+8, TEST+17
END DFLTLOC+1~, DFLTLOC+9*, DFLTLOC+10
ERR UPDVISIT+89~, DELVISIT+4~
FDA UPDVISIT+89~, DELVISIT+4~
FDA(230 UPDVISIT+90*, DELVISIT+5*
GETVISIT UPDVISIT+18~, UPDVISIT+19*, UPDVISIT+20*, UPDVISIT+21*, UPDVISIT+22, UPDVISIT+24, UPDVISIT+25, UPDVISIT+26
I UPDVISIT+3~, UPDVISIT+30*, UPDVISIT+31, UPDVISIT+32, UPDVISIT+35*, UPDVISIT+36, UPDVISIT+49, UPDVISIT+51, UPDVISIT+52, UPDVISIT+53
, UPDVISIT+55*, UPDVISIT+56, UPDVISIT+63, UPDVISIT+64, UPDVISIT+65, UPDVISIT+66, DFLTLOC+1~, DFLTLOC+5*, DFLTLOC+7, DFLTLOC+9
, DFLTLOC+11, DFLTLOC+23*
IEN UPDVISIT+62*, UPDVISIT+63, XFERDIAG+2~, XFERDIAG+4*, XFERDIAG+5, XFERDIAG+6, XFERDIAG+9, XFERDIAG+10, XFERDIAG+11
IPRV UPDVISIT+18~, UPDVISIT+25*, UPDVISIT+26, UPDVISIT+28
LOC UPDVISIT+3~, UPDVISIT+4*, UPDVISIT+5*, UPDVISIT+6, UPDVISIT+9, UPDVISIT+74, DFLTLOC+14~, DFLTLOC+15*, DFLTLOC+18, DFLTLOC+19*
, DFLTLOC+20, DFLTLOC+23*, DFLTLOC+24, TS4VISIT~, TS4VISIT+4, TEST+2*, TEST+8
LOCS DFLTLOC+1~
LOCS( DFLTLOC+7*, DFLTLOC+11*, DFLTLOC+19
LOG UPDVISIT~, UPDVISIT+4, UPDVISIT+15, UPDVISIT+82, UPDVISIT+83, UPDVISIT+84, UPDVISIT+85, UPDVISIT+90, XFERDIAG~, XFERDIAG+4
, XFERDIAG+5, DELVISIT~, DELVISIT+1, DELVISIT+5
LST DFLTLOC+1~
LST( DFLTLOC+7*, DFLTLOC+11*, DFLTLOC+23
LST(0 DFLTLOC+23
NEWTS TS4VISIT+1~, TS4VISIT+2*, TS4VISIT+6*, TS4VISIT+8
NOW UPDVISIT+81~*, UPDVISIT+82
OK UPDVISIT+70~, UPDVISIT+79*, UPDVISIT+80, UPDVISIT+83, UPDVISIT+88, DELVISIT+8*, TEST+4~, TEST+17*
OLDPRI UPDVISIT+18~
PCE UPDVISIT~, UPDVISIT+15, XFERDIAG~
PCE("CPT" UPDVISIT+55, UPDVISIT+56
PCE("POV" UPDVISIT+35, UPDVISIT+36, XFERDIAG+3!, XFERDIAG+6*, XFERDIAG+9*, XFERDIAG+10*, XFERDIAG+11*
PCE("PRI" UPDVISIT+17, UPDVISIT+28, UPDVISIT+32
PCE("PRV" UPDVISIT+30, UPDVISIT+31, UPDVISIT+32
PRVVISIT UPDVISIT+3~, UPDVISIT+9, UPDVISIT+20, TS4VISIT~, TS4VISIT+7*
TM DFLTLOC+1~, DFLTLOC+3*, DFLTLOC+10
TS UPDVISIT+3~, UPDVISIT+4*, UPDVISIT+6, UPDVISIT+9*, UPDVISIT+39, UPDVISIT+41, UPDVISIT+43, UPDVISIT+48, UPDVISIT+59, UPDVISIT+77
, TS4VISIT~, TS4VISIT+9
U UPDVISIT+4, UPDVISIT+9, UPDVISIT+12, UPDVISIT+27, UPDVISIT+37, UPDVISIT+38, UPDVISIT+41, UPDVISIT+43, UPDVISIT+45, UPDVISIT+46
, UPDVISIT+47, UPDVISIT+48, UPDVISIT+51, UPDVISIT+52, UPDVISIT+53, UPDVISIT+57, UPDVISIT+58, UPDVISIT+59, UPDVISIT+60, UPDVISIT+61
, UPDVISIT+62, UPDVISIT+64, UPDVISIT+65, UPDVISIT+66, UPDVISIT+82, UPDVISIT+83, UPDVISIT+88, XFERDIAG+5, XFERDIAG+6, XFERDIAG+7
, XFERDIAG+9, XFERDIAG+10, XFERDIAG+11, DELVISIT+1, DFLTLOC+7, DFLTLOC+11, DFLTLOC+23
VCAT TS4VISIT+1~, TS4VISIT+5*, TS4VISIT+7
VLOC DFLTLOC+14~, DFLTLOC+18*, DFLTLOC+19, TS4VISIT+1~, TS4VISIT+4*, TS4VISIT+5, TS4VISIT+7
VTM DFLTLOC+14~, DFLTLOC+17*, DFLTLOC+18, TS4VISIT+1~, TS4VISIT+3*, TS4VISIT+4, TS4VISIT+5, TS4VISIT+6, TS4VISIT+7
X UPDVISIT+3~, UPDVISIT+36*, UPDVISIT+37, UPDVISIT+38, UPDVISIT+41, UPDVISIT+43*, UPDVISIT+45, UPDVISIT+46*, UPDVISIT+47, UPDVISIT+48
, UPDVISIT+51, UPDVISIT+52, UPDVISIT+53, UPDVISIT+56*, UPDVISIT+57, UPDVISIT+58, UPDVISIT+59, UPDVISIT+60*, UPDVISIT+61, UPDVISIT+62
, UPDVISIT+64, UPDVISIT+65, UPDVISIT+66
X0 UPDVISIT+3~, UPDVISIT+4*, UPDVISIT+9, UPDVISIT+12, UPDVISIT+88, XFERDIAG+2~, XFERDIAG+5*, XFERDIAG+6, XFERDIAG+10, XFERDIAG+11
XPRV UPDVISIT+18~, UPDVISIT+26*, UPDVISIT+27, UPDVISIT+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All