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

SCMCWSUT.m

Go to the documentation of this file.
  1. SCMCWSUT ;ALB/ART - PCMM Web Call Patient Summary Web Service ;09/11/2014
  1. ;;5.3;Scheduling;**603,854**;Aug 13, 1993;Build 4
  1. ;
  1. QUIT
  1. ;
  1. ;Public, Supported ICRs
  1. ; #5421 - XOBWLIB - Public APIs for HWSC
  1. ; #2051 - Database Server API: Lookup Utilities (DIC)
  1. ; #2056 - Data Base Server API: Data Retriever Utilities (DIQ)
  1. ;
  1. SETUP(SCDATA) ;Web service setup
  1. ; Lookup server name
  1. ; Validate server name
  1. ; Validate service name
  1. ; Get REST request object
  1. ; Inputs: SCDATA - array of variables, passed by reference
  1. ; Output:
  1. ; Returns: success = 1
  1. ; failure = 0^error message
  1. ;
  1. NEW SCRC,SCSERVER,SCLIST
  1. ;
  1. ; Get PCMM/R Web Server Name
  1. SET SCRC=$$SNAME4KY^XOBWLIB(SCDATA("serverNameKey"),.SCSERVER)
  1. QUIT:'SCRC "0^>>> CONFIGURATION ERROR: No Server Key Definition <<<"
  1. SET SCDATA("serverName")=SCSERVER
  1. ;
  1. ; Validate PCMM/R Web Server Name
  1. DO LKUPSRVR(SCDATA("serverName"),.SCLIST)
  1. QUIT:$GET(SCLIST(1))=0 "0^>>> CONFIGURATION ERROR: No Server Definition <<<"
  1. ;
  1. ; Validate PCMM/R Web Service Name
  1. NEW SCLIST
  1. DO LKUPSRVS(SCDATA("webServiceName"),.SCLIST)
  1. QUIT:$GET(SCLIST(1))=0 "0^>>> CONFIGURATION ERROR: No Service Definition <<<"
  1. ;
  1. QUIT 1
  1. ;
  1. LKUPSRVR(SCNAME,SCLIST) ; Web Server Lookup
  1. ; Inputs: SCNAME - name of the server
  1. ; Output: SCLIST - list of matching IENs, by reference
  1. ; ien^name
  1. ;FIND^DIC(FILE,IENS,FIELDS,FLAGS,[.]VALUE,NUMBER,[.]INDEXES,[.]SCREEN,IDENTIFIER,TARGET_ROOT,MSG_ROOT)
  1. N I,SCRET,SCERR,Y
  1. SET SCLIST(1)=0
  1. ; Fileman DBS Web Server Lookup
  1. DO FIND^DIC(18.12,"","@;.01","P",SCNAME,"","B","","","SCRET","SCERR")
  1. SET I=0
  1. FOR SET I=$ORDER(SCRET("DILIST",I)) QUIT:'I DO
  1. . SET SCLIST(I)=SCRET("DILIST",I,0)
  1. QUIT
  1. ;
  1. LKUPSRVS(SCNAME,SCLIST) ; Web Service Lookup
  1. ; Inputs: SCNAME - name of the service
  1. ; Output: SCLIST - list of matching IENs and names, by reference
  1. ; ien^name
  1. ;FIND^DIC(FILE,IENS,FIELDS,FLAGS,[.]VALUE,NUMBER,[.]INDEXES,[.]SCREEN,IDENTIFIER,TARGET_ROOT,MSG_ROOT)
  1. N I,SCRET,SCERR,Y
  1. SET SCLIST(1)=0
  1. ; Fileman DBS Web Service Lookup
  1. DO FIND^DIC(18.02,"","@;.01","P",SCNAME,"","B","","","SCRET","SCERR")
  1. SET I=0
  1. FOR SET I=$ORDER(SCRET("DILIST",I)) QUIT:'I DO
  1. . SET SCLIST(I)=SCRET("DILIST",I,0)
  1. QUIT
  1. ;
  1. CPRSHEAD(SCDFN) ;Get data for CPRS PCMMR Header
  1. ; Inputs: SCDFN - Patient DFN
  1. ; Returns: String of PACT info from Outpatient Profile (404.41), CPRS Header Text (.06)
  1. ;
  1. QUIT:$GET(SCDFN)="" "Internal Error: Missing DFN"
  1. NEW SCIENS,SCTEXT
  1. SET SCIENS=SCDFN_","
  1. SET SCTEXT=$$GET1^DIQ(404.41,SCIENS,.06)
  1. SET:SCTEXT="" SCTEXT="No PACT assigned at this VA location (Click for more)" ;RTW SD*5.3*854
  1. ;SET:SCTEXT="" SCTEXT="No PACT assigned at any VA location" ;sd*5.3*854
  1. QUIT SCTEXT
  1. ;