©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
AGMANERS ; IHS/OIT/SCR 06/22/06 - CHANGE PATIENT NAME API FOR ERS ;
Source file <AGMANERS.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 5 | ^%DT NOW^%DTC EN^DDIOL ^DIE ^DIR |
| IHS Patient Registration | 4 | CHKRHI^AG $$CHKDEATH^AGEDERR ADDNAM^AGNAMCHG $$S^AGVDF |
| IHS Patient | 1 | NAME^AUPNPED |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| NAME(AMERDFN) | ;EP - From UPDATPAT^AMERVSIT
|
|
| EDIT | ;
|
|
| DIEAUPN(DA,DR) | ; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE PATIENT FILE
|
|
| FILE | ;EP
|
|
| DIEDPT(DA,DR) | ; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE VA PATIENT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGPATCH( | EDIT+42*, END+2*, END+3*, END+4* |
| ^AUPNPAT - [#9000001] | EDIT+42*, DIEAUPN+4, DIEAUPN+6 |
| ^AUTTSITE(1 | END+2 |
| ^DPT - [#2] | EDIT+2, EDIT+30, FILE+4, FILE+6 |
| ^XTMP("AGHL7" | EDIT+32* |
| ^XTMP("AGHL7AG" | EDIT+33* |
| Name | Line Occurrences |
|---|---|
| $$DIEDPT | EDIT+29, EDIT+41 |
| DIEAUPN | EDIT+43 |
| END | EDIT+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EDIT+23, FILE+1~, DIEAUPN+1~ |
| >> AG("NAMFAIL" | EDIT+25 |
| >> AG("NEWNAME" | EDIT+17!, EDIT+19*, EDIT+21!, EDIT+28 |
| >> AG("OLDNAME" | EDIT+22*, EDIT+30, EDIT+34, EDIT+40 |
| AGDTS | EDIT+23*, EDIT+42, END+1*, END+2, END+3, END+4, END+5! |
| >> AGPTPG | END+2 |
| >> AGTDS | END+1 |
| AMERDFN | NAME~, NAME+2, EDIT+2, EDIT+3 |
| AMERONAM | EDIT+1~, EDIT+2*, EDIT+12, EDIT+15, EDIT+22 |
| D | FILE+2~, DIEAUPN+2~ |
| D0 | FILE+2~, DIEAUPN+2~ |
| DA | EDIT+26!, EDIT+27*, EDIT+29, EDIT+32, EDIT+33, EDIT+40*, EDIT+41, EDIT+42*, EDIT+43, DIEDPT~ , FILE+4, FILE+6, FILE+7!, DIEAUPN~, DIEAUPN+4, DIEAUPN+6, DIEAUPN+7! |
| >> DFN | EDIT+3*, EDIT+9, EDIT+10, EDIT+27, EDIT+30, EDIT+40, EDIT+42, END+2, END+3, END+4 |
| DI | FILE+2~, DIEAUPN+2~ |
| DIC | EDIT+1~, EDIT+26!, FILE+2~, DIEAUPN+2~ |
| DICR | FILE+2~, DIEAUPN+2~ |
| DIE | EDIT+26!, EDIT+39*, FILE+2~, FILE+3*, FILE+7!, DIEAUPN+2~, DIEAUPN+3*, DIEAUPN+7! |
| DIG | FILE+2~, DIEAUPN+2~ |
| DIH | FILE+2~, DIEAUPN+2~ |
| DIR | EDIT+13! |
| DIR("?" | EDIT+11* |
| DIR("A" | EDIT+11*, EDIT+34* |
| DIR("B" | EDIT+12*, EDIT+35* |
| DIR(0 | EDIT+11*, EDIT+35* |
| DIU | FILE+2~, DIEAUPN+2~ |
| DIV | FILE+2~, DIEAUPN+2~ |
| DIW | FILE+2~, DIEAUPN+2~ |
| DQ | FILE+2~, DIEAUPN+2~ |
| DR | EDIT+26!, EDIT+28*, EDIT+29, EDIT+40*, EDIT+41, EDIT+42*, EDIT+43, DIEDPT~, FILE+7!, DIEAUPN~ , DIEAUPN+7! |
| DR(2 | EDIT+40* |
| DTOUT | EDIT+14!, EDIT+37! |
| DUOUT | EDIT+14!, EDIT+37! |
| DUZ | EDIT+42 |
| DUZ(2 | EDIT+32, EDIT+33, EDIT+42, END+2, END+3, END+4 |
| >> RHIFLAG | EDIT+5, EDIT+6 |
| U | EDIT+2, EDIT+30, EDIT+42 |
| X | EDIT+18*, EDIT+21, EDIT+29*, EDIT+41*, END+1*, FILE+1~, FILE+8, DIEAUPN+1~ |
| Y | EDIT+14!, EDIT+15, EDIT+18, EDIT+19, EDIT+26!, EDIT+37!, EDIT+38, END+1, FILE+1~, DIEAUPN+1~ |