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

Package: IHS Patient Registration

Routine: AGED51


Information

AGED51 ; IHS/ASDS/EFG - PAGE 5 CONT'D ;

Source Information

Source file <AGED51.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  ^DIC  ^DIE  ^DIR  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
IHS Patient Registration 1 (UPDATE,VAR)^AGED5  
Kernel 1 (ENDR,KILL)^%ZISS  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Patient Registration 4 AGED4  AGED5  AGED6  AGEL5  

Entry Points

Name Comments DBIA/ICR reference
USED(DFN,AGINSPTR,AGP,AGDA,AGMCDDA) ;EP - Is this Eligibility date record used in a 3P Bill or Claim?
DATES
EDIT ;EP
MCDNM
DATES1 ;
SAME
SEX
EDIT1 ;
EDIT0
L34 ;
MCDDB
QUES3
CCOPY ;
PCP ;
SETOTHER ;

External References

Name Field # of Occurrence
DD^%DT DATES1+8
ENDR^%ZISS DATES1+13
KILL^%ZISS DATES1+13
UPDATE^AGED5 DATES1+18
VAR^AGED5 EDIT+6, EDIT+7, MCDDB+7
^DIC L34+9, DATES1+9
^DIE EDIT0+4, EDIT1+15, SEX+4, MCDNM+4, SETOTHER+6, MCDDB+4, MCDDB+6, SAME+3, SAME+5, DATES1+18
, PCP+4, CCOPY+4, CCOPY+8, CCOPY+12
^DIR EDIT+4, EDIT1+5
$$DIR^XBDIR DATES1+13
HELP^XBHELP DATES1+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"Enter the NAME OF THE INSURED person.",!,"(Enter SAME if the PATIENT is the primary insured person.)",!
  • Line Location: EDIT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L34+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SEX+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MCDNM+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MCDDB+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUES3+0
Function Call: WRITE
  • Prompt: "Enter the name of the person in whose name the main account is carried."
  • Line Location: QUES3+1
Function Call: WRITE
  • Prompt: !,"The name must be in the same format as the patient names.",!!
  • Line Location: QUES3+2
Function Call: WRITE
  • Prompt: "If the patient is the primary insured person, enter SAME.",!!
  • Line Location: QUES3+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES1+14
Routine Call
  • DIE
  • Line Location:
    • EDIT0+4
    • EDIT1+15
    • SEX+4
    • MCDNM+4
    • SETOTHER+6
    • MCDDB+4
    • MCDDB+6
    • SAME+3
    • SAME+5
    • DATES1+18
    • PCP+4
    • CCOPY+4
    • CCOPY+8
    • CCOPY+12
Routine Call
  • DIC
  • Line Location:
    • L34+9
    • DATES1+9
Routine Call
  • DIR
  • Line Location:
    • EDIT+4
    • EDIT1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNMCD - [#9000004] Classic Fileman Calls
^AUTTRLSH - [#9999999.36] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( USED+16, USED+17, USED+18, USED+20, USED+22, USED+24, USED+25
^ABMDCLM - [#9002274.3] USED+33, USED+34, USED+36, USED+38, USED+40
^AUPNMCD - [#9000004] EDIT1+3, EDIT1+11, EDIT1+16, L34+5, L34+12*, MCDNM+5, MCDNM+6, SETOTHER+4, DATES1+7, DATES1+8
, DATES1+12
^AUTTRLSH - [#9999999.36] L34+6
^DD(9000004 EDIT1+2, DATES1+7
^DIC(4 - [#4] USED+25, USED+41
^DPT - [#2] SAME+1, SAME+4

Label References

Name Line Occurrences
$$USED DATES1+12
CCOPY DATES+2
DATES EDIT1+2, EDIT1+11
DATES1 DATES
EDIT1 EDIT0, EDIT1+11, EDIT1+16, L34+10, QUES3+4
L34 EDIT1+11, L34+10
MCDDB MCDNM+5, MCDNM+6
PCP DATES+1
QUES3 EDIT1+11
SAME EDIT1+11
SETOTHER MCDNM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("MCD" EDIT0+2, EDIT1+3, EDIT1+11, EDIT1+14, EDIT1+16, L34+11, MCDNM+2, MCDNM+5, MCDNM+6, SETOTHER+4
, MCDDB+2, SAME, DATES1+3, DATES1+6, DATES1+7, DATES1+8, DATES1+12, DATES1+15, PCP+1, CCOPY+1
>> AG("MNUM" EDIT+3, EDIT0
AG13 USED+13~, USED+19*, USED+20*, USED+22, USED+24, USED+35*, USED+36*, USED+38, USED+40
AGBILL DATES1+2~, DATES1+12*, DATES1+13, USED+13~, USED+14*, USED+17*, USED+18, USED+20, USED+22, USED+24
, USED+25, USED+31*, USED+34*, USED+36, USED+38, USED+40, USED+41
AGDA DATES1+2~, DATES1+11*, DATES1+17, USED~, USED+22, USED+38
AGDUZ2 USED+13~, USED+14*, USED+16*, USED+17, USED+18, USED+20, USED+22, USED+24, USED+25, USED+31*
, USED+33*, USED+34, USED+36, USED+38, USED+40, USED+41
>> AGELPTR SEX+2
AGINSPTR USED~
AGMCDDA USED~, USED+24, USED+40
AGP USED~, USED+22, USED+24, USED+38, USED+40
AGREL L34+5*, L34+6, L34+7!
AGUSED USED+13~, USED+14*, USED+16, USED+17, USED+20, USED+25*, USED+29, USED+31*, USED+33, USED+34
, USED+36, USED+41*, USED+45
DA EDIT0+2*, EDIT1+14*, L34+5, L34+11*, L34+12, SEX+2*, MCDNM+2*, SETOTHER+3*, MCDDB+2*, SAME*
, DATES1+2~, DATES1+17*, PCP+1*, CCOPY+1*
DA(1 DATES1+6*, DATES1+15*, DATES1+16
DFN SETOTHER+3, SAME+1, SAME+4, DATES1+12, USED~, USED+17, USED+34
DFOUT EDIT1+1!, EDIT1+7*
DIC L34+1*, L34+13!, DATES1+2~, DATES1+3*
DIC("A" L34+3*, DATES1+5*
DIC("B" L34+4!, L34+6*, DATES1+8*
DIC("P" DATES1+7*
DIC(0 L34+2*, DATES1+4*
DIE EDIT0+3*, EDIT1+14*, SEX+1*, MCDNM+1*, SETOTHER+2*, MCDDB+1*, SAME+2*, DATES1+2~, DATES1+16*, PCP+3*
, CCOPY+3*, CCOPY+7*, CCOPY+11*
DIE("NO^" EDIT1+12*, SEX+3*, DATES1+1!
DIR EDIT+5!, EDIT1+1!
DIR("B" EDIT+3*, EDIT1+3*
DIR(0 EDIT+2*, EDIT1+4*
DLOUT EDIT1+1!, EDIT1+8*, EDIT1+11
DQOUT EDIT1+1!, EDIT1+10*, EDIT1+11
DR EDIT0+1*, EDIT1+13*, SEX+3*, MCDNM+3*, SETOTHER+4*, MCDDB+3*, MCDDB+5*, SAME+1*, SAME+4*, DATES1+2~
, DATES1+17*, PCP+2*, CCOPY+2*, CCOPY+6*, CCOPY+10*
DR(2 SETOTHER+5*
DTOUT EDIT+6, EDIT1+1!, EDIT1+6
DUOUT EDIT1+1!, EDIT1+9*, L34+10
U EDIT1+3, EDIT1+11, EDIT1+16, L34+5, L34+6, L34+12, MCDNM+6, SETOTHER+4, SAME+1, SAME+4
, DATES1+7, DATES1+8, DATES1+12, USED+18, USED+22, USED+24, USED+25, USED+38, USED+40, USED+41
>> X EDIT+7, EDIT0, EDIT0+1, DATES1+13*, CCOPY+5, CCOPY+9
Y EDIT+6, EDIT1+7, EDIT1+8, EDIT1+9*, EDIT1+10*, EDIT1+11, EDIT1+13, L34+10, L34+12, DATES1+8*
, DATES1+10, DATES1+11, DATES1+12, USED+13~
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