- 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 Apr 23, 2025@18:34:31 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
