Routine: YTQRQAD3

Information

YTQRQAD3 ;SLC/KCM - RESTful Calls to set/get MHA administrations ; 1/25/2017

Name	Comments	DBIA/ICR reference
REPORT(ARGS,RESULTS)	; build report object identified by ARGS("adminId")
REPORT1(ADMIN,REPORT,TYPE)	; fill in the report text for ADMIN
GETCOM(ARR,ADMIN)	;Get the COMMENTS from the Instrument Admin
GETNOTE(ARGS,RESULTS)	; build note object based on ARGS("adminId")
SETNOTE(ARGS,DATA)	; save note in DATA("text") using ARGS("adminId")
ALWNOTE(ADMIN)	; return "true" if note could/should be saved
ALWN2(TEST,ADMIN)	;Entry point if TEST is input
NOTE4PT(ADMIN,DATA)	; save progress note text in assignment for a patient-entered admin
ALWCSGN(ARGS,RESULTS)	; GET /api/mha/permission/cosign/:adminId/:userId
REQCSGN(ADMIN,COSIGNER)	; return "true" if this user requires a cosigner ; if cosigner is passed in, use that instead of orderedBy
NEEDCSGN(ARGS,RESULTS)	; GET /api/mha/permission/needcosign/:userId 208 ; Returns "true" if userId requires a cosigner ; Returns "false" if userId does NOT require a cosigner
SETCOM(ARGS,DATA)	; save comment in Instrument Admin (F601.84,f10) using ARGS("adminId")
TXT2LN(SRC,DEST)	; Move CRLF delimited text from .SRC into WP lines in .DEST
PARSLN(TXT)	; Return remainder after parsing text into lines ; expects: CRLF, DEST, IDEST
WRAP(OUT,MAX)	; Wrap text by space piece word MAX char width