| [613] | 1 | SDPPAPP2 ;ALB/CAW - Patient Profile - Appts. (con't) ; 6/11/92
|
|---|
| 2 | ;;5.3;Scheduling;**6,140**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | BY ; Checked-In and Checked-Out By
|
|---|
| 6 | S X=""
|
|---|
| 7 | I $P(SDCI,U,2)'="" D
|
|---|
| 8 | .S X=$$SETSTR^VALM1("CI By:",X,6,6)
|
|---|
| 9 | .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDCI,U,2),0)),U),X,SDFST,SDLEN)
|
|---|
| 10 | I $P(SDCI,U,4)'="" D
|
|---|
| 11 | .S X=$$SETSTR^VALM1("CO By:",X,48,6)
|
|---|
| 12 | .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDCI,U,4),0)),U),X,SDSEC,SDLEN)
|
|---|
| 13 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 14 | LAB ; Lab Time and X-ray Time
|
|---|
| 15 | S X=""
|
|---|
| 16 | I $P(SDPDATA,U,3)'="" D
|
|---|
| 17 | .S X=$$SETSTR^VALM1("Lab Time:",X,3,9)
|
|---|
| 18 | .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,3)),"@",2),X,SDFST,SDLEN)
|
|---|
| 19 | I $P(SDPDATA,U,4)'="" D
|
|---|
| 20 | .S X=$$SETSTR^VALM1("X-ray Time:",X,43,11)
|
|---|
| 21 | .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,4)),"@",2),X,SDSEC,SDLEN)
|
|---|
| 22 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 23 | EKG ; EKG Time
|
|---|
| 24 | S X=""
|
|---|
| 25 | I $P(SDPDATA,U,5)'="" D
|
|---|
| 26 | .S X=$$SETSTR^VALM1("EKG Time:",X,3,9)
|
|---|
| 27 | .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,5)),"@",2),X,SDFST,SDLEN)
|
|---|
| 28 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 29 | NS ; No-show/Cancel Date/Time and Rebook
|
|---|
| 30 | S X=""
|
|---|
| 31 | I $P(SDPDATA,U,14)'="" D
|
|---|
| 32 | .S X=$$SETSTR^VALM1("NS/Cancel:",X,2,10)
|
|---|
| 33 | .S X=$$SETSTR^VALM1($TR($$FMTE^XLFDT($P(SDPDATA,U,14),"5F")," ","0"),X,SDFST,SDLEN)
|
|---|
| 34 | I $P(SDPDATA,U,10)'="" D
|
|---|
| 35 | .S X=$$SETSTR^VALM1("Rebook:",X,47,7)
|
|---|
| 36 | .S X=$$SETSTR^VALM1($TR($$FMTE^XLFDT($P(SDPDATA,U,10),"5F")," ","0"),X,SDSEC,SDLEN)
|
|---|
| 37 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 38 | NSBY ; No-show/cancelled by and Reason
|
|---|
| 39 | S X=""
|
|---|
| 40 | I $P(SDPDATA,U,12)'="" D
|
|---|
| 41 | .S X=$$SETSTR^VALM1("NS/Can. By:",X,1,11)
|
|---|
| 42 | .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDPDATA,U,12),0)),U),X,SDFST,SDLEN)
|
|---|
| 43 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 44 | S X=""
|
|---|
| 45 | I $P(SDPDATA,U,15)'="" D
|
|---|
| 46 | .S X="",X=$$SETSTR^VALM1("Reason:",X,5,7)
|
|---|
| 47 | .S X=$$SETSTR^VALM1($P($G(^SD(409.2,+$P(SDPDATA,U,15),0)),U),X,SDFST,SDLEN)
|
|---|
| 48 | .D:X'="" SET^SDPPAPP1(X)
|
|---|
| 49 | .S X=""
|
|---|
| 50 | .I $D(SDREMARK),SDREMARK'="" D
|
|---|
| 51 | ..S X="",X=$$SETSTR^VALM1("Remark:",X,5,7)
|
|---|
| 52 | ..S X=$$SETSTR^VALM1($E(SDREMARK,1,80),X,SDFST,80)
|
|---|
| 53 | ..K SDREMARK
|
|---|
| 54 | D:X'="" SET^SDPPAPP1(X)
|
|---|
| 55 | D SET^SDPPAPP1("")
|
|---|
| 56 | Q
|
|---|
