- SCMCWS1A ;ALB/ART - PCMMR-Call Patient Summary Web Service ;01/15/2015
- ;;5.3;Scheduling;**603**;Aug 13, 1993;Build 79
- ;
- QUIT
- ;
- PARSEXML(SCNODE,SCVALUE,SCTEAMS,SCNVA,SCTMLVL,SCPCLVL,SCNVALVL,SCMHLVL,SCOELVL,SCSPLVL,SCSPTYPE,SCSPMBR,SCBLOCK,SCEOF) ;Build an array from XML data
- ;Inputs: SCNODE - XML node spec
- ; SCVALUE - XML node value
- ; SCTEAMS - Teams array populated from XML data - by reference
- ; SCNVA - nonVA array populated from XML data - by reference
- ; SCTMLVL - array station count - by reference
- ; SCPCLVL - array PACT count - by reference
- ; SCNVALVL - array nonVA count - by reference
- ; SCMHLVL - array MH count - by reference
- ; SCOELVL - array OEF count - by reference
- ; SCSPLVL - array SP count - by reference
- ; SCSPTYPE - array SP team type - by reference
- ; SCSPMBR - array SP team member count - by reference
- ; SCBLOCK - gets set to 1 if preformatted data is received - by reference
- ; SCEOF - gets set to 1 if preformatted data is received - by reference
- ;
- ; Patient Data Block
- IF SCNODE="/PatientSummary/PatientSummaryText" DO QUIT
- . IF SCVALUE="<![CDATA[]]" QUIT
- . IF SCVALUE=">" QUIT
- . IF SCVALUE["<![CDATA[" DO
- . . SET SCVALUE=$PIECE(SCVALUE,"<![CDATA[",2)
- . . SET SCVALUE=$TR(SCVALUE,"]","")
- . NEW SCI
- . FOR SCI=1:1:$LENGTH(SCVALUE,$CHAR(10)) DO
- . . SET SCTEAMS(SCI)=$PIECE(SCVALUE,$CHAR(10),SCI)
- . SET SCEOF=1
- . SET SCBLOCK=1
- . ;
- ; Station name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/StationNameAndNumber" DO QUIT
- . SET SCTMLVL=SCTMLVL+1
- . SET SCMHLVL=0
- . SET SCTEAMS(SCTMLVL,"STATION")=$TR(SCVALUE,"#","")
- . ;
- ; PC Status
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/assignmentStatus" DO QUIT
- . SET SCPCLVL=SCPCLVL+1
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"STATUS")=SCVALUE
- . ;
- ; PACT Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/teamName" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PACT")=SCVALUE
- . ;
- ; PC Admin POC Role
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/teamRoleName" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC ROLE")=SCVALUE
- . ;
- ; PC Admin POC Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC NAME")=SCVALUE
- . ;
- ; PC Admin POC Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PHONE")=SCVALUE
- . ;
- ; PC Admin POC Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PAGER")=SCVALUE
- . ;
- ; PC Clinical POC Role
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/teamRoleName" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC ROLE")=SCVALUE
- . ;
- ; PC Clinical POC Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC NAME")=SCVALUE
- . ;
- ; PC Clinical POC Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PHONE")=SCVALUE
- . ;
- ; PC Clinical POC Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PAGER")=SCVALUE
- . ;
- ; PCP Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP NAME")=SCVALUE
- . ;
- ; PCP Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PHONE")=SCVALUE
- . ;
- ; PCP Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PAGER")=SCVALUE
- . ;
- ; PC Assoc Provider Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC NAME")=SCVALUE
- . ;
- ; PC Assoc Provider Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PHONE")=SCVALUE
- . ;
- ; PC Assoc Provider Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PAGER")=SCVALUE
- . ;
- ; OEF Team
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/teamName" DO QUIT
- . SET SCOELVL=SCOELVL+1
- . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF TEAM")=SCVALUE
- . ;
- ; OEF Clinical Case Manager Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF MGR")=SCVALUE
- . ;
- ; OEF Clinical Case Manager Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PHONE")=SCVALUE
- . ;
- ; OEF Clinical Case Manager Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PAGER")=SCVALUE
- . ;
- ; Specialty Team
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeCode" DO QUIT
- . SET SCSPLVL=SCSPLVL+1
- . SET SCSPMBR=0
- . SET SCSPTYPE=SCVALUE
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE CD")=SCVALUE
- . ;
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeName" DO QUIT
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE NM")=SCVALUE
- . ;
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/teamName" DO QUIT
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TEAM")=SCVALUE
- . ;
- ; Specialty Team Role
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/teamRoleName" DO QUIT
- . SET SCSPMBR=SCSPMBR+1
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP ROLE")=SCVALUE
- . ;
- ; Specialty Team Member Name
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/name" DO QUIT
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP NAME")=SCVALUE
- . ;
- ; Specialty Team Member Phone
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/phone" DO QUIT
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PHONE")=SCVALUE
- . ;
- ; Specialty Team Member Pager
- IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/pager" DO QUIT
- . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PAGER")=SCVALUE
- . ;
- ; nonVA Role
- IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/roleSpecialty" DO QUIT
- . SET SCNVALVL=SCNVALVL+1
- . ;DO BUILDNVA(.SCNVA,SCNVALVL)
- . SET SCNVA(SCNVALVL,"ROLE")=SCVALUE
- . ;
- ; nonVA Name
- IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/providerName" DO QUIT
- . SET SCNVA(SCNVALVL,"NAME")=SCVALUE
- . ;
- ; nonVA Phone
- IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/phone" DO QUIT
- . SET SCNVA(SCNVALVL,"PHONE")=SCVALUE
- . ;
- ; nonVA City
- IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/city" DO QUIT
- . SET SCNVA(SCNVALVL,"CITY")=SCVALUE
- . ;
- ; nonVA State
- IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/state" DO QUIT
- . SET SCNVA(SCNVALVL,"STATE")=SCVALUE
- . ;
- ;
- QUIT
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCWS1A 9294 printed Jan 18, 2025@03:42:55 Page 2
- SCMCWS1A ;ALB/ART - PCMMR-Call Patient Summary Web Service ;01/15/2015
- +1 ;;5.3;Scheduling;**603**;Aug 13, 1993;Build 79
- +2 ;
- +3 QUIT
- +4 ;
- PARSEXML(SCNODE,SCVALUE,SCTEAMS,SCNVA,SCTMLVL,SCPCLVL,SCNVALVL,SCMHLVL,SCOELVL,SCSPLVL,SCSPTYPE,SCSPMBR,SCBLOCK,SCEOF) ;Build an array from XML data
- +1 ;Inputs: SCNODE - XML node spec
- +2 ; SCVALUE - XML node value
- +3 ; SCTEAMS - Teams array populated from XML data - by reference
- +4 ; SCNVA - nonVA array populated from XML data - by reference
- +5 ; SCTMLVL - array station count - by reference
- +6 ; SCPCLVL - array PACT count - by reference
- +7 ; SCNVALVL - array nonVA count - by reference
- +8 ; SCMHLVL - array MH count - by reference
- +9 ; SCOELVL - array OEF count - by reference
- +10 ; SCSPLVL - array SP count - by reference
- +11 ; SCSPTYPE - array SP team type - by reference
- +12 ; SCSPMBR - array SP team member count - by reference
- +13 ; SCBLOCK - gets set to 1 if preformatted data is received - by reference
- +14 ; SCEOF - gets set to 1 if preformatted data is received - by reference
- +15 ;
- +16 ; Patient Data Block
- +17 IF SCNODE="/PatientSummary/PatientSummaryText"
- Begin DoDot:1
- +18 IF SCVALUE="<![CDATA[]]"
- QUIT
- +19 IF SCVALUE=">"
- QUIT
- +20 IF SCVALUE["<![CDATA["
- Begin DoDot:2
- +21 SET SCVALUE=$PIECE(SCVALUE,"<![CDATA[",2)
- +22 SET SCVALUE=$TRANSLATE(SCVALUE,"]","")
- End DoDot:2
- +23 NEW SCI
- +24 FOR SCI=1:1:$LENGTH(SCVALUE,$CHAR(10))
- Begin DoDot:2
- +25 SET SCTEAMS(SCI)=$PIECE(SCVALUE,$CHAR(10),SCI)
- End DoDot:2
- +26 SET SCEOF=1
- +27 SET SCBLOCK=1
- +28 ;
- End DoDot:1
- QUIT
- +29 ; Station name
- +30 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/StationNameAndNumber"
- Begin DoDot:1
- +31 SET SCTMLVL=SCTMLVL+1
- +32 SET SCMHLVL=0
- +33 SET SCTEAMS(SCTMLVL,"STATION")=$TRANSLATE(SCVALUE,"#","")
- +34 ;
- End DoDot:1
- QUIT
- +35 ; PC Status
- +36 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/assignmentStatus"
- Begin DoDot:1
- +37 SET SCPCLVL=SCPCLVL+1
- +38 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"STATUS")=SCVALUE
- +39 ;
- End DoDot:1
- QUIT
- +40 ; PACT Name
- +41 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/teamName"
- Begin DoDot:1
- +42 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PACT")=SCVALUE
- +43 ;
- End DoDot:1
- QUIT
- +44 ; PC Admin POC Role
- +45 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/teamRoleName"
- Begin DoDot:1
- +46 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC ROLE")=SCVALUE
- +47 ;
- End DoDot:1
- QUIT
- +48 ; PC Admin POC Name
- +49 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/name"
- Begin DoDot:1
- +50 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC NAME")=SCVALUE
- +51 ;
- End DoDot:1
- QUIT
- +52 ; PC Admin POC Phone
- +53 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/phone"
- Begin DoDot:1
- +54 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PHONE")=SCVALUE
- +55 ;
- End DoDot:1
- QUIT
- +56 ; PC Admin POC Pager
- +57 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/pager"
- Begin DoDot:1
- +58 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PAGER")=SCVALUE
- +59 ;
- End DoDot:1
- QUIT
- +60 ; PC Clinical POC Role
- +61 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/teamRoleName"
- Begin DoDot:1
- +62 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC ROLE")=SCVALUE
- +63 ;
- End DoDot:1
- QUIT
- +64 ; PC Clinical POC Name
- +65 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/name"
- Begin DoDot:1
- +66 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC NAME")=SCVALUE
- +67 ;
- End DoDot:1
- QUIT
- +68 ; PC Clinical POC Phone
- +69 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/phone"
- Begin DoDot:1
- +70 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PHONE")=SCVALUE
- +71 ;
- End DoDot:1
- QUIT
- +72 ; PC Clinical POC Pager
- +73 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/pager"
- Begin DoDot:1
- +74 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PAGER")=SCVALUE
- +75 ;
- End DoDot:1
- QUIT
- +76 ; PCP Name
- +77 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/name"
- Begin DoDot:1
- +78 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP NAME")=SCVALUE
- +79 ;
- End DoDot:1
- QUIT
- +80 ; PCP Phone
- +81 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/phone"
- Begin DoDot:1
- +82 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PHONE")=SCVALUE
- +83 ;
- End DoDot:1
- QUIT
- +84 ; PCP Pager
- +85 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/pager"
- Begin DoDot:1
- +86 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PAGER")=SCVALUE
- +87 ;
- End DoDot:1
- QUIT
- +88 ; PC Assoc Provider Name
- +89 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/name"
- Begin DoDot:1
- +90 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC NAME")=SCVALUE
- +91 ;
- End DoDot:1
- QUIT
- +92 ; PC Assoc Provider Phone
- +93 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/phone"
- Begin DoDot:1
- +94 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PHONE")=SCVALUE
- +95 ;
- End DoDot:1
- QUIT
- +96 ; PC Assoc Provider Pager
- +97 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/pager"
- Begin DoDot:1
- +98 SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PAGER")=SCVALUE
- +99 ;
- End DoDot:1
- QUIT
- +100 ; OEF Team
- +101 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/teamName"
- Begin DoDot:1
- +102 SET SCOELVL=SCOELVL+1
- +103 SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF TEAM")=SCVALUE
- +104 ;
- End DoDot:1
- QUIT
- +105 ; OEF Clinical Case Manager Name
- +106 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/name"
- Begin DoDot:1
- +107 SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF MGR")=SCVALUE
- +108 ;
- End DoDot:1
- QUIT
- +109 ; OEF Clinical Case Manager Phone
- +110 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/phone"
- Begin DoDot:1
- +111 SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PHONE")=SCVALUE
- +112 ;
- End DoDot:1
- QUIT
- +113 ; OEF Clinical Case Manager Pager
- +114 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/pager"
- Begin DoDot:1
- +115 SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PAGER")=SCVALUE
- +116 ;
- End DoDot:1
- QUIT
- +117 ; Specialty Team
- +118 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeCode"
- Begin DoDot:1
- +119 SET SCSPLVL=SCSPLVL+1
- +120 SET SCSPMBR=0
- +121 SET SCSPTYPE=SCVALUE
- +122 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE CD")=SCVALUE
- +123 ;
- End DoDot:1
- QUIT
- +124 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeName"
- Begin DoDot:1
- +125 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE NM")=SCVALUE
- +126 ;
- End DoDot:1
- QUIT
- +127 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/teamName"
- Begin DoDot:1
- +128 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TEAM")=SCVALUE
- +129 ;
- End DoDot:1
- QUIT
- +130 ; Specialty Team Role
- +131 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/teamRoleName"
- Begin DoDot:1
- +132 SET SCSPMBR=SCSPMBR+1
- +133 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP ROLE")=SCVALUE
- +134 ;
- End DoDot:1
- QUIT
- +135 ; Specialty Team Member Name
- +136 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/name"
- Begin DoDot:1
- +137 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP NAME")=SCVALUE
- +138 ;
- End DoDot:1
- QUIT
- +139 ; Specialty Team Member Phone
- +140 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/phone"
- Begin DoDot:1
- +141 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PHONE")=SCVALUE
- +142 ;
- End DoDot:1
- QUIT
- +143 ; Specialty Team Member Pager
- +144 IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/pager"
- Begin DoDot:1
- +145 SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PAGER")=SCVALUE
- +146 ;
- End DoDot:1
- QUIT
- +147 ; nonVA Role
- +148 IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/roleSpecialty"
- Begin DoDot:1
- +149 SET SCNVALVL=SCNVALVL+1
- +150 ;DO BUILDNVA(.SCNVA,SCNVALVL)
- +151 SET SCNVA(SCNVALVL,"ROLE")=SCVALUE
- +152 ;
- End DoDot:1
- QUIT
- +153 ; nonVA Name
- +154 IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/providerName"
- Begin DoDot:1
- +155 SET SCNVA(SCNVALVL,"NAME")=SCVALUE
- +156 ;
- End DoDot:1
- QUIT
- +157 ; nonVA Phone
- +158 IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/phone"
- Begin DoDot:1
- +159 SET SCNVA(SCNVALVL,"PHONE")=SCVALUE
- +160 ;
- End DoDot:1
- QUIT
- +161 ; nonVA City
- +162 IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/city"
- Begin DoDot:1
- +163 SET SCNVA(SCNVALVL,"CITY")=SCVALUE
- +164 ;
- End DoDot:1
- QUIT
- +165 ; nonVA State
- +166 IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/state"
- Begin DoDot:1
- +167 SET SCNVA(SCNVALVL,"STATE")=SCVALUE
- +168 ;
- End DoDot:1
- QUIT
- +169 ;
- +170 QUIT
- +171 ;