source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCGI.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1FSCRPCGI ;SLC/STAFF-NOIS RPC Install Info ;1/11/98 15:24
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4MOD(MOD,DATE) ; from FSCRPCG
5 N CNT,DAY,LINE,NUM,NUM1,PACKAGE
6 S PACKAGE=+$P($G(^FSC("MOD",+$G(MOD),0)),U,8) I 'PACKAGE Q
7 S DATE=+$G(DATE) I 'DATE Q
8 S CNT=0
9 S DAY="" F S DAY=$O(^FSCD("STU MSG","APD",PACKAGE,DAY),-1) Q:DAY="" Q:DAY<DATE D
10 .S NUM="" F S NUM=$O(^FSCD("STU MSG","APD",PACKAGE,DAY,NUM),-1) Q:NUM="" D
11 ..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=""
12 ..S NUM1=0 F S NUM1=$O(^FSCD("STU MSG",NUM,1,NUM1)) Q:NUM1<1 S LINE=$G(^(NUM1,0)) D
13 ...S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
14 I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)=" No installs in this date range"
15 Q
16 ;
17SITE(SITE,DATE) ; from FSCRPCG
18 N CNT,DAY,LINE,NUM,NUM1
19 S SITE=+$G(SITE) I 'SITE Q
20 S DATE=+$G(DATE) I 'DATE Q
21 S CNT=0
22 S DAY="" F S DAY=$O(^FSCD("STU MSG","ASD",SITE,DAY),-1) Q:DAY="" Q:DAY<DATE D
23 .S NUM="" F S NUM=$O(^FSCD("STU MSG","ASD",SITE,DAY,NUM),-1) Q:NUM="" D
24 ..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=""
25 ..S NUM1=0 F S NUM1=$O(^FSCD("STU MSG",NUM,1,NUM1)) Q:NUM1<1 S LINE=$G(^(NUM1,0)) D
26 ...S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
27 I 'CNT S ^TMP("FSCRPC",$J,"OUTPUT",1)=" No installs in this date range"
28 Q
Note: See TracBrowser for help on using the repository browser.