AMHUTIL3 ; IHS/CMI/LAB - provider functions ;
Source file <AMHUTIL3.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 3 | PUT^DDSVAL LIST^DIC $$GET1^DIQ | 
| Kernel | 2 | $$FMTE^XLFDT $$UP^XLFSTR | 
| Mental Health Social Services | 2 | ($$DATE,A,D)^AMHUTIL C^AMHUTIL1 | 
| Data Warehouse Export System | 1 | ($$UID,UID)^BDWAID | 
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 | 
| Patient Care Component Reports | 1 | ($$PATIENT,$$VD)^APCLV | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| 6 | ||
| DLMSF(V) | ;EP date last modified | |
| SECPA(V,N,F) | ;EP | |
| 15 | ||
| CODE10 | ; | |
| PRIMPA(V,F) | ;EP - primary provider in many different formats | |
| RACESF(PAT) | ; | |
| 20 | ||
| TLM(V) | ;EP | |
| 1 | ; | |
| I | ; | |
| 3 | ; | |
| PA | ;EP | |
| 5 | ; | |
| UID(P) | ;EP | |
| 7 | ||
| ASUFACLD(R) | ;EP - get asufac of logged in facility suicide form | |
| 9 | ||
| ADMDX | ;EP | |
| PED(V,N) | ;EP - return nth v patient ed on this visit | |
| TLMSF(V) | ; | |
| 4 | ; | |
| A | ; | |
| ETHN(P) | ;EP | |
| OTHMETH | ;EP - called from screenman | |
| E | ; | |
| D | ; | |
| MSR6(V) | ;EP - return first 6 measurements and values | |
| J | ; | |
| N | ; | |
| HIGH | ||
| P | ; | |
| S | ;stage | |
| 8 | ||
| UIDO | ; | |
| 2 | ; | |
| DLM(V) | ;EP date last modified | |
| 11 | ||
| 10 | ||
| 13 | ||
| 12 | ||
| VTIME(V) | ; | |
| 14 | ||
| 17 | ||
| 16 | ||
| C | ; | |
| 18 | ||
| HF(V,N) | ;EP | |
| 19 | 
| Name | Field # of Occurrence | 
|---|---|
| $$DATE^AMHUTIL | DLM+5, DLMSF+5 | 
| A^AMHUTIL | PED+12, HF+12 | 
| D^AMHUTIL | PED+12, HF+12 | 
| C^AMHUTIL1 | PED+12, HF+12 | 
| $$PATIENT^APCLV | 4+1 | 
| $$VD^APCLV | 1+1, 2+1 | 
| $$UID^BDWAID | UID+3 | 
| UID^BDWAID | UID+2 | 
| PUT^DDSVAL | OTHMETH+3 | 
| LIST^DIC | RACESF+4 | 
| $$GET1^DIQ | UIDO+1 | 
| $$VAL^XBDIQ1 | ASUFACLD+6, MSR6+5, PED+13, 10, 13, 16, 17, 18, 20 | 
| $$VALI^XBDIQ1 | ASUFACLD+4, 19 | 
| $$FMTE^XLFDT | TLM+4, VTIME+4, TLMSF+4 | 
| $$UP^XLFSTR | TLM+5, VTIME+5, TLMSF+5 | 
| FileNo | Call Tags | 
|---|---|
| 2.02 | LIST^DIC | 
| ^AUTTLOC - [#9999999.06] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMHPSUIC - [#9002011.65] | ASUFACLD+2, DLMSF+2, DLMSF+5, TLMSF+2 | 
| ^AMHREC - [#9002011] | DLM+2, DLM+5, TLM+2, VTIME+2, MSR6+2, PED+2, HF+2, PRIMPA+2, SECPA+2, ADMDX+2 | 
| ^AMHREDU - [#9002011.05] | PED+6, PED+11, PED+13 | 
| ^AMHREDU("AD" | PED+6 | 
| ^AMHRHF - [#9002011.08] | HF+6, HF+11, HF+13 | 
| ^AMHRHF("AD" | HF+6 | 
| ^AMHRMSR - [#9002011.12] | MSR6+5 | 
| ^AMHRMSR("AD" | MSR6+5 | 
| ^AMHRPA - [#9002011.09] | PRIMPA+5, SECPA+6, PA+2, D+1, J+1, P+1, N+1, S+1, 1+1, 2+1 , 3+1, 4+1, 15 | 
| ^AMHRPA("AD" | PRIMPA+5, SECPA+6, PA+2 | 
| ^AMHTPA - [#9002014.8] | PRIMPA+7, SECPA+8, ADMDX+8, E+1, C+1, J+1, A+2 | 
| ^AUPNPAT - [#9000001] | UID+1 | 
| ^AUPNVINP - [#9000010.02] | ADMDX+6 | 
| ^AUPNVINP("AD" | ADMDX+4 | 
| ^AUTTEDT - [#9999999.09] | PED+8, PED+9 | 
| ^AUTTHF - [#9999999.64] | HF+8, HF+9 | 
| ^AUTTRCD - [#9999999.08] | HIGH+3, HIGH+5 | 
| ^AUTTRCD("AH" | HIGH, HIGH+1, HIGH+2 | 
| ^AUTTSITE(1 | UIDO+1 | 
| ^DIC(10 - [#10] | RACESF+6, RACESF+8 | 
| ^DIC(10.2 - [#10.2] | ETHN+9 | 
| ^DPT - [#2] | ETHN+3, ETHN+6, ETHN+7 | 
| Name | Line Occurrences | 
|---|---|
| @( | PRIMPA+9, SECPA+10, PA+4, PA+6, PA+7, ADMDX+10 | 
| A | 8 | 
| C | 7 | 
| CODE10 | A+4 | 
| D | 9 | 
| E | 6 | 
| HIGH | A+4, A+6 | 
| J | 11 | 
| N | 14 | 
| P | 12 | 
| UIDO | UID+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | PED+4~, PED+10*, PED+11, PED+12*, HF+4~, HF+10*, HF+11, HF+12*, PRIMPA+3~, PRIMPA+9* , PRIMPA+10, SECPA+4~, SECPA+10*, SECPA+11, PA+1~, PA+4*, PA+6*, PA+7*, ADMDX+3~, ADMDX+4* , ADMDX+5, ADMDX+10*, ADMDX+11, I+1*, E+1*, C+1*, D+1*, J+1*, P+1*, N+1* , S+1*, A+3*, A+8*, HIGH*, HIGH+1*, HIGH+4*, HIGH+5*, 1+1*, 2+1*, 3+1* , 4+1*, 5+1*, 10*, 13*, 15*, 16*, 17*, 18*, 19*, 20* | 
| A | PED+12~*, HF+12~* | 
| >> APCLV( | PA+2*, PA+4*, PA+6*, PA+7* | 
| C | MSR6+3~, MSR6+4*, MSR6+5*, PED+4~, PED+5*, PED+6*, HF+4~, HF+5*, HF+6*, PRIMPA+3~ , PRIMPA+4*, SECPA+4~, SECPA+5*, SECPA+6*, PA+1~, PA+2*, PA+4, PA+6, PA+7 | 
| D | PED+12~*, HF+12~*, A+1~, HIGH+1*, HIGH+2, HIGH+3, HIGH+5 | 
| >> DA | OTHMETH+3 | 
| >> DDSOLD | OTHMETH+1 | 
| >> DIE | OTHMETH+3 | 
| E | ETHN+4~, ETHN+5*, ETHN+6, ETHN+9*, ETHN+11, A+1~, HIGH+2*, HIGH+3 | 
| F | ETHN+2*, MSR6+3~, MSR6+4*, MSR6+5*, PRIMPA~, PRIMPA+8*, PRIMPA+9, SECPA~, SECPA+9*, SECPA+10 , PA+3, PA+5, PA+6, PA+7, ADMDX+9*, ADMDX+10 | 
| H | A+1~, HIGH*, HIGH+1, HIGH+2 | 
| I | RACESF+1~, RACESF+6*, RACESF+7, ETHN+4~, ETHN+5*, ETHN+7*, ETHN+8, ETHN+9, PA+1~, PA+4* , PA+6*, PA+7*, A+1~, A+2*, A+3, A+4, A+5, A+6*, A+7*, A+8* , HIGH, CODE10+1, CODE10+2* | 
| J | PA+1~, PA+6* | 
| L | A+1~, HIGH+3*, HIGH+4 | 
| N | PED~, PED+3, PED+6, HF~, HF+3, HF+6, SECPA~, SECPA+3, SECPA+6 | 
| P | ETHN~, ETHN+1, ETHN+3, ETHN+6, ETHN+7, UID~, UID+1, UID+3, UIDO+1, PED+4~ , PED+5*, PED+6*, PED+7, PED+8, PED+9, PED+11*, HF+4~, HF+5*, HF+6*, HF+7 , HF+8, HF+9, HF+11*, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, PRIMPA+6, PRIMPA+7, SECPA+4~, SECPA+5* , SECPA+6*, SECPA+7, SECPA+8, PA+2*, ADMDX+6*, ADMDX+7, ADMDX+8, I+1, E+1, C+1 , A+2 | 
| PAT | RACESF~, RACESF+4 | 
| R | ASUFACLD~, ASUFACLD+1, ASUFACLD+2, ASUFACLD+4, DLM+3~, DLM+4*, DLM+5*, DLM+6, TLM+1~, TLM+2* , TLM+3, TLM+4*, TLM+5, VTIME+1~, VTIME+2*, VTIME+3, VTIME+4*, VTIME+5, DLMSF+3~, DLMSF+4* , DLMSF+5*, DLMSF+6, TLMSF+1~, TLMSF+2*, TLMSF+3, TLMSF+4*, TLMSF+5, MSR6+3~, MSR6+4*, MSR6+5* , MSR6+6, PED+9*, PED+10*, PED+13*, PED+14, HF+9*, HF+10*, HF+13*, HF+14, A+1~ , A+5*, HIGH+4, CODE10+1* | 
| S | MSR6+3~, MSR6+4*, MSR6+5*, PA+1~, PA+4* | 
| U | RACESF+6, RACESF+8, RACESF+11, ETHN+7, ETHN+9, DLM+5, TLM+2, UIDO+1, VTIME+2, DLMSF+5 , TLMSF+2, MSR6+5, PED+9, PED+10, PED+11, PED+13, HF+9, HF+10, HF+11, HF+13 , PRIMPA+5, SECPA+6, PA+2, PA+4, PA+6, PA+7, ADMDX+6, E+1, C+1, D+1 , J+1, P+1, N+1, S+1, A+2, HIGH+3, HIGH+5, 1+1, 2+1, 3+1 , 4+1, 15 | 
| V | DLM~, DLM+1, DLM+2, DLM+5, TLM~, TLM+2, VTIME~, VTIME+2, DLMSF~, DLMSF+1 , DLMSF+2, DLMSF+5, TLMSF~, TLMSF+2, MSR6~, MSR6+1, MSR6+2, MSR6+5, PED~, PED+1 , PED+2, PED+6, HF~, HF+1, HF+2, HF+6, PRIMPA~, PRIMPA+1, PRIMPA+2, PRIMPA+5 , SECPA~, SECPA+1, SECPA+2, SECPA+6, PA+2, ADMDX+1, ADMDX+2, ADMDX+4 | 
| X | RACESF+1~, RACESF+3*, RACESF+11*, RACESF+12, UID+3*, OTHMETH+1, OTHMETH+3 | 
| Y | RACESF+1~, RACESF+5*, RACESF+6, RACESF+8, MSR6+3~, MSR6+4*, MSR6+5*, PED+4~, PED+5*, PED+6* , HF+4~, HF+5*, HF+6*, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, SECPA+4~, SECPA+5*, SECPA+6*, PA+2* , ADMDX+3~, OTHMETH+2, 1+1, 2+1, 3+1, 4+1, 5+1, 10, 13, 15 , 16, 17, 18, 19, 20 | 
| Z | RACESF+1~, RACESF+2!, RACESF+8*, RACESF+10, RACESF+11, ETHN+4~, ETHN+6*, ETHN+7, ASUFACLD+3~, ASUFACLD+4* , ASUFACLD+5, ASUFACLD+6, PED+4~, PED+5*, PED+6*, PED+11, PED+13, HF+4~, HF+5*, HF+6* , HF+11, HF+13, PRIMPA+3~, PRIMPA+4*, PRIMPA+5*, SECPA+4~, SECPA+5*, SECPA+6*, PA+1~, PA+2* , ADMDX+3~, ADMDX+4*, ADMDX+5, ADMDX+6, D+1, J+1, P+1, N+1, S+1 | 
| Z("DILIST" | RACESF+5, RACESF+6, RACESF+8 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(@I | PA+4 | 
| $T(UID^BDWAID | UID+2 |