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

Package: IHS Patient Registration

Routine: AGTMIMRG


Information

AGTMIMRG ; IHS/ASDS/EFG - MERGE INSURERS ;

Source Information

Source file <AGTMIMRG.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 6 %XY^%RCR  ^DIC  FILE^DICN  ^DIE  (,IX1)^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
MV1
CHK
CONT
MOVE
XIT
VERF
SEL
PTR

External References

Name Field # of Occurrence
%XY^%RCR MV1+1
^DIC SEL+3, CHK+4
FILE^DICN PTR+11
^DIE PTR, PTR+3, PTR+4, PTR+5, PTR+6, PTR+7, PTR+8
^DIK PTR+10
IX1^DIK MV1+3
^DIR CHK+14, CHK+15, CONT, VERF

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Dup-Check for: ",$P(AG("X0"),U),!?15,$P(AG("X0"),U,2)
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?15,$P(AG("X0"),U,3),", "
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(AG("X0"),U,4),0),U,2)," ",$P(AG("X0"),U,5)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,"================================================"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !,"[1] ",$P(AG("X0"),U),?39,"| [2] ",$P(AG("Y0"),U)
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !," ",$P(AG("X0"),U,2),?39,"| ",$P(AG("Y0"),U,2)
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: " ",$P(AG("X0"),U,3),", "
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(AG("X0"),U,4),0),U,2)," ",$P(AG("X0"),U,5)
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: ?39,"| "
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: $P(AG("Y0"),U,3),", ",$P(^DIC(5,$P(AG("Y0"),U,4),0),U,2)," ",$P(AG("Y0"),U,5)
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !,"OK, MERGING.."
  • Line Location: MOVE+2
Function Call: WRITE
  • Prompt: !!,"Re-directing Pointers..."
  • Line Location: PTR+1
Routine Call
  • DIE
  • Line Location:
    • PTR
    • PTR+3
    • PTR+4
    • PTR+5
    • PTR+6
    • PTR+7
    • PTR+8
Routine Call
  • DIC
  • Line Location:
    • SEL+3
    • CHK+4
Routine Call
  • DIR
  • Line Location:
    • CHK+14
    • CHK+15
    • CONT
    • VERF

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPN3PPH - [#9000003.1] Classic Fileman Calls
^ABPVFAC - [#9002273.02] Classic Fileman Calls
^AUTNINS - [#9999999.18] Classic Fileman Calls
^AUTTPIC - [#9999999.65] Classic Fileman Calls
^AUTNEMPL - [#9999999.75] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL("AJ" PTR+5
^ABMDERR("AB" PTR+9
^ABPVFAC("I" PTR+8
^AUPN3PPH("E" PTR+4
^AUPNPRVT("I" PTR+2, PTR+3
^AUTNEMPL("AI" PTR+6
^AUTNINS - [#9999999.18] SEL+6, CHK+6, MOVE+3, MOVE+4, MV1+2*
^AUTTPIC("C" PTR+7
^DIC(5 - [#5] CHK+2, CHK+11, CHK+12

Label References

Name Line Occurrences
CHK SEL+7
CONT CHK+5, CHK+14
MOVE CHK+16
MV1 MOVE+3
PTR MOVE+2
SEL SEL+5, SEL+8
VERF MOVE+2
XIT SEL+4, SEL+8

Naked Globals

Name Field # of Occurrence
^(0 MOVE+4
^(1 MOVE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X MV1*
>> %Y MV1+1*
AG MOVE+1*, XIT!
AG("ADD" MOVE!, MOVE+4*, MV1+2
AG("I" MOVE+4*, MV1+2*
AG("MODE" SEL+1*
AG("X" SEL+6*, MOVE+1*, MOVE+3, MOVE+4, MV1, MV1+3, PTR, PTR+2, PTR+3, PTR+4
, PTR+5, PTR+6, PTR+7, PTR+8, PTR+9, PTR+10
AG("X0" SEL+6*, CHK, CHK+1, CHK+2, CHK+8, CHK+9, CHK+10, CHK+11, CHK+15, CONT
AG("XIT" SEL+2*, SEL+8, CONT*, VERF*
AG("Y" CHK+6*, MOVE+1*, MV1+1, MV1+2, PTR, PTR+3, PTR+4, PTR+5, PTR+6, PTR+7
, PTR+8, PTR+11
AG("Y0" CHK+6*, CHK+8, CHK+9, CHK+12, CHK+15
>> AGZ("I" PTR+2*, PTR+3*, PTR+4*, PTR+7*, PTR+8*, PTR+9*
D0 PTR+11!
>> DA MV1+3*, PTR*, PTR+3*, PTR+4*, PTR+5*, PTR+6*, PTR+7*, PTR+8*, PTR+10*
>> DA(1 PTR+2*, PTR+3, PTR+9*, PTR+10
DD PTR+11!
>> DIC SEL+2*, CHK+4*, PTR+10*
>> DIC("A" SEL+2*, CHK+4*
>> DIC("S" SEL+2*, CHK+4*
>> DIC(0 SEL+2*, CHK+4*, PTR+11*
>> DIE PTR*, PTR+3*, PTR+4*, PTR+5*, PTR+6*, PTR+7*, PTR+8*
>> DIK MV1+3*, PTR+10*
>> DINUM PTR+11*
DIR CHK+14!, CHK+15!, CONT!, VERF!
DIR("A" CHK+14*, CHK+15*, CONT*, VERF*
DIR("B" CONT*, VERF*
DIR(0 CHK+14*, CHK+15*, CONT*, VERF*
DR PTR*!, PTR+3*!, PTR+4*!, PTR+5*!, PTR+6*!, PTR+7*!, PTR+8*!
U CHK, CHK+1, CHK+2, CHK+8, CHK+9, CHK+10, CHK+11, CHK+12, CHK+15, CONT
, MOVE+3, MOVE+4, MV1+2
>> X SEL+4, PTR+11*
>> Y SEL+5, SEL+6, CHK+5, CHK+6, CHK+14, CHK+16, CONT, VERF, MOVE+1
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