- 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 Mar 13, 2025@21:24:55 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
