| 1 | SDPPALL ;ALB/CAW - Patient Profile - All ; 29 Jun 99 04:11PM
|
|---|
| 2 | ;;5.3;Scheduling;**6,41,177**;AUG 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | EN ;
|
|---|
| 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 | ;
|
|---|
| 12 | INIT ;
|
|---|
| 13 | S SDLN=0,SDLN1=1,$P(SDASH,"-",IOM+1)=""
|
|---|
| 14 | INIT1 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 | ;
|
|---|
| 45 | QUIT ;
|
|---|
| 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
|
|---|
