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("<HTML>",.CNT)
D SET("<HEAD>",.CNT)
D SET("<TITLE> NOIS Solution </TITLE>",.CNT)
D SET("</HEAD>",.CNT)
D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
D SET("<H1><CENTER>"_PACKNAME_" Solution</CENTER></H1>",.CNT)
S LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"
D SET(LINE_"<BR>",.CNT)
S LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_" Solutions</a>"
D SET(LINE_"<BR>",.CNT)
D SET("<HR>",.CNT)
D SET("<P><B>Title: </B>"_$G(^FSCD("WEB",ID,1))_"</P>",.CNT)
D SET("<P><B>Problem</B></P>",.CNT)
D SET("<PRE>",.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("</PRE>",.CNT)
D SET("<P><B>Solution</B></P>",.CNT)
D SET("<PRE>",.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("</PRE>",.CNT)
D SET("<HR>",.CNT)
S LINE="Entered by: "_$$MIXCASE^FSCXPOST($P($G(^VA(200,ENTERBY,0)),U))_" on "_$$FMTE^XLFDT(ENTERON)
D SET(LINE_"<BR>",.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("</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[HFSCRPCW3 1785 printed Nov 22, 2024@17:29:58 Page 2
FSCRPCW3 ;SLC/STAFF-NOIS RPC Web Page Solution ;7/22/98 15:11
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
SOL(ID,CNT) ; from FSCRPCWP
+1 NEW ADDRESS,EDITBY,EDITON,ENTERBY,ENTERON,LINE,NUM,PACKNAME,ZERO
+2 SET ADDRESS=$PIECE($GET(^FSC("PARAM",1,1.8)),U,2)
+3 SET ZERO=$GET(^FSCD("WEB",ID,0))
IF '$LENGTH(ZERO)
QUIT
+4 SET PACK=+$PIECE(ZERO,U,2)
SET PACKNAME=$PIECE($GET(^FSC("PACK",PACK,0)),U)
+5 SET EDITBY=+$PIECE(ZERO,U,5)
SET EDITON=+$PIECE(ZERO,U,6)
SET ENTERBY=+$PIECE(ZERO,U,3)
SET ENTERON=+$PIECE(ZERO,U,4)
+6 DO SET("{SOLUTION}",.CNT)
+7 DO SET("p"_ID_".htm",.CNT)
+8 DO SET("<HTML>",.CNT)
+9 DO SET("<HEAD>",.CNT)
+10 DO SET("<TITLE> NOIS Solution </TITLE>",.CNT)
+11 DO SET("</HEAD>",.CNT)
+12 DO SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
+13 DO SET("<H1><CENTER>"_PACKNAME_" Solution</CENTER></H1>",.CNT)
+14 SET LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"
+15 DO SET(LINE_"<BR>",.CNT)
+16 SET LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_" Solutions</a>"
+17 DO SET(LINE_"<BR>",.CNT)
+18 DO SET("<HR>",.CNT)
+19 DO SET("<P><B>Title: </B>"_$GET(^FSCD("WEB",ID,1))_"</P>",.CNT)
+20 DO SET("<P><B>Problem</B></P>",.CNT)
+21 DO SET("<PRE>",.CNT)
+22 SET NUM=0
FOR
SET NUM=$ORDER(^FSCD("WEB",ID,2,NUM))
if NUM<1
QUIT
SET LINE=^(NUM,0)
Begin DoDot:1
+23 DO SET(LINE,.CNT)
End DoDot:1
+24 DO SET("</PRE>",.CNT)
+25 DO SET("<P><B>Solution</B></P>",.CNT)
+26 DO SET("<PRE>",.CNT)
+27 SET NUM=0
FOR
SET NUM=$ORDER(^FSCD("WEB",ID,3,NUM))
if NUM<1
QUIT
SET LINE=^(NUM,0)
Begin DoDot:1
+28 DO SET(LINE,.CNT)
End DoDot:1
+29 DO SET("</PRE>",.CNT)
+30 DO SET("<HR>",.CNT)
+31 SET LINE="Entered by: "_$$MIXCASE^FSCXPOST($PIECE($GET(^VA(200,ENTERBY,0)),U))_" on "_$$FMTE^XLFDT(ENTERON)
+32 DO SET(LINE_"<BR>",.CNT)
+33 SET LINE="Last Edited by: "_$$MIXCASE^FSCXPOST($PIECE($GET(^VA(200,EDITBY,0)),U))_" on "_$$FMTE^XLFDT(EDITON)
+34 DO SET(LINE,.CNT)
+35 DO SET("</BODY>",.CNT)
+36 DO SET("</HTML>",.CNT)
+37 DO SET("{{{}}}",.CNT)
+38 QUIT
+39 ;
SET(LINE,CNT) ;
+1 SET CNT=CNT+1
+2 SET ^TMP("FSCRPC",$JOB,"OUTPUT",CNT)=LINE
+3 QUIT
