Changeset 1480


Ignore:
Timestamp:
Jul 10, 2012, 8:39:33 PM (12 years ago)
Author:
Sam Habiel
Message:

Mostly minor changes. Most significant is that BSDX31 no longer reverses no-show in the error trap.

Location:
Scheduling/trunk/m
Files:
3 edited

Legend:

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

    r1479 r1480  
    1 BSDX26   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 2:19pm
     1BSDX26   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:27am
    22        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
    33        ; Licensed under LGPL
     
    7171        M ^TMP($J,"BEFORE","BSDXAPPT")=^BSDXAPPT(BSDXAPTID)
    7272        ;
     73        ; Update note in BSDX APPOINTMENT
    7374        I $D(BSDXNOTE(.5)) D
    7475        . D WP^DIE(9002018.4,BSDXAPTID_",",1,"","BSDXNOTE","BSDXMSG")
     
    8687        ; If we get an error (denoted by -1 in BSDXRES), return error to client
    8788        ; AND restore the original note
    88         I BSDXRES<0 D ERR(BSDXI,"4~BSDX26: BSDXAPI reports an error: "_BSDXRES),ROLLBACK(BSDXAPTID) QUIT
     89        I BSDXRES D ERR(BSDXI,"4~BSDX26: BSDXAPI reports an error: "_BSDXRES),ROLLBACK(BSDXAPTID) QUIT
    8990        ;
    9091        ;Return Recordset indicating success
  • Scheduling/trunk/m/BSDX31.m

    r1479 r1480  
    1 BSDX31   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 12:57pm
     1BSDX31   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:39am
    22        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
    33        ; Licensed under LGPL
     
    201201        D ^%ZTER
    202202        ;
    203         I $G(BSDXAPTID),$D(BSDXNS) N % S %=$$BSDXNOS(BSDXAPTID,'BSDXNS) ; Reverse No-Show status (whatever it was)
    204203        ; Send to client
    205204        I '$D(BSDXI) N BSDXI S BSDXI=0
  • Scheduling/trunk/m/BSDXAPI.m

    r1479 r1480  
    1 BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/9/12 4:00pm
     1BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/10/12 5:58pm
    22        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
    33        ; Licensed under LGPL 
     
    155155        ; If previous data exists, which caused an error, it's destroyed.
    156156        ; NB: ^DIK stops for nobody
    157         ; TODO: If Patient Appointment previously existed as cancelled, it's removed.
     157        ; NB: If Patient Appointment previously existed as cancelled, it's removed.
    158158        ; How can I tell if one previously existed when data is in an intermediate
    159159        ; State? Can I restore it if the other file failed? Restoration can cause
     
    420420APPLEN(PAT,CLINIC,DATE) ; $$ PEP; returns an appointment's length
    421421        ; Get either the appointment length or zero
    422         ; TODO: Test
    423422        N SCIEN S SCIEN=$$SCIEN(PAT,CLINIC,DATE)
    424423        Q:SCIEN $P(^SC(CLINIC,"S",DATE,1,SCIEN,0),U,2)
Note: See TracChangeset for help on using the changeset viewer.