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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VSITSTAT

Package: PCE Patient Care Encounter

Routine: VSITSTAT


Information

VSITSTAT ;ISL/PKR - Visit Tracking in/out patient Update Protocol for ADT ;4/23/97

Source Information

Source file <VSITSTAT.m>

Call Graph

Call Graph

Call Graph Total: 2

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.
ENQ ;
ADMISSIO(ADMA) ;Return true if there is an admission.
DISCHARG(DISA) ;Return true if there is a discharge.
SCANUPD(VSITBEG,VSITEND,INOUT) ;Scan range of visits and update
; input:
; VSITBEG := begin date
; VSITEND := end date
; INOUT := visit status
UPDSCAT(VSITIEN,INOUT) ;Set the Service Category for in or outpatient.

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All