Changeset 1005 for Scheduling


Ignore:
Timestamp:
Nov 12, 2010, 11:38:15 AM (14 years ago)
Author:
Sam Habiel
Message:

fixing white space

File:
1 edited

Legend:

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

    r968 r1005  
    1 BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 9/7/10 7:59am
     1BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 11/2/10 4:27pm
    22        ;;1.41;BSDX;;Sep 29, 2010
    33        ;
     
    88        ;
    99ERR(BSDXERR)    ;Error processing
    10            D ^%ZTER
     10        D ^%ZTER
    1111        S BSDXI=BSDXI+1
    12            S ^BSDXTMP($J,BSDXI)=BSDXERR
    13            S BSDXI=BSDXI+1
     12        S ^BSDXTMP($J,BSDXI)=BSDXERR
     13        S BSDXI=BSDXI+1
    1414        S ^BSDXTMP($J,BSDXI)=$C(31)
    1515        Q
     
    2222        ;
    2323P(BSDXY,HLIEN)  ; Public Entry point; Get Providers for Hosp Location
    24            ; Input: HLIEN - Hospital Location IEN
    25            ; Output: ADO Datatable with columns:
    26            ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
    27            ; If there are providers in the PROVIDER multiple of file 44
    28            ; (Hospital Location) return them;
    29            ; If no providers in PROVIDER multiple of file 44, return nothing
     24        ; Input: HLIEN - Hospital Location IEN
     25        ; Output: ADO Datatable with columns:
     26        ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
     27        ; If there are providers in the PROVIDER multiple of file 44
     28        ; (Hospital Location) return them;
     29        ; If no providers in PROVIDER multiple of file 44, return nothing
    3030        ; Called by BSDX HOSP LOC PROVIDERS
    3131        ;
    3232        S BSDXI=0
    33            I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
     33        I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
    3434        D ^XBKVAR
    35            N $ET S $ET="G ERROR^BSDXGPRV"
     35        N $ET S $ET="G ERROR^BSDXGPRV"
    3636        K ^BSDXTMP($J)
    3737        S BSDXY=$NA(^BSDXTMP($J))
    3838        S $P(^BSDXTMP($J,BSDXI),U,1)="I00020HOSPITAL_LOCATION_ID"
    39            S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
    40            S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
    41            S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
    42            S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
     39        S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
     40        S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
     41        S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
     42        S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
    4343        ;
    44            N OUTPUT
    45            D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
    46            ; No results
    47            I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
    48            ; if results, get them
    49            N I S I=""
    50            F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
    51            . S BSDXI=BSDXI+1
    52            . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
    53            . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
    54            . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
    55            . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
    56            . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
     44        N OUTPUT
     45        D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
     46        ; No results
     47        I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
     48        ; if results, get them
     49        N I S I=""
     50        F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
     51        . S BSDXI=BSDXI+1
     52        . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
     53        . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
     54        . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
     55        . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
     56        . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
    5757        S BSDXI=BSDXI+1
    5858        S ^BSDXTMP($J,BSDXI)=$C(31)
Note: See TracChangeset for help on using the changeset viewer.