| [613] | 1 | FSCRPCW2 ;SLC/STAFF-NOIS RPC Web Page Package ;7/23/98 16:49
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PACK(PACK,CNT) ; from FSCRPCWP
|
|---|
| 5 | N ADDRESS,ID,LINE,NUM,PACKNAME,ZERO
|
|---|
| 6 | S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
|
|---|
| 7 | S PACKNAME=$P($G(^FSC("PACK",PACK,0)),U) I '$L(PACKNAME) Q
|
|---|
| 8 | D SET("{PACKAGE}",.CNT)
|
|---|
| 9 | D SET("pack"_PACK_".htm",.CNT)
|
|---|
| 10 | D SET("<HTML>",.CNT)
|
|---|
| 11 | D SET("<HEAD>",.CNT)
|
|---|
| 12 | D SET("<TITLE> NOIS "_PACKNAME_" Solution</TITLE>",.CNT)
|
|---|
| 13 | D SET("</HEAD>",.CNT)
|
|---|
| 14 | D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
|
|---|
| 15 | D SET("<H1><CENTER>"_PACKNAME_" Solutions</CENTER></H1>",.CNT)
|
|---|
| 16 | S LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"
|
|---|
| 17 | D SET(LINE_"<BR>",.CNT)
|
|---|
| 18 | S PACKPAGE=$G(^FSC("PACK",PACK,1.8)) I $L(PACKPAGE) D
|
|---|
| 19 | .S LINE="<a href="""_PACKPAGE_""">"_PACKNAME_" Troubleshooting Page</a>"
|
|---|
| 20 | .D SET(LINE_"<BR>",.CNT)
|
|---|
| 21 | D SET("<HR>",.CNT)
|
|---|
| 22 | S ID=0 F S ID=$O(^FSCD("WEB","C",PACK,ID)) Q:ID<1 D
|
|---|
| 23 | .S TITLE=$G(^FSCD("WEB",ID,1))
|
|---|
| 24 | .S LINE=TITLE ; add ahref
|
|---|
| 25 | .S LINE="<a href="""_ADDRESS_"p"_ID_".htm"">"_TITLE_"</a>"
|
|---|
| 26 | .D SET(LINE_"<BR>",.CNT)
|
|---|
| 27 | D SET("</BODY>",.CNT)
|
|---|
| 28 | D SET("</HTML>",.CNT)
|
|---|
| 29 | D SET("{{{}}}",.CNT)
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | SET(LINE,CNT) ;
|
|---|
| 33 | S CNT=CNT+1
|
|---|
| 34 | S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 35 | Q
|
|---|
