fixing white space
This commit is contained in:
parent
ab1b3f7990
commit
bb2537815a
58
m/BSDXGPRV.m
58
m/BSDXGPRV.m
|
@ -1,4 +1,4 @@
|
|||
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
|
||||
;
|
||||
;
|
||||
|
@ -7,10 +7,10 @@ ERROR ;
|
|||
Q
|
||||
;
|
||||
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,39 +21,39 @@ PD(BSDXY,HLIEN) ;EP Debugging entry point
|
|||
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
|
||||
; 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)
|
||||
QUIT
|
||||
|
|
Loading…
Reference in New Issue