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

YTQREST0.m

Go to the documentation of this file.
  1. YTQREST0 ;SLC/KCM - RESTful API front controller v0 ; 1/25/2017
  1. ;;5.01;MENTAL HEALTH;**130,178,182,187,223,239,224**;Dec 30, 1994;Build 17
  1. ;
  1. ; .HTTPREQ: HTTP-formatted request and JSON body (if present)
  1. ; .HTTPRSP: HTTP-formatted response and JSON body (if present)
  1. ;
  1. QSTAFF(HTTPRSP,HTTPREQ) ; questionnaire administration resources
  1. ;;POST /api/mha/assignment NEWASMT^YTQRQAD1
  1. ;;
  1. D WINFIX(.HTTPREQ) ; Fix the malformed JSON from Windows MHA
  1. D HANDLE^YTQRUTL("QSTAFF^YTQREST0",.HTTPREQ,.HTTPRSP)
  1. Q
  1. ;
  1. ; -- for use when using embedded browser
  1. ;
  1. ;;GET /api/mha/patient/:dfn/identifiers PID^YTQRQAD
  1. ;;GET /api/mha/persons/:match PERSONS^YTQRQAD
  1. ;;GET /api/mha/users/:match USERS^YTQRQAD
  1. ;;GET /api/mha/instruments/active LSTALL^YTQRQAD
  1. ;;GET /api/mha/instruments/cprs LSTCPRS^YTQRQAD
  1. ;;GET /api/mha/instrument/:instrumentName GETSPEC^YTQRQAD
  1. ;;GET /api/mha/assignment/:assignmentId?1.N ASMTBYID^YTQRQAD1
  1. ;;GET /api/mha/assignment/:assignmentId?1.N/:division ASMTBYID^YTQRQAD1
  1. ;;DELETE /api/mha/assignment/:assignmentId DELASMT^YTQRQAD1
  1. ;;DELETE /api/mha/assignment/:assignmentId/:instrument DELTEST^YTQRQAD1
  1. ;;POST /api/mha/instrument/admin SAVEADM^YTQRQAD2
  1. ;;GET /api/mha/instrument/admin/:adminId?1.N GETADM^YTQRQAD2
  1. ;;GET /api/mha/instrument/report/:adminId?1.N REPORT^YTQRQAD3
  1. ;;GET /api/mha/instrument/note/:adminId?1.N GETNOTE^YTQRQAD3
  1. ;;POST /api/mha/instrument/note SETNOTE^YTQRQAD3
  1. ;;GET /api/mha/permission/cosign/:adminId/:userId ALWCSGN^YTQRQAD3
  1. ;;GET /api/mha/division/current/ TMPDIV^YTQRQAD
  1. ;;POST /api/wrapper/close WRCLOSE^YTQRQAD
  1. ;;
  1. QENTRY(HTTPRSP,HTTPREQ) ; questionnaire entry for patient
  1. ;;GET /api/mha/patient/:dfn/identifiers PID^YTQRQAD
  1. ;;GET /api/mha/instrument/:instrumentName GETSPEC^YTQRQAD
  1. ;;GET /api/mha/assignment/:assignmentId?1.N ASMTBYID^YTQRQAD1
  1. ;;GET /api/mha/assignment/:assignmentId?36ANP ASMTBYID^YTQRQAD1
  1. ;;GET /api/mha/checks/:instrumentName GETCHKS^YTQRQAD2
  1. ;;GET /api/mha/instrument/admin/:adminId?1.N GETADM^YTQRQAD2
  1. ;;GET /api/mha/instrument/admin/:adminId?36ANP1"-".N GETADM^YTQRQAD2
  1. ;;POST /api/mha/instrument/admin SAVEADM^YTQRQAD2
  1. ;;GET /api/mha/assignment/cat/:assignmentId?1.N GCATINFO^YTQRCAT
  1. ;;GET /api/mha/assignment/cat/:assignmentId?36ANP GCATINFO^YTQRCAT
  1. ;;POST /api/mha/assignment/cat/:assignmentId?1.N PCATINFO^YTQRCAT
  1. ;;POST /api/mha/assignment/cat/:assignmentId?36ANP PCATINFO^YTQRCAT
  1. ;;GET /api/mha/cat/interview/:interviewId GETCATI^YTQRCAT
  1. ;;POST /api/mha/cat/interview/:interviewId SETCATI^YTQRCAT
  1. ;;DELETE /api/mha/assignment/:assignmentId/:instrument/:delfrmassign DELTEST^YTQRQAD1
  1. ;;GET /api/mha/cdb/timezone/ TZ^YTQRCDB2
  1. ;;POST /api/mha/cdb/instrument/admin SAVEADM^YTQRCDB
  1. ;;POST /api/mha/cdb/instrument/admin/scores SCORADM^YTQRCDB
  1. ;;POST /api/mha/cdb/instrument/note PENOTE^YTQRCDB3
  1. ;;
  1. D HANDLE^YTQRUTL("QENTRY^YTQREST0",.HTTPREQ,.HTTPRSP)
  1. Q
  1. WINFIX(HTTPREQ) ; Fix the malformed JSON from Windows MHA
  1. N I,BODY,SWAP
  1. S BODY=0
  1. S SWAP(""":,")=""":null,"
  1. S SWAP(""":}")=""":null}"
  1. S I=0 F S I=$O(HTTPREQ(I)) Q:'I D
  1. . I BODY S HTTPREQ(I)=$$REPLACE^XLFSTR(HTTPREQ(I),.SWAP)
  1. . I '$L(HTTPREQ(I)) S BODY=1
  1. Q