©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
MCARAM5 ;WASH ISC/JKL-MUSE TRANSFER LOCAL DATA INTO DHCP ;4/24/96 09:24
Source file <MCARAM5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EKG(MCA,MCE) | ;Transfer local array data into new EKG record in DHCP
; USAGE: S X=$$EKG^MCARAM5(.A,.B) ; WHERE: A=array of local data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message ; check for valid SSN |
|
| EKGDG(MCA,MCE) | ; Transfer local array diagnosis data into EKG record
; USAGE: S X=$$EKGDG^MCARAM5(.A,.B) ; WHERE: A=array of diagnosis data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message |
|
| SSNCHK(MCA,MCP) | ;Check SSN input
; USAGE: S X=$$SSNCHK^MCARAM5(.MCA,.MCP) ; WHERE: MCA=array of local data ; MCP=array of DHCP patient data ; if successful, returns function value of 0 ; if unsuccessful, returns error message |
|
| EKGRX(MCA,MCE) | ; Transfer local array medication data into EKG record
; USAGE: S X=$$EKGDG^MCARAM5(.A,.B) ; WHERE: A=array of medication data ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message |
|
| EKGOR(MCA,MCE) | ;Transfer order entry data into EKG record
; USAGE: S X=$$EKGOR^MCARAM5(.A,.B) ; WHERE: A=array of local data ; including print name for ECG procedure/subspecialty ; B=array of DHCP data ; including internal record number of EKG file ; if successful, returns function value of 0 ; if unsuccessful, returns error message |
|
| NMCHK(MCA,MCP) | ;Check name input against patient data
; Marquette allows 16 chars for last name and 10 chars for first etc. ; USAGE: S X=$$NMCHK^MCARAM5(.MCA,.MCP) ; WHERE: MCA=array of local data ; MCP=array of DHCP patient data ; if successful, returns function value of 0 ; if unsuccessful, returns error message |
| FileNo | Call Tags |
|---|---|
| ^MCAR(691.5 - [#691.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SSNCHK+7 |
| ^MCAR(690 - [#690] | EKG+13* |
| ^MCAR(691.5 - [#691.5] | EKG+24*, EKGDG+8, EKGDG+11*, EKGDG+12*, EKGRX+8, EKGRX+9*, EKGRX+13* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EKG+8~, EKG+24 |
| >> DA | EKGRX+12* |
| >> DA(1 | EKGRX+11* |
| DD | EKG+19! |
| DIC | EKG+8~, EKG+19* |
| DIC("DR" | EKG+16*, EKG+18* |
| DIC(0 | EKG+19* |
| >> DIE | EKGRX+11* |
| DLAYGO | EKG+19~* |
| DO | EKG+19! |
| >> DR | EKGRX+12* |
| MCA | EKG~, EKG+10, EKG+11, EKGDG~, EKGDG+9, EKGRX~, EKGRX+10, EKGOR~, NMCHK~, SSNCHK~ |
| MCA( | EKG+9, EKG+16, EKGDG+11, SSNCHK+8 |
| MCA("DT" | EKG+9, EKG+11, EKG+19 |
| MCA("LNAME" | NMCHK+8*, NMCHK+9 |
| MCA("NAME" | EKG+11, NMCHK+8 |
| MCA("RX,0" | EKGRX+12 |
| MCA(1 | EKG+16* |
| MCA(11 | EKG+15* |
| MCE | EKG~, EKGDG~, EKGRX~, EKGOR~ |
| MCE("EKG" | EKG+23*, EKG+24, EKGDG+8, EKGDG+11, EKGDG+12, EKGRX+8, EKGRX+9, EKGRX+11, EKGRX+13 |
| MCERR | EKG+8~, EKG+9*, EKG+10*, EKG+11*, EKGDG+9*, EKGRX+10*, NMCHK+7~*, NMCHK+9*, NMCHK+10, SSNCHK+6~* , SSNCHK+8*, SSNCHK+9 |
| MCI | EKG+8~, EKG+16*, EKGDG+7~, EKGDG+10*, EKGDG+11*, EKGRX+7~, EKGRX+12*, EKGRX+13, NMCHK+7~, NMCHK+9* , SSNCHK+6~ |
| MCJ | EKGDG+7~, EKGDG+11*, EKGDG+12 |
| MCP | EKG+8~, EKG+9, EKG+10, EKG+11, NMCHK~, SSNCHK~ |
| MCP("LNAME" | NMCHK+8*, NMCHK+9 |
| MCP("NAME" | NMCHK+8 |
| MCP("SSN" | SSNCHK+7*, SSNCHK+8 |
| MCP(1 | EKG+13, EKG+16, SSNCHK+7 |
| U | EKG+13, EKGDG+12, EKGRX+13 |
| X | EKG+8~, EKG+19* |
| Y | EKG+8~, EKG+21, EKG+23 |