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 |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: SDSCUTL

Package: Scheduling

Routine: SDSCUTL


Information

SDSCUTL ;ALB/JAM/RBS - ASCD Utility Program ; 4/24/07 4:26pm

Source Information

Source file <SDSCUTL.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Scheduling 14 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

Global Variables Directly Accessed

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