Routine: SCCVEAE3

Information

SCCVEAE3 ;ALB/RMO,TMP - Add/Edit Conversion cont.; [ 04/05/95 8:46 AM ]

Package	Total	Call Graph
Scheduling	7	UPD^SCCVDBU ($$VISIT,SETSCCVT)^SCCVEAP2 RECNVT^SCCVEAP3 INCRTOT^SCCVEGU1 $$CCREATE^SCCVU EN^SCCVZZ $$SDOE^SDVSIT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCCVEAE1

Entry Points

Name	Comments	DBIA/ICR reference
SET(SCCVEVT,SCLOG,SCDTM,SCVALDT,SCDA,SCOEP,SCOE,SCCV)	; Set variables, add encounter/visit ; Input -- SCCVEVT Conversion event ; SCLOG Scheduling conversion log IEN ; SCDTM Visit date/time (IEN) ; SCVALDT Valid converted Visit date/time (SCDTM) ; SCDA Clinic stop code sub-file IEN ; SCOEP Parent outpatient encounter IEN [optional] ; Output -- SCOE Outpatient encounter IEN ; SCCV Conversion array: ; SCCV("EVT") Conversion event ; ("LOG") Scheduling conversion log IEN ; ("NEW") Outpatient encounter or visit ; created by conversion flag ; 0 = no new encounter or visit ; 1 = new encounter and visit ; 2 = new visit only ; ("OE",0) Outpatient encounter 0th node ; ("CS",0) Clinic stop code 0th node ; ("CS",1) Clinic stop code 1 node ; ("CS","PR") Clinic stop code 'PR' node ; ("ERR") Code for specific error, if any ; ("VST") Visit file IEN
SETQ
DIV(DIV)	; -- determine med div
DIVQ
CSCAN(SCDTM,SCCV)	; -- update 900 "CS" nodes with same clinic
CSCANQ

External References

Name	Field # of Occurrence
UPD^SCCVDBU	SET+88, SET+91, CSCAN+16, CSCAN+23
$$VISIT^SCCVEAP2	SET+79
SETSCCVT^SCCVEAP2	SET+72
RECNVT^SCCVEAP3	SET+46
INCRTOT^SCCVEGU1	SET+56
$$CCREATE^SCCVU	SET+44
EN^SCCVZZ	SET+57
$$SDOE^SDVSIT	SET+83

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+1, DIV+2
^DG(43 - [#43]	DIV+1
^DIC(40.7 - [#40.7]	SET+65
^SC - [#44]	SET+59, SET+65
^SCE - [#409.68]	SET+38, SET+47, SET+55, SET+57, SET+83, SET+94, CSCAN+24
^SDV - [#409.5]	SET+31, SET+32, SET+35, SET+36, SET+96, CSCAN+10

Label References

Name	Line Occurrences
$$DIV	SET+61
CSCAN	SET+98
CSCANQ	CSCAN+6, CSCAN+20
DIVQ	DIV+1
SETQ	SET+31, SET+33, SET+35, SET+51, SET+53, SET+62, SET+66, SET+76, SET+86

Naked Globals

Name	Field # of Occurrence
^(	CSCAN+10
^("PR"	SET+36
^(0	SET+55, SET+57
^(1	SET+96

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SET+23~
DE	SET+23~
DIE	SET+23~
DIV	DIV~, DIV+1, DIV+2*, DIVQ
DQ	SET+23~
DR	SET+23~
>> SCCONS	SET+46, SET+72
SCCV	SET~, SET+93*, SET+98, CSCAN~
SCCV("CS"	SET+36, SET+96, CSCAN+2, CSCAN+3
SCCV("ERR"	SET+31, SET+33, SET+35, SET+62, SET+66*
SCCV("EVT"	SET+24*
SCCV("LOG"	SET+25*
SCCV("NEW"	SET+49*, SET+51, SET+55, SET+56, SET+57, SET+76, SET+82, SET+91, SET+98
SCCV("OE"	SET+94, SET+95, CSCAN+4, CSCAN+24
SCCV("VST"	SET+95*
>> SCCV900	CSCAN+6, CSCAN+11
SCCVEVT	SET~, SET+24, SET+41, SET+53
SCCVSIT	SET+23~, SET+32*, SET+60
SCCVT	SET+23~, SET+72
SCDA	SET~, SET+35, SET+36, SET+57, SET+71, SET+91, SET+96
SCDATA	SET+88!, SET+91!, CSCAN+12~, CSCAN+16, CSCAN+22~, CSCAN+23
SCDATA(	SET+88, CSCAN+23
SCDATA(8	SET+91, CSCAN+13
SCDATA(9	CSCAN+14*
SCDTM	SET~, SET+31, SET+32, SET+35, SET+36, SET+57, SET+91, SET+96, SET+98, CSCAN~ , CSCAN+10, CSCAN+15
SCEXT	CSCAN+1~, CSCAN+4, CSCAN+6, CSCAN+17, CSCAN+23
SCIENS	SET+91, CSCAN+12~, CSCAN+15, CSCAN+16
SCLN	CSCAN+1~, CSCAN+2*, CSCAN+6, CSCAN+11
SCLOG	SET~, SET+25
SCNT	CSCAN+1~, CSCAN+8, CSCAN+18, CSCAN+20
SCOE	SET~, SET+38, SET+44, SET+46, SET+47, SET+49, SET+57, SET+77, SET+78, SET+83 , SET+84, SET+86, SET+88, SET+91, SET+94, CSCAN+3*, CSCAN+6, CSCAN+13, CSCAN+23, CSCAN+24
SCOE0	SET+23~, SET+38, SET+41, SET+46, SET+47, SET+49, SET+55, SET+77, SET+80, SET+83 , SET+88
SCOEP	SET~, SET+55, SET+57, SET+74
SCS	CSCAN+1~, CSCAN+10*, CSCAN+15, CSCAN+17
SCS0	CSCAN+1~, CSCAN+10*, CSCAN+11
>> SCTOT	SET+56
>> SCTOT(	SET+84*
SCV0	SET+23~, SET+36*, SET+38, SET+59, SET+64, SET+65, SET+68, SET+69, SET+70, SET+77
SCVALDT	SET~, SET+79, SET+83
SDVSIT	SET+23~, SET+79, SET+83, SET+93
SDVSIT("CLN"	SET+64, SET+65, SET+66
SDVSIT("DFN"	SET+32*, SET+33, SET+57
SDVSIT("DIV"	SET+59, SET+60, SET+61*, SET+62
SDVSIT("ELG"	SET+69*
SDVSIT("LOC"	SET+68*
SDVSIT("OE"	SET+77, SET+78, SET+80
SDVSIT("ORG"	SET+71*
SDVSIT("PAR"	SET+74*
SDVSIT("REF"	SET+71*
SDVSIT("TYP"	SET+70*
SDVSIT("VST"	SET+76, SET+88
U	SET+32, SET+38, SET+41, SET+49, SET+55, SET+57, SET+59, SET+60, SET+65, SET+68 , SET+69, SET+70, SET+77, SET+88, SET+95, DIV+1, CSCAN+2, CSCAN+3, CSCAN+4, CSCAN+11
X	SET+23~, SET+79*

Customize PDF page

Package: Scheduling