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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AUPNELIG

Package: IHS Patient

Routine: AUPNELIG


Information

AUPNELIG ; IHS/CMI/LAB - IHS-CMB/TMD INPUT TRANSFORMS FOR INSURED FIELDS OF THE ELIGIBILTY FILES ;

Source Information

Source file <AUPNELIG.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIC  (FILE,YN)^DICN  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
CHK
PAT
ADD2
HLPMCD
MCD
DIC
HLPPI
ADD
XIT
INSD3
INSD2
INSDIE
PI

External References

Name Field # of Occurrence
^DIC DIC+9, INSD3+1
FILE^DICN ADD2
YN^DICN INSD2+3, PAT+1, ADD+1
^DIE INSD2+6, INSD2+7, ADD2+4, INSDIE+1, INSDIE+6, INSDIE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Searching POLICY HOLDER file ....",!
  • Line Location: DIC+8
Function Call: WRITE
  • Prompt: ?15,$P(Y,U,2)
  • Line Location: DIC+12
Function Call: WRITE
  • Prompt: *7,!!?10,"WARNING - Policy Numbers DO NOT MATCH!",*7
  • Line Location: DIC+18
Function Call: WRITE
  • Prompt: !!?5,"Is the following person:",!!?10,"POLICY HOLDER",?25,"- ",$P(Y,U,2),!?10,"INSURANCE CO.",?25,"- "
  • Line Location: INSD2+0
Function Call: WRITE
  • Prompt: $P(^AUTNINS(ABMDX("INSD"),0),U)
  • Line Location: INSD2+0
Function Call: WRITE
  • Prompt: !?10,"POLICY NUMBER",?25,"- ",ABMDX("POLD")
  • Line Location: INSD2+1
Function Call: WRITE
  • Prompt: !!?5,"the correct insured policy holder for ",$P(^DPT(ABMDX("PAT"),0),U)
  • Line Location: INSD2+2
Function Call: WRITE
  • Prompt: *7,!!?15,"Enter 'Y' for YES or 'N' for NO"
  • Line Location: INSD2+3
Function Call: WRITE
  • Prompt: !!,"Searching PATIENT file ...."
  • Line Location: INSD3+1
Function Call: WRITE
  • Prompt: " ",$P(Y,U,2)
  • Line Location: INSD3+3
Function Call: WRITE
  • Prompt: !!,"Is ",$P(Y,U,2)," the correct insured policy holder for ",$P(^DPT(ABMDX("PAT"),0),U)
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!?10,"No Lookup Match Found, or Improper Format for New Entry"
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to add ",X," as the Insured Policy Holder"
  • Line Location: ADD+0
Routine Call
  • DIE
  • Line Location:
    • INSD2+6
    • INSD2+7
    • ADD2+4
    • INSDIE+1
    • INSDIE+6
    • INSDIE+7
Routine Call
  • DIC
  • Line Location:
    • DIC+9
    • INSD3+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPN3PPH - [#9000003.1] Classic Fileman Calls
^AUPNMCD - [#9000004] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] DIC+13, INSDIE
^AUPNMCD - [#9000004] DIC+4
^AUPNPRVT - [#9000006] DIC+3
^AUTNINS - [#9999999.18] DIC+6, INSD2
^DPT - [#2] INSD2+2, PAT, PAT+2
^DPT("B" ADD2+3

Label References

Name Line Occurrences
ADD INSD3+4
ADD2 PAT+2
CHK INSD3+2
DIC HLPPI, HLPMCD, PI
INSD2 DIC+15, DIC+17, INSD2+3
INSD3 DIC+11, DIC+16, INSD2+4
INSDIE DIC+14, INSD2+9
PAT PAT+1
XIT DIC+10, CHK+1, ADD+1

Naked Globals

Name Field # of Occurrence
^(0 DIC+3, DIC+4, DIC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DIC+9*, DIC+15*, DIC+17*, INSD2+3, INSD2+4, PAT+1*, PAT+2, ADD+1*
ABMDX HLPPI*, HLPMCD*, PI*, MCD*, DIC+1, DIC+2, DIC+3, DIC+4, DIC+8, DIC+10
, INSDIE+6, INSDIE+7, XIT!
ABMDX("DR" ADD2+2*, ADD2+3*, ADD2+4, INSDIE*, INSDIE+1
ABMDX("INSD" DIC+13*, DIC+14, DIC+15, DIC+16, INSD2, INSD2+6
ABMDX("INSP" DIC+3*, DIC+4*, DIC+5, DIC+6*, DIC+14, DIC+16, INSD2+6, ADD2+4
ABMDX("PAT" DIC+3*, DIC+4*, INSD2+2, PAT
ABMDX("POLD" DIC+13*, DIC+14, DIC+17, DIC+18, INSD2+1, INSD2+7
ABMDX("POLP" DIC+3*, DIC+4*, DIC+14, DIC+17, DIC+18, INSD2+7, ADD2+4
ABMDX("STATE" DIC+4*, DIC+5, DIC+6
ABMDX("X" DIC*, DIC+11, DIC+16, INSD2+4, INSD2+5*, INSD2+9, INSD3, INSD3+2, PAT+2*, ADD2+5
, INSDIE+1*, INSDIE+8
ABMDX("Y" DIC+12*, INSD2+5*, INSD2+9, PAT*, PAT+2, ADD2+1*, ADD2+5, INSDIE, INSDIE+1, INSDIE+6
, INSDIE+7
ABMDX(0 DIC*, DIC+3, DIC+4, INSDIE+6, INSDIE+7
ABMDX(1 DIC+1*, DIC+3, INSDIE+6
>> AMBDX("X" ADD2+1*
>> DA DIC, INSD2+5*, ADD2+4*, INSDIE+1*, INSDIE+6*, INSDIE+7*
>> DA(1 DIC+1, INSDIE+6*
DD ADD2!
DIC DIC+2*, INSD3!*, ADD2*
DIC("S" DIC+7*
DIC(0 DIC+2*, INSD3*, ADD2*
>> DIE INSD2+5*, ADD2+4*, INSDIE+1*, INSDIE+6*, INSDIE+7*
DO ADD2!
>> DR INSD2+6*, INSD2+7*, ADD2+4*, INSDIE+1*, INSDIE+6*, INSDIE+7*
DT DIC+2
DTIME DIC+2
DUZ DIC+2
>> L CHK*
U DIC+2, DIC+3, DIC+4, DIC+6, DIC+12, DIC+13, DIC+14, INSD2, INSD2+2, INSD2+5
, INSD3+3, INSD3+4, PAT, PAT+2, ADD2+1, INSDIE
X DIC*, DIC+2, DIC+11*, DIC+14*, DIC+16*, INSD2+4*, INSD2+9*, INSD3*, INSD3+2*, INSD3+4
, PAT+2*, CHK!*, CHK+1, ADD, ADD+1!, ADD2+3, ADD2+5*, INSDIE+1, INSDIE+8*
>> Y DIC+11, DIC+12, DIC+13, DIC+14, INSD2, INSD2+5, INSD2+9*, INSD3+2, INSD3+3, INSD3+4
, PAT, ADD2+1, ADD2+4, ADD2+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All