SDSCUTL ;ALB/JAM/RBS - ASCD Utility Program ; 4/24/07 4:26pm
Source file <SDSCUTL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| NBFP(SDOE) | ; Is first-party non-billable based on either clinic, stop code, or patient?
|
|
| NBTP(SDOE) | ; Is third-party non-billable based on either clinic, stop code, or patient?
|
|
| 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') |
|
| DIV | ; Ask for Division
|
|
| SRV | ; Ask for Clinic Service
|
|
| 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) |
|
| CONT | ; Standard press RETURN to continue prompt.
|
|
| ANCPKG(SCEIEN) | ;check if visit came from an ancillary package & if to continue
|
|
| NCTCL(SDCLIN) | ;Checks if a non-count clinic
|
|
| SCHNG(SDOE) | ;Checks if a completed encounter SC value was changed.
|
|
| 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 |
|
| 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 |
|
| SCSEL() | ;Prompts for the type of service connection records to review.
; Input: No input required ; Output: 1 - SC, 0 - NSC, 2 - All and "" (null) |
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| 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 |
| >> | 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 |
