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: AGUTILS

Package: IHS Patient Registration

Routine: AGUTILS


Information

AGUTILS ;IHS/ASDS/TPF - PAT REG UTILITY ROUTINE ; 3/25/2004 8:25:20 AM

Source Information

Source file <AGUTILS.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 7 DD^%DT  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
IHS Patient Registration 2 $$F111^AGAPIPAT  ^AGINS  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 53

Package Total Caller Graph
IHS Patient Registration 50 AG0  AG3  AG3A  AG4  AG6  AG71A4  AG71A5  AGACT  
AGED  AGED1  AGED11  AGED11A  AGED13  AGED4  AGED42  AGED4A  
AGED4A1  AGED4PD  AGED5  AGED6  AGED62  AGED6PD  AGED7B  AGED8  
AGEDBEA  AGEDBEB  AGEDBEC  AGEDBED  AGEDBEE  AGEDBEF  AGEDBEG  AGEDBEH  
AGEDERR2  AGEDGUAR  AGEDIT  AGEDMCD  AGEDMCD1  AGEDPRV  AGEDPRVB  AGEDPRVP  
AGEDPRVU  AGEDTPL  AGEDWC  AGEL1  AGELA  AGELUP1  AGERRAU1  AGPHADDR  
AGRPTPDP  AGSSSMR1  
Patient Registration GUI 3 AGGRPTDP  AGGUPMCD  AGGWVAL  

Entry Points

Name Comments DBIA/ICR reference
VALPHONE ;EP - CHECK FOR VALID PHONE ENTRY
ACTPOLME(PH) ;EP - ARE THERE ACTIVE POLICY MEMBERS ASSOCIATED WITH THIS POLICY HOLDER?
UPDTEMAL(PATDFN) ;EP - UPDATE HISTORICAL EMAIL ADDRESS
AGE(AGPATDFN) ;EP - RETURN AGE
ISACTIVE(EFFDT,ENDDT) ;EP - DETERMINE WHETHER THE POLICY IS ACTIVE AS OF TODAY
PROGVIEW(DUZ,SUBS) ;EP - DISPLAYS PROGRAMMER INFORMATION ON SCREEN
SPOUSE ;EP
EMAIL ;EP - CHECK FOR VALID E-MAIL ADDRESS
FINDNEW(AGINSNN,COMPIEN,INSIEN) ;EP - AG*7.1*1 IM18549 ORIGINALLY REPORTED AS
USED(DFN,AGINSPTR,AGP,AGDA,AGMCDDA) ;EP - Is this Eligibility date record used in a 3P Bill or Claim?
TESTAPI ;EP -
ALERTMSG(XMDUZ,XMY,XMSUB,XMTEXT) ;EP
CENTER(X) ;EP - CENTER TEXT
NEEDTOSQ(DFN,FAC) ;EP - DOES THE USER NEED TO SEQUENCE?
VERIF2 ;EP - DO VERIFIED BY LINE FOR INSURANCE SUMMARY SCREEN
NOTELINE(FIELDNUM,FILENUM,D0,LENGTH) ;EP -
DTEST(AGDFN) ;EP - RETURNS THE "DATE ESTABLISHED" OR "DATE OF LAST REG. UPDATE" FOR DISPLAY
WRAP(X,DIWL,DIWF) ;EP - WRAP TEXT #DEV DISPLAY
ISNONIND(DFN) ;EP - CHECK IF 1111 FIELD CONTAINS "NON-INDIAN"
VERIF ;EP - DO VERIFIED BY LINE
PATSEQ(DFN) ;EP
ISMINOR(DFN) ;EP - CHECK IF PATIENT IS A MINOR <18
SEQMAN(FAC) ;EP - IS MANDATORY SEQUENCING TURNED ON?
UPDTSEL(AGINS,COMPIEN,INSIEN) ;EP - UPDATE SELECTION
UPDTHADD(PATDFN,FORCE) ;EP - UPDATE HISTORICAL ADDRESS FROM FILE #2 ADRESS FIELDS
UPPER(STR) ;EP - CHANGE LOWER TO UPPER
NOPOLMEM(PH) ;EP - RETURNS TRUE IF THERE ARE NO ACTIVE POLICY MEMBERS BESIDES POLICY HOLDER

External References

Name Field # of Occurrence
DD^%DT DTEST+3, DTEST+6
$$F111^AGAPIPAT TESTAPI+1
^AGINS UPDTSEL+2
^DIC UPDTEMAL+7, UPDTHADD+9
^DIE UPDTEMAL+21, UPDTHADD+53
$$GET1^DIQ UPDTEMAL+15, UPDTHADD+19, UPDTHADD+20, UPDTHADD+21, UPDTHADD+22, UPDTHADD+23, UPDTHADD+25, UPDTHADD+26, NOTELINE+5, SPOUSE+4
, SPOUSE+5
^DIR UPDTEMAL+12, UPDTHADD+14
^DIWP WRAP+2
^DIWW WRAP+3
$$FMTE^XLFDT VERIF+2, VERIF2+2
^XMD ALERTMSG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XMMG
  • Line Location: ALERTMSG+2
Function Call: WRITE
  • Prompt: !,"Last edited by: ",$P($G(^VA(200,$P($G(^AUPNPAT(DFN,0)),U,12),0)),U)," on ",$$FMTE^XLFDT($P($G(^AUPNPAT(DFN,0)),U,3),1)
  • Line Location: VERIF+2
Function Call: WRITE
  • Prompt: !,"Last edited by: ",$P($G(^VA(200,$P(CATREC,U,9),0)),U)," on ",$$FMTE^XLFDT($P(CATREC,U,10),1)
  • Line Location: VERIF2+2
Function Call: WRITE
  • Prompt: !,"|--------------------PROGRAMMER INFORMATION VIEW-------------------------------|"
  • Line Location: PROGVIEW+4
Function Call: WRITE
  • Prompt: !,"|ED SCR RTN=",$G(ROUTID),?25,"DFN=",$G(DFN),?79,"|"
  • Line Location: PROGVIEW+5
Function Call: WRITE
  • Prompt: !,"|ED CHK SCR=",$G(AG("PG")),?25,"AUPNPAT=",$G(AUPNPAT),?79,"|"
  • Line Location: PROGVIEW+6
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: PROGVIEW+7
Function Call: WRITE
  • Prompt: ?79,"|"
  • Line Location: PROGVIEW+13
Function Call: WRITE
  • Prompt: !,"|------------------------------------------------------------------------------|"
  • Line Location: PROGVIEW+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PROGVIEW+15
Function Call: WRITE
  • Prompt: ?CENTER-($L(X)/2),X
  • Line Location: CENTER+2
Routine Call
  • DIE
  • Line Location:
    • UPDTEMAL+21
    • UPDTHADD+53
Routine Call
  • DIC
  • Line Location:
    • UPDTEMAL+7
    • UPDTHADD+9
Routine Call
  • DIR
  • Line Location:
    • UPDTEMAL+12
    • UPDTHADD+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( USED+16, USED+17, USED+18, USED+20, USED+23, USED+25, USED+26
^ABMDCLM - [#9002274.3] USED+34, USED+35, USED+37, USED+40, USED+42
^AGFAC - [#9009061] SEQMAN+1
^AUPN3PPH - [#9000003.1] ACTPOLME+8, NOPOLMEM+8
^AUPNICP("C" PATSEQ+1
^AUPNPAT - [#9000001] UPDTHADD+2, VERIF+1, VERIF+2, ISNONIND+2, DTEST+2, DTEST+5, SPOUSE+3, SPOUSE+5
^AUPNPAT("AG" SPOUSE+1, SPOUSE+2
^AUPNPRVT - [#9000006] ACTPOLME+7, NOPOLMEM+7
^AUPNPRVT("C" ACTPOLME+4, ACTPOLME+6, NOPOLMEM+4, NOPOLMEM+6
^AUTTBEN - [#9999999.25] ISNONIND+4
^DD( NOTELINE+4
^DD(2 ISMINOR+3, AGE+1
^DIC(4 - [#4] USED+26, USED+43
^DIC(5 - [#5] UPDTHADD+24
^DPT - [#2] SPOUSE+3
^UTILITY($J WRAP+1!
^VA(200 - [#200] VERIF+2, VERIF2+2
^XUSEC("AGZPROG" PROGVIEW+1

Label References

Name Line Occurrences
$$FINDNEW UPDTSEL+10
$$ISACTIVE ACTPOLME+13, NOPOLMEM+13
$$PATSEQ NEEDTOSQ+2
$$SEQMAN NEEDTOSQ+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE ACTPOLME+1~, ACTPOLME+3*, ACTPOLME+4, ACTPOLME+6, ACTPOLME+15*, ACTPOLME+16, NOPOLMEM+1~, NOPOLMEM+3*, NOPOLMEM+4, NOPOLMEM+6
, NOPOLMEM+15*, NOPOLMEM+16
ADDREC UPDTEMAL+1~, UPDTEMAL+13*, UPDTEMAL+17, UPDTHADD+3~, UPDTHADD+15*, UPDTHADD+29
>> AG("PG" PROGVIEW+6
AG13 USED+13~, USED+19*, USED+20*, USED+23, USED+25, USED+36*, USED+37*, USED+40, USED+42
AGBILL USED+13~, USED+14*, USED+17*, USED+18, USED+20, USED+23, USED+25, USED+26, USED+32*, USED+35*
, USED+37, USED+40, USED+42, USED+43
>> AGCITY UPDTHADD+22*, UPDTHADD+42
AGDA USED~, USED+23, USED+40
AGDFN DTEST~, DTEST+1, DTEST+2, DTEST+5
AGDUZ2 USED+13~, USED+14*, USED+16*, USED+17, USED+18, USED+20, USED+23, USED+25, USED+26, USED+32*
, USED+34*, USED+35, USED+37, USED+40, USED+42, USED+43
AGEMAIL UPDTEMAL+14~, UPDTEMAL+15*
>> AGHPHONE UPDTHADD+26*, UPDTHADD+51
AGINS UPDTSEL~
AGINSNN UPDTSEL+10, FINDNEW~
AGINSPTR USED~
AGMCDDA USED~, USED+25, USED+42
>> AGOPT("AGE OF MINOR" , ISMINOR+4
AGP USED~, USED+23, USED+25, USED+40, USED+42
AGPATDFN AGE~
AGPIECE PROGVIEW+3~, PROGVIEW+10*, PROGVIEW+11
>> AGSELECT UPDTSEL+10*, UPDTSEL+11
>> AGSTATE UPDTHADD+23*, UPDTHADD+24*, UPDTHADD+45
AGSTR1 UPDTHADD+18~, UPDTHADD+19*, UPDTHADD+33
>> AGSTR2 UPDTHADD+20*, UPDTHADD+36
>> AGSTR3 UPDTHADD+21*, UPDTHADD+39
AGUSED USED+13~, USED+14*, USED+16, USED+17, USED+20, USED+26*, USED+30, USED+32*, USED+34, USED+35
, USED+37, USED+43*, USED+47
>> AGZIP UPDTHADD+25*, UPDTHADD+48
>> AUPNPAT PROGVIEW+6
>> CATREC VERIF2+1, VERIF2+2
>> CENTER CENTER+1*, CENTER+2
CITY UPDTHADD+18~
COMPIEN UPDTSEL~, UPDTSEL+3, UPDTSEL+10, FINDNEW~, FINDNEW+7, FINDNEW+9
D0 NOTELINE~, NOTELINE+5, ISMINOR+2*, AGE+1*
DA UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+17*, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+29*, UPDTHADD+54!
DA(1 UPDTEMAL+3*, UPDTEMAL+4, UPDTEMAL+18*, UPDTEMAL+19, UPDTHADD+5*, UPDTHADD+6, UPDTHADD+30*, UPDTHADD+31
DATALEN NOTELINE+3~, NOTELINE+5*, NOTELINE+6, NOTELINE+7*, NOTELINE+8
DFN PATSEQ~, PATSEQ+1, NEEDTOSQ~, NEEDTOSQ+2, VERIF+1, VERIF+2, PROGVIEW+5, ISNONIND~, ISNONIND+2, SPOUSE+2*
, SPOUSE+3, SPOUSE+4, SPOUSE+5, ISMINOR~, ISMINOR+1, ISMINOR+2, AGE+1, USED~, USED+17, USED+35
DIC UPDTEMAL+2!, UPDTEMAL+4*, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+6*, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+54!
DIC(0 UPDTEMAL+5*, UPDTHADD+7*
DIE UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+19*, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+31*, UPDTHADD+54!
DIR UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+54!
DIR(0 UPDTEMAL+11*, UPDTHADD+13*
DIWF WRAP~
DIWL WRAP~
DR UPDTEMAL+2!, UPDTEMAL+10!, UPDTEMAL+16!, UPDTEMAL+20*, UPDTEMAL+22!, UPDTHADD+4!, UPDTHADD+12!, UPDTHADD+28!, UPDTHADD+33*, UPDTHADD+34*
, UPDTHADD+36*, UPDTHADD+37*, UPDTHADD+39*, UPDTHADD+40*, UPDTHADD+42*, UPDTHADD+43*, UPDTHADD+45*, UPDTHADD+46*, UPDTHADD+48*, UPDTHADD+49*
, UPDTHADD+51*, UPDTHADD+52*, UPDTHADD+54!
DT UPDTEMAL+6, UPDTHADD+8, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8
DUZ PROGVIEW~, PROGVIEW+1
DUZ(2 SPOUSE+3, SPOUSE+5
>> EFFDATE ACTPOLME+11*, ACTPOLME+13, NOPOLMEM+11*, NOPOLMEM+13
EFFDT ISACTIVE~, ISACTIVE+2, ISACTIVE+6, ISACTIVE+7, ISACTIVE+8
>> EMP SPOUSE+1*, SPOUSE+2
EMPL SPOUSE+1!
EMPL( SPOUSE+6*
>> ENDDATE ACTPOLME+12*, ACTPOLME+13, NOPOLMEM+12*, NOPOLMEM+13
ENDDT ISACTIVE~, ISACTIVE+2, ISACTIVE+3*, ISACTIVE+5, ISACTIVE+7, ISACTIVE+8
EXT VALPHONE+1~
>> EXTENT EMAIL+3*
FAC SEQMAN~, SEQMAN+1, NEEDTOSQ~, NEEDTOSQ+2
FIELDNUM NOTELINE~, NOTELINE+4, NOTELINE+5
FILENUM NOTELINE~, NOTELINE+4, NOTELINE+5
FORCE UPDTHADD~, UPDTHADD+1*, UPDTHADD+2, UPDTHADD+33, UPDTHADD+36, UPDTHADD+39, UPDTHADD+42, UPDTHADD+45, UPDTHADD+48, UPDTHADD+51
FOUND FINDNEW+3~, FINDNEW+4*, FINDNEW+5, FINDNEW+7*, FINDNEW+9*
GOOD VALPHONE+1~, VALPHONE+2*, VALPHONE+6*, VALPHONE+7*, VALPHONE+8*, VALPHONE+9*, VALPHONE+10*, VALPHONE+11*, VALPHONE+12*, VALPHONE+13*
HOST EMAIL+1~, EMAIL+8*, EMAIL+13, EMAIL+14
HPHONE UPDTHADD+18~
>> HRN SPOUSE+5*, SPOUSE+6
INDENT PROGVIEW+3~, PROGVIEW+8*, PROGVIEW+11, PROGVIEW+12*
>> INSGLO FINDNEW+9
INSIEN UPDTSEL~, UPDTSEL+10, FINDNEW~, FINDNEW+7, FINDNEW+9
IOM CENTER+1
LABEL NOTELINE+3~
>> LABELLEN NOTELINE+4*, NOTELINE+8
LENGTH NOTELINE~, NOTELINE+10
>> MEM ACTPOLME+9*, ACTPOLME+10, NOPOLMEM+9*, NOPOLMEM+10
>> MS SPOUSE+4*
NAME EMAIL+1~, EMAIL+9*, EMAIL+11
OPENEND ISACTIVE+1~, ISACTIVE+5*, ISACTIVE+6
PATDFN UPDTEMAL~, UPDTEMAL+3, UPDTEMAL+15, UPDTEMAL+18, UPDTHADD~, UPDTHADD+2, UPDTHADD+5, UPDTHADD+19, UPDTHADD+20, UPDTHADD+21
, UPDTHADD+22, UPDTHADD+23, UPDTHADD+25, UPDTHADD+26, UPDTHADD+30
PH ACTPOLME~, ACTPOLME+4, ACTPOLME+6, ACTPOLME+8, NOPOLMEM~, NOPOLMEM+4, NOPOLMEM+6, NOPOLMEM+8
PHPTR ACTPOLME+1~, NOPOLMEM+1~
>> POLHOLD0 ACTPOLME+8*, ACTPOLME+9, NOPOLMEM+8*, NOPOLMEM+9
POLMEM ACTPOLME+1~, ACTPOLME+2*, ACTPOLME+4*, ACTPOLME+6, ACTPOLME+7, ACTPOLME+10, NOPOLMEM+1~, NOPOLMEM+2*, NOPOLMEM+4*, NOPOLMEM+6
, NOPOLMEM+7, NOPOLMEM+10
PRVT0 ACTPOLME+1~, NOPOLMEM+1~
>> PRVT11 ACTPOLME+7*, ACTPOLME+11, ACTPOLME+12, NOPOLMEM+7*, NOPOLMEM+11, NOPOLMEM+12
PRVTINS ACTPOLME+1~, ACTPOLME+5*, ACTPOLME+6*, ACTPOLME+7, NOPOLMEM+1~, NOPOLMEM+5*, NOPOLMEM+6*, NOPOLMEM+7
PTR ISNONIND+1~, ISNONIND+2*, ISNONIND+3, ISNONIND+4
REC FINDNEW+3~, FINDNEW+4*, FINDNEW+5*, FINDNEW+6, FINDNEW+7, FINDNEW+8, FINDNEW+9
>> REGPH VALPHONE+3*, VALPHONE+4*, VALPHONE+5*, VALPHONE+6, VALPHONE+7, VALPHONE+8, VALPHONE+9, VALPHONE+10, VALPHONE+11, VALPHONE+12
, VALPHONE+13
>> RETURN FINDNEW+4*, FINDNEW+7*, FINDNEW+9*, FINDNEW+11
>> ROUTID PROGVIEW+5
>> SPACER NOTELINE+9*, NOTELINE+11
>> SPEMP SPOUSE+5*, SPOUSE+6
STATE UPDTHADD+18~
STR UPPER~, UPPER+1
STREET2 UPDTHADD+18~
STREET3 UPDTHADD+18~
STRING NOTELINE+3~, NOTELINE+10*, NOTELINE+11
SUBS PROGVIEW~, PROGVIEW+2*, PROGVIEW+9, PROGVIEW+10, PROGVIEW+11
>> TOTINDEN NOTELINE+8*, NOTELINE+9
TRUE NEEDTOSQ+1~, NEEDTOSQ+2*, NEEDTOSQ+3
U SEQMAN+1, VERIF+1, VERIF+2, VERIF2+1, VERIF2+2, FINDNEW+6, FINDNEW+7, FINDNEW+8, FINDNEW+9, NOTELINE+4
, ISNONIND+2, ISNONIND+4, ACTPOLME+9, ACTPOLME+11, ACTPOLME+12, NOPOLMEM+9, NOPOLMEM+11, NOPOLMEM+12, DTEST+2, DTEST+5
, SPOUSE+3, SPOUSE+5, ISMINOR+3, AGE+1, USED+18, USED+23, USED+25, USED+26, USED+40, USED+42
, USED+43
X UPDTEMAL+6*, UPDTHADD+8*, WRAP~, EMAIL+3, EMAIL+4!, EMAIL+5!, EMAIL+6!, EMAIL+7!, EMAIL+8, EMAIL+9
, EMAIL+11!, EMAIL+13!, EMAIL+14!, EMAIL+16!, EMAIL+17!, EMAIL+18!, EMAIL+19!, EMAIL+20!, EMAIL+21!, EMAIL+22!
, EMAIL+23!, EMAIL+24!, EMAIL+25!, EMAIL+27!, EMAIL+28!, EMAIL+29!, EMAIL+30!, EMAIL+31!, EMAIL+32!, EMAIL+33!
, EMAIL+34!, EMAIL+35!, EMAIL+36!, EMAIL+37!, EMAIL+38!, EMAIL+39!, VALPHONE+3, VALPHONE+4*, VALPHONE+5*, VALPHONE+15!
, CENTER~, CENTER+2, ISMINOR+4, AGE+2, TESTAPI+1*
XMDUZ ALERTMSG~
>> XMMG ALERTMSG+2
XMSUB ALERTMSG~
XMTEXT ALERTMSG~
XMY ALERTMSG~
Y UPDTEMAL+8, UPDTEMAL+13, UPDTHADD+10, UPDTHADD+15, DTEST+2*, DTEST+4, DTEST+5*, DTEST+7, USED+13~
ZIP UPDTHADD+18~
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