AGUTILS ;IHS/ASDS/TPF - PAT REG UTILITY ROUTINE ; 3/25/2004 8:25:20 AM
Source file <AGUTILS.m>
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
|
|
;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
|
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 |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^AUPNPAT - [#9000001] | GET1^DIQ |
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 |
Name | Line Occurrences |
---|---|
$$FINDNEW | UPDTSEL+10 |
$$ISACTIVE | ACTPOLME+13, NOPOLMEM+13 |
$$PATSEQ | NEEDTOSQ+2 |
$$SEQMAN | NEEDTOSQ+2 |
>> | 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~ |