©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
MCARAM6 ;WASH ISC/JKL-MUSE LOOKUP IN DHCP ;5/2/96 12:49
Source file <MCARAM6.m>
| Package | Total | Call Graph |
|---|---|---|
| Medicine | 1 | $$LOG^MCARAM7 |
| VA Fileman | 1 | IX^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELIG | ||
| LNAME(MCDT,MCNAME,MCP) | ;
; Where MCDT is Date/time of record in FileMan format ; MCNAME is Full Name in DHCP format ; MCP is array into which data is placed |
|
| EMPSSN(MCSS,Y) | ;Determine if unretrievable SSN belongs to an employee
|
|
| ERR | ;Error return
|
|
| NTYPE | ||
| EMPNAME(MCNAME,Y) | ;Determine if unretrievable name belongs to an employee
|
|
| LSSN(MCDT,MCSS,MCP) | ;
; Where MCDT is Date/time of record in FileMan format ; MCSS is Social Security Number in consecutive digits ; MCP is array into which data is placed |
|
| NELIG | ||
| STYPE |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DG(391 - [#391] | Classic Fileman Calls |
| ^DIC(8 - [#8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EMPSSN+11, SELIG+3, STYPE, STYPE+5, EMPNAME+11, NELIG+3, NTYPE, NTYPE+5 |
| ^DPT("B" | EMPNAME+9, EMPNAME+10 |
| ^DPT("SSN" | EMPSSN+9, EMPSSN+10 |
| ^MCAR(691.5 - [#691.5] | LSSN+10, LSSN+11, LNAME+10, LNAME+11 |
| Name | Line Occurrences |
|---|---|
| $$EMPNAME | LNAME+8 |
| $$EMPSSN | LSSN+8 |
| NTYPE | EMPNAME+11, NELIG+1 |
| STYPE | EMPSSN+11, SELIG+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D | LSSN+6~, LSSN+7*, EMPSSN+7~, SELIG*, STYPE+2*, LNAME+6~, LNAME+7*, EMPNAME+7~, NELIG*, NTYPE+2* |
| DIC | LSSN+6~, LSSN+7*, EMPSSN+7~, SELIG*, STYPE+2*, LNAME+6~, LNAME+7*, EMPNAME+7~, NELIG*, NTYPE+2* |
| DIC(0 | LSSN+7*, SELIG*, STYPE+2*, LNAME+7*, NELIG*, NTYPE+2* |
| MCDT | LSSN~, LSSN+10, LSSN+11, LNAME~, LNAME+10, LNAME+11 |
| MCEMP | EMPSSN+7~, SELIG+2*, SELIG+3, STYPE+4*, STYPE+5, EMPNAME+7~, NELIG+2*, NELIG+3, NTYPE+4*, NTYPE+5 |
| MCEPID | EMPSSN+7~, EMPSSN+10*, EMPSSN+11, SELIG+3, STYPE, STYPE+5, EMPNAME+7~, EMPNAME+10*, EMPNAME+11, NELIG+3 , NTYPE, NTYPE+5 |
| >> MCERR | LSSN+8*, LSSN+10*, LSSN+12*, ERR+1, EMPSSN+8*, EMPSSN+9, STYPE, STYPE+3, STYPE+6, LNAME+8* , LNAME+10*, LNAME+12*, EMPNAME+8*, EMPNAME+9, NTYPE, NTYPE+3, NTYPE+6 |
| MCI | LSSN+6~, LSSN+11*, LNAME+6~, LNAME+11* |
| MCNAME | LNAME~, LNAME+7, LNAME+8, EMPNAME~, EMPNAME+9, EMPNAME+10 |
| MCP | LSSN~, LNAME~ |
| MCP("EKG" | LSSN+6*, LSSN+11*, LSSN+12, LNAME+6*, LNAME+11*, LNAME+12 |
| MCP("NAME" | LSSN+9*, LNAME+9* |
| MCP(1 | LSSN+9*, LSSN+11, LNAME+9*, LNAME+11 |
| MCSS | LSSN~, LSSN+7, LSSN+8, EMPSSN~, EMPSSN+9, EMPSSN+10 |
| U | LSSN+9, LNAME+9 |
| X | LSSN+6~, LSSN+7*, EMPSSN+7~, SELIG*, STYPE+2*, LNAME+6~, LNAME+7*, EMPNAME+7~, NELIG*, NTYPE+2* |
| Y | LSSN+6~, LSSN+8, LSSN+9, EMPSSN~, EMPSSN+7~, SELIG+1, SELIG+2, SELIG+3*, STYPE+3, STYPE+4 , STYPE+5*, LNAME+6~, LNAME+8, LNAME+9, EMPNAME~, EMPNAME+7~, NELIG+1, NELIG+2, NELIG+3*, NTYPE+3 , NTYPE+4, NTYPE+5* |
| Y(0 | LSSN+9, SELIG+3*, STYPE+5*, LNAME+9, NELIG+3*, NTYPE+5* |