FSCRPCW ;SLC/STAFF-NOIS RPC Web ;7/22/98 12:12
;;1.1;NOIS;;Sep 06, 1998
;
FILL(IN,OUT) ; from FSCRPX (RPCFillURL)
N CALL,CONTACT,DEVSP,LOCTYPE,MOD,NUM,OFFICE,PACKAGE,SPEC,SUBCOMP,SYSTEM,TWO,VISN,WORKGP
S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
S NUM=0
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)
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)
D SETUP("Default",$$WDEFAULT,.NUM)
D SETUP("Personal",$$WPERSON(DUZ),.NUM)
D SETUP("Functional Area",$$WFUNC(DUZ),.NUM)
D SETUP("Office",$$WOFFICE(OFFICE),.NUM)
D SETUP("VISN",$$WVISN(VISN),.NUM)
D SETUP("Location Type",$$WLOCTYPE(LOCTYPE),.NUM)
D SETUP("System",$$WSYSTEM(SYSTEM),.NUM)
D SETUP("Location",$$WSITE(SITE),.NUM)
D SETUP("Contact",$$WUSER(CONTACT),.NUM)
D SETUP("Specialist",$$WUSER(SPEC),.NUM)
D SETUP("Referral Specialist",$$WUSER(DEVSP),.NUM)
D SETUP("Work Group",$$WWORKGP(WORKGP),.NUM)
D SETUP("Package",$$WPACKAGE(PACKAGE),.NUM)
D SETUP("Subcomponent",$$WSUBCOMP(SUBCOMP),.NUM)
D SETUP("Module",$$WMOD(MOD),.NUM)
D SETUP("Solution Index",$$MAIN,.NUM)
D SETUP("Package Solutions",$$PACK(PACKAGE),.NUM)
D SETUP("Call",$$WCALL(CALL),.NUM)
Q
SETUP(TEXT,VALUE,NUM) ;
I $L(VALUE) S NUM=NUM+1,^TMP("FSCRPC",$J,"OUTPUT",NUM)=TEXT_U_VALUE
Q
;
WDEFAULT() ; $$ -> system default url
Q $P($G(^FSC("PARAM",1,1.7)),U)
;
WSITE(SITE) ; $$(site) -> site url
Q $P($G(^FSC("SITE",+SITE,1.7)),U)
;
WPERSON(USER) ; $$(user) -> personal url
Q $P($G(^FSC("SPEC",+USER,1.8)),U)
;
WFUNC(USER) ; $$(user) -> user func area url
Q $P($G(^FSC("FUNC",+$P($G(^FSC("SPEC",+USER,0)),U,4),1.7)),U)
;
WUSER(USER) ; $$(user) -> user url
Q $P($G(^FSC("SPEC",+USER,1.7)),U)
;
WOFFICE(ISC) ; $$(office) -> office url
Q $P($G(^FSC("ISC",+ISC,1.7)),U)
;
WWORKGP(WORKGP) ; $$(work group) -> workgroup url
Q $P($G(^FSC("PACKG",+WORKGP,1.7)),U)
;
WLOCTYPE(LOCTYPE) ; $$(location type) -> location type url
Q $P($G(^FSC("LTYPE",+LOCTYPE,1.7)),U)
;
WSYSTEM(SYSTEM) ; $$(system) -> system url
Q $P($G(^FSC("SYSTEM",+SYSTEM,1.7)),U)
;
WVISN(VISN) ; $$(visn) -> visn url
Q $P($G(^FSC("VISN",+VISN,1.7)),U)
;
WPACKAGE(PACKAGE) ; $$(package) -> package url
Q $P($G(^FSC("PACK",+PACKAGE,1.7)),U)
;
WSUBCOMP(SUBCOMP) ; $$(subcomponent) -> subcomponent url
Q $P($G(^FSC("SUB",+SUBCOMP,1.7)),U)
;
WMOD(MOD) ; $$(module) -> module url
Q $P($G(^FSC("MOD",+MOD,1.7)),U)
;
MAIN() ; $$ -> main solution page
N ADDRESS
I '$P($G(^FSC("PARAM",1,2)),U,10) Q ""
I $L($P($G(^FSC("PARAM",1,1.8)),U))<3 Q ""
S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
I $L(ADDRESS)<3 Q ""
I '$O(^FSCD("WEB","C",0)) Q ""
Q ADDRESS_"main.htm"
;
PACK(PACK) ; $$(package) -> package solution page
N ADDRESS
I '$P($G(^FSC("PARAM",1,2)),U,10) Q ""
I $L($P($G(^FSC("PARAM",1,1.8)),U))<3 Q ""
S ADDRESS=$P($G(^FSC("PARAM",1,1.8)),U,2)
I $L(ADDRESS)<3 Q ""
I '$O(^FSCD("WEB","C",+PACK,0)) Q ""
Q ADDRESS_"pack"_PACK_".htm"
;
WCALL(CALL) ; $$(call) -> call url
Q $P($G(^FSCD("CALL",+CALL,1.7)),U)
;
ATTACH(IN,OUT) ; from FSCRPX (RPCAttachURL)
N CALL,DA,DIE,DR,NEWV,OLDV,URL,X,Y K NEWV,OLDV
S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1)),URL=$P(^(1),U,2)
Q:'$D(^FSCD("CALL",CALL,0)) Q:'$L(URL)
S OLDV("WEB")=U_$P($G(^FSCD("CALL",CALL,1.7)),U)
S DA=CALL,DR="1.7///"_URL,DIE="^FSCD(""CALL"","
D ^DIE
S NEWV("WEB")=U_$P($G(^FSCD("CALL",CALL,1.7)),U)
D AUDIT^FSCAUDIT(CALL,.OLDV,.NEWV)
K NEWV,OLDV
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCW 3635 printed Dec 13, 2024@02:19:54 Page 2
FSCRPCW ;SLC/STAFF-NOIS RPC Web ;7/22/98 12:12
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
FILL(IN,OUT) ; from FSCRPX (RPCFillURL)
+1 NEW CALL,CONTACT,DEVSP,LOCTYPE,MOD,NUM,OFFICE,PACKAGE,SPEC,SUBCOMP,SYSTEM,TWO,VISN,WORKGP
+2 SET CALL=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))
+3 SET NUM=0
+4 SET SITE=$PIECE(^FSCD("CALL",CALL,0),U,5)
SET CONTACT=$PIECE(^(0),U,6)
SET MOD=$PIECE(^(0),U,8)
SET SPEC=$PIECE(^(0),U,9)
SET OFFICE=$PIECE(^(0),U,16)
SET DEVSP=$PIECE(^(0),U,21)
+5 SET TWO=$GET(^FSCD("CALL",CALL,120))
SET PACKAGE=$PIECE(TWO,U,9)
SET SUBCOMP=$PIECE(TWO,U,11)
SET LOCTYPE=$PIECE(TWO,U,12)
SET WORKGP=$PIECE(TWO,U,13)
SET VISN=$PIECE(TWO,U,15)
SET SYSTEM=$PIECE(TWO,U,19)
+6 DO SETUP("Default",$$WDEFAULT,.NUM)
+7 DO SETUP("Personal",$$WPERSON(DUZ),.NUM)
+8 DO SETUP("Functional Area",$$WFUNC(DUZ),.NUM)
+9 DO SETUP("Office",$$WOFFICE(OFFICE),.NUM)
+10 DO SETUP("VISN",$$WVISN(VISN),.NUM)
+11 DO SETUP("Location Type",$$WLOCTYPE(LOCTYPE),.NUM)
+12 DO SETUP("System",$$WSYSTEM(SYSTEM),.NUM)
+13 DO SETUP("Location",$$WSITE(SITE),.NUM)
+14 DO SETUP("Contact",$$WUSER(CONTACT),.NUM)
+15 DO SETUP("Specialist",$$WUSER(SPEC),.NUM)
+16 DO SETUP("Referral Specialist",$$WUSER(DEVSP),.NUM)
+17 DO SETUP("Work Group",$$WWORKGP(WORKGP),.NUM)
+18 DO SETUP("Package",$$WPACKAGE(PACKAGE),.NUM)
+19 DO SETUP("Subcomponent",$$WSUBCOMP(SUBCOMP),.NUM)
+20 DO SETUP("Module",$$WMOD(MOD),.NUM)
+21 DO SETUP("Solution Index",$$MAIN,.NUM)
+22 DO SETUP("Package Solutions",$$PACK(PACKAGE),.NUM)
+23 DO SETUP("Call",$$WCALL(CALL),.NUM)
+24 QUIT
SETUP(TEXT,VALUE,NUM) ;
+1 IF $LENGTH(VALUE)
SET NUM=NUM+1
SET ^TMP("FSCRPC",$JOB,"OUTPUT",NUM)=TEXT_U_VALUE
+2 QUIT
+3 ;
WDEFAULT() ; $$ -> system default url
+1 QUIT $PIECE($GET(^FSC("PARAM",1,1.7)),U)
+2 ;
WSITE(SITE) ; $$(site) -> site url
+1 QUIT $PIECE($GET(^FSC("SITE",+SITE,1.7)),U)
+2 ;
WPERSON(USER) ; $$(user) -> personal url
+1 QUIT $PIECE($GET(^FSC("SPEC",+USER,1.8)),U)
+2 ;
WFUNC(USER) ; $$(user) -> user func area url
+1 QUIT $PIECE($GET(^FSC("FUNC",+$PIECE($GET(^FSC("SPEC",+USER,0)),U,4),1.7)),U)
+2 ;
WUSER(USER) ; $$(user) -> user url
+1 QUIT $PIECE($GET(^FSC("SPEC",+USER,1.7)),U)
+2 ;
WOFFICE(ISC) ; $$(office) -> office url
+1 QUIT $PIECE($GET(^FSC("ISC",+ISC,1.7)),U)
+2 ;
WWORKGP(WORKGP) ; $$(work group) -> workgroup url
+1 QUIT $PIECE($GET(^FSC("PACKG",+WORKGP,1.7)),U)
+2 ;
WLOCTYPE(LOCTYPE) ; $$(location type) -> location type url
+1 QUIT $PIECE($GET(^FSC("LTYPE",+LOCTYPE,1.7)),U)
+2 ;
WSYSTEM(SYSTEM) ; $$(system) -> system url
+1 QUIT $PIECE($GET(^FSC("SYSTEM",+SYSTEM,1.7)),U)
+2 ;
WVISN(VISN) ; $$(visn) -> visn url
+1 QUIT $PIECE($GET(^FSC("VISN",+VISN,1.7)),U)
+2 ;
WPACKAGE(PACKAGE) ; $$(package) -> package url
+1 QUIT $PIECE($GET(^FSC("PACK",+PACKAGE,1.7)),U)
+2 ;
WSUBCOMP(SUBCOMP) ; $$(subcomponent) -> subcomponent url
+1 QUIT $PIECE($GET(^FSC("SUB",+SUBCOMP,1.7)),U)
+2 ;
WMOD(MOD) ; $$(module) -> module url
+1 QUIT $PIECE($GET(^FSC("MOD",+MOD,1.7)),U)
+2 ;
MAIN() ; $$ -> main solution page
+1 NEW ADDRESS
+2 IF '$PIECE($GET(^FSC("PARAM",1,2)),U,10)
QUIT ""
+3 IF $LENGTH($PIECE($GET(^FSC("PARAM",1,1.8)),U))<3
QUIT ""
+4 SET ADDRESS=$PIECE($GET(^FSC("PARAM",1,1.8)),U,2)
+5 IF $LENGTH(ADDRESS)<3
QUIT ""
+6 IF '$ORDER(^FSCD("WEB","C",0))
QUIT ""
+7 QUIT ADDRESS_"main.htm"
+8 ;
PACK(PACK) ; $$(package) -> package solution page
+1 NEW ADDRESS
+2 IF '$PIECE($GET(^FSC("PARAM",1,2)),U,10)
QUIT ""
+3 IF $LENGTH($PIECE($GET(^FSC("PARAM",1,1.8)),U))<3
QUIT ""
+4 SET ADDRESS=$PIECE($GET(^FSC("PARAM",1,1.8)),U,2)
+5 IF $LENGTH(ADDRESS)<3
QUIT ""
+6 IF '$ORDER(^FSCD("WEB","C",+PACK,0))
QUIT ""
+7 QUIT ADDRESS_"pack"_PACK_".htm"
+8 ;
WCALL(CALL) ; $$(call) -> call url
+1 QUIT $PIECE($GET(^FSCD("CALL",+CALL,1.7)),U)
+2 ;
ATTACH(IN,OUT) ; from FSCRPX (RPCAttachURL)
+1 NEW CALL,DA,DIE,DR,NEWV,OLDV,URL,X,Y
KILL NEWV,OLDV
+2 SET CALL=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))
SET URL=$PIECE(^(1),U,2)
+3 if '$DATA(^FSCD("CALL",CALL,0))
QUIT
if '$LENGTH(URL)
QUIT
+4 SET OLDV("WEB")=U_$PIECE($GET(^FSCD("CALL",CALL,1.7)),U)
+5 SET DA=CALL
SET DR="1.7///"_URL
SET DIE="^FSCD(""CALL"","
+6 DO ^DIE
+7 SET NEWV("WEB")=U_$PIECE($GET(^FSCD("CALL",CALL,1.7)),U)
+8 DO AUDIT^FSCAUDIT(CALL,.OLDV,.NEWV)
+9 KILL NEWV,OLDV
+10 QUIT
