Routine: VSITSTAT

Package	Total	Call Graph
PCE Patient Care Encounter	1	UPD^VSIT
Registration	1	(IN5,KVA)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Main entry point called by ADT event driver, process adm and d/c only.
UPDSCAT(VSITIEN,INOUT)	;Set the Service Category for in or outpatient.
ENQ	;
SCANUPD(VSITBEG,VSITEND,INOUT)	;Scan range of visits and update ; input: ; VSITBEG := begin date ; VSITEND := end date ; INOUT := visit status
ADMISSIO(ADMA)	;Return true if there is an admission.
DISCHARG(DISA)	;Return true if there is a discharge.

External References

Name	Field # of Occurrence
IN5^VADPT	EN+20
KVA^VADPT	ENQ+2
UPD^VSIT	SCANUPD+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"VSITSTAT FATAL ERROR -- NO ADMISSION TIME" Line Location: EN+32

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	UPDSCAT+2
^AUPNVSIT("AA"	EN+11, EN+12
^TMP("VSITSTAT"	EN+16*, ENQ+1!, SCANUPD+8, SCANUPD+9
^UTILITY("DGPM"	EN+1, ADMISSIO+5, ADMISSIO+7, ADMISSIO+8, DISCHARG+2, DISCHARG+4, DISCHARG+5

Label References

Name	Line Occurrences
$$ADMISSIO	EN+24
$$DISCHARG	EN+28
$$UPDSCAT	SCANUPD+12
ENQ	EN+1
SCANUPD	EN+44, EN+52, EN+60, EN+67, EN+75, EN+82

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADMA	EN+23~, EN+24, ADMISSIO~
ADMA("A"	EN+31, EN+39, EN+40, EN+48, EN+50, EN+55, EN+63, EN+78, EN+79, ADMISSIO+7* , ADMISSIO+10*
ADMA("P"	EN+31, EN+39, EN+48, EN+49, EN+55, EN+56, EN+63, EN+78, ADMISSIO+8, ADMISSIO+11 , ADMISSIO+12*
ADMIT	EN+23~, EN+24*
CSC	UPDSCAT+1~, UPDSCAT+2*, UPDSCAT+3, UPDSCAT+7
DATE	EN+9~, EN+13, EN+14, EN+15, EN+16
>> DFN	EN+11, EN+12, EN+16, ENQ+1, SCANUPD+8, SCANUPD+9
>> DGPMDA	EN+19, ADMISSIO+11, DISCHARG+8
>> DGPMP	ADMISSIO+11, DISCHARG+8
>> DGQUIET	EN+2, EN+84
DISA	EN+27~, EN+28, DISCHARG~
DISA("A"	EN+41, EN+63, EN+64, EN+71, EN+72, EN+78, DISCHARG+4, DISCHARG+7, DISCHARG+10
DISA("P"	EN+57, EN+71, EN+73, EN+78, EN+80, DISCHARG+5, DISCHARG+8, DISCHARG+9*
DISCHG	EN+27~, EN+28*, EN+41
IN	EN+34~, EN+35*, EN+43, EN+81
INOUT	EN+34~, EN+43, EN+44, EN+51, EN+52, EN+59, EN+60, EN+66, EN+67, EN+74* , EN+75, EN+81*, EN+82, SCANUPD~, SCANUPD+11, SCANUPD+12, UPDSCAT~, UPDSCAT+4, UPDSCAT+8
MAXDATE	EN+4~, EN+5*, EN+15, EN+42, EN+58, EN+65
MVMNT	ADMISSIO+4~, ADMISSIO+5, ADMISSIO+6, ADMISSIO+7, ADMISSIO+8, DISCHARG+1~, DISCHARG+2, DISCHARG+3, DISCHARG+4, DISCHARG+5
NSC	UPDSCAT+1~, UPDSCAT+2, UPDSCAT+4, UPDSCAT+5, UPDSCAT+8, UPDSCAT+9*, UPDSCAT+12
OUT	EN+34~, EN+35*, EN+51, EN+59, EN+66, EN+74
RETVAL	DISCHARG+1~, DISCHARG+10, DISCHARG+11, DISCHARG+12
SDBEG	EN+34~, EN+40, EN+44, EN+49, EN+52, EN+56, EN+60, EN+64, EN+67, EN+72* , EN+75, EN+79*, EN+82
SDEND	EN+34~, EN+41, EN+42, EN+44, EN+50, EN+52, EN+57, EN+58, EN+60, EN+65 , EN+67, EN+73, EN+75, EN+80, EN+82
TIME	EN+9~, EN+14*, EN+15
TOFFSET	EN+4~, EN+6*, EN+40, EN+50, EN+56, EN+64, EN+72, EN+79
U	ADMISSIO+7, ADMISSIO+8, ADMISSIO+10, ADMISSIO+11, DISCHARG+4, DISCHARG+5, DISCHARG+7, DISCHARG+8, UPDSCAT+2
>> VAIP("E"	EN+19*
>> VAIP(13	ADMISSIO+10, ADMISSIO+11
>> VAIP(17	DISCHARG+7, DISCHARG+8
VDT	EN+9~, EN+10, EN+11, EN+12, EN+13, EN+14
VIEN	EN+9~, EN+12*, EN+16
VSIT	SCANUPD+6~
VSIT("IEN"	SCANUPD+10*
VSIT("IO"	SCANUPD+11*
VSIT("SVC"	SCANUPD+12*
VSITBEG	SCANUPD~, SCANUPD+7
VSITDT	SCANUPD+6~, SCANUPD+7, SCANUPD+8, SCANUPD+9
VSITEND	SCANUPD~, SCANUPD+8
VSITIEN	SCANUPD+6~, SCANUPD+9*, SCANUPD+10, SCANUPD+12, UPDSCAT~, UPDSCAT+2

Customize PDF page

Package: PCE Patient Care Encounter

Routine: VSITSTAT

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: