FSCRPCW1 ;SLC/STAFF-NOIS RPC Web Page Main ;7/22/98 15:16
;;1.1;NOIS;;Sep 06, 1998
;
MAIN(CNT) ; from FSCRPCWP
N ADDRESS,LINE,NUM,PACK,PACKNAME,ZERO
S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
D SET("{MAIN}",.CNT)
D SET("main.htm",.CNT)
D SET("<HTML>",.CNT)
D SET("<HEAD>",.CNT)
D SET("<TITLE>NOIS Solution Index</TITLE>",.CNT)
D SET("</HEAD>",.CNT)
D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
D SET("<H1><CENTER>Solution Index</CENTER></H1>",.CNT)
D SET("<HR>",.CNT)
D SET("<P><B>Packages:</B></P>",.CNT)
S PACKNAME="" F S PACKNAME=$O(^FSC("PACK","B",PACKNAME)) Q:PACKNAME="" D
.S PACK=0 F S PACK=$O(^FSC("PACK","B",PACKNAME,PACK)) Q:PACK<1 D
..I '$O(^FSCD("WEB","C",PACK,0)) Q
..S LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_"</a>"
..D SET(LINE_"<BR>",.CNT)
D SET("</BODY>",.CNT)
D SET("</HTML>",.CNT)
D SET("{{{}}}",.CNT)
Q
;
SET(LINE,CNT) ;
S CNT=CNT+1
S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCW1 984 printed Nov 22, 2024@17:29:56 Page 2
FSCRPCW1 ;SLC/STAFF-NOIS RPC Web Page Main ;7/22/98 15:16
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
MAIN(CNT) ; from FSCRPCWP
+1 NEW ADDRESS,LINE,NUM,PACK,PACKNAME,ZERO
+2 SET ADDRESS=$PIECE($GET(^FSC("PARAM",1,1.8)),U,2)
+3 DO SET("{MAIN}",.CNT)
+4 DO SET("main.htm",.CNT)
+5 DO SET("<HTML>",.CNT)
+6 DO SET("<HEAD>",.CNT)
+7 DO SET("<TITLE>NOIS Solution Index</TITLE>",.CNT)
+8 DO SET("</HEAD>",.CNT)
+9 DO SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
+10 DO SET("<H1><CENTER>Solution Index</CENTER></H1>",.CNT)
+11 DO SET("<HR>",.CNT)
+12 DO SET("<P><B>Packages:</B></P>",.CNT)
+13 SET PACKNAME=""
FOR
SET PACKNAME=$ORDER(^FSC("PACK","B",PACKNAME))
if PACKNAME=""
QUIT
Begin DoDot:1
+14 SET PACK=0
FOR
SET PACK=$ORDER(^FSC("PACK","B",PACKNAME,PACK))
if PACK<1
QUIT
Begin DoDot:2
+15 IF '$ORDER(^FSCD("WEB","C",PACK,0))
QUIT
+16 SET LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_"</a>"
+17 DO SET(LINE_"<BR>",.CNT)
End DoDot:2
End DoDot:1
+18 DO SET("</BODY>",.CNT)
+19 DO SET("</HTML>",.CNT)
+20 DO SET("{{{}}}",.CNT)
+21 QUIT
+22 ;
SET(LINE,CNT) ;
+1 SET CNT=CNT+1
+2 SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE
+3 QUIT
