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)
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[HFSCRPCW2 1214 printed Nov 22, 2024@17:29:57 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
