©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
SRODTH ;BIR/ADM - UPDATE CASE AS UNRELATED OR RELATED TO DEATH ;01/30/01 10:06 AM
Source file <SRODTH.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | (,C)^%DTC ^DIC ^DIE ^DIR |
| Surgery | 2 | ($$LOCK,UNLOCK)^SROUTL ^SRSKILL |
| Registration | 1 | DEM^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ; set up array of cases in 90 days prior to death
|
|
| PAT | ||
| HDR | ; print heading
|
|
| LIST | ; display list of operations
|
|
| RELATED | ; update UNRELATED/RELATED status
|
|
| NODIE | ||
| END | ||
| SEL | ; select operation to update
|
|
| LOOP | ; break procedures
|
|
| OUT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRF - [#130] | SET+1, SET+2, LIST+1*, LIST+3, LIST+5 |
| ^SRF("ADT" | PAT+4 |
| Name | Line Occurrences |
|---|---|
| END | PAT+1, OUT, SEL+2, NODIE |
| HDR | OUT, RELATED+2, NODIE |
| LIST | OUT+2, RELATED+2 |
| LOOP | LIST+6 |
| NODIE | PAT+2 |
| OUT | SEL+3 |
| PAT | OUT, SEL+4, NODIE+1 |
| RELATED | SEL+3 |
| SET | PAT+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CNT | PAT+3*, OUT, SEL+1, SET+3* |
| DA | RELATED+2!* |
| >> DATE | LIST+5*, LIST+7 |
| >> DFN | PAT+2*, PAT+4 |
| DIC | PAT+1!* |
| DIC("A" | PAT+1* |
| DIC(0 | PAT+1* |
| DIE | RELATED+2!* |
| DIR | OUT!, SEL+1!, SEL+2!, NODIE!, END! |
| DIR("?" | SEL+1* |
| DIR("A" | SEL+2* |
| DIR(0 | OUT*, SEL+1*, NODIE*, END* |
| DR | RELATED+2!* |
| >> DTOUT | OUT, SEL+2, NODIE |
| >> DUOUT | OUT, SEL+2, NODIE |
| IOF | PAT, HDR+1, END+1 |
| >> LOOP | LOOP+1* |
| >> M | LIST+6*, LOOP+1 |
| MM | LIST+6!, LOOP+1* |
| MMM | LIST+6!, LOOP+1* |
| >> NUM | OUT+2*, SEL+3*, RELATED+1, LIST+7 |
| SRCASE | PAT+4!*, OUT+2*, RELATED+1*, RELATED+2, SET+1, SET+2, SET+3, LIST+1, LIST+3, LIST+5 |
| SRCASE( | OUT+2, RELATED+1, SET+3* |
| >> SRDAY | PAT+3*, SET+1 |
| >> SRDEATH | PAT+2*, PAT+3, SET+1, LIST+5 |
| >> SRDT | PAT+3*, PAT+4* |
| >> SRELATE | LIST+2*, LIST+4 |
| >> SRLENGTH | LIST+5*, LIST+8 |
| >> SROPER | LIST+3*, LIST+4*, LIST+6*, LOOP+1* |
| SROPS | LIST+6! |
| SROPS( | LOOP+1* |
| SROPS(1 | LIST+6*, LIST+7 |
| SROPS(2 | LIST+7 |
| SROPS(3 | LIST+7 |
| >> SRSDATE | SET+1* |
| >> SRSOUT | PAT+1*, END |
| >> VA("PID" | HDR+1 |
| >> VADM(1 | HDR+1 |
| >> VADM(6 | PAT+2, HDR+1 |
| >> X | PAT+3, LIST+1*, LIST+2, LIST+5, HDR+1* |
| >> X1 | PAT+3*, LIST+5* |
| >> X2 | PAT+3*, LIST+5* |
| >> Y | PAT+1, PAT+2, SEL+3 |