©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
AGMAN ; IHS/ASDS/EFG - PATIENT EDIT ;
Source file <AGMAN.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient Registration | 3 | (PTLK,READ,YN)^AG ^AG1 ADDNAM^AGNAMCHG |
| VA Fileman | 3 | ^%DT NOW^%DTC ^DIE |
| IHS Patient | 1 | NAME^AUPNPED |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZMFI | ;EP called from the various page edits to tag AGPATCH with PG number
|
|
| DEADY | ;EP - Is PATIENT DECEASED (IN FILEMANAGER).
|
|
| DELCHK | ;Check for delete instruction in ^AGPATCH.
|
|
| END | ;
|
|
| NAME | ;EP - From option.
|
|
| INITL | ;EP - PATIENT Initials -LAST NAME:FIRST NAME (ONLY).
|
|
| CHART | ;EP - From option.
|
|
| DEAD | ;EP - Determine If a Patient is DECEASED.
|
|
| CHART1 | ;EP - From ^AG0 (Add Chart # to Patient)
|
|
| NAMEASK | ;
|
|
| NAME1 | ||
| DCHK1 | ;>PICK OLD HRN
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AGPATCH( | NAME1+2*, CHART1+5*, CHART1+6*, CHART1+7, CHART1+8*, ZMFI+2*, ZMFI+3*, ZMFI+4*, DCHK1+1 |
| ^AGTXST - [#9009063] | DELCHK+2, DELCHK+3, DELCHK+4 |
| ^AUPNPAT - [#9000001] | NAME1+2*, CHART1+2* |
| ^AUTTSITE(1 | ZMFI+2, DELCHK+1 |
| ^DPT - [#2] | NAMEASK+8, NAMEASK+16, CHART1+8, DEAD+1, DEADY+1, INITL+1 |
| ^XTMP("AGHL7" | NAMEASK+18* |
| ^XTMP("AGHL7AG" | NAMEASK+19*, CHART1+3* |
| Name | Line Occurrences |
|---|---|
| DCHK1 | DELCHK+2, DELCHK+3 |
| DELCHK | CHART1+5 |
| END | NAMEASK+16, NAME1+3, CHART1+1, CHART1+5, CHART1+6, CHART1+7 |
| INITL | CHART1+5, CHART1+8 |
| NAME | NAME1 |
| NAME1 | NAME1 |
| NAMEASK | NAMEASK+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CHART1+7, DEAD+1, DEADY+1, DCHK1+1! |
| ^(0 | INITL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | NAMEASK+9, CHART1+4 |
| >> AG("CH" | CHART1+6, CHART1+7, CHART1+8 |
| >> AG("DEAD" | DEAD+1!*, DEADY+1!* |
| >> AG("EDIT" | CHART1+1* |
| >> AG("INITL" | CHART1+8, INITL+1!* |
| >> AG("NAMFAIL" | NAMEASK+11 |
| >> AG("NEWNAME" | NAMEASK+2!, NAMEASK+5*, NAMEASK+7!, NAMEASK+15 |
| >> AG("NEWREG" | CHART1+5 |
| >> AG("OCH" | CHART1+5, CHART1+6, CHART1+7*, CHART1+8, DCHK1+1* |
| >> AG("OLDNAME" | NAMEASK+8*, NAMEASK+16, NAME1, NAME1+1 |
| AGDTS | NAMEASK+9*, NAME1+2, CHART1+4*, CHART1+5, CHART1+6, CHART1+7, CHART1+8, ZMFI+1*, ZMFI+2, ZMFI+3 , ZMFI+4, ZMFI+5! |
| >> AGPTPG | ZMFI+2 |
| >> AGTDS | ZMFI+1 |
| AGTX | DCHK1+2! |
| AGTXSITE | DELCHK+1*, DELCHK+2, DELCHK+3, DELCHK+4, DCHK1+2! |
| AGZDTS | DELCHK+2*, DELCHK+3*, DELCHK+4*, DCHK1+1*, DCHK1+2! |
| DA | NAMEASK+12!, NAMEASK+14*, NAMEASK+18, NAMEASK+19, NAME1+1*, NAME1+2*, CHART1+2* |
| >> DFN | NAME+2, NAMEASK+8, NAMEASK+14, NAMEASK+16, NAME1+1, NAME1+2, CHART+3, CHART1+2, CHART1+3, CHART1+5 , CHART1+6, CHART1+7, CHART1+8, ZMFI+2, ZMFI+3, ZMFI+4, DEAD+1, INITL+1, DCHK1+1 |
| >> DFOUT | NAMEASK+3, CHART1+1 |
| DIC | NAMEASK+12! |
| DIE | NAMEASK+12!, NAMEASK+13*, NAME1+1*, NAME1+2*, CHART1+2* |
| >> DLOUT | NAMEASK+3, NAME1 |
| DOG | CHART+1! |
| >> DQOUT | NAMEASK+3, NAME1 |
| DR | NAMEASK+12!, NAMEASK+15*, NAME1+1*, NAME1+2*, CHART1+2* |
| DR(2 | NAME1+1* |
| >> DTOUT | NAMEASK+3, CHART1+1 |
| >> DUOUT | NAMEASK+3, NAME1, CHART1+1 |
| DUZ | NAME1+2, CHART1+2 |
| DUZ(2 | NAMEASK+18, NAMEASK+19, NAME1+2, CHART1+3, CHART1+5, CHART1+6, CHART1+7, CHART1+8, ZMFI+2, ZMFI+3 , ZMFI+4, DCHK1+1 |
| U | NAMEASK+8, NAMEASK+16, NAME1+2, CHART1+2, CHART1+7, CHART1+8, DEAD+1, DEADY+1, INITL+1, DELCHK+1 , DELCHK+3, DELCHK+4, DCHK1+1 |
| X | NAMEASK+4*, NAMEASK+7, NAMEASK+12!, NAMEASK+16, ZMFI+1* |
| Y | NAMEASK+1, NAMEASK+4, NAMEASK+5, NAMEASK+12!, NAME1, NAME1+1, ZMFI+1, DEADY+1 |