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

Package: Third Party Tracking

Routine: ABPVTX1


Information

ABPVTX1 ;EXPORT FACILITY PVT-INS CLAIM DATA;[ 06/03/91 2:40 PM ]

Source Information

Source file <ABPVTX1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ERR^ZU  
Third Party Tracking 1 (S4START,ZEND)^ABPVTX2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Third Party Tracking 2 ABPVCK0  ABPVTX0  

Entry Points

Name Comments DBIA/ICR reference
JOBEND
ERR
S3A
HEADER2
HEADER
S3END
S3START ;PRINT REPORT OF INSURANCE CO ADDRESS ERRORS
S3C

External References

Name Field # of Occurrence
S4START^ABPVTX2 S3START+2
ZEND^ABPVTX2 S3END+2
ERR^ZU ERR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOT AN ENTRY POINT"
  • Line Location: ABPVTX1+2
Function Call: WRITE
  • Prompt: *7,*7,!!,?10,X,!!,?20,Y
  • Line Location: S3START+5
Function Call: WRITE
  • Prompt: !!,?35,X,!,?45,Y
  • Line Location: S3START+6
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: S3START+7
Function Call: WRITE
  • Prompt: ?2,$E($P(ZY,"^",1),1,30)
  • Line Location: S3A+2
Function Call: WRITE
  • Prompt: ?34,$E($P(ZY,"^",2),1,30)
  • Line Location: S3A+3
Function Call: WRITE
  • Prompt: ?66,$E($P(ZY,"^",3),1,14)
  • Line Location: S3A+4
Function Call: WRITE
  • Prompt: ?83,$P(^DIC(5,X,0),"^",2)
  • Line Location: S3A+6
Function Call: WRITE
  • Prompt: ?87,$E($P(ZY,"^",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 = ",RR,!
  • 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: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"* ",X1,?40,"PRIVATE INSURANCE BILLING CLAIM EXPORT LOG",?111,"PAGE ",PGNO,?121,"*",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "* ",?121-$L(X2)/2,X2,?121,"*",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "*",?121-$L(Y)/2,Y,?121,"*",!,"*"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: "*",!,"* ENTRY",?12,"CONTROL",?62,"DATE OF",?105,"CLAIM",?113,"T",?118,"D",?121,"*",!
  • Line Location: HEADER+8
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+9
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER2+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER2+1
Function Call: WRITE
  • Prompt: !,"*",?47,"INSURANCE COMPANY ADDRESS ERRORS",?116,"*",!,"*"
  • Line Location: HEADER2+2
Function Call: WRITE
  • Prompt: ?32,"THESE ERRORS MUST BE CORRECTED IN ORDER TO EXPORT CLAIM DATA",?116,"*",!,"*"
  • Line Location: HEADER2+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER2+4
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+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER2+6
Function Call: WRITE
  • Prompt: "*",!!
  • Line Location: HEADER2+7
Function Call: WRITE
  • Prompt: @A("PRINT",10)
  • Line Location: ERR+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" ERR
^AUTNINS - [#9999999.18] S3A+1
^DD("DD" HEADER+5
^DIC(4 - [#4] HEADER+2
^DIC(5 - [#5] S3A+5, S3A+6
^UTILITY("ABPVTX" HEADER+5
^UTILITY("ABPVTXE" S3START+2, S3A, S3C+1

Label References

Name Line Occurrences
HEADER2 S3START+8, S3C+2
S3A S3C+3
S3C S3A+4, S3A+5
S3END S3A

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A("PRINT" ERR
DUZ(2 HEADER+2
I HEADER+1*, HEADER+7*, HEADER+10*, HEADER2+1*, HEADER2+4*, HEADER2+6*, JOBEND!
IO S3START+6, HEADER, HEADER+2, HEADER2, ERR
IO(0 S3START+5, S3START+7
IOF HEADER, HEADER2
LEXDATE JOBEND!
>> PGNO HEADER*, HEADER+3
>> R S3START+1*, S3A*, S3A+1, S3C+1
>> RR S3START+1*, S3C+3*, S3END
X S3START+3*, S3START+5, S3START+6, S3A+4*, S3A+5, S3A+6, JOBEND!
>> X1 HEADER+2*, HEADER+3
>> X2 HEADER+2*, HEADER+4
Y S3START+4*, S3START+5, S3START+6, HEADER+5*, HEADER+6, JOBEND!
>> ZY S3A+1*, S3A+2, S3A+3, S3A+4, S3C
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All