Routine: SDSCUTL

Package	Total	Call Graph
VA Fileman	4	FILE^DICN FILE^DIE $$IENS^DILF ^DIR
Registration	3	^DGSEC (DEM,KVA)^VADPT FULL^VALM1
Integrated Billing	2	$$INSUR^IBBAPI ($$FIRST,$$THIRD)^IBRSUTL
Scheduling	2	$$GETOE^SDOE $$SC^SDSCAPI

Package

Total

Call Graph

VA Fileman

FILE^DICN FILE^DIE $$IENS^DILF ^DIR

Registration

^DGSEC (DEM,KVA)^VADPT FULL^VALM1

Integrated Billing

$$INSUR^IBBAPI ($$FIRST,$$THIRD)^IBRSUTL

Scheduling

$$GETOE^SDOE $$SC^SDSCAPI

Package	Total	Caller Graph
Scheduling	14	SDSCAPI SDSCCHK SDSCCLM SDSCEDT SDSCLST SDSCMSR SDSCNSCP SDSCOMP SDSCPRV SDSCRP1 SDSCRP2 SDSCRPT1 SDSCSSD SDSCUSR

Package

Total

Caller Graph

Scheduling

SDSCAPI SDSCCHK SDSCCLM SDSCEDT SDSCLST SDSCMSR SDSCNSCP SDSCOMP
SDSCPRV SDSCRP1 SDSCRP2 SDSCRPT1 SDSCSSD SDSCUSR

Entry Points

Name	Comments	DBIA/ICR reference
CONT	; Standard press RETURN to continue prompt.
SCHNG(SDOE)	;Checks if a completed encounter SC value was changed.
ANCPKG(SCEIEN)	;check if visit came from an ancillary package & if to continue
NBTP(SDOE)	; Is third-party non-billable based on either clinic, stop code, or patient?
SCSEL()	;Prompts for the type of service connection records to review. ; Input: No input required ; Output: 1 - SC, 0 - NSC, 2 - All and "" (null)
NCTCL(SDCLIN)	;Checks if a non-count clinic
NBFP(SDOE)	; Is first-party non-billable based on either clinic, stop code, or patient?
SRV	; Ask for Clinic Service
UNLOCK(SCIEN)	;Unlocks an ASCD record. ; This function releases the lock on an ASCD record created by $$LOCK. ; Input: SCIEN - IEN of record in file #409.48
LOCK(SCIEN)	;Locks an ASCD record. ; This function locks an ASCD so as to prevent another process from ; editing the same record. ; Input: SCIEN - IEN of record in file #409.48
DIV	; Ask for Division
TYPE	; Select proper user type based on security key. ; called by routines: SDSCEDT,SDSCLST,SDSCMSR,SDSCRP1,SDSCSSD ; sets variables: SDTYPE,SDSCTAT,SDOPT,SDSCCR ; (should be killed by calling routines)
SENS(SDFN,SDFLG)	; Check for Sensitive Patient ; Input ; SDFN - Patient IEN ; SDFLG - '1' if called from ListMan edit ; - '0' if called from roll-and-scroll ; Returns ; '0' - OK to view (patient is not sensitive, user has key, or answered 'OK') ; '1' - not OK to view patient (patient is sensitive, user does not have key and answered 'NO')
STEDT(SDOE,SDTYPE,SDRFLG,SDSCC)	; Store the TRACK EDITS multiple for encounter ; Input: ; SDOE - Encounter IEN ; SDTYPE - Type of User - (Supervisor, Clinician, User) ; SDRFLG - Review flag var ; SDSCC - visit file service connected value (1/0)

External References

Name	Field # of Occurrence
^DGSEC	SENS+17
FILE^DICN	STEDT+17
FILE^DIE	STEDT+28, STEDT+37
$$IENS^DILF	STEDT+20
^DIR	SENS+21, CONT+4, ANCPKG+11, SCSEL+7
$$INSUR^IBBAPI	NBTP+6
$$FIRST^IBRSUTL	NBFP+4
$$THIRD^IBRSUTL	NBTP+4
$$GETOE^SDOE	NBFP+3, NBTP+3, ANCPKG+3
$$SC^SDSCAPI	STEDT+35
DEM^VADPT	SENS+13
KVA^VADPT	SENS+22
FULL^VALM1	SENS+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E(VADM(1),1,25)_" ("_$E($P(VADM(2),U),6,9)_")",!! Line Location: SENS+14
Function Call: WRITE	Prompt: ! Line Location: SENS+21
Function Call: WRITE	Prompt: @IOF,!,"Encounter ",SDOE," (cont'd)" Line Location: CONT+6
Function Call: WRITE	Prompt: $C(7) Line Location: ANCPKG+5
Function Call: WRITE	Prompt: !,"Service Connected Encounters Review Selection" Line Location: SCSEL+4
Routine Call	DIE Line Location: STEDT+28 STEDT+37
Routine Call	DIR Line Location: SENS+21 CONT+4 ANCPKG+11 SCSEL+7

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	ANCPKG+4
^DG(40.8 - [#40.8]	DIV+3, DIV+4
^DGSL(38.1 - [#38.1]	SENS+11
^SC - [#44]	NCTCL+1
^SDSC(409.48 - [#409.48]	STEDT+12*, STEDT+13, SCHNG+7, LOCK+7, UNLOCK+6
^XUSEC("DG SENSITIVITY"	SENS+19
^XUSEC("SDSC CLINICAL"	TYPE+10
^XUSEC("SDSC SUPER"	TYPE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	STEDT+11~, STEDT+14*, STEDT+20, ANCPKG+1~
DA(1	STEDT+14*
DD	STEDT+11~, STEDT+16!, STEDT+18!
DFN	SENS+12~, SENS+13*
DIC	SENS+12~, STEDT+11~, STEDT+14*
DIC("P"	STEDT+15*
DIC(0	SENS+16, STEDT+15
DIE	STEDT+11~, STEDT+14*
DIR	SENS+21~, CONT+1~, ANCPKG+1~, SCSEL+3~
DIR("A"	DIV+4, DIV+6, DIV+8, SRV+4, CONT+3, ANCPKG+6, ANCPKG+7, ANCPKG+8, ANCPKG+9, SCSEL+6
DIR("B"	DIV+7, ANCPKG+10, SCSEL+6*
DIR(0	SENS+21, DIV+7, SRV+4, CONT+2, ANCPKG+10, SCSEL+5
>> DIRUT	SCSEL+7
DLAYGO	STEDT+11~, STEDT+15*
DO	STEDT+11~, STEDT+16!, STEDT+18!
DT	STEDT+21
DTOUT	CONT+1~, CONT+5
DUOUT	CONT+1~, CONT+5
DUZ	TYPE+5, TYPE+10, SENS+19, STEDT+22
ERR	STEDT+11~, STEDT+34!
IOF	CONT+6
PCEIEN	ANCPKG+1~, ANCPKG+3*, ANCPKG+4
SCEIEN	ANCPKG~, ANCPKG+2, ANCPKG+3
SCIEN	LOCK~, LOCK+7, UNLOCK~, UNLOCK+6
>> SCLN	DIV+5, DIV+6, DIV+7
SDANS	SENS+9~, SENS+10, SENS+18, SENS+23
SDCLIN	NCTCL~, NCTCL+1
SDCOV	NBTP+1~, NBTP+6*, NBTP+7
SDFLG	SENS~, SENS+14, SENS+15
SDFN	SENS~, SENS+11, SENS+13, SENS+16
SDIENS	STEDT+11~, STEDT+20*, STEDT+21, STEDT+22, STEDT+23, STEDT+26, STEDT+27
SDN	DIV+1~, DIV+2, DIV+3, DIV+4, DIV+5
SDOE	NBFP~, NBFP+2, NBFP+3, NBFP+4, NBTP~, NBTP+2, NBTP+3, NBTP+4, STEDT~, STEDT+10 , STEDT+12, STEDT+13, STEDT+14, STEDT+35, STEDT+36, CONT+6, SCHNG~, SCHNG+6, SCHNG+7
SDOE0	NBFP+1~, NBFP+3, NBTP+1~, NBTP+3
SDOEDT	NBFP+1~, NBFP+3, NBTP+1~, NBTP+3, NBTP+6
>> SDOPT	TYPE+4, TYPE+7, TYPE+12, TYPE+16*
SDORG	SCHNG+5~, SCHNG+9, SCHNG+10, SCHNG+11
SDPAT	NBFP+1~, NBFP+3, NBTP+1~, NBTP+3, NBTP+6
SDPD	STEDT+11~, STEDT+34!
SDPD(	STEDT+21, STEDT+22, STEDT+23, STEDT+26, STEDT+27, STEDT+36
>> SDQFLG	CONT+5*
SDRFLG	STEDT~, STEDT+26, STEDT+33
SDSCC	STEDT~, STEDT+27
>> SDSCCR	TYPE+8, TYPE+13, TYPE+17*
>> SDSCTAT	TYPE+4, TYPE+7, TYPE+12, TYPE+16*
SDTYPE	TYPE+4, TYPE+7, TYPE+12, TYPE+16*, STEDT~, STEDT+23
SDUSR	SCHNG+5~, SCHNG+9*, SCHNG+11
SDVAL	SCHNG+5~, SCHNG+7*, SCHNG+8, SCHNG+9
SDVBA	STEDT+11~, STEDT+35*, STEDT+36
TDIR	SRV+1~, SRV+2, SRV+3, SRV+4
U	NBFP+3, NBTP+3, SENS+11, SENS+14, STEDT+13, STEDT+36, NCTCL+1, SCHNG+9, SCHNG+11
VADM	SENS+12~
VADM(1	SENS+14
VADM(2	SENS+14
X	SENS+12~, STEDT+11~, STEDT+13*, STEDT+14, CONT+1~, ANCPKG+1~
Y	SENS+12~, SENS+16*, SENS+18, CONT+1~, ANCPKG+1~, ANCPKG+12, SCSEL+8

Customize PDF page

Package: Scheduling

Routine: SDSCUTL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: