Changeset 998 for Scheduling


Ignore:
Timestamp:
Nov 2, 2010, 3:31:09 AM (14 years ago)
Author:
Sam Habiel
Message:

More Unit Tests

File:
1 edited

Legend:

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

    r996 r998  
    1 BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/24/10 12:07am
     1BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/31/10 9:38am
    22        ;;1.42;BSDX;;Sep 29, 2010
    33        ;
     
    6464    ; Test by creating a duplicate appointment
    6565    D APPADD(.ZZZ,3100123.09,3100123.093,3,"Dr Office",30,"Sam's Note",1)
    66     D APPADD(.ZZZ,3100123.09,3100123.093,1,"Dr Office",30,"Sam's Note",1)
     66    D APPADD(.ZZZ,3100123.09,3100123.093,3,"Dr Office",30,"Sam's Note",1)
    6767    I +$P(^BSDXTMP($J,1),U,2)'=-10 W "Error in -10",!
     68    ; Test for normality:
     69    D APPADD(.ZZZ,3110123.09,3110123.093,3,"Dr Office",30,"Sam's Note",1)
     70    ; Does Appt exist?
     71    N APPID S APPID=+$P(^BSDXTMP($J,1),U)
     72    I 'APPID W "Error Making Appt-1" QUIT
     73    I +^BSDXAPPT(APPID,0)'=3110123.09 W "Error Making Appt-2"
     74    I '$D(^DPT(3,"S",3110123.09)) W "Error Making Appt-3"
     75    I '$D(^SC(2,"S",3110123.09)) W "Error Making Appt-4"
    6876    QUIT
    6977    ;
Note: See TracChangeset for help on using the changeset viewer.