source: FOIAVistA/trunk/r/NOIS-FSC/FSCRPCW3.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1FSCRPCW3 ;SLC/STAFF-NOIS RPC Web Page Solution ;7/22/98 15:11
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4SOL(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 ;
44SET(LINE,CNT) ;
45 S CNT=CNT+1
46 S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
47 Q
Note: See TracBrowser for help on using the repository browser.