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 |  Local Variables |  All
Print Page as PDF
Routine: AGMSPINT

Package: IHS Patient Registration

Routine: AGMSPINT


Information

AGMSPINT ; IHS/SD/EFG - ROUTINE FOR MSP INTERVIEW PROCESS ;

Source Information

Source file <AGMSPINT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 DD^%DT  ^DIC  ^DIE  
IHS Patient Registration 2 PTLK^AG  EN^AGMSPI1  
IHS VA Utilities 1 ^XBCLS  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR ;
PROCESS ;
CLEAR ;EP
ASKSIGDT ;EP
ADDSIG ;EP - CALLED FROM OPTION 'AG ADD MSP SIGNATURE DATE'

External References

Name Field # of Occurrence
DD^%DT HDR+3
PTLK^AG EN+1
EN^AGMSPI1 PROCESS+3
^DIC EN+9, ADDSIG+5
^DIE EN+16, ASKSIGDT+5, ASKSIGDT+10
^XBCLS EN+18, ADDSIG+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKSIGDT+2
Function Call: WRITE
  • Prompt: !,?10,"WARNING: Confidential Patient Information, Privacy Act Applies"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?18,"MEDICARE SECONDARY PAYER QUESTIONNAIRE INTERVIEW"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,AGPAT," (",AGCHRT,")"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?53,"TODAY'S DATE: ",AG("TODAY")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,AGLINE("EQ"),!
  • Line Location: HDR+13
Routine Call
  • DIE
  • Line Location:
    • EN+16
    • ASKSIGDT+5
    • ASKSIGDT+10
Routine Call
  • DIC
  • Line Location:
    • EN+9
    • ADDSIG+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNMSP - [#9000037] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HDR+2
^DPT - [#2] HDR+1

Label References

Name Line Occurrences
ASKSIGDT PROCESS+5, ADDSIG+10
CLEAR EN+3
HDR PROCESS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("DA" EN+11*, PROCESS+6!, ASKSIGDT+3, ASKSIGDT+8, ADDSIG+6*, ADDSIG+11!
>> AG("MCRCHK" PROCESS+1*
>> AG("TODAY" HDR+3*, HDR+12
>> AGCHRT HDR+2*, HDR+11
>> AGLINE("-" HDR+4*, HDR+10
>> AGLINE("EQ" HDR+5*, HDR+8, HDR+13
>> AGLINE("_" HDR+6*
>> AGPAT HDR+1*, HDR+11
>> DA EN+12*, ASKSIGDT+3*, ASKSIGDT+8*
DD EN+4!, ADDSIG+1!
>> DFN EN+2, EN+15, HDR+1, HDR+2
DIC EN!, EN+4!, EN+5*, EN+13, EN+14!, EN+17!, PROCESS+6!, ADDSIG+1!, ADDSIG+2*, ADDSIG+7!
, ADDSIG+11!
DIC("DR" EN+7*
DIC("S" EN+8*, ADDSIG+4*
DIC(0 EN+6*, ADDSIG+3*
DIE EN+4!, EN+13*, PROCESS+6!, ADDSIG+9*, ADDSIG+11!
DIR EN+4!, EN+14!, PROCESS+6!, ADDSIG+11!
DO EN+4!, ADDSIG+1!
DR EN+4!, EN+14!, EN+15*, ASKSIGDT+4*, ASKSIGDT+9*
DT HDR+3
DUZ(2 HDR+2
PARTI1 CLEAR+1!
PARTI2 CLEAR+1!
PARTI3 CLEAR+1!
PARTI4 CLEAR+1!
PARTII1 CLEAR+2!
PARTII2 CLEAR+2!
PARTII3 CLEAR+2!
PARTIII1 CLEAR+3!
PARTIV1 CLEAR+4!
PARTIV2 CLEAR+4!
PARTIV3 CLEAR+4!
PARTIV4 CLEAR+4!
PARTIV5 CLEAR+6!
PARTV1 CLEAR+5!
PARTV2 CLEAR+5!
PARTV3 CLEAR+5!
PARTV4 CLEAR+5!
PARTVI1 CLEAR+6!
PARTVI2 CLEAR+6!
PARTVI3 CLEAR+6!
PARTVI4 CLEAR+6!
PARTVI6 CLEAR+6!
PARTVI7 CLEAR+6!
U HDR+1, HDR+2
Y EN+4!, EN+10, EN+11, EN+12, PROCESS+4, ASKSIGDT+6, ADDSIG+1!, ADDSIG+5, ADDSIG+6, HDR+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All