source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDSCLM1.m@ 1096

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

initial load of FOIAVistA 6/30/08 version

File size: 593 bytes
Line 
1SDSCLM1 ;ALB/JAM/RBS - ASCD Encounter Detail LISTMAN ; 3/7/07 11:38am
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 Q
7EN ; -- main entry point for SDSC DETAIL
8 D EN^VALM("SDSC DETAIL")
9 Q
10 ;
11HDR ; -- header code
12 S VALMHDR(1)=" "
13 Q
14 ;
15INIT ; -- init variables and list array
16 S VALMCNT=+$G(SDLN)
17 Q
18 ;
19HELP ; -- help code
20 N X
21 S X="?" D DISP^XQORM1 W !!
22 Q
23 ;
24EXIT ; -- exit code
25 ;
26 K VALMHDR,VALMCNT
27 K ^TMP("SDSCLST",$J)
28 Q
29 ;
30EXPND ; -- expand code
31 Q
32 ;
Note: See TracBrowser for help on using the repository browser.