source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDPPAPP2.m@ 1796

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1SDPPAPP2 ;ALB/CAW - Patient Profile - Appts. (con't) ; 6/11/92
2 ;;5.3;Scheduling;**6,140**;Aug 13, 1993
3 ;
4 ;
5BY ; 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)
14LAB ; 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)
23EKG ; 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)
29NS ; 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)
38NSBY ; 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
Note: See TracBrowser for help on using the repository browser.