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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABMDTX1

Package: Third Party Billing

Routine: ABMDTX1


Information

ABMDTX1 ; IHS/ASDST/DMJ - PT 2 OF FACILITY EXPORT PGM ;

Source Information

Source file <ABMDTX1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Third Party Billing 2 (DEV2,OPEN)^ABMDTX  $$EN^ABMVDF  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Third Party Billing 2 ABMDTX  ABMDTX0  

Entry Points

Name Comments DBIA/ICR reference
HEADER2 ;SECOND HEADER
S3END
S3A
S3C
HEADER ;EP for Printing Header

External References

Name Field # of Occurrence
DEV2^ABMDTX ABMDTX1+7
OPEN^ABMDTX ABMDTX1+8
$$EN^ABMVDF HEADER+1, HEADER2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,*7,!!,?10,ABM("X"),!!,?20,ABM("Y")
  • Line Location: ABMDTX1+9
Function Call: WRITE
  • Prompt: !!,?35,ABM("X"),!,?45,ABM("Y")
  • Line Location: ABMDTX1+10
Function Call: WRITE
  • Prompt: !!,*7,"You CAN NOT EXPORT these DATA until INSURER ADDRESS Information is Complete.",!,?10,"Export Job Terminated WITHOUT generating output data."
  • Line Location: ABMDTX1+11
Function Call: WRITE
  • Prompt: ?2,$E($P(ABM(0),U,1),1,30),?34,$E($P(ABM(0),U,2),1,30),?66,$E($P(ABM(0),U,3),1,14)
  • Line Location: S3A+2
Function Call: WRITE
  • Prompt: ?83,$P(^DIC(5,ABM("ST"),0),U,2)
  • Line Location: S3A+4
Function Call: WRITE
  • Prompt: ?87,$E($P(ABM(0),U,5),1,10)
  • Line Location: S3C+0
Function Call: WRITE
  • Prompt: ?105,"YES"
  • Line Location: S3C+1
Function Call: WRITE
  • Prompt: !
  • Line Location: S3C+2
Function Call: WRITE
  • Prompt: !,?30,"NUMBER OF RECORDS WITH INCOMPLETE DATA = ",ABM("CNT"),!
  • Line Location: S3END+0
Function Call: WRITE
  • Prompt: !,?30,"NO PRIVATE INSURANCE OUTPUT RECORDS HAVE BE GENERATED",!
  • Line Location: S3END+1
Function Call: WRITE
  • Prompt: !,$$EN^ABMVDF("IOF")
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"* ",X1,?40,"BILLING CLAIM EXPORT LOG",?111,"PAGE ",ABM("PG"),?121,"*",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "* ",?121-$L(X2)/2,X2,?121,"*",!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "*",?121-$L(Y)/2,Y,?121,"*",!,"*"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: "*",!,"* ENTRY",?12,"CONTROL",?62,"DATE OF",?105,"CLAIM",?113,"T",?118,"D",?121,"*",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: "*",?3,"DATE",?12,"NUMBER",?20,"*** PATIENT'S NAME ***",?53,"H R N",?62,"SERVICE",?71,"INSURANCE COMPANY NAME",?105,"AMOUNT",?113,"P",?118,"V",?121,"*",!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,$$EN^ABMVDF("IOF")
  • Line Location: HEADER2+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER2+2
Function Call: WRITE
  • Prompt: !,"*",?47,"INSURANCE COMPANY ADDRESS ERRORS",?116,"*",!,"*"
  • Line Location: HEADER2+3
Function Call: WRITE
  • Prompt: ?32,"THESE ERRORS MUST BE CORRECTED IN ORDER TO EXPORT CLAIM DATA",?116,"*",!,"*"
  • Line Location: HEADER2+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER2+5
Function Call: WRITE
  • Prompt: "*",!,"*",?2,"INSURANCE COMPANY NAME",?34,"*** STREET ADDRESS ***",?66,"CITY",?83,"ST",?87,"ZIP CODE",?100,"B-ADDRESS ERROR",?116,"*",!,"*"
  • Line Location: HEADER2+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER2+7
Function Call: WRITE
  • Prompt: "*",!!
  • Line Location: HEADER2+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTNINS - [#9999999.18] S3A+1
^DD("DD" HEADER+6
^DIC(4 - [#4] HEADER+3
^DIC(5 - [#5] S3A+3, S3A+4
^TMP("ABMDTX" S3A, S3C+1

Label References

Name Line Occurrences
HEADER2 ABMDTX1+12, S3C+2
S3A S3C+3
S3C S3A+3
S3END S3A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABM("CNT" ABMDTX1+3*, S3C+3*, S3END
>> ABM("IDFN" ABMDTX1+13*, S3A*, S3A+1, S3C+1
>> ABM("IOP" ABMDTX1+7
>> ABM("LTYPE" ABMDTX1+7*
>> ABM("PG" HEADER+1*, HEADER+4
>> ABM("ST" S3A+3*, S3A+4
>> ABM("X" ABMDTX1+5*, ABMDTX1+9, ABMDTX1+10
>> ABM("XIT" ABMDTX1+7, ABMDTX1+8*
>> ABM("Y" ABMDTX1+6*, ABMDTX1+9, ABMDTX1+10
>> ABM(0 S3A+1*, S3A+2, S3A+3, S3C
>> ABMP("AUTO" ABMDTX1+4
DT HEADER+6
DUZ(2 HEADER+3
>> I HEADER+2*, HEADER+8*, HEADER+11*, HEADER2+2*, HEADER2+5*, HEADER2+7*
IO ABMDTX1+10, HEADER+3
IO(0 ABMDTX1+9, ABMDTX1+11
IOSL S3C+2
>> POP ABMDTX1+8
U S3A+2, S3A+3, S3A+4, S3C, HEADER+3
>> X1 HEADER+3*, HEADER+4
>> X2 HEADER+3*, HEADER+5
>> Y HEADER+6*, HEADER+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All