©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
MCARDCN1 ;WISC/TJK-MODIFIED DICN1 ROUTINE FOR MEDICINE SCREENS ;7/22/96 08:12
Source file <MCARDCN1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Q1 | ||
| DOWN | ||
| G | ||
| D | ||
| RIX | ;
|
|
| S | ||
| MCARDJXY | ;
|
|
| RR | ||
| CKID | ||
| RCR | ;
|
|
| N | ||
| Q | ||
| BAD | ||
| NUM | ;
|
|
| CALL | ||
| O | ||
| STORLIST | ;
|
|
| INIT | ||
| N1 | ||
| ZAP |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | MCARDCN1+6, CKID, RIX+2, NUM+2, NUM+3, NUM+4, NUM+5, N |
| ^DD("SITE" | NUM+1 |
| ^TMP("MCARDRCR" | CALL+1, G+2, INIT*, INIT+1* |
| Name | Line Occurrences |
|---|---|
| @( | CALL |
| BAD | MCARDCN1+6 |
| CALL | O |
| CKID | MCARDCN1+6 |
| DOWN | N1+5 |
| G | G+5, G+6 |
| INIT | STORLIST+1 |
| MCARDJXY | O+2, G+6 |
| N | NUM+2, NUM+5 |
| N1 | N1+2, N1+4 |
| O | O+1, O+2 |
| Q | CKID |
| Q1 | N1+2 |
| S | DOWN |
| STORLIST | MCARDCN1+11, MCARDCN1+15, RIX+2 |
| ZAP | D |
| Name | Field # of Occurrence |
|---|---|
| ^( | G+5 |
| ^($J | CALL+1*, G+2!, INIT+1! |
| ^(0 | MCARDCN1+8, CKID, N |
| ^(1 | NUM+1 |
| ^(3 | NUM+4, NUM+5 |
| ^(4 | NUM+4, NUM+5 |
| ^(9 | CKID |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> D | BAD |
| >> D0 | NUM+4 |
| >> DA | BAD*, RCR+2 |
| >> DD | MCARDCN1+5*, MCARDCN1+6*, CKID+1*, RCR+1, NUM+1 |
| DE | RCR+1! |
| DG | RCR+1! |
| DIC | RCR+1!, D, NUM+1, N |
| DIC("DR" | MCARDCN1+5 |
| DICRS | MCARDCN1+2! |
| >> DIE | RCR+1*, ZAP, D* |
| >> DIE("NO^" | RCR+1, RCR+2*! |
| >> DIE("W" | RCR+1*, RCR+2! |
| DIK | ZAP*! |
| >> DIY | NUM+2 |
| DO | MCARDCN1+4, BAD+1!, RCR+1!, NUM+3, N |
| DO(1 | BAD |
| DO(2 | MCARDCN1+6, CKID, RIX+2, NUM+5 |
| DQ | RCR+1! |
| DR | RCR+1!* |
| DTIME | NUM+3 |
| >> DTOUT | NUM+3* |
| DUZ(0 | CKID |
| >> DZ | MCARDCN1+4*, RCR+1, RIX+2*, RR |
| MCARDJA | MCARDJXY+1*, N1, N1+2*, N1+3, N1+4, DOWN*, Q1! |
| MCARDJB | S*, N1*, N1+1, N1+2, N1+5*, N1+6*, DOWN, Q1! |
| MCARDJC | N1+1*, N1+5*, Q1! |
| MCARDJC( | N1*, N1+1*, N1+2 |
| MCARDJC(0 | MCARDJXY+1* |
| MCARDJD | O*, O+1, O+2, CALL+1*, G*, G+2!, G+3, G+5, G+6, INIT+1* |
| MCARDJE | O+1, CALL*, CALL+1*, G, G+2!, INIT+1* |
| MCARDJX | O+2*, CALL!, CALL+1*, G+2!, N1, N1+3, N1+4 |
| MCARDJY | CALL!, G+2!, G+6*, N1+3, INIT+1* |
| MCARDJZ | MCARDJXY+1*, N1, N1+1, N1+2*, DOWN*, Q1! |
| MCARDRCR | MCARDCN1+2!, MCARDCN1+10*, MCARDCN1+15*, RIX+1!, RIX+2*, CALL! |
| MCARDRCR( | MCARDCN1+3*, RIX+1*, O |
| MCARDRCR("DIE(""NO^"")" | RCR+1* |
| MCPCT | MCARDCN1+6*, CKID*!, RIX+1*, NUM+2* |
| >> MCPCTY | NUM+2* |
| U | MCARDCN1+4, MCARDCN1+8, CKID, ZAP, NUM+2, NUM+3, NUM+4, NUM+5, N |
| X | NUM+1*, NUM+2*, NUM+3, NUM+5*, N, N+1! |
| Y | MCARDCN1+2!, MCARDCN1+3*, MCARDCN1+6*, MCARDCN1+15, BAD!*, CKID, CKID+1, RCR+3, NUM+2, NUM+3* , NUM+4, NUM+5 |
| Y(0 | RCR+2*, ZAP* |