FSCRPCW.m

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 ---FSCRPCW   3635     printed  Feb 18, 2025@23:46:22                                                                                                                                                                                                     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