source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCW1.m@ 767

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

initial load of WorldVistAEHR

File size: 954 bytes
Line 
1FSCRPCW1 ;SLC/STAFF-NOIS RPC Web Page Main ;7/22/98 15:16
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4MAIN(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 ;
27SET(LINE,CNT) ;
28 S CNT=CNT+1
29 S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
30 Q
Note: See TracBrowser for help on using the repository browser.