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

Package: IHS Patient Registration

Routine: AGUPCHK


Information

AGUPCHK ; IHS/ASDS/EFG - Merge Insurer Data ;

Source Information

Source file <AGUPCHK.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  (,IX1)^DIK  ^DIR  
IHS Patient Registration 1 $$S^AGVDF  

Entry Points

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

External References

Name Field # of Occurrence
$$S^AGVDF HD
^DIC SEL+4, CHK+5
^DIE VERF, MV1+10, MV1+11, MV1+12
^DIK MV1+7
IX1^DIK MV1+6
^DIR AGUPCHK+8, CHK+15, CONT, VERF+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will loop the old or unverified Insurers allowing you to check",!,"for a potential duplicate."
  • Line Location: AGUPCHK+6
Function Call: WRITE
  • Prompt: !!," - If you indicate that an insurer is duplicate that the data for the ",!," duplicate insurer will be merged into the old insurer (previous address",!," information will be transfered to the billing address fields)."
  • Line Location: AGUPCHK+7
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+8
Function Call: WRITE
  • Prompt: !,"[1] ",$P(AG("X0"),U),?39,"| [2] ",$P(Y,U,2)
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !," ",$P(AG("X0"),U,2),?39,"| ",$P(AG("Y0"),U,2)
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: " ",$P(AG("X0"),U,3),", "
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(AG("X0"),U,4),0),U,2)," ",$P(AG("X0"),U,5)
  • Line Location: CHK+12
Function Call: WRITE
  • Prompt: ?39,"| "
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: $P(^(0),U,3),", ",$P(^DIC(5,$P(^(0),U,4),0),U,2)," ",$P(^AUTNINS(+Y,0),U,5)
  • Line Location: CHK+13
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: CHK+14
Function Call: WRITE
  • Prompt: !,"OK, MERGING.."
  • Line Location: CHK+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"Re-directing Pointers..."
  • Line Location: MV1+8
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?15,"*******************************************"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?15,"* INSURER DUPLICATE CHECKER *"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?15,"*******************************************"
  • Line Location: HD+3
Routine Call
  • DIE
  • Line Location:
    • VERF
    • MV1+10
    • MV1+11
    • MV1+12
Routine Call
  • DIC
  • Line Location:
    • SEL+4
    • CHK+5
Routine Call
  • DIR
  • Line Location:
    • AGUPCHK+8
    • CHK+15
    • CONT
    • VERF+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPN3PPH("E" MV1+11
^AUPNPRVT("I" MV1+9, MV1+10
^AUTNINS - [#9999999.18] TEMP, SEL+7, CHK+7, CHK+13, MOVE+1, MOVE+2, MV1+5*
^AUTTPIC("C" MV1+12
^DIC(5 - [#5] CHK+2, CHK+12, CHK+13

Label References

Name Line Occurrences
CHK TEMP, SEL+8, CONT
CONT CHK+6, CHK+15
HD AGUPCHK+5, SEL
MOVE CHK+17
MV1 MOVE+1
SEL SEL+6, SEL+9
VERF CHK+17
XIT AGUPCHK+8, TEMP+1, SEL+5, SEL+9

Naked Globals

Name Field # of Occurrence
^(0 TEMP, CHK+13, MOVE+2
^(1 TEMP, MOVE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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