YTQRCDB3 ;BAL/KTL - MHA CLOUD DATABASE REPORT/NOTE RPC CALLS; 1/25/2017
Source file <YTQRCDB3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PENOTE(ARGS,DATA) | ;Patient Entry progress note
|
|
| SENOTE(ARGS,DATA) | ;Staff Entry progress note
|
|
| PRSNOTE(ARGS,DATA,TXT,YSTYPE) | ;Parse the incoming note JSON and branch accordingly.
|
|
| GETNOTE(ADMIN,COSIGNER,RESULTS) | ; build note object based on ARGS("adminId")
|
|
| SETNOTE(ARGS,DATA) | ; save note in DATA("text") 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
|
| Name | Field # of Occurrence |
|---|---|
| CCREATE^YTQCONS | SETNOTE+15 |
| SPLTADM^YTQRCAT | GETNOTE+10 |
| BLDHDR^YTQRCDB4 | PRSNOTE+14 |
| $$ALWNOTE^YTQRQAD3 | GETNOTE+5, SETNOTE+21 |
| $$REQCSGN^YTQRQAD3 | GETNOTE+6 |
| REPORT1^YTQRQAD3 | GETNOTE+8 |
| SETERROR^YTQRUTL | PENOTE+3, PENOTE+7, PRSNOTE+7, PRSNOTE+8, GETNOTE+1, SETNOTE+6, SETNOTE+7, SETNOTE+10, SETNOTE+17 |
| PCREATE^YTQTIU | SETNOTE+16 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PENOTE+3 |
| ^YTT(601.84 - [#601.84] | PENOTE+6, PRSNOTE+8, GETNOTE+1, GETNOTE+2, SETNOTE+7, SETNOTE+8, SETNOTE+10, SETNOTE+21* |
| Name | Line Occurrences |
|---|---|
| $$PARSLN | TXT2LN+3, TXT2LN+8 |
| $$SETNOTE | PENOTE+16 |
| GETNOTE | PRSNOTE+10 |
| PRSNOTE | PENOTE+9 |
| TXT2LN | SETNOTE+11 |
| WRAP | SETNOTE+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMCNT | SETNOTE+18~, SETNOTE+19*, SETNOTE+20 |
| ADMERR | PENOTE+1~, PENOTE+6*, PENOTE+7 |
| ADMIN | PENOTE+5*, PENOTE+6, PRSNOTE+1~, PRSNOTE+5*, PRSNOTE+7, PRSNOTE+8, PRSNOTE+10, PRSNOTE+14, GETNOTE~, GETNOTE+1 , GETNOTE+2, GETNOTE+3, GETNOTE+5, GETNOTE+6, GETNOTE+8, GETNOTE+10, SETNOTE+3~, SETNOTE+4*, SETNOTE+6, SETNOTE+7 , SETNOTE+8, SETNOTE+10, SETNOTE+13 |
| ADMLST | SETNOTE+18~ |
| AGPROG | SETNOTE+3~ |
| ALWNOTE | PRSNOTE+1~ |
| ARGS | PENOTE~, PENOTE+9, PENOTE+16, SENOTE~, PRSNOTE~, SETNOTE~ |
| ASGN | SETNOTE+3~, SETNOTE+5* |
| CCNT | PENOTE+2~, PENOTE+13*, PENOTE+14 |
| CNT | PRSNOTE+1~, PRSNOTE+3*, PRSNOTE+21, PRSNOTE+22*, PRSNOTE+24*, WRAP+1~, WRAP+5*, WRAP+9*, WRAP+11* |
| CONSULT | PRSNOTE+1~, GETNOTE+2~*, GETNOTE+4, SETNOTE+3~, SETNOTE+8*, SETNOTE+15 |
| COSIGNER | PRSNOTE+2~, PRSNOTE+6*, PRSNOTE+10, GETNOTE~, GETNOTE+7 |
| CRLF | TXT2LN+1~, TXT2LN+2*, PARSLN+5 |
| DARR | PENOTE+1~, PENOTE+16 |
| DARR("adminId" | PENOTE+15* |
| DARR("text" | PENOTE+12*, PENOTE+14* |
| DATA | PENOTE~, PENOTE+9, SENOTE~, PRSNOTE~, SETNOTE~, SETNOTE+11 |
| DATA("adminId" | SETNOTE+4 |
| DATA("adminList" | SETNOTE+19, SETNOTE+20 |
| DATA("assignmentId" | SETNOTE+5 |
| DATA("cosigner" | SETNOTE+14 |
| DATA("dfn" | PENOTE+3 |
| DATA("notes" | PENOTE+4, PENOTE+5, PENOTE+6!, PENOTE+8, PENOTE+15, PRSNOTE+4, PRSNOTE+5, PRSNOTE+6, PRSNOTE+10, PRSNOTE+11 , PRSNOTE+17, PRSNOTE+18 |
| DEST | TXT2LN~ |
| DEST( | TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| DFN | PENOTE+1~, PENOTE+3*, PENOTE+6 |
| HDR | PRSNOTE+2~, PRSNOTE+14 |
| HDR( | PRSNOTE+15, PRSNOTE+16 |
| I | PRSNOTE+1~, PRSNOTE+4*, PRSNOTE+5, PRSNOTE+6, PRSNOTE+10, PRSNOTE+11, PRSNOTE+17, PRSNOTE+18 |
| IDEST | TXT2LN+1~, TXT2LN+2*, TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| II | PENOTE+1~, PENOTE+4*, PENOTE+5, PENOTE+6, PENOTE+10*, PENOTE+12, PENOTE+14, PENOTE+15*, WRAP+1~, WRAP+5* , WRAP+6, WRAP+7 |
| J | PRSNOTE+1~, PRSNOTE+15*, PRSNOTE+16, PRSNOTE+17*, PRSNOTE+18, PRSNOTE+23*, PRSNOTE+24, TXT2LN+6~, TXT2LN+7*, TXT2LN+8 |
| JJ | WRAP+1~, WRAP+6*, WRAP+7 |
| LSTASGN | SETNOTE+3~ |
| MAX | WRAP~, WRAP+2*, WRAP+8 |
| NCNT | PRSNOTE+2~, PRSNOTE+12*, PRSNOTE+16*, PRSNOTE+18* |
| NOTERSL | PENOTE+1~, PENOTE+16*, PENOTE+17 |
| OUT | WRAP~, WRAP+3, WRAP+4! |
| OUT( | WRAP+9*, WRAP+11* |
| PCE | WRAP+1~, WRAP+7*, WRAP+8, WRAP+9, WRAP+10 |
| PNOT | SETNOTE+3~, SETNOTE+9* |
| REMAIN | TXT2LN+1~, TXT2LN+3*, TXT2LN+4, TXT2LN+5, TXT2LN+8*, TXT2LN+9 |
| RESULTS | PRSNOTE+1~, PRSNOTE+9!, PRSNOTE+10, GETNOTE~, GETNOTE+8 |
| RESULTS("adminId" | GETNOTE+3* |
| RESULTS("allowNote" | GETNOTE+5*, GETNOTE+8 |
| RESULTS("consultId" | GETNOTE+4* |
| RESULTS("cosigner" | GETNOTE+7* |
| RESULTS("requireCosigner" | GETNOTE+6* |
| RESULTS("text" | PRSNOTE+16*, PRSNOTE+18*, PRSNOTE+19, PRSNOTE+23, PRSNOTE+24, GETNOTE+9* |
| SRC | TXT2LN~ |
| SRC("text" | TXT2LN+3, TXT2LN+4, TXT2LN+7, TXT2LN+8 |
| STR | WRAP+1~, WRAP+6*, WRAP+8, WRAP+9*, WRAP+10*, WRAP+11 |
| TCNT | PENOTE+2~, PENOTE+11*, PENOTE+12 |
| TMP | WRAP+1~, WRAP+3* |
| TMP( | WRAP+5, WRAP+6, WRAP+7 |
| TXT | PENOTE+1~, PENOTE+9, PRSNOTE~, PRSNOTE+26*, PARSLN~, PARSLN+2 |
| TXT( | PENOTE+10, PENOTE+12, PENOTE+14 |
| TXTARR | PRSNOTE+1~, PRSNOTE+26 |
| TXTARR( | PRSNOTE+22*, PRSNOTE+24* |
| U | PENOTE+6, GETNOTE+2, SETNOTE+8, SETNOTE+21 |
| WRP | SETNOTE+3~ |
| X | PARSLN+2~*, PARSLN+3, PARSLN+5*, PARSLN+6 |
| YS | SETNOTE+3~, SETNOTE+11, SETNOTE+12, SETNOTE+15, SETNOTE+16 |
| YS("AD" | SETNOTE+13* |
| YS("CON" | SETNOTE+15* |
| YS("COSIGNER" | SETNOTE+14* |
| YSADD | SETNOTE+18~, SETNOTE+20*, SETNOTE+21 |
| YSDATA | SETNOTE+3~, SETNOTE+15, SETNOTE+16 |
| YSDATA(1 | SETNOTE+17 |
| YSDATA(2 | SETNOTE+22 |
| YSTYPE | PRSNOTE~, PRSNOTE+13 |
