Changeset 888 for Scheduling/trunk/m/BSDXGPRV.m

Timestamp:

Jul 18, 2010, 9:58:35 AM (14 years ago)

Author:

Sam Habiel

Message:

Updated version numbers

File:

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

Scheduling/trunk/m/BSDXGPRV.m

@@ -1 +1 @@
 BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 6/10/10 9:01pm
-        ;;1.1;IHS WINDOWS SCHEDULING;;NOV 01, 2007
+        ;;1.3T1;BSDX;;Jul 18, 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
@@ -21 +21 @@
         Q
         ;
-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
+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
         ; 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)