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.
|
|
| GNOTE(ARGS,RESULTS) | ;Get Note for PE ;246
|
|
| 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
|
|
| DELADMS(ARGS,DATA) | ;Delete all admins for a patient
|
| Name | Field # of Occurrence |
|---|---|
| $$UP^XLFSTR | PENOTE+17 |
| $$PROD^XUPROD | DELADMS+2 |
| OWNSKEY^XUSRB | DELADMS+3 |
| CCREATE^YTQCONS | SETNOTE+15 |
| SPLTADM^YTQRCAT | GETNOTE+10 |
| DELADMIN^YTQRQAD1 | DELADMS+7 |
| $$ALWNOTE^YTQRQAD3 | GETNOTE+5, SETNOTE+21 |
| $$REQCSGN^YTQRQAD3 | GETNOTE+6 |
| REPORT1^YTQRQAD3 | GETNOTE+8 |
| SETERROR^YTQRUTL | PENOTE+3, PENOTE+7, PRSNOTE+7, PRSNOTE+8, GNOTE+4, 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*, DELADMS+6 |
| Name | Line Occurrences |
|---|---|
| $$PARSLN | TXT2LN+3, TXT2LN+8 |
| $$SETNOTE | PENOTE+18 |
| GETNOTE | PRSNOTE+10, GNOTE+5 |
| 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, GNOTE+1~, GNOTE+2~*, GNOTE+4 , GNOTE+5, 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+18, SENOTE~, PRSNOTE~, GNOTE~, SETNOTE~, DELADMS~ |
| ARGS("adminId" | GNOTE+2 |
| ARGS("cosigner" | GNOTE+3 |
| ARGS("dfn" | DELADMS+5 |
| ASGN | SETNOTE+3~, SETNOTE+5* |
| CCNT | PENOTE+2~, PENOTE+14*, PENOTE+15 |
| CNT | PRSNOTE+1~, PRSNOTE+3*, PRSNOTE+23, PRSNOTE+24*, PRSNOTE+26*, PRSNOTE+28*, 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, GNOTE+1~, GNOTE+3*, GNOTE+5, GETNOTE~, GETNOTE+7 |
| CRLF | TXT2LN+1~, TXT2LN+2*, PARSLN+5 |
| DARR | PENOTE+1~, PENOTE+18 |
| DARR("adminId" | PENOTE+16* |
| DARR("cosigner" | PENOTE+17* |
| DARR("text" | PENOTE+13*, PENOTE+15* |
| DATA | PENOTE~, PENOTE+9, SENOTE~, PRSNOTE~, SETNOTE~, SETNOTE+11, DELADMS~ |
| 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+16, PENOTE+17, PRSNOTE+4, PRSNOTE+5, PRSNOTE+6, PRSNOTE+10 , PRSNOTE+11, PRSNOTE+17, PRSNOTE+18, PRSNOTE+19, PRSNOTE+20 |
| DEST | TXT2LN~ |
| DEST( | TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| DFN | PENOTE+1~, PENOTE+3*, PENOTE+6, DELADMS+1~, DELADMS+5*, DELADMS+6 |
| HDR | PRSNOTE+2~ |
| I | PRSNOTE+1~, PRSNOTE+4*, PRSNOTE+5, PRSNOTE+6, PRSNOTE+10, PRSNOTE+11, PRSNOTE+17, PRSNOTE+18, PRSNOTE+19, PRSNOTE+20 |
| IDEST | TXT2LN+1~, TXT2LN+2*, TXT2LN+5*, TXT2LN+9*, PARSLN+5* |
| II | PENOTE+1~, PENOTE+4*, PENOTE+5, PENOTE+6, PENOTE+11*, PENOTE+13, PENOTE+15, PENOTE+16*, PENOTE+17, WRAP+1~ , WRAP+5*, WRAP+6, WRAP+7 |
| J | PRSNOTE+1~, PRSNOTE+19*, PRSNOTE+20, PRSNOTE+27*, PRSNOTE+28, 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+18*, PRSNOTE+20* |
| NOTERSL | PENOTE+1~, PENOTE+18*, PENOTE+19 |
| 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, GNOTE~, GNOTE+5, 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+18*, PRSNOTE+20*, PRSNOTE+21, PRSNOTE+25, PRSNOTE+26, PRSNOTE+27, PRSNOTE+28, GETNOTE+9* |
| RET | DELADMS+1~, DELADMS+3 |
| RET(0 | DELADMS+4 |
| 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+12*, PENOTE+13 |
| TMP | WRAP+1~, WRAP+3* |
| TMP( | WRAP+5, WRAP+6, WRAP+7 |
| TXT | PENOTE+1~, PENOTE+9, PENOTE+10, PRSNOTE~, PRSNOTE+30*, PARSLN~, PARSLN+2 |
| TXT( | PENOTE+11, PENOTE+13, PENOTE+15 |
| TXTARR | PRSNOTE+1~, PRSNOTE+30 |
| TXTARR( | PRSNOTE+24*, PRSNOTE+26*, PRSNOTE+28* |
| 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 |
| YSADM | DELADMS+1~, DELADMS+6*, DELADMS+7 |
| YSDATA | SETNOTE+3~, SETNOTE+15, SETNOTE+16 |
| YSDATA(1 | SETNOTE+17 |
| YSDATA(2 | SETNOTE+22 |
| YSTYPE | PRSNOTE~ |
