source: FOIAVistA/trunk/r/NOIS-FSC/FSCRPCW2.m@ 1427

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1FSCRPCW2 ;SLC/STAFF-NOIS RPC Web Page Package ;7/23/98 16:49
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PACK(PACK,CNT) ; from FSCRPCWP
5 N ADDRESS,ID,LINE,NUM,PACKNAME,ZERO
6 S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
7 S PACKNAME=$P($G(^FSC("PACK",PACK,0)),U) I '$L(PACKNAME) Q
8 D SET("{PACKAGE}",.CNT)
9 D SET("pack"_PACK_".htm",.CNT)
10 D SET("<HTML>",.CNT)
11 D SET("<HEAD>",.CNT)
12 D SET("<TITLE> NOIS "_PACKNAME_" Solution</TITLE>",.CNT)
13 D SET("</HEAD>",.CNT)
14 D SET("<BODY TEXT=""#000000"" BGCOLOR=""#FFFFFF"">",.CNT)
15 D SET("<H1><CENTER>"_PACKNAME_" Solutions</CENTER></H1>",.CNT)
16 S LINE="<a href="""_ADDRESS_"main.htm"">"_"Solution Index"_"</a>"
17 D SET(LINE_"<BR>",.CNT)
18 S PACKPAGE=$G(^FSC("PACK",PACK,1.8)) I $L(PACKPAGE) D
19 .S LINE="<a href="""_PACKPAGE_""">"_PACKNAME_" Troubleshooting Page</a>"
20 .D SET(LINE_"<BR>",.CNT)
21 D SET("<HR>",.CNT)
22 S ID=0 F S ID=$O(^FSCD("WEB","C",PACK,ID)) Q:ID<1 D
23 .S TITLE=$G(^FSCD("WEB",ID,1))
24 .S LINE=TITLE ; add ahref
25 .S LINE="<a href="""_ADDRESS_"p"_ID_".htm"">"_TITLE_"</a>"
26 .D SET(LINE_"<BR>",.CNT)
27 D SET("</BODY>",.CNT)
28 D SET("</HTML>",.CNT)
29 D SET("{{{}}}",.CNT)
30 Q
31 ;
32SET(LINE,CNT) ;
33 S CNT=CNT+1
34 S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=LINE
35 Q
Note: See TracBrowser for help on using the repository browser.