Routine: FSCRPCW1

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)

SET(LINE,CNT) ;

 S CNT=CNT+1

 S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCW1   984     printed  Apr 09, 2024@21:21:48                                                                                                                                                                                                     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

FSCRPCW1.m