MCARAM4 ;WASH ISC/JKL-MUSE TRANSFER LAB DATA TO LOCAL ;5/20/94 15:35
Source file <MCARAM4.m>
| 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
|
