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 Sep 23, 2025@20:18:07 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 ;
