©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
AUPNPCTR ; IHS/CMI/LAB - XREF TRIGGER FROM #1117 (RESIDENCE COMMUNITY PT) TO LAST PREVIOUS COMMUNITY 24-MAY-1993 ; [ 10/03/2007 8:57 AM ]
Source file <AUPNPCTR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LD | ; find last date
|
|
| SET | ; Set Current Community , Current Residence PTR, Current Residence Date ; IHS/PAO/TMJ Fix of Subscript and DIE Call
|
|
| END | ;
|
|
| LASTADDR(P,V) | ;EP - called to update .111 in file 2
|
|
| MFI | ;ENTRY POINT FOR MFI
|
|
| K | ;ENTRY POINT FOR KILL TRIGGER
|
|
| SETMFI | ;
|
|
| S | ;ENTRY POINT FOR SET TRIGGERS
|
|
| EXIT | ; all entry points NEW (DFN,DUZ,DT,U) and exit here
|
|
| LASTEM(PAT) | ;EP - called from trigger on previous email field
|
|
| DELCC | ; Delete Last Previous community multiple
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | K+5, LD+2, SET+2, SETMFI+1*, SETMFI+2, SETMFI+3, SETMFI+4, SETMFI+8, LASTEM+4, LASTEM+5 , LASTEM+6, LASTADDR+3, LASTADDR+4, LASTADDR+5 |
| ^AUTTCOM - [#9999999.05] | SET+4 |
| Name | Line Occurrences |
|---|---|
| DELCC | SETMFI+5 |
| END | S+3, S+4, K+3, K+7, MFI+7 |
| LD | S+2, K+2, MFI+6 |
| SET | S+4, K+7, MFI+6 |
| SETMFI | MFI+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SETMFI+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | LASTEM+1~, LASTEM+4*, LASTEM+5, LASTEM+6, LASTADDR+1~, LASTADDR+3*, LASTADDR+4, LASTADDR+5 |
| >> AUPN5 | K+5*, LD+1*, LD+2* |
| AUPN51DA | S+1*, S+2, K+1*, K+2, EXIT+1!, MFI+2 |
| >> AUPN5LD | S+2, K+2, K+5, K+6*, LD+1*, LD+2*, SET+1, SET+2, SET+8 |
| >> AUPN5NLD | K+5*, K+6 |
| >> AUPNCC | SET+1, SET+2*, SET+3, SET+4, SET+5*, SET+7, SETMFI+2*, SETMFI+3, SETMFI+5, SETMFI+7 |
| >> AUPNCCN | SET+1, SET+4*, SET+5*, SET+6 |
| >> AUPNDOB | MFI+2 |
| >> AUPNDOD | MFI+2 |
| >> AUPNDT | SETMFI+2*, SETMFI+3, SETMFI+6, SETMFI+7 |
| >> AUPNLPC | SETMFI+4*, SETMFI+5 |
| >> AUPNTEMP | MFI+2 |
| >> AUPNTEMP("MFI" | SET+7!, SET+9!, MFI+3, MFI+5! |
| >> AUPNX | SETMFI+4* |
| >> AUPNX1 | SETMFI+4*, DELCC+1 |
| B | LASTEM+1~, LASTEM+2!, LASTADDR+1~, LASTADDR+2! |
| B( | LASTEM+9, LASTADDR+8 |
| B(0 | LASTEM+8, LASTADDR+7 |
| B(9999999 | LASTEM+6*, LASTADDR+5* |
| C | LASTEM+1~, LASTEM+3*, LASTEM+8*, LASTEM+9, LASTADDR+1~, LASTADDR+3*, LASTADDR+7*, LASTADDR+8 |
| DA | S+1, K+1, SET+6*, MFI+2, SETMFI+7*, SETMFI+8, DELCC+1*, DELCC+2! |
| DA(1 | S+1, K+1, SETMFI+6*, SETMFI+7*, DELCC+1* |
| >> DFN | S+1*, K+1*, K+5, LD+2, SET+2, SET+6, MFI+2*, MFI+3, MFI+5, SETMFI+1 , SETMFI+2, SETMFI+3, SETMFI+4, SETMFI+6, SETMFI+7, SETMFI+8, DELCC+1 |
| DIC | SETMFI+6*! |
| DIC(0 | SETMFI+6* |
| >> DIE | SET+6*, SETMFI+7* |
| DIK | DELCC+1*, DELCC+2! |
| DR | SET+6*, SET+7*, SET+9*, SETMFI+6!, SETMFI+7*, SETMFI+8* |
| DT | S+1, K+1, MFI+2, SETMFI+8 |
| DUZ | S+1, K+1, MFI+2 |
| P | LASTADDR~, LASTADDR+3, LASTADDR+4, LASTADDR+5 |
| PAT | LASTEM~, LASTEM+4, LASTEM+5, LASTEM+6 |
| U | S+1, K+1, SET+4, MFI+2, SETMFI+2, SETMFI+3, SETMFI+4, SETMFI+8, LASTEM+5, LASTEM+6 , LASTADDR+4, LASTADDR+5 |
| V | LASTADDR~, LASTADDR+5 |
| >> X | SETMFI+6* |
| >> XDRGID | MFI+1 |
| >> Y | SET+8*, SET+9, SETMFI+6* |