FSCRPCW3 ;SLC/STAFF-NOIS RPC Web Page Solution ;7/22/98 15:11
;;1.1;NOIS;;Sep 06, 1998
;
SOL(ID,CNT) ; from FSCRPCWP
N ADDRESS,EDITBY,EDITON,ENTERBY,ENTERON,LINE,NUM,PACKNAME,ZERO
S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
S ZERO=$G(^FSCD("WEB",ID,0)) I '$L(ZERO) Q
S PACK=+$P(ZERO,U,2),PACKNAME=$P($G(^FSC("PACK",PACK,0)),U)
S EDITBY=+$P(ZERO,U,5),EDITON=+$P(ZERO,U,6),ENTERBY=+$P(ZERO,U,3),ENTERON=+$P(ZERO,U,4)
D SET("{SOLUTION}",.CNT)
D SET("p"_ID_".htm",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET(" NOIS Solution ",.CNT)
D SET("",.CNT)
D SET("",.CNT)
D SET(""_PACKNAME_" Solution
",.CNT)
S LINE=""_"Solution Index"_""
D SET(LINE_"
",.CNT)
S LINE=""_PACKNAME_" Solutions"
D SET(LINE_"
",.CNT)
D SET("
",.CNT)
D SET("Title: "_$G(^FSCD("WEB",ID,1))_"
",.CNT)
D SET("Problem
",.CNT)
D SET("",.CNT)
S NUM=0 F S NUM=$O(^FSCD("WEB",ID,2,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
.D SET(LINE,.CNT)
D SET("",.CNT)
D SET("Solution
",.CNT)
D SET("",.CNT)
S NUM=0 F S NUM=$O(^FSCD("WEB",ID,3,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
.D SET(LINE,.CNT)
D SET("",.CNT)
D SET("
",.CNT)
S LINE="Entered by: "_$$MIXCASE^FSCXPOST($P($G(^VA(200,ENTERBY,0)),U))_" on "_$$FMTE^XLFDT(ENTERON)
D SET(LINE_"
",.CNT)
S LINE="Last Edited by: "_$$MIXCASE^FSCXPOST($P($G(^VA(200,EDITBY,0)),U))_" on "_$$FMTE^XLFDT(EDITON)
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