Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCWS1A

SCMCWS1A.m

Go to the documentation of this file.
  1. SCMCWS1A ;ALB/ART - PCMMR-Call Patient Summary Web Service ;01/15/2015
  1. ;;5.3;Scheduling;**603**;Aug 13, 1993;Build 79
  1. ;
  1. QUIT
  1. ;
  1. 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
  1. ; SCVALUE - XML node value
  1. ; SCTEAMS - Teams array populated from XML data - by reference
  1. ; SCNVA - nonVA array populated from XML data - by reference
  1. ; SCTMLVL - array station count - by reference
  1. ; SCPCLVL - array PACT count - by reference
  1. ; SCNVALVL - array nonVA count - by reference
  1. ; SCMHLVL - array MH count - by reference
  1. ; SCOELVL - array OEF count - by reference
  1. ; SCSPLVL - array SP count - by reference
  1. ; SCSPTYPE - array SP team type - by reference
  1. ; SCSPMBR - array SP team member count - by reference
  1. ; SCBLOCK - gets set to 1 if preformatted data is received - by reference
  1. ; SCEOF - gets set to 1 if preformatted data is received - by reference
  1. ;
  1. ; Patient Data Block
  1. IF SCNODE="/PatientSummary/PatientSummaryText" DO QUIT
  1. . IF SCVALUE="<![CDATA[]]" QUIT
  1. . IF SCVALUE=">" QUIT
  1. . IF SCVALUE["<![CDATA[" DO
  1. . . SET SCVALUE=$PIECE(SCVALUE,"<![CDATA[",2)
  1. . . SET SCVALUE=$TR(SCVALUE,"]","")
  1. . NEW SCI
  1. . FOR SCI=1:1:$LENGTH(SCVALUE,$CHAR(10)) DO
  1. . . SET SCTEAMS(SCI)=$PIECE(SCVALUE,$CHAR(10),SCI)
  1. . SET SCEOF=1
  1. . SET SCBLOCK=1
  1. . ;
  1. ; Station name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/StationNameAndNumber" DO QUIT
  1. . SET SCTMLVL=SCTMLVL+1
  1. . SET SCMHLVL=0
  1. . SET SCTEAMS(SCTMLVL,"STATION")=$TR(SCVALUE,"#","")
  1. . ;
  1. ; PC Status
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/assignmentStatus" DO QUIT
  1. . SET SCPCLVL=SCPCLVL+1
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"STATUS")=SCVALUE
  1. . ;
  1. ; PACT Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/teamName" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PACT")=SCVALUE
  1. . ;
  1. ; PC Admin POC Role
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/teamRoleName" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC ROLE")=SCVALUE
  1. . ;
  1. ; PC Admin POC Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC NAME")=SCVALUE
  1. . ;
  1. ; PC Admin POC Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PHONE")=SCVALUE
  1. . ;
  1. ; PC Admin POC Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/administrativePoc/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"APOC PAGER")=SCVALUE
  1. . ;
  1. ; PC Clinical POC Role
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/teamRoleName" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC ROLE")=SCVALUE
  1. . ;
  1. ; PC Clinical POC Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC NAME")=SCVALUE
  1. . ;
  1. ; PC Clinical POC Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PHONE")=SCVALUE
  1. . ;
  1. ; PC Clinical POC Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/clinicalPoc/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"CPOC PAGER")=SCVALUE
  1. . ;
  1. ; PCP Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP NAME")=SCVALUE
  1. . ;
  1. ; PCP Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PHONE")=SCVALUE
  1. . ;
  1. ; PCP Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/primaryCareProvider/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"PCP PAGER")=SCVALUE
  1. . ;
  1. ; PC Assoc Provider Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC NAME")=SCVALUE
  1. . ;
  1. ; PC Assoc Provider Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PHONE")=SCVALUE
  1. . ;
  1. ; PC Assoc Provider Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/PrimaryCareAssignments/PrimaryCareAssignment/associateProvider/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,2,SCPCLVL,"ASSOC PAGER")=SCVALUE
  1. . ;
  1. ; OEF Team
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/teamName" DO QUIT
  1. . SET SCOELVL=SCOELVL+1
  1. . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF TEAM")=SCVALUE
  1. . ;
  1. ; OEF Clinical Case Manager Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF MGR")=SCVALUE
  1. . ;
  1. ; OEF Clinical Case Manager Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PHONE")=SCVALUE
  1. . ;
  1. ; OEF Clinical Case Manager Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/OEFOIFAssignments/OEFOIFAssignment/LeadCoordinator/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,"OEF",SCOELVL,"OEF PAGER")=SCVALUE
  1. . ;
  1. ; Specialty Team
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeCode" DO QUIT
  1. . SET SCSPLVL=SCSPLVL+1
  1. . SET SCSPMBR=0
  1. . SET SCSPTYPE=SCVALUE
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE CD")=SCVALUE
  1. . ;
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/CareTypeName" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TYPE NM")=SCVALUE
  1. . ;
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/teamName" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,"SP TEAM")=SCVALUE
  1. . ;
  1. ; Specialty Team Role
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/teamRoleName" DO QUIT
  1. . SET SCSPMBR=SCSPMBR+1
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP ROLE")=SCVALUE
  1. . ;
  1. ; Specialty Team Member Name
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/name" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP NAME")=SCVALUE
  1. . ;
  1. ; Specialty Team Member Phone
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/phone" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PHONE")=SCVALUE
  1. . ;
  1. ; Specialty Team Member Pager
  1. IF SCNODE="/PatientSummary/PatientNationalAssignments/PatientStationLevelAssignment/SpecialtyAssignments/SpecialtyAssignment/TeamMembers/pager" DO QUIT
  1. . SET SCTEAMS(SCTMLVL,SCSPTYPE,SCSPLVL,SCSPMBR,"SP PAGER")=SCVALUE
  1. . ;
  1. ; nonVA Role
  1. IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/roleSpecialty" DO QUIT
  1. . SET SCNVALVL=SCNVALVL+1
  1. . ;DO BUILDNVA(.SCNVA,SCNVALVL)
  1. . SET SCNVA(SCNVALVL,"ROLE")=SCVALUE
  1. . ;
  1. ; nonVA Name
  1. IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/providerName" DO QUIT
  1. . SET SCNVA(SCNVALVL,"NAME")=SCVALUE
  1. . ;
  1. ; nonVA Phone
  1. IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/phone" DO QUIT
  1. . SET SCNVA(SCNVALVL,"PHONE")=SCVALUE
  1. . ;
  1. ; nonVA City
  1. IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/city" DO QUIT
  1. . SET SCNVA(SCNVALVL,"CITY")=SCVALUE
  1. . ;
  1. ; nonVA State
  1. IF SCNODE="/PatientSummary/NonVAProviders/NonVAProvider/state" DO QUIT
  1. . SET SCNVA(SCNVALVL,"STATE")=SCVALUE
  1. . ;
  1. ;
  1. QUIT
  1. ;