Changeset 1064 for Scheduling


Ignore:
Timestamp:
Jan 9, 2011, 7:26:23 AM (14 years ago)
Author:
Sam Habiel
Message:

Updated check-in routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Scheduling/trunk/m/BSDX25.m

    r1041 r1064  
    1 BSDX25  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
    2         ;;1.42;BSDX;;Dec 07, 2010
     1BSDX25  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1/6/11 1:57pm
     2        ;;1.5;BSDX;;Dec 07, 2010
     3    ;
     4    ; Change Log:
     5    ; 3110106: SMH -> Changed Check-in EP - Removed unused paramters. Will change C#
    36        ;
    47        ;
     
    1013        Q
    1114        ;
    12 CHECKIN(BSDXY,BSDXAPTID,BSDXCDT,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG)  ;EP Check in appointment
    13         ;
     15CHECKIN(BSDXY,BSDXAPTID,BSDXCDT) ; ,BSDXCC,BSDXPRV,BSDXROU,BSDXVCL,BSDXVFM,BSDXOG)      ;EP Check in appointment
     16        ; Private to GUI; use BSDXAPI for general API to checkin patients
     17    ; Parameters:
     18    ; BSDXY: Global Out
     19    ; BSDXAPTID: Appointment ID in ^BSDXAPPT
     20    ; BSDXCDT: Checkin Date --> Changed
     21    ; BSDXCC: Clinic Stop IEN (not used)
     22    ; BSDXPRV: Provider IEN (not used)
     23    ; BSDXROU: Print Routing Slip? (not used)
     24    ; BSDXVCL: PCC+ Clinic IEN (not used)
     25    ; BSDXVFM: PCC+ Form IEN (not used)
     26    ; BSDXOG: PCC+ Outguide (true or false)
     27    ;
     28    ; Output:
     29    ; ADO.net table with 1 column ErrorID, 1 row result
     30    ; - 0 if all okay
     31    ; - Another number or text if not
    1432ENDBG   ;
    1533        N BSDXNOD,BSDXPATID,BSDXSTART,DIK,DA,BSDXID,BSDXI,BSDXZ,BSDXIENS,BSDXVEN
     
    2442        I '+BSDXAPTID D ERR("BSDX25: Invalid Appointment ID") Q
    2543        I '$D(^BSDXAPPT(BSDXAPTID,0)) D ERR("BSDX08: Invalid Appointment ID") Q
    26         ;
    27         S:BSDXCDT["@0000" BSDXCDT=$P(BSDXCDT,"@")
    28         S %DT="T",X=BSDXCDT D ^%DT S BSDXCDT=Y
     44        ; Remove Date formatting v.1.5. Client will send date as FM Date.
     45        ;S:BSDXCDT["@0000" BSDXCDT=$P(BSDXCDT,"@")
     46        ;S %DT="T",X=BSDXCDT D ^%DT S BSDXCDT=Y
     47    S BSDXCDT=+BSDXCDT  ; Strip off zeros if C# sends them
    2948        I BSDXCDT=-1 D ERR(70) Q
    3049        I BSDXCDT>$$NOW^XLFDT S BSDXCDT=$$NOW^XLFDT
Note: See TracChangeset for help on using the changeset viewer.