©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
AGFACE7 ; IHS/ASDS/EFG - FACE SHEET (PRVT INS, VET, OTHER REG, ELIG.) ;
Source file <AGFACE7.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | DD^%DT EN^DIQ1 ^DIWP ^DIWW |
| IHS Patient Registration | 2 | ^AGDICLK HDR^AGFACE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 1 | ;;^20^^1901;^13^^.325;^9^^.326;^4^^.327;^8^^.32101;^16^^.301;^22^^.313
|
|
| VET | ;VETERAN
|
|
| ELIG | ;ELIGIBILITY FOR CARE
|
|
| PVT | ;I $P(AGL,U)]"",$D(^AUTNINS($P(AGL,U),0)) Q:(($P(AGL,U,7)]"")&(+$P(AGL,U,7)<DT)) W !,$E($P(^AUTNINS($P(AGL,U),0),U),1,29),?29,$E($P(AGL,U,2),1,26),?46 S Y=$P(AGL,U,6) D DD^%DT W Y S Y=$P(AGL,U,7) D DD^%DT W ?60,Y
|
|
| SPEMP | ;SPOUSE'S EMPLOYER
|
|
| EMP | ;PATIENT'S EMPLOYER
|
| 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 |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPN3PPH - [#9000003.1] | PVT+9 |
| ^AUPNPAT - [#9000001] | AGFACE7+9, AGFACE7+14, EMP+1, SPEMP+1 |
| ^AUPNPRVT - [#9000006] | AGFACE7+2, AGFACE7+5, PVT+5, PVT+8 |
| ^AUTNEMPL - [#9999999.75] | EMP+3, SPEMP+3 |
| ^AUTNINS - [#9999999.18] | PVT+2, PVT+3 |
| ^DD(2 | VET+8 |
| ^DIC(4 - [#4] | AGFACE7+14 |
| ^DIC(5 - [#5] | EMP+7, SPEMP+7 |
| ^DPT - [#2] | AGFACE7+7 |
| ^TMP($J | ELIG+1! |
| ^UTILITY("DIQ1" | VET+3!, VET+10, VET+11!, VET+12! |
| Name | Line Occurrences |
|---|---|
| PVT | AGFACE7+5 |
| VET | AGFACE7+7 |
| Name | Field # of Occurrence |
|---|---|
| ^("VET" | AGFACE7+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AG | AGFACE7+5*, PVT+5, PVT+8, VET+6*, VET+7 |
| >> AG( | EMP+4*, EMP+6, SPEMP+4*, SPEMP+6 |
| >> AG("-" | AGFACE7+4, AGFACE7+13, EMP+5, SPEMP+5, ELIG+1, VET+2 |
| >> AG("DRENT" | ELIG+1! |
| >> AG("LKERR" | ELIG+1 |
| >> AG("LKPRINT" | ELIG+1 |
| >> AG(0 | EMP+3*, EMP+4, SPEMP+3*, SPEMP+4 |
| >> AG(1 | AGFACE7+8*, AGFACE7+9*, AGFACE7+13, AGFACE7+15!, EMP+5, SPEMP+5 |
| >> AG(4 | EMP+7, SPEMP+7 |
| >> AG(5 | EMP+8, SPEMP+8 |
| >> AG(6 | EMP+9, SPEMP+9 |
| AGEMPIEN | EMP+1*, EMP+3, EMP+11!, SPEMP+1*, SPEMP+3, SPEMP+11! |
| >> AGL | AGFACE7+5*, PVT+2, PVT+3, PVT+10 |
| >> AGOPT(14 | ELIG+1 |
| AGPH | PVT+4~, PVT+5*, PVT+6, PVT+7, PVT+8*, PVT+9 |
| >> AGQUIT | AGFACE7+3, AGFACE7+6, AGFACE7+9, AGFACE7+11, AGFACE7+12, AGFACE7+16, EMP+2, EMP+10, SPEMP+2, SPEMP+10 , VET+1 |
| AGSCRN | VET+5*, VET+7, VET+12! |
| >> DA | AGFACE7+5*, AGFACE7+8*, ELIG+1*, VET+5*, VET+10 |
| >> DFN | AGFACE7+2, AGFACE7+5, AGFACE7+7, AGFACE7+8, AGFACE7+9, AGFACE7+14, EMP+1, SPEMP+1, ELIG+1, PVT+5 , PVT+8, VET+5 |
| DIC | AGFACE7+5*, AGFACE7+8*, ELIG+1*, VET+4!, VET+5*, VET+13! |
| DIE | VET+4!, VET+13! |
| DIQ | VET+4!, VET+13! |
| DIR | VET+4!, VET+13! |
| DIWF | ELIG+1*, ELIG+2! |
| DIWL | ELIG+1*, ELIG+2! |
| DIWR | ELIG+1*, ELIG+2! |
| DR | AGFACE7+5*, AGFACE7+8*, ELIG+1*, VET+4!, VET+7*, VET+8, VET+10, VET+12!, VET+13! |
| DT | PVT+2 |
| DUZ(2 | AGFACE7+10 |
| I | AGFACE7+9~*, AGFACE7+10, AGFACE7+14, EMP+4~*, EMP+6*, SPEMP+4~*, SPEMP+6* |
| IOSL | AGFACE7+3, AGFACE7+11, EMP+2, SPEMP+2, VET+1 |
| U | AGFACE7+14, EMP+1, EMP+4, EMP+7, SPEMP+1, SPEMP+4, SPEMP+7, PVT+2, PVT+3, PVT+5 , PVT+8, PVT+9, PVT+10, VET+7, VET+8 |
| X | ELIG+1*, VET+7*, VET+8, VET+12! |
| >> Y | PVT+10* |
| Name | Field # of Occurrence |
|---|---|
| $T(@1 | VET+5 |