- SDPPAPP2 ;ALB/CAW - Patient Profile - Appts. (con't) ; 6/11/92
- ;;5.3;Scheduling;**6,140,1015**;Aug 13, 1993;Build 21
- ;
- ;
- BY ; Checked-In and Checked-Out By
- S X=""
- I $P(SDCI,U,2)'="" D
- .S X=$$SETSTR^VALM1("CI By:",X,6,6)
- .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDCI,U,2),0)),U),X,SDFST,SDLEN)
- I $P(SDCI,U,4)'="" D
- .S X=$$SETSTR^VALM1("CO By:",X,48,6)
- .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDCI,U,4),0)),U),X,SDSEC,SDLEN)
- D:X'="" SET^SDPPAPP1(X)
- LAB ; Lab Time and X-ray Time
- S X=""
- I $P(SDPDATA,U,3)'="" D
- .S X=$$SETSTR^VALM1("Lab Time:",X,3,9)
- .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,3)),"@",2),X,SDFST,SDLEN)
- I $P(SDPDATA,U,4)'="" D
- .S X=$$SETSTR^VALM1("X-ray Time:",X,43,11)
- .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,4)),"@",2),X,SDSEC,SDLEN)
- D:X'="" SET^SDPPAPP1(X)
- EKG ; EKG Time
- S X=""
- I $P(SDPDATA,U,5)'="" D
- .S X=$$SETSTR^VALM1("EKG Time:",X,3,9)
- .S X=$$SETSTR^VALM1($P($$FDTTM^VALM1($P(SDPDATA,U,5)),"@",2),X,SDFST,SDLEN)
- D:X'="" SET^SDPPAPP1(X)
- NS ; No-show/Cancel Date/Time and Rebook
- S X=""
- I $P(SDPDATA,U,14)'="" D
- .S X=$$SETSTR^VALM1("NS/Cancel:",X,2,10)
- .S X=$$SETSTR^VALM1($TR($$FMTE^XLFDT($P(SDPDATA,U,14),"5F")," ","0"),X,SDFST,SDLEN)
- I $P(SDPDATA,U,10)'="" D
- .S X=$$SETSTR^VALM1("Rebook:",X,47,7)
- .S X=$$SETSTR^VALM1($TR($$FMTE^XLFDT($P(SDPDATA,U,10),"5F")," ","0"),X,SDSEC,SDLEN)
- D:X'="" SET^SDPPAPP1(X)
- NSBY ; No-show/cancelled by and Reason
- S X=""
- I $P(SDPDATA,U,12)'="" D
- .S X=$$SETSTR^VALM1("NS/Can. By:",X,1,11)
- .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(SDPDATA,U,12),0)),U),X,SDFST,SDLEN)
- D:X'="" SET^SDPPAPP1(X)
- S X=""
- I $P(SDPDATA,U,15)'="" D
- .S X="",X=$$SETSTR^VALM1("Reason:",X,5,7)
- .S X=$$SETSTR^VALM1($P($G(^SD(409.2,+$P(SDPDATA,U,15),0)),U),X,SDFST,SDLEN)
- .D:X'="" SET^SDPPAPP1(X)
- .S X=""
- .I $D(SDREMARK),SDREMARK'="" D
- ..S X="",X=$$SETSTR^VALM1("Remark:",X,5,7)
- ..S X=$$SETSTR^VALM1($E(SDREMARK,1,80),X,SDFST,80)
- ..K SDREMARK
- D:X'="" SET^SDPPAPP1(X)
- D SET^SDPPAPP1("")
- Q
- SDPPAPP2 ;ALB/CAW - Patient Profile - Appts. (con't) ; 6/11/92
- +1 ;;5.3;Scheduling;**6,140,1015**;Aug 13, 1993;Build 21
- +2 ;
- +3 ;
- BY ; Checked-In and Checked-Out By
- +1 SET X=""
- +2 IF $PIECE(SDCI,U,2)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("CI By:",X,6,6)
- +4 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(SDCI,U,2),0)),U),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF $PIECE(SDCI,U,4)'=""
- Begin DoDot:1
- +6 SET X=$$SETSTR^VALM1("CO By:",X,48,6)
- +7 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(SDCI,U,4),0)),U),X,SDSEC,SDLEN)
- End DoDot:1
- +8 IF X'=""
- DO SET^SDPPAPP1(X)
- LAB ; Lab Time and X-ray Time
- +1 SET X=""
- +2 IF $PIECE(SDPDATA,U,3)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("Lab Time:",X,3,9)
- +4 SET X=$$SETSTR^VALM1($PIECE($$FDTTM^VALM1($PIECE(SDPDATA,U,3)),"@",2),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF $PIECE(SDPDATA,U,4)'=""
- Begin DoDot:1
- +6 SET X=$$SETSTR^VALM1("X-ray Time:",X,43,11)
- +7 SET X=$$SETSTR^VALM1($PIECE($$FDTTM^VALM1($PIECE(SDPDATA,U,4)),"@",2),X,SDSEC,SDLEN)
- End DoDot:1
- +8 IF X'=""
- DO SET^SDPPAPP1(X)
- EKG ; EKG Time
- +1 SET X=""
- +2 IF $PIECE(SDPDATA,U,5)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("EKG Time:",X,3,9)
- +4 SET X=$$SETSTR^VALM1($PIECE($$FDTTM^VALM1($PIECE(SDPDATA,U,5)),"@",2),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF X'=""
- DO SET^SDPPAPP1(X)
- NS ; No-show/Cancel Date/Time and Rebook
- +1 SET X=""
- +2 IF $PIECE(SDPDATA,U,14)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("NS/Cancel:",X,2,10)
- +4 SET X=$$SETSTR^VALM1($TRANSLATE($$FMTE^XLFDT($PIECE(SDPDATA,U,14),"5F")," ","0"),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF $PIECE(SDPDATA,U,10)'=""
- Begin DoDot:1
- +6 SET X=$$SETSTR^VALM1("Rebook:",X,47,7)
- +7 SET X=$$SETSTR^VALM1($TRANSLATE($$FMTE^XLFDT($PIECE(SDPDATA,U,10),"5F")," ","0"),X,SDSEC,SDLEN)
- End DoDot:1
- +8 IF X'=""
- DO SET^SDPPAPP1(X)
- NSBY ; No-show/cancelled by and Reason
- +1 SET X=""
- +2 IF $PIECE(SDPDATA,U,12)'=""
- Begin DoDot:1
- +3 SET X=$$SETSTR^VALM1("NS/Can. By:",X,1,11)
- +4 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(SDPDATA,U,12),0)),U),X,SDFST,SDLEN)
- End DoDot:1
- +5 IF X'=""
- DO SET^SDPPAPP1(X)
- +6 SET X=""
- +7 IF $PIECE(SDPDATA,U,15)'=""
- Begin DoDot:1
- +8 SET X=""
- SET X=$$SETSTR^VALM1("Reason:",X,5,7)
- +9 SET X=$$SETSTR^VALM1($PIECE($GET(^SD(409.2,+$PIECE(SDPDATA,U,15),0)),U),X,SDFST,SDLEN)
- +10 IF X'=""
- DO SET^SDPPAPP1(X)
- +11 SET X=""
- +12 IF $DATA(SDREMARK)
- IF SDREMARK'=""
- Begin DoDot:2
- +13 SET X=""
- SET X=$$SETSTR^VALM1("Remark:",X,5,7)
- +14 SET X=$$SETSTR^VALM1($EXTRACT(SDREMARK,1,80),X,SDFST,80)
- +15 KILL SDREMARK
- End DoDot:2
- End DoDot:1
- +16 IF X'=""
- DO SET^SDPPAPP1(X)
- +17 DO SET^SDPPAPP1("")
- +18 QUIT
