Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
845 bytes
|
Rev | Line | |
---|
[613] | 1 | SD53167P ;ALB/JDS - Patch 218 postinit ; Nov 16 1998
|
---|
| 2 | ;;5.3;Scheduling;**167**;AUG 13, 1993
|
---|
| 3 | ;go through hopital location file printing clinics with '0' starttime
|
---|
| 4 | N A,SCCNT,XPDIDTOT,SC D MES^XPDUTL("Searching for Clinics with HOUR CLINC DISPLAY BEGINS of '0'")
|
---|
| 5 | S A="",SCCNT=0
|
---|
| 6 | F S A=$O(^SC("B",A)) Q:A="" F SC=0:0 S SC=$O(^SC("B",A,SC)) Q:'SC I $P($G(^SC(SC,"SL")),U,3)=0 D
|
---|
| 7 | .D MES^XPDUTL($P($G(^SC(SC,0)),U)) S SCCNT=SCCNT+1
|
---|
| 8 | I 'SCCNT D MES^XPDUTL("No clinics with HOUR CLINIC DISPLAY BEGINS of '0' found") Q
|
---|
| 9 | D MES^XPDUTL(SCCNT_" Clinics Identified")
|
---|
| 10 | D MES^XPDUTL("The beginning display time for these clinics will be midnight")
|
---|
| 11 | D MES^XPDUTL("To maintain the current start time use the Set up a Clinic [SDBUILD] OPTION")
|
---|
| 12 | D MES^XPDUTL("Select the Clinic")
|
---|
| 13 | D MES^XPDUTL("Enter '^HOUR' and delete the HOUR CLINIC DISPLAY BEGINS value")
|
---|
Note:
See
TracBrowser
for help on using the repository browser.