MCARAM4 ;WASH ISC/JKL-MUSE TRANSFER LAB DATA TO LOCAL ;5/20/94 15:35
Source file <MCARAM4.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AR(MCA,MCAA,MCD,MCFP,MCLP,MCCK) | ;Sets l/t stripped data field into an array
; USAGE: S X=$$AR^MCARAM4(.A,B,C,D,E) ; WHERE: .A = array where data is placed ; B = array argument for data field ; C = data field value ; D = first position of data field ; E = last position of data field ; F = 1 to check numeric data field value for positive int value ; 2 to check "" for both positive and negative int value ; 3 to check "" for pos,neg,int, and decimal values |
|
| DFCK(MCV,MCCK) | ; Checks numeric,negative,positive,integer,decimal value
; USAGE: S X=$$DFCK^MCARAM4(A,B) ; WHERE: A=data field value ; B=1 for positive value numeric (integer) check ; B=2 for positive and negative value numeric (integer) check ; B=3 for positive, negative, decimal, or integer numeric check ; if successful, returns function value of 0 ; if unsuccessful, returns error message for incorrect field format |
|
| SLTS(MCV) | ; Strips leading and trailing spaces from data fields
; USAGE: S X=$$SLTS^MCARAM4(.A) ; WHERE: MCV=data field value ; .A = value where data is placed ; if successful, returns function value of 0 and data field value ; if unsuccessful, returns error message for incorrect field format |
|
| DGCK(MCA) | ;Removes null lines and resets numbering of diagnosis array
; USAGE: S X=$$DGCK^MCARAM4(.A) ; WHERE: MCA=diagnosis array ; .A=diagnosis array renumbered without null lines ; A("DX,0")=total number of non-null diagnosis lines ; if successful, returns function value of 0 and diagnosis array ; if unsuccessful, returns error message and A("DX,0")=0 |
|
| RXCK(MCA) | ;Removes null lines and resets numbering of medication array
; USAGE: S X=$$RXCK^MCARAM4(.A) ; WHERE: MCA=medication array ; .A=medication array renumbered without null lines ; A("RX,0")=total number of non-null medication lines ; if successful, returns function value of 0 and medication array ; if unsuccessful, returns error message and A("RX,0")=0 |
|
| DGCT(MCA,MCD,MCL) | ;Fill diagnosis array from continuation record
; USAGE: S X=$$DGCT^MCARAM4(.A,B,C) ; WHERE: MCA=diagnosis array ; .A=diagnosis array renumbered without null lines ; B=data field value, C=line number of data ; A("DX,0")=total number of non-null diagnosis lines ; "DX,L"=12th line of diagnosis, "DX,V"=22nd line ; if successful, returns function value of 0 and diagnosis array ; if unsuccessful, returns error message and A("DX,0")=0 |
|
| ERR | ;Error return
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG("B" | RXCK+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RXCK+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| MCA | AR~, DGCK~, RXCK~, DGCT~, DGCT+11, DGCT+12 |
| MCA( | AR+12*, AR+13, AR+14, AR+15, DGCK+9!*, RXCK+9*, RXCK+10! |
| MCA("CONT" | DGCT+10 |
| MCA("DX,0" | DGCK+10* |
| MCA("RX,0" | RXCK+8*, RXCK+9, RXCK+11* |
| MCAA | AR~, AR+12, AR+13, AR+14, AR+15 |
| MCCK | AR~, AR+11*, AR+13, AR+14, AR+15, DFCK~, DFCK+11, DFCK+12, DFCK+13 |
| MCD | AR~, AR+12, DGCT~, DGCT+11, DGCT+12 |
| MCERR | AR+10~, AR+12*, AR+13*, AR+14*, AR+15*, DFCK+8~, DFCK+9*, DFCK+14*, SLTS+6~, SLTS+7* , SLTS+10*, DGCK+7~, DGCK+11*, RXCK+7~, RXCK+8*, RXCK+11*, DGCT+9~, DGCT+11*, DGCT+12*, ERR+1 |
| MCFP | AR~, AR+12 |
| MCI | AR+10~, AR+12*, SLTS+6~, SLTS+8*, SLTS+10, DGCK+7~, DGCK+8*, DGCK+9*, DGCK+10, RXCK+7~ , RXCK+9*, DGCT+9~, DGCT+10*, DGCT+11, DGCT+12 |
| MCJ | SLTS+6~, SLTS+9*, SLTS+10, DGCK+7~, DGCK+8*, DGCK+9*, RXCK+7~, RXCK+9*, RXCK+11 |
| MCK | DGCK+7~, DGCK+9*, RXCK+7~, RXCK+9*, RXCK+10 |
| MCL | DGCT~, DGCT+11 |
| MCLP | AR~, AR+12 |
| MCV | DFCK~, DFCK+9, DFCK+10, DFCK+11, DFCK+12, DFCK+13, SLTS~, SLTS+7, SLTS+8, SLTS+9 , SLTS+10* |
| U | RXCK+9 |
