source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCW.m@ 724

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1FSCRPCW ;SLC/STAFF-NOIS RPC Web ;7/22/98 12:12
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4FILL(IN,OUT) ; from FSCRPX (RPCFillURL)
5 N CALL,CONTACT,DEVSP,LOCTYPE,MOD,NUM,OFFICE,PACKAGE,SPEC,SUBCOMP,SYSTEM,TWO,VISN,WORKGP
6 S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
7 S NUM=0
8 S SITE=$P(^FSCD("CALL",CALL,0),U,5),CONTACT=$P(^(0),U,6),MOD=$P(^(0),U,8),SPEC=$P(^(0),U,9),OFFICE=$P(^(0),U,16),DEVSP=$P(^(0),U,21)
9 S TWO=$G(^FSCD("CALL",CALL,120)),PACKAGE=$P(TWO,U,9),SUBCOMP=$P(TWO,U,11),LOCTYPE=$P(TWO,U,12),WORKGP=$P(TWO,U,13),VISN=$P(TWO,U,15),SYSTEM=$P(TWO,U,19)
10 D SETUP("Default",$$WDEFAULT,.NUM)
11 D SETUP("Personal",$$WPERSON(DUZ),.NUM)
12 D SETUP("Functional Area",$$WFUNC(DUZ),.NUM)
13 D SETUP("Office",$$WOFFICE(OFFICE),.NUM)
14 D SETUP("VISN",$$WVISN(VISN),.NUM)
15 D SETUP("Location Type",$$WLOCTYPE(LOCTYPE),.NUM)
16 D SETUP("System",$$WSYSTEM(SYSTEM),.NUM)
17 D SETUP("Location",$$WSITE(SITE),.NUM)
18 D SETUP("Contact",$$WUSER(CONTACT),.NUM)
19 D SETUP("Specialist",$$WUSER(SPEC),.NUM)
20 D SETUP("Referral Specialist",$$WUSER(DEVSP),.NUM)
21 D SETUP("Work Group",$$WWORKGP(WORKGP),.NUM)
22 D SETUP("Package",$$WPACKAGE(PACKAGE),.NUM)
23 D SETUP("Subcomponent",$$WSUBCOMP(SUBCOMP),.NUM)
24 D SETUP("Module",$$WMOD(MOD),.NUM)
25 D SETUP("Solution Index",$$MAIN,.NUM)
26 D SETUP("Package Solutions",$$PACK(PACKAGE),.NUM)
27 D SETUP("Call",$$WCALL(CALL),.NUM)
28 Q
29SETUP(TEXT,VALUE,NUM) ;
30 I $L(VALUE) S NUM=NUM+1,^TMP("FSCRPC",$J,"OUTPUT",NUM)=TEXT_U_VALUE
31 Q
32 ;
33WDEFAULT() ; $$ -> system default url
34 Q $P($G(^FSC("PARAM",1,1.7)),U)
35 ;
36WSITE(SITE) ; $$(site) -> site url
37 Q $P($G(^FSC("SITE",+SITE,1.7)),U)
38 ;
39WPERSON(USER) ; $$(user) -> personal url
40 Q $P($G(^FSC("SPEC",+USER,1.8)),U)
41 ;
42WFUNC(USER) ; $$(user) -> user func area url
43 Q $P($G(^FSC("FUNC",+$P($G(^FSC("SPEC",+USER,0)),U,4),1.7)),U)
44 ;
45WUSER(USER) ; $$(user) -> user url
46 Q $P($G(^FSC("SPEC",+USER,1.7)),U)
47 ;
48WOFFICE(ISC) ; $$(office) -> office url
49 Q $P($G(^FSC("ISC",+ISC,1.7)),U)
50 ;
51WWORKGP(WORKGP) ; $$(work group) -> workgroup url
52 Q $P($G(^FSC("PACKG",+WORKGP,1.7)),U)
53 ;
54WLOCTYPE(LOCTYPE) ; $$(location type) -> location type url
55 Q $P($G(^FSC("LTYPE",+LOCTYPE,1.7)),U)
56 ;
57WSYSTEM(SYSTEM) ; $$(system) -> system url
58 Q $P($G(^FSC("SYSTEM",+SYSTEM,1.7)),U)
59 ;
60WVISN(VISN) ; $$(visn) -> visn url
61 Q $P($G(^FSC("VISN",+VISN,1.7)),U)
62 ;
63WPACKAGE(PACKAGE) ; $$(package) -> package url
64 Q $P($G(^FSC("PACK",+PACKAGE,1.7)),U)
65 ;
66WSUBCOMP(SUBCOMP) ; $$(subcomponent) -> subcomponent url
67 Q $P($G(^FSC("SUB",+SUBCOMP,1.7)),U)
68 ;
69WMOD(MOD) ; $$(module) -> module url
70 Q $P($G(^FSC("MOD",+MOD,1.7)),U)
71 ;
72MAIN() ; $$ -> main solution page
73 N ADDRESS
74 I '$P($G(^FSC("PARAM",1,2)),U,10) Q ""
75 I $L($P($G(^FSC("PARAM",1,1.8)),U))<3 Q ""
76 S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
77 I $L(ADDRESS)<3 Q ""
78 I '$O(^FSCD("WEB","C",0)) Q ""
79 Q ADDRESS_"main.htm"
80 ;
81PACK(PACK) ; $$(package) -> package solution page
82 N ADDRESS
83 I '$P($G(^FSC("PARAM",1,2)),U,10) Q ""
84 I $L($P($G(^FSC("PARAM",1,1.8)),U))<3 Q ""
85 S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
86 I $L(ADDRESS)<3 Q ""
87 I '$O(^FSCD("WEB","C",+PACK,0)) Q ""
88 Q ADDRESS_"pack"_PACK_".htm"
89 ;
90WCALL(CALL) ; $$(call) -> call url
91 Q $P($G(^FSCD("CALL",+CALL,1.7)),U)
92 ;
93ATTACH(IN,OUT) ; from FSCRPX (RPCAttachURL)
94 N CALL,DA,DIE,DR,NEWV,OLDV,URL,X,Y K NEWV,OLDV
95 S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1)),URL=$P(^(1),U,2)
96 Q:'$D(^FSCD("CALL",CALL,0)) Q:'$L(URL)
97 S OLDV("WEB")=U_$P($G(^FSCD("CALL",CALL,1.7)),U)
98 S DA=CALL,DR="1.7///"_URL,DIE="^FSCD(""CALL"","
99 D ^DIE
100 S NEWV("WEB")=U_$P($G(^FSCD("CALL",CALL,1.7)),U)
101 D AUDIT^FSCAUDIT(CALL,.OLDV,.NEWV)
102 K NEWV,OLDV
103 Q
Note: See TracBrowser for help on using the repository browser.