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

Package: IHS Patient Registration

Routine: AGTMPMRG


Information

AGTMPMRG ; IHS/ASDS/EFG - MERGE POLICY HOLDERS ;

Source Information

Source file <AGTMPMRG.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 %XY^%RCR  ^DIC  MIX^DIC1  ^DIE  (,IX1)^DIK  ^DIR  
IHS Patient Registration 1 ^AGELA  

Entry Points

Name Comments DBIA/ICR reference
DISP
MV1
MV2
CHK
CONT
MOVE ;
HRN
XIT
VERF
SEL

External References

Name Field # of Occurrence
%XY^%RCR MV1+2
^AGELA DISP+10, DISP+14
^DIC CHK+4
MIX^DIC1 SEL+3
^DIE MV2+6
^DIK MV2, MV2+5
IX1^DIK MV1+3
^DIR DISP+6, DISP+12, DISP+17, DISP+19, DISP+20, CONT, VERF

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Dup-Check for: ",$P(AG("X0"),U),!?15
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?15,$P($G(^AUTNINS($P(AG("X0"),U,3),0)),U)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !,"================================================"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: *7,!,"No other Policy Holders having the same insurer found.",!
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !,"[1] ",$P(AG("X0"),U),?39,"| [2] ",$P(AG("Y0"),U)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !," "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?39,"| "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,"The CRT Screen will display each of the Policy Holders in turn ",!,"until you enter an ""^"" to end the displays.",!
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"Re-directing Pointers..."
  • Line Location: MV2+1
Function Call: WRITE
  • Prompt: "(HRN: ",$S('$G(AG("PDFN")):"not Registered",'$G(DUZ(2)):"DUZ(2) undefined",$P($G(^AUPNPAT(AG("PDFN"),41,DUZ(2),0)),U,2):$P(^(0),U,2),1:"no HRN at "_$P(^AUTTLOC(DUZ(2),0),U,2)),")"
  • Line Location: HRN+0
Routine Call
  • DIE
  • Line Location:
    • MV2+6
Routine Call
  • DIC
  • Line Location:
    • CHK+4
Routine Call
  • DIR
  • Line Location:
    • DISP+6
    • DISP+12
    • DISP+17
    • DISP+19
    • DISP+20
    • CONT
    • VERF

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPN3PPH - [#9000003.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH - [#9000003.1] SEL+6, SEL+7, CHK+7
^AUPN3PPH("B" SEL+6!
^AUPNPAT - [#9000001] HRN
^AUPNPRVT("C" MV2+2, MV2+3, MV2+5
^AUTNINS - [#9999999.18] CHK+2
^AUTTLOC - [#9999999.06] HRN

Label References

Name Line Occurrences
CHK SEL+8, CONT
CONT CHK+6, DISP+7, DISP+19
HRN CHK+1, DISP+2, DISP+3
MOVE DISP+20
MV2 MOVE+2
SEL SEL+5, SEL+6, SEL+9
VERF MOVE+2
XIT SEL+4, SEL+9

Naked Globals

Name Field # of Occurrence
^(0 HRN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %X MV1*
>> %Y MV1+1*
AG MOVE+1*, XIT!
AG("MODE" SEL+2*
AG("PDFN" CHK+1*, DISP+2*, DISP+3*, HRN
AG("X" SEL+7*, DISP+10, MOVE+1*, MV1, MV2, MV2+2, MV2+3
AG("X0" SEL+7*, CHK, CHK+1, CHK+2, DISP+1, DISP+2, DISP+10, DISP+11, DISP+20, CONT
AG("XIT" SEL+3*, SEL+9, CHK+5*, VERF*
AG("Y" CHK+7*, DISP+14, MOVE+1*, MV1+1, MV1+3, MV2+5, MV2+6
AG("Y0" CHK+7*, DISP+1, DISP+3, DISP+14, DISP+16, DISP+20
AGELP DISP+18!
AGELP("INS" DISP+10*, DISP+14*
AGELP("PH" DISP+10*, DISP+14*
>> D SEL+3*
>> DA MV1+3*, MV2*, MV2+3*
>> DA(1 MV2+2*, MV2+3, MV2+4, MV2+5
DIC SEL+2!, SEL+3*!, CHK+4*!
DIC("A" SEL+3*, CHK+4*
DIC("S" CHK+4*
DIC(0 SEL+3*, CHK+4*
>> DIE MV2+4*, MV2+5
>> DIK MV1+3*, MV2*, MV2+5*
DIR DISP+19!, DISP+20!, CONT!, VERF!
DIR("A" DISP+19*, DISP+20*, CONT*, VERF*
DIR("B" CONT*, VERF*
DIR(0 DISP+6*, DISP+12*, DISP+17*, DISP+19*, DISP+20*, CONT*, VERF*
DIROUT DISP+7, DISP+8!, DISP+9, DISP+13, DISP+15
DR MV2+6*!
DROUT DISP+8!
DTOUT SEL+1!, SEL+4, CHK+5, DISP+7, DISP+8!, DISP+9, DISP+13, DISP+15
DUOUT SEL+1!, SEL+4, CHK+5, DISP+7, DISP+8!, DISP+9, DISP+13, DISP+15
DUZ(2 HRN
U AGTMPMRG+3*, SEL+6, CHK, CHK+1, CHK+2, DISP+1, DISP+2, DISP+3, DISP+10, DISP+11
, DISP+14, DISP+16, DISP+20, CONT, HRN
>> X SEL+4
>> Y SEL+5, SEL+6, SEL+7, CHK+6, CHK+7, DISP+19, DISP+20, 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