| [613] | 1 | SDSCLST ;ALB/JAM/RBS - ASCD Review List ; 4/24/07 4:29pm
|
|---|
| 2 | ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
|
|---|
| 3 | ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
|
|---|
| 4 | ;;known as Service Connected Automated Monitoring (SCAM).
|
|---|
| 5 | ;
|
|---|
| 6 | ;**Program Description**
|
|---|
| 7 | ; This program will build a list of entries to review
|
|---|
| 8 | Q
|
|---|
| 9 | EN ; Entry Point
|
|---|
| 10 | N DIR,X,Y,DTOUT,DUOUT
|
|---|
| 11 | ; Ask which records should be reviewed.
|
|---|
| 12 | S SCOPT=$$SCSEL^SDSCUTL()
|
|---|
| 13 | I SCOPT="" G EXIT
|
|---|
| 14 | ; Get start and end date for encounter list.
|
|---|
| 15 | D GETDATE^SDSCOMP I SDSCTDT="" G EXIT
|
|---|
| 16 | ; Ask for division
|
|---|
| 17 | D DIV^SDSCUTL
|
|---|
| 18 | D ^DIR
|
|---|
| 19 | I $G(DTOUT)!($G(DUOUT)) G EXIT
|
|---|
| 20 | S SDSCDVSL=Y,SDSCDVLN=SCLN
|
|---|
| 21 | K SCLN,DIR
|
|---|
| 22 | ; Determine type of user
|
|---|
| 23 | D TYPE^SDSCUTL
|
|---|
| 24 | ; Call ListMan Screen
|
|---|
| 25 | D EN^SDSCLM
|
|---|
| 26 | ;
|
|---|
| 27 | EXIT D END^SDSCEDT
|
|---|
| 28 | K EXIT,VALMBCK,VALMSG,SDCNT,SDEDT,SDSCBDT,SDSCDVLN,SDSCDVSL,SDSCEDT
|
|---|
| 29 | K SDSCTAT,SDSCTDT,SDANS,SCOPT
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | SEL ; Select entry to review
|
|---|
| 33 | N DIR,SDSCMSG,DFN,SDOE,SDOE0,IEN,SDOEDT,SDEFLG
|
|---|
| 34 | S DIR("A")="Select Number to Review"
|
|---|
| 35 | S DIR(0)="NO^1:"_SDCNT D ^DIR K DIR
|
|---|
| 36 | I $D(DIRUT) K DIRUT D EXT Q
|
|---|
| 37 | I $G(DUOUT)!($G(DTOUT)) D EXT Q
|
|---|
| 38 | I $G(Y)<1 D EXT Q
|
|---|
| 39 | S IEN=^TMP($J,"SDSCENC",Y)
|
|---|
| 40 | ; Call display build
|
|---|
| 41 | S SDOE=IEN,SDOE0=$$GETOE^SDOE(SDOE),SDOEDT=$P(SDOE0,U)
|
|---|
| 42 | I SDOEDT="" S VALMSG="Encounter has been deleted.",VALMBCK="R" Q
|
|---|
| 43 | I $$STDGET^SDSCRPT1() D Q:'SDEFLG
|
|---|
| 44 | . S SDEFLG=0 D CHECK^SDSCEDT
|
|---|
| 45 | . I 'SDEFLG S VALMSG="Cannot edit."_$G(SDSCMSG),VALMBCK="R" Q
|
|---|
| 46 | . D DISPLAY^SDSCEDT
|
|---|
| 47 | ;Check if data came from an ancillary package and okay to edit
|
|---|
| 48 | I '$$ANCPKG^SDSCUTL(IEN) S VALMSG="Cannot edit encounter.",VALMBCK="R" Q
|
|---|
| 49 | ; Check for sensitive patient and call ListMan if OK
|
|---|
| 50 | S DFN=$P(SDOE0,U,2)
|
|---|
| 51 | I DFN="" S VALMSG="Encounter has been deleted.",VALMBCK="R" Q
|
|---|
| 52 | I '$$SENS^SDSCUTL(DFN,1) D EN^SDSCLM1
|
|---|
| 53 | D RBLD^SDSCLM
|
|---|
| 54 | S VALMBCK="R"
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | EXT ; Exit
|
|---|
| 58 | S VALMBCK=""
|
|---|
| 59 | S EXIT=1
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | EDT ; Edit SC Flag
|
|---|
| 63 | S SDANS="Y"
|
|---|
| 64 | D LEDT^SDSCEDT
|
|---|
| 65 | S VALMBCK="Q"
|
|---|
| 66 | Q
|
|---|
| 67 | ;
|
|---|
| 68 | REV ; Send to Review
|
|---|
| 69 | S SDANS="R"
|
|---|
| 70 | D LEDT^SDSCEDT
|
|---|
| 71 | S VALMBCK="Q"
|
|---|
| 72 | Q
|
|---|
| 73 | ;
|
|---|
| 74 | ACC ; Accept SC Flag
|
|---|
| 75 | S SDANS="N"
|
|---|
| 76 | D LEDT^SDSCEDT
|
|---|
| 77 | S VALMBCK="Q"
|
|---|
| 78 | Q
|
|---|
