| [613] | 1 | FSCRPCGI ;SLC/STAFF-NOIS RPC Install Info ;1/11/98 15:24
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | MOD(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 | ;
|
|---|
| 17 | SITE(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
|
|---|
