Routine: FSCRPCW2

FSCRPCW2 ;SLC/STAFF-NOIS RPC Web Page Package ;7/23/98  16:49

 ;;1.1;NOIS;;Sep 06, 1998

PACK(PACK,CNT) ; from FSCRPCWP

 N ADDRESS,ID,LINE,NUM,PACKNAME,ZERO

 S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)

 S PACKNAME=$P($G(^FSC("PACK",PACK,0)),U) I '$L(PACKNAME) Q

 D SET("{PACKAGE}",.CNT)

 D SET("pack"_PACK_".htm",.CNT)

 D SET("<HTML>",.CNT)

 D SET("<HEAD>",.CNT)

 D SET("<TITLE> NOIS "_PACKNAME_" Solution</TITLE>",.CNT)

 D SET("</HEAD>",.CNT)

 D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)

 D SET("<H1><CENTER>"_PACKNAME_" Solutions</CENTER></H1>",.CNT)

 S LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"

 D SET(LINE_"<BR>",.CNT)

 S PACKPAGE=$G(^FSC("PACK",PACK,1.8)) I $L(PACKPAGE) D

 .S LINE="<a href="""_PACKPAGE_""">"_PACKNAME_" Troubleshooting Page</a>"

 .D SET(LINE_"<BR>",.CNT)

 D SET("<HR>",.CNT)

 S ID=0 F  S ID=$O(^FSCD("WEB","C",PACK,ID)) Q:ID<1  D

 .S TITLE=$G(^FSCD("WEB",ID,1))

 .S LINE=TITLE ; add ahref

 .S LINE="<a href="""_ADDRESS_"p"_ID_".htm"">"_TITLE_"</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[HFSCRPCW2   1214     printed  Apr 09, 2024@21:21:35                                                                                                                                                                                                    Page 2

FSCRPCW2  ;SLC/STAFF-NOIS RPC Web Page Package ;7/23/98  16:49

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

PACK(PACK,CNT) ; from FSCRPCWP

 +1        NEW ADDRESS,ID,LINE,NUM,PACKNAME,ZERO

 +2        SET ADDRESS=$PIECE($GET(^FSC("PARAM",1,1.8)),U,2)

 +3        SET PACKNAME=$PIECE($GET(^FSC("PACK",PACK,0)),U)

           IF '$LENGTH(PACKNAME)

               QUIT

 +4        DO SET("{PACKAGE}",.CNT)

 +5        DO SET("pack"_PACK_".htm",.CNT)

 +6        DO SET("<HTML>",.CNT)

 +7        DO SET("<HEAD>",.CNT)

 +8        DO SET("<TITLE> NOIS "_PACKNAME_" Solution</TITLE>",.CNT)

 +9        DO SET("</HEAD>",.CNT)

 +10       DO SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)

 +11       DO SET("<H1><CENTER>"_PACKNAME_" Solutions</CENTER></H1>",.CNT)

 +12       SET LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"

 +13       DO SET(LINE_"<BR>",.CNT)

 +14       SET PACKPAGE=$GET(^FSC("PACK",PACK,1.8))

           IF $LENGTH(PACKPAGE)

               Begin DoDot:1

 +15               SET LINE="<a href="""_PACKPAGE_""">"_PACKNAME_" Troubleshooting Page</a>"

 +16               DO SET(LINE_"<BR>",.CNT)

               End DoDot:1

 +17       DO SET("<HR>",.CNT)

 +18       SET ID=0

FOR

               SET ID=$ORDER(^FSCD("WEB","C",PACK,ID))

               if ID<1

                   QUIT

               Begin DoDot:1

 +19               SET TITLE=$GET(^FSCD("WEB",ID,1))

 +20      ; add ahref

                   SET LINE=TITLE

 +21               SET LINE="<a href="""_ADDRESS_"p"_ID_".htm"">"_TITLE_"</a>"

 +22               DO SET(LINE_"<BR>",.CNT)

               End DoDot:1

 +23       DO SET("</BODY>",.CNT)

 +24       DO SET("</HTML>",.CNT)

 +25       DO SET("{{{}}}",.CNT)

 +26       QUIT

 +27      ;

SET(LINE,CNT) ;

 +1        SET CNT=CNT+1

 +2        SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE

 +3        QUIT

FSCRPCW2.m