Changeset 963 for Scheduling/trunk/m/BSDX32.m
- Timestamp:
- Sep 28, 2010, 9:37:08 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX32.m
r951 r963 20 20 HOSPLOC(BSDXY) ;EP 21 21 ;Called by BSDX HOSPITAL LOCATION 22 ;Returns all hospital locations that are active AND in the same division as the user 22 23 ; 23 24 N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD … … 33 34 . Q:'+BSDXIEN>0 34 35 . Q:'$D(^SC(+BSDXIEN,0)) 36 . Q:'$$INDIV^BSDX01(+BSDXIEN) ; if not in the same division, quit 35 37 . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE 36 38 . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE
Note:
See TracChangeset
for help on using the changeset viewer.