| [613] | 1 | FSCRPCW1 ;SLC/STAFF-NOIS RPC Web Page Main ;7/22/98 15:16
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | MAIN(CNT) ; from FSCRPCWP
|
|---|
| 5 | N ADDRESS,LINE,NUM,PACK,PACKNAME,ZERO
|
|---|
| 6 | S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
|
|---|
| 7 | D SET("{MAIN}",.CNT)
|
|---|
| 8 | D SET("main.htm",.CNT)
|
|---|
| 9 | D SET("<HTML>",.CNT)
|
|---|
| 10 | D SET("<HEAD>",.CNT)
|
|---|
| 11 | D SET("<TITLE>NOIS Solution Index</TITLE>",.CNT)
|
|---|
| 12 | D SET("</HEAD>",.CNT)
|
|---|
| 13 | D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
|
|---|
| 14 | D SET("<H1><CENTER>Solution Index</CENTER></H1>",.CNT)
|
|---|
| 15 | D SET("<HR>",.CNT)
|
|---|
| 16 | D SET("<P><B>Packages:</B></P>",.CNT)
|
|---|
| 17 | S PACKNAME="" F S PACKNAME=$O(^FSC("PACK","B",PACKNAME)) Q:PACKNAME="" D
|
|---|
| 18 | .S PACK=0 F S PACK=$O(^FSC("PACK","B",PACKNAME,PACK)) Q:PACK<1 D
|
|---|
| 19 | ..I '$O(^FSCD("WEB","C",PACK,0)) Q
|
|---|
| 20 | ..S LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_"</a>"
|
|---|
| 21 | ..D SET(LINE_"<BR>",.CNT)
|
|---|
| 22 | D SET("</BODY>",.CNT)
|
|---|
| 23 | D SET("</HTML>",.CNT)
|
|---|
| 24 | D SET("{{{}}}",.CNT)
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | SET(LINE,CNT) ;
|
|---|
| 28 | S CNT=CNT+1
|
|---|
| 29 | S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 30 | Q
|
|---|
