Changeset 883 for Scheduling/trunk/m


Ignore:
Timestamp:
Jul 18, 2010, 7:17:02 AM (14 years ago)
Author:
Sam Habiel
Message:

edits and clean-ups prior to release, first step

Location:
Scheduling/trunk/m
Files:
8 edited

Legend:

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

    r862 r883  
    1 BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm
    22        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3         ;;Test line for svn update
    43        ;
    54        ;
  • Scheduling/trunk/m/BSDX07.m

    r867 r883  
    1 BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/10 4:28pm
     1BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:11pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ;
     4    ; Change Log:
     5    ; UJO/SMH
    36    ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
    47        ;
     
    5053        ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
    5154        ; I BSDXEND=-1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
    52         I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
     55    ;
     56    ; If C# sends the dates with extra zeros, remove them
     57        S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
     58    ;
     59    I $L(BSDXEND,".")=1 D ERR(BSDXI+1,"BSDX07 Error: Invalid End Time") Q
    5360        I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
    5461        I '+BSDXPATID,'$D(^DPT(BSDXPATID,0)) D ERR(BSDXI+1,"BSDX07 Error: Invalid Patient ID") Q
     
    111118        ;Returns ien in BSDXAPPT or 0 if failed
    112119        ;Create entry in BSDX APPOINTMENT
    113     ; BSDXSTART and BSDXEND need to be stored as numeric, not string
    114     ; So 3090713.0900 is incorrect --> it should be 3090713.09
    115120        N BSDXAPPTID
    116         S BSDXFDA(9002018.4,"+1,",.01)=+BSDXSTART  ; smh fix bug stores as string
    117         S BSDXFDA(9002018.4,"+1,",.02)=+BSDXEND
     121        S BSDXFDA(9002018.4,"+1,",.01)=BSDXSTART
     122        S BSDXFDA(9002018.4,"+1,",.02)=BSDXEND
    118123        S BSDXFDA(9002018.4,"+1,",.05)=BSDXPATID
    119124        S BSDXFDA(9002018.4,"+1,",.07)=BSDXRESD
  • Scheduling/trunk/m/BSDX09.m

    r871 r883  
    1 BSDX09  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
    2         ;;2.0;IHS WINDOWS SCHEDULING;**local**;NOV 01, 2007
    3         ;;local mods by WV/SMH
     1BSDX09  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:26pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    43        ;
     4    ; Change Log:
     5    ; UJO/TH - v 1.3 on 3100714 - Extra Demographics:
     6    ; - Email
     7    ; - Cell Phone
     8    ; - Country
     9    ; - + refactoring of routine
     10        ;
     11    ; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead
    512        ;
    613GETREGA(BSDXRET,BSDXPAT)               ;EP
     
    1017        ;   13 NOK NAME^RELATIONSHIP^PHONE^STREET^CITY^STATE^ZIP
    1118        ;   20 DATAREVIEWED^
    12         ; removed/smh;   21 Medicare#^Suffix
    1319        ;   21 RegistrationComments
     20    ;   22 EMAIL ADDRESS^PHONE NUMBER [CELLULAR]^COUNTRY
    1421        ;
    1522        ;For patient with ien BSDXPAT
     
    5865        S BSDXNOD=^DPT(+BSDXPAT,0)
    5966        S $P(BSDXY,"^",6)=$P(BSDXNOD,U) ;NAME
    60         S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID")
     67        S $P(BSDXY,"^",8)=$$GET1^DIQ(2,BSDXPAT,"PRIMARY LONG ID") ;PID
    6168        S Y=$P(BSDXNOD,U,3) I Y]""  X ^DD("DD") S Y=$TR(Y,"@"," ")
    6269        S $P(BSDXY,"^",7)=Y ;DOB
  • Scheduling/trunk/m/BSDX12.m

    r863 r883  
    1 BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 6:33am
     1BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm
    22        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3     ; v 1.3 - i18n support
     3    ;
     4    ; Change Log:
     5    ; v 1.3 - i18n support - 3100718
    46    ; BSDXSTART and BSDXEND passed in FM Dates, not US dates
    57        ;
     
    3133        ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
    3234        ; I BSDXEND=-1 D ERR(70) Q
     35    ; Make sure dates are canonical and don't contain extra zeros
     36    S BSDXSTART=+BSDXSTART,BSDXEND=+BSDXEND
     37    ;
    3338        I $L(BSDXEND,".")=1 D ERR(70) Q
    3439        I BSDXSTART>BSDXEND S BSDXTMP=BSDXEND,BSDXEND=BSDXSTART,BSDXSTART=BSDXTMP
  • Scheduling/trunk/m/BSDX13.m

    r863 r883  
    1 BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 7:24am
     1BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm
    22        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3     ; V 1.3 - i18n support - Dates passed to Routine as FM Date
    4         ;
    5         ;
     3    ;
     4    ; Change Log:
     5    ; V 1.3 - i18n support - Dates passed to Routine as FM Date - WV/SMH
    66        Q
    77AVDELDTD(BSDXY,BSDXRESD,BSDXSTART,BSDXEND)      ;EP
  • Scheduling/trunk/m/BSDX28.m

    r867 r883  
    1 BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 3:55pm
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3         ;
     1BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3        ;
     4    ; Change Log:
    45        ; HMW 3050721 Added test for inactivated record
    5     ; SMH 3100714 add PID search, return PID instead of SSN
    6     ; Change Error trap to new style.
     6    ; V1.3 WV/SMH 3100714
     7    ; - add PID search
     8    ; - return PID instead of SSN (change header and logic)
     9    ; - Change Error trap to new style.
    710        ;
    811PTLOOKRS(BSDXY,BSDXP,BSDXC)      ;EP Patient Lookup
  • Scheduling/trunk/m/BSDX29.m

    r858 r883  
    1 BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/13/10 9:47am
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3         ;
     1BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ;
     4    ; Change Log:
     5    ; v1.3 by WV/SMH on 3100713
     6        ; - Beginning and Ending dates passed as FM Dates
    47        ;
    58BSDXCPD(BSDXY,BSDXRES,BSDX44,BSDXBEG,BSDXEND)   ;EP
  • Scheduling/trunk/m/i18n_log.log

    r874 r883  
    2424r858 | sam | 2010-07-13 09:58:25 +0300 (Tue, 13 Jul 2010) | 1 line
    2525Changed paths:
    26    M /Scheduling/trunk/m/BSDX29.m
     26#   M /Scheduling/trunk/m/BSDX29.m
    2727
    2828changes to BSDX29 for i18n
     
    3030r861 | sam | 2010-07-13 12:05:30 +0300 (Tue, 13 Jul 2010) | 1 line
    3131Changed paths:
    32    M /Scheduling/trunk/m/BSDX01.m
     32#   M /Scheduling/trunk/m/BSDX01.m
    3333
    3434Test update
     
    3636r862 | sam | 2010-07-13 12:07:13 +0300 (Tue, 13 Jul 2010) | 1 line
    3737Changed paths:
    38    M /Scheduling/trunk/m/BSDX01.m
     38#   M /Scheduling/trunk/m/BSDX01.m
    3939
    4040Test update
     
    4242r863 | sam | 2010-07-13 16:04:57 +0300 (Tue, 13 Jul 2010) | 1 line
    4343Changed paths:
    44    M /Scheduling/trunk/m/BSDX07.m
    45    M /Scheduling/trunk/m/BSDX12.m
    46    M /Scheduling/trunk/m/BSDX13.m
    47    M /Scheduling/trunk/m/BSDX33.m
     44#   M /Scheduling/trunk/m/BSDX07.m
     45#   M /Scheduling/trunk/m/BSDX12.m
     46#   M /Scheduling/trunk/m/BSDX13.m
     47#   M /Scheduling/trunk/m/BSDX33.m
    4848
    4949more i18n work
     
    5151r865 | sam | 2010-07-14 11:20:30 +0300 (Wed, 14 Jul 2010) | 1 line
    5252Changed paths:
    53    M /Scheduling/trunk/m/BSDX09.m
     53#   M /Scheduling/trunk/m/BSDX09.m
    5454
    5555Routine to pull extra registration data
     
    6969r871 | sam | 2010-07-14 15:55:40 +0300 (Wed, 14 Jul 2010) | 1 line
    7070Changed paths:
    71    M /Scheduling/trunk/m/BSDX09.m
     71#   M /Scheduling/trunk/m/BSDX09.m
    7272
    7373PID added insted of SNN
Note: See TracChangeset for help on using the changeset viewer.