FSCRPCW1 ;SLC/STAFF-NOIS RPC Web Page Main ;7/22/98 15:16
;;1.1;NOIS;;Sep 06, 1998
;
MAIN(CNT) ; from FSCRPCWP
N ADDRESS,LINE,NUM,PACK,PACKNAME,ZERO
S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
D SET("{MAIN}",.CNT)
D SET("main.htm",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET("NOIS Solution Index",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET("Solution Index
",.CNT)
D SET("
",.CNT)
D SET("Packages:
",.CNT)
S PACKNAME="" F S PACKNAME=$O(^FSC("PACK","B",PACKNAME)) Q:PACKNAME="" D
.S PACK=0 F S PACK=$O(^FSC("PACK","B",PACKNAME,PACK)) Q:PACK<1 D
..I '$O(^FSCD("WEB","C",PACK,0)) Q
..S LINE=""_PACKNAME_""
..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