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 |