Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGUTL

Package: IHS Patient Registration

Routine: AGUTL


Information

AGUTL ;IHS/OIT/NKD - PAT REG UTILITY ROUTINE ; FEBRUARY 10, 2014

Source Information

Source file <AGUTL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 LIST^DIC  $$GET1^DID  (,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
IHS Patient 1 ($$ADDMBI,$$FORMOK,$$GETMBI)^AUPNMBI  
Kernel 1 ($$DT,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 71

Package Total Caller Graph
IHS Patient Registration 36 AG2A  AG4  AG6  AG71A11  AGAGERP1  AGAGERP2  AGAGERP3  AGAPIS  
AGED10A  AGED10B  AGED4  AGED41  AGED4A3  AGED6  AGED61  AGEDERR1  
AGEDERR2  AGEDERR3  AGEL  AGEL0  AGEL1  AGELA  AGFACE  AGFACE1  
AGFACE4  AGFACE6  AGINS  AGMBIR1  AGMBIR2  AGMCRP  AGMCRP2  AGMCRP3  
AGMCRP5  AGMCRP6  AGOV64  AGTMCOV  
Pharmacy Point of Sale 7 ABSPICPY  ABSPOS26  ABSPOS29  ABSPOSCG  ABSPOSFC  ABSPOSR7  ABSPOSRU  
Diabetes Registry 6 BDMDB18  BDMDC18  BDMDD18  BDMDE18  BDMDF18  BDMDG18  
Patient Care Component Reports 6 APCLBRH1  APCLBV11  APCLPYR2  APCLPYR5  APCLVLU1  APCLYV22  
Patient Care Component Table Maintiance 6 APCM11E2  APCM13E2  APCM14E2  APCM24E2  APCM25E2  APCM2AE2  
Mental Health Social Services 3 AMHRPSU1  AMHRPSU2  AMHRPSU3  
IHS Immunizations Interface 2 BYIMSEG1  BYIMSEGS  
Automated Lab Instruments 1 LA7VQINS  
Data Warehouse Export System 1 BDWIN1  
Health Summary Components 1 BHSINSUR  
IHS Mods To Text Integration Utilities 1 BTIULO2  
Patient Care Component 1 APCHS5A  

Entry Points

Name Comments DBIA/ICR reference
ASKHICN(FILE,IEN,VAL)
EDITELIG(FILE,IEN)
ASKNUM(FILE,IEN)
GETMCR(IEN,EFFDATE)
EDITMCR(IEN,FLAG)
GETMBIS(IEN,RES,SUB)
RACE(AGPATDFN) ;EP - RETURN LIST OF PATIENT'S RACES (EXTERNAL FORMAT)
; # OF RACES^RACE 1^RACE 2^ETC
; EX: PT W/0 RACES => "0"
; EX: PT W/2 RACES => "2^AMERICAN INDIAN OR ALASKA NATIVE^ASIAN"
GETRRE(IEN,EFFDATE)
HICN(FILE,IEN)
EDITRRE(IEN,FLAG)
SEXELIG(AGPATDFN) ;EP - UPDATES PATIENT-SPECIFIC ELIGIBILITY SEX/GENDER FIELDS TO PATIENT'S SEX
; MEDICARE/MEDICAID/RAILROAD ELIGIBLE FILES ARE ASSOCIATED WITH A PATIENT
; CALLING THIS API WILL UPDATE THE SEX/GENDER FIELDS IN THE ELIGIBLE FILES TO MATCH THE PATIENT'S SEX
ISMBI(VAL)
INSTYP(AGIEN,AGFLAG) ;EP - RETURN INSURER TYPE CODE (DEFAULT) OR NAME (AGFLAG=1)
ASKMBI(IEN,VAL,SRC)
HASMBI(DFN,EFFDATE)

External References

Name Field # of Occurrence
$$ADDMBI^AUPNMBI ASKMBI+19
$$FORMOK^AUPNMBI ISMBI+11, ASKMBI+3
$$GETMBI^AUPNMBI GETMCR+11, GETRRE+11, ASKNUM+11, ASKNUM+15
LIST^DIC RACE+5, GETMBIS+2
$$GET1^DID ASKHICN+4
^DIE ASKHICN+7
UPDATE^DIE SEXELIG+13, SEXELIG+20, SEXELIG+27
$$GET1^DIQ SEXELIG+5, SEXELIG+10, SEXELIG+17, SEXELIG+24, GETMCR+10, GETRRE+10, HICN+1, EDITELIG+1, ASKNUM+2
^DIR ASKNUM+17, ASKMBI+5, ASKMBI+15
$$DT^XLFDT GETMCR+10, GETRRE+10, HASMBI+6, ASKNUM+11, ASKNUM+15, ASKMBI+13, ASKMBI+14
$$FMTE^XLFDT ASKMBI+13, ASKMBI+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(RES,U,2),!
  • Line Location: ASKMBI+5
Routine Call
  • DIC
  • Line Location:
    • RACE+5
    • GETMBIS+2
Routine Call
  • DIE
  • Line Location:
    • SEXELIG+13
    • SEXELIG+20
    • SEXELIG+27
Routine Call
  • DIE
  • Line Location:
    • ASKHICN+7
Routine Call
  • DIR
  • Line Location:
    • ASKNUM+17
    • ASKMBI+5
    • ASKMBI+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.02 LIST^DIC
9000001.44 LIST^DIC
^AUPNMCR - [#9000003] GET1^DIQ
^AUPNMCD - [#9000004] GET1^DIQ
^AUPNRRE - [#9000005] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNMCD - [#9000004] SEXELIG+16
^AUPNMCD("B" SEXELIG+15
^AUPNMCR - [#9000003] SEXELIG+9, SEXELIG+12
^AUPNMCR("B" SEXELIG+8
^AUPNPAT - [#9000001] HASMBI+7, ASKMBI+13
^AUPNRRE - [#9000005] SEXELIG+23, SEXELIG+26
^AUPNRRE("B" SEXELIG+22
^AUTNINS - [#9999999.18] INSTYP+1
^AUTTINTY - [#9999999.181] INSTYP+1

Label References

Name Line Occurrences
$$ASKHICN EDITELIG+3
$$ASKMBI EDITELIG+4
$$ASKNUM EDITELIG+2
$$GETMCR EDITMCR+3
$$GETRRE EDITRRE+3
$$HASMBI GETMCR+11, GETRRE+11, ASKNUM+11, ASKNUM+15
$$HICN GETMCR+12, GETRRE+12, ASKNUM+10, ASKNUM+14, ASKHICN+8
$$ISMBI EDITELIG+2
EDITELIG EDITMCR+2, EDITMCR+4, EDITRRE+2, EDITRRE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGCNT RACE+4~, RACE+7*
AGFLAG INSTYP~, INSTYP+1*
AGIEN INSTYP~, INSTYP+1*
AGLIST RACE+4~, RACE+6*, RACE+7*, RACE+8
AGPATDFN RACE~, RACE+5, SEXELIG~, SEXELIG+3, SEXELIG+5, SEXELIG+8, SEXELIG+10, SEXELIG+15, SEXELIG+17, SEXELIG+22
, SEXELIG+24
AGPTR SEXELIG+4~, SEXELIG+8*, SEXELIG+9, SEXELIG+10, SEXELIG+12, SEXELIG+15*, SEXELIG+16, SEXELIG+17, SEXELIG+19, SEXELIG+22*
, SEXELIG+23, SEXELIG+24, SEXELIG+26
AGPTR2 SEXELIG+4~, SEXELIG+12*, SEXELIG+26*
AGRACE RACE+4~
AGRACE("DILIST" RACE+6, RACE+7
AGSEX SEXELIG+4~, SEXELIG+5*, SEXELIG+6, SEXELIG+12, SEXELIG+19, SEXELIG+26
DA ASKHICN+2~, ASKHICN+6*
DEF ASKNUM+1~, ASKNUM+14*, ASKNUM+15*, ASKNUM+16
DFN GETMCR+10~*, GETMCR+11, GETRRE+10~*, GETRRE+11, HASMBI~, HASMBI+6*, HASMBI+7, EDITELIG+1~*, EDITELIG+4, ASKNUM+1~
, ASKNUM+2*, ASKNUM+11, ASKNUM+15
DIE ASKHICN+2~, ASKHICN+4*
DIR ASKNUM+1~, ASKMBI+2~, ASKMBI+8!
DIR("A" ASKNUM+5*, ASKNUM+6*, ASKNUM+7*, ASKNUM+8*, ASKNUM+9*, ASKNUM+10*, ASKNUM+11*, ASKNUM+12*, ASKMBI+11*
DIR("B" ASKNUM+16*, ASKMBI+13*, ASKMBI+14*
DIR(0 ASKNUM+4*, ASKMBI+5*, ASKMBI+10*
>> DIROUT ASKHICN+1, ASKMBI+1, ASKMBI+6, ASKMBI+16
DR ASKHICN+2~, ASKHICN+5*
>> DTOUT ASKHICN+1, ASKMBI+1, ASKMBI+6, ASKMBI+16
>> DUOUT ASKHICN+1, ASKMBI+1, ASKMBI+6, ASKMBI+16
EFFDATE GETMCR~, GETMCR+10*, GETMCR+11, GETRRE~, GETRRE+10*, GETRRE+11, HASMBI~, HASMBI+6*, HASMBI+7
EFFDT ASKMBI+2~, ASKMBI+17*, ASKMBI+19
FDA SEXELIG+11~, SEXELIG+13, SEXELIG+18~, SEXELIG+25~, SEXELIG+27
FDA( SEXELIG+12*, SEXELIG+26*
FDA(9000004 SEXELIG+19*
FILE GETMCR+10~*, GETMCR+12, GETRRE+10~*, GETRRE+12, HICN~, HICN+1, EDITELIG~, EDITELIG+1*, EDITELIG+2, EDITELIG+3
, EDITELIG+4, ASKNUM~, ASKNUM+2*, ASKNUM+5, ASKNUM+7, ASKNUM+10, ASKNUM+14, ASKHICN~, ASKHICN+3*, ASKHICN+4
, ASKHICN+5, ASKHICN+8
FLAG EDITMCR~, EDITMCR+1*, EDITMCR+3, EDITRRE~, EDITRRE+1*, EDITRRE+3
IEN GETMCR~, GETMCR+10*, GETMCR+12, GETRRE~, GETRRE+10*, GETRRE+12, HICN~, HICN+1, EDITMCR~, EDITMCR+1*
, EDITMCR+2, EDITMCR+3, EDITMCR+4, EDITRRE~, EDITRRE+1*, EDITRRE+2, EDITRRE+3, EDITRRE+4, EDITELIG~, EDITELIG+1*
, EDITELIG+2, EDITELIG+3, ASKNUM~, ASKNUM+2*, ASKNUM+10, ASKNUM+14, ASKHICN~, ASKHICN+3*, ASKHICN+6, ASKHICN+8
, ASKMBI~, ASKMBI+3*, ASKMBI+13, ASKMBI+19, GETMBIS~, GETMBIS+1*, GETMBIS+2
MBI ASKMBI+2~, ASKMBI+3*, ASKMBI+5*, ASKMBI+13, ASKMBI+19
POL EDITELIG+1~, EDITELIG+2*, EDITELIG+3*, EDITELIG+4*
RES EDITMCR+1~, EDITMCR+3*, EDITRRE+1~, EDITRRE+3*, EDITELIG+1~, EDITELIG+2*, EDITELIG+3, ASKMBI+2~, ASKMBI+3*, ASKMBI+5
, GETMBIS~, GETMBIS+1*, GETMBIS+3, GETMBIS+4
SRC ASKMBI~, ASKMBI+3*, ASKMBI+19
SUB GETMBIS~, GETMBIS+1*, GETMBIS+3
TMP GETMBIS+1~
TMP("DILIST" GETMBIS+3, GETMBIS+4, GETMBIS+5
U EDITELIG+3, ASKMBI+5
VAL ISMBI~, ISMBI+7*, ISMBI+8, ISMBI+9, ISMBI+10, ISMBI+11, ASKHICN~, ASKHICN+3*, ASKHICN+5, ASKMBI~
, ASKMBI+3
X ASKNUM+1~, ASKNUM+18
Y ASKNUM+1~, ASKMBI+5, ASKMBI+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All