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("",.CNT)
D SET("",.CNT)
D SET(" NOIS "_PACKNAME_" Solution",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET(""_PACKNAME_" Solutions
",.CNT)
S LINE=""_"Solution Index"_""
D SET(LINE_"
",.CNT)
S PACKPAGE=$G(^FSC("PACK",PACK,1.8)) I $L(PACKPAGE) D
.S LINE=""_PACKNAME_" Troubleshooting Page"
.D SET(LINE_"
",.CNT)
D SET("
",.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=""_TITLE_""
.D SET(LINE_"
",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET("{{{}}}",.CNT)
Q
;
SET(LINE,CNT) ;
S CNT=CNT+1
S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
Q