source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDPPALL.m@ 767

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1SDPPALL ;ALB/CAW - Patient Profile - All ; 29 Jun 99 04:11PM
2 ;;5.3;Scheduling;**6,41,177**;AUG 13, 1993
3 ;
4 ;
5EN ;
6 K ^TMP("SDPPALL",$J)
7 S VALMBCK=""
8 W ! D WAIT^DICD,EN^VALM("SDPP PATIENT PROFILE ALL")
9 S VALMBCK="R"
10 Q
11 ;
12INIT ;
13 S SDLN=0,SDLN1=1,$P(SDASH,"-",IOM+1)=""
14INIT1 I SDTYP=2!(SDTYP=6)!($D(SDTYP(2))) D
15 .D SET^SDPPAPP1(" *** Appointments ***") D:'SDPRINT CNTRL^VALM10(SDLN,25,20,IOINHI,IOINORM)
16 .D EN1^SDPPAPP1 ; Appointments
17 .I SDLN1=SDLN D SET^SDPPADD1(""),SET^SDPPADD1(" No appointments found.")
18 I SDTYP=1!(SDTYP=6)!($D(SDTYP(1))) D
19 .D SET^SDPPADD1(" *** Add/Edits ***") D:'SDPRINT CNTRL^VALM10(SDLN,27,17,IOINHI,IOINORM)
20 .S SDLN1=SDLN
21 .D EN1^SDPPADD1 ; Add/Edits
22 .I SDLN1=SDLN D SET^SDPPADD1(""),SET^SDPPADD1(" No add/edits found.")
23 I SDTYP=4!(SDTYP=6)!($D(SDTYP(4))) D
24 .D SET^SDPPENR1(" *** Enrollments ***") D:'SDPRINT CNTRL^VALM10(SDLN,26,19,IOINHI,IOINORM)
25 .S SDLN1=SDLN
26 .D EN1^SDPPENR1 ; Enrollments
27 .I SDLN1=SDLN D SET^SDPPENR1(""),SET^SDPPENR1(" No enrollments found.")
28 I SDTYP=5!(SDTYP=6)!($D(SDTYP(5))) D
29 .D SET^SDPPMT1(" *** Means Test Info ***") D:'SDPRINT CNTRL^VALM10(SDLN,23,23,IOINHI,IOINORM)
30 .S SDLN1=SDLN
31 .D EN1^SDPPMT1 ; Means test Info
32 .I SDLN1=SDLN D SET^SDPPMT1(""),SET^SDPPMT1(" No Means Test Info found.")
33 I SDTYP=3!(SDTYP=6)!($D(SDTYP(3))) D
34 .D SET^SDPPDIS1(" *** Dispositions ***") D:'SDPRINT CNTRL^VALM10(SDLN,25,20,IOINHI,IOINORM)
35 .S SDLN1=SDLN
36 .D EN1^SDPPDIS1 ; Dispositions
37 .I SDLN1=SDLN D SET^SDPPDIS1(""),SET^SDPPDIS1(" No dispositions found.")
38 I SDTYP=7!(SDTYP=6)!($D(SDTYP(7))) D
39 .D:'SDPRINT CNTRL^VALM10(SDLN,20,35,IOINHI,IOINORM)
40 .S SDLN1=SDLN
41 .D TDATA^SDPPTEM(DFN,.VALMCNT)
42 D:'SDPRINT HDR^SDPP
43 Q
44 ;
45QUIT ;
46 S VALMBCK="R"
47 K BEGDATE,ENDDATE,DIC,DGINC,DGINR,DGREL,SD,SDASH,SDATA,SDDT,SDFLG,SDFST,SDIFN,SDJ,SDL,SDLD,SDPR,SDSEC,X,SD1,SDACT,SDAP,SDBEN,SDBENE,SDCAR,SDCARE,SDLN1
48 K SDALL,SDCI,SDCL,SDDIS,SDFLN,SDLEN,SDLN,SDM,SDM1,SDMT,SDOB,SDPDATA,SDPOV,SDPV,SDSC,SDSEC,SDSTAT,SDAP,SDWHEN,SDSTATUS,SDVER,SDYN,SDOPT,SDACT,SDMT1,^TMP("SDPPALL",$J)
49 Q
Note: See TracBrowser for help on using the repository browser.