Changeset 1005 for Scheduling/trunk/m

Timestamp:

Nov 12, 2010, 11:38:15 AM (14 years ago)

Author:

Sam Habiel

Message:

fixing white space

File:

• Scheduling/trunk/m/BSDXGPRV.m (modified) (3 diffs)

Scheduling/trunk/m/BSDXGPRV.m

@@ -1 @@
-BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 9/7/10 7:59am
+BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 11/2/10 4:27pm
         ;;1.41;BSDX;;Sep 29, 2010
         ;
@@ -8 +8 @@
         ;
 ERR(BSDXERR)    ;Error processing
-           D ^%ZTER
+        D ^%ZTER
         S BSDXI=BSDXI+1
-           S ^BSDXTMP($J,BSDXI)=BSDXERR
-           S BSDXI=BSDXI+1
+        S ^BSDXTMP($J,BSDXI)=BSDXERR
+        S BSDXI=BSDXI+1
         S ^BSDXTMP($J,BSDXI)=$C(31)
         Q
@@ -22 +22 @@
         ;
 P(BSDXY,HLIEN)  ; Public Entry point; Get Providers for Hosp Location
-           ; Input: HLIEN - Hospital Location IEN
-           ; Output: ADO Datatable with columns:
-           ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
-           ; If there are providers in the PROVIDER multiple of file 44 
-           ; (Hospital Location) return them;
-           ; If no providers in PROVIDER multiple of file 44, return nothing
+        ; Input: HLIEN - Hospital Location IEN
+        ; Output: ADO Datatable with columns:
+        ; - HOSPITAL_LOCATION_ID, BMXIEN, PROV_NAME, DEFAULT
+        ; If there are providers in the PROVIDER multiple of file 44 
+        ; (Hospital Location) return them;
+        ; If no providers in PROVIDER multiple of file 44, return nothing
         ; Called by BSDX HOSP LOC PROVIDERS
         ;
         S BSDXI=0
-           I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
+        I '$D(^SC(HLIEN,0)) D ERR("HOSPITAL LOCATION NOT FOUND") QUIT
         D ^XBKVAR 
-           N $ET S $ET="G ERROR^BSDXGPRV"
+        N $ET S $ET="G ERROR^BSDXGPRV"
         K ^BSDXTMP($J)
         S BSDXY=$NA(^BSDXTMP($J))
         S $P(^BSDXTMP($J,BSDXI),U,1)="I00020HOSPITAL_LOCATION_ID"
-           S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
-           S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
-           S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
-           S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+        S $P(^BSDXTMP($J,BSDXI),U,2)="I00020BMXIEN"
+        S $P(^BSDXTMP($J,BSDXI),U,3)="T00030NAME"
+        S $P(^BSDXTMP($J,BSDXI),U,4)="T00005DEFAULT"
+        S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
         ;
-           N OUTPUT
-           D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
-           ; No results
-           I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
-           ; if results, get them
-           N I S I=""
-           F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
-           . S BSDXI=BSDXI+1
-           . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
-           . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
-           . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
-           . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
-           . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
+        N OUTPUT
+        D GETS^DIQ(44,HLIEN_",","2600*","IE","OUTPUT") ; Provider Multiple
+        ; No results
+        I '$D(OUTPUT) S ^BSDXTMP($J,BSDXI+1)=$C(31) QUIT
+        ; if results, get them
+        N I S I=""
+        F  S I=$O(OUTPUT(44.1,I)) Q:I=""  D
+        . S BSDXI=BSDXI+1
+        . S $P(^BSDXTMP($J,BSDXI),U,1)=HLIEN                  ; HL IEN
+        . S $P(^BSDXTMP($J,BSDXI),U,2)=$P(OUTPUT(44.1,I,.01,"I"),",") ; PROV IEN
+        . S $P(^BSDXTMP($J,BSDXI),U,3)=$E(OUTPUT(44.1,I,.01,"E"),1,30) ; PROV NAME
+        . S $P(^BSDXTMP($J,BSDXI),U,4)=OUTPUT(44.1,I,.02,"E") ; Default - YES, NO
+        . S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_$C(30)
         S BSDXI=BSDXI+1
         S ^BSDXTMP($J,BSDXI)=$C(31)