| [613] | 1 | FSCRPCW3 ;SLC/STAFF-NOIS RPC Web Page Solution ;7/22/98 15:11
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | SOL(ID,CNT) ; from FSCRPCWP
|
|---|
| 5 | N ADDRESS,EDITBY,EDITON,ENTERBY,ENTERON,LINE,NUM,PACKNAME,ZERO
|
|---|
| 6 | S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
|
|---|
| 7 | S ZERO=$G(^FSCD("WEB",ID,0)) I '$L(ZERO) Q
|
|---|
| 8 | S PACK=+$P(ZERO,U,2),PACKNAME=$P($G(^FSC("PACK",PACK,0)),U)
|
|---|
| 9 | S EDITBY=+$P(ZERO,U,5),EDITON=+$P(ZERO,U,6),ENTERBY=+$P(ZERO,U,3),ENTERON=+$P(ZERO,U,4)
|
|---|
| 10 | D SET("{SOLUTION}",.CNT)
|
|---|
| 11 | D SET("p"_ID_".htm",.CNT)
|
|---|
| 12 | D SET("<HTML>",.CNT)
|
|---|
| 13 | D SET("<HEAD>",.CNT)
|
|---|
| 14 | D SET("<TITLE> NOIS Solution </TITLE>",.CNT)
|
|---|
| 15 | D SET("</HEAD>",.CNT)
|
|---|
| 16 | D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
|
|---|
| 17 | D SET("<H1><CENTER>"_PACKNAME_" Solution</CENTER></H1>",.CNT)
|
|---|
| 18 | S LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"
|
|---|
| 19 | D SET(LINE_"<BR>",.CNT)
|
|---|
| 20 | S LINE="<a href="""_ADDRESS_"pack"_PACK_".htm"">"_PACKNAME_" Solutions</a>"
|
|---|
| 21 | D SET(LINE_"<BR>",.CNT)
|
|---|
| 22 | D SET("<HR>",.CNT)
|
|---|
| 23 | D SET("<P><B>Title: </B>"_$G(^FSCD("WEB",ID,1))_"</P>",.CNT)
|
|---|
| 24 | D SET("<P><B>Problem</B></P>",.CNT)
|
|---|
| 25 | D SET("<PRE>",.CNT)
|
|---|
| 26 | S NUM=0 F S NUM=$O(^FSCD("WEB",ID,2,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
|
|---|
| 27 | .D SET(LINE,.CNT)
|
|---|
| 28 | D SET("</PRE>",.CNT)
|
|---|
| 29 | D SET("<P><B>Solution</B></P>",.CNT)
|
|---|
| 30 | D SET("<PRE>",.CNT)
|
|---|
| 31 | S NUM=0 F S NUM=$O(^FSCD("WEB",ID,3,NUM)) Q:NUM<1 S LINE=^(NUM,0) D
|
|---|
| 32 | .D SET(LINE,.CNT)
|
|---|
| 33 | D SET("</PRE>",.CNT)
|
|---|
| 34 | D SET("<HR>",.CNT)
|
|---|
| 35 | S LINE="Entered by: "_$$MIXCASE^FSCXPOST($P($G(^VA(200,ENTERBY,0)),U))_" on "_$$FMTE^XLFDT(ENTERON)
|
|---|
| 36 | D SET(LINE_"<BR>",.CNT)
|
|---|
| 37 | S LINE="Last Edited by: "_$$MIXCASE^FSCXPOST($P($G(^VA(200,EDITBY,0)),U))_" on "_$$FMTE^XLFDT(EDITON)
|
|---|
| 38 | D SET(LINE,.CNT)
|
|---|
| 39 | D SET("</BODY>",.CNT)
|
|---|
| 40 | D SET("</HTML>",.CNT)
|
|---|
| 41 | D SET("{{{}}}",.CNT)
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | SET(LINE,CNT) ;
|
|---|
| 45 | S CNT=CNT+1
|
|---|
| 46 | S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
|
|---|
| 47 | Q
|
|---|
