source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDSCLST.m@ 1796

Last change on this file since 1796 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1SDSCLST ;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
9EN ; 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 ;
27EXIT D END^SDSCEDT
28 K EXIT,VALMBCK,VALMSG,SDCNT,SDEDT,SDSCBDT,SDSCDVLN,SDSCDVSL,SDSCEDT
29 K SDSCTAT,SDSCTDT,SDANS,SCOPT
30 Q
31 ;
32SEL ; 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 ;
57EXT ; Exit
58 S VALMBCK=""
59 S EXIT=1
60 Q
61 ;
62EDT ; Edit SC Flag
63 S SDANS="Y"
64 D LEDT^SDSCEDT
65 S VALMBCK="Q"
66 Q
67 ;
68REV ; Send to Review
69 S SDANS="R"
70 D LEDT^SDSCEDT
71 S VALMBCK="Q"
72 Q
73 ;
74ACC ; Accept SC Flag
75 S SDANS="N"
76 D LEDT^SDSCEDT
77 S VALMBCK="Q"
78 Q
Note: See TracBrowser for help on using the repository browser.