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

Package: Third Party Tracking

Routine: ABPVCK0


Information

ABPVCK0 ;3P BILL TRANSMISSION EDIT REPORT;[ 08/07/91 3:51 PM ]

Source Information

Source file <ABPVCK0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Third Party Tracking 3 (A3,A4)^ABPVCK1  JOBEND^ABPVTX1  PAUSE^ABPVZMM  
Kernel 2 ^%ZIS  ERR^ZU  
VA Fileman 1 WAIT^DICD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Third Party Tracking 1 ABPVCK1  

Entry Points

Name Comments DBIA/ICR reference
NXTNODE
HEADER
A1 ;PROCEDURE TO GET PRINTER OUTPUT DEVICE
PRESET ;PROCEDURE TO RESET THE PRINTER TO 10 CPI
HEADER2
ERR
A2A ;PROCEDURE TO CONTROL REMAINING TASKS OF THIS ROUTINE
S3END
S3ENDA
INSCHKC
A0 ;PROCEDURE TO DRAW SCREEN HEADING
A2 ;PROCEDURE TO DETERMINE THE BEGINNING RECORD NUMBER FOR THIS RUN
INSCHK ;PROCEDURE TO INSPECT FOR COMPLETE INSURANCE RECORD
A0A ;PROCEDURE TO GET THE LAST DATE DATA WAS EXPORTED
S3A
S3START ;PRINT INS CO ADD ERRORS REPORT OF INSURANCE CO ADDRESS ERRORS
S3C

External References

Name Field # of Occurrence
^%ZIS A1+1
A3^ABPVCK1 A2A+1
A4^ABPVCK1 A2A+1
JOBEND^ABPVTX1 A0A+3
PAUSE^ABPVZMM S3ENDA+1
WAIT^DICD A2A+1
ERR^ZU ERR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: A0+1
Function Call: WRITE
  • Prompt: !,"*",?13,"PRIVATE INSURANCE BILLING CLAIM TRANSMISSION EDIT REPORT"
  • Line Location: A0+2
Function Call: WRITE
  • Prompt: ?78,"*",!
  • Line Location: A0+3
Function Call: WRITE
  • Prompt: "*",?80-$L(X)/2
  • Line Location: A0+3
Function Call: WRITE
  • Prompt: X,?78,"*",!
  • Line Location: A0+4
Function Call: WRITE
  • Prompt: "*",?80-$L(Y)/2,Y,?78,"*",!
  • Line Location: A0+4
Function Call: WRITE
  • Prompt: "*"
  • Line Location: A0+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !!,*7,?10,"NO RECORDS AVAILABLE FOR EXPORT -- "
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: "JOB CANCELLED"
  • Line Location: A2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: A2A+1
Function Call: WRITE
  • Prompt: @A("PRINT",10)
  • Line Location: PRESET+1
Function Call: WRITE
  • Prompt: *7,*7,!!,?10,X,!!,?20,Y
  • Line Location: S3START+5
Function Call: WRITE
  • Prompt: !!,?30,X,!,?40,Y
  • Line Location: S3START+6
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,15)
  • 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: @A("PRINT",10)
  • 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,?32,"PRIVATE INSURANCE BILLING CLAIM TRANSMISSION EDIT REPORT",?111,"Page ",PGNO,?121,"*",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "*",?121-$L(X)/2,X,?121,"*",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "*",?121-$L(Y)/2,Y,?121,"*",!,"*"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "*",!,"* ENTRY",?12,"CONTROL",?62,"DATE OF",?105,"CLAIM",?113,"T",?118,"D",?121,"*",!
  • Line Location: HEADER+7
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+8
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+10
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
Routine Call
  • %ZIS
  • Line Location:
    • A1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" S3ENDA+1, ERR
^ABPVFAC - [#9002273.02] A0A+2
^ABPVFAC(0 A2+5
^ABPVTXST - [#9002271] A2+2, A2+3, A2+4
^ABPVTXST("AC" A0A+1
^AUTNINS - [#9999999.18] A0A+2, NXTNODE, NXTNODE+1, S3A+1
^DD("DD" A0+4, HEADER+5
^DIC(4 - [#4] A0+3, HEADER+2, HEADER+4
^DIC(5 - [#5] NXTNODE+5, S3A+5, S3A+6
^UTILITY("ABPVTXE" INSCHKC+1*, INSCHKC+3*, S3START+2, S3A, S3C+1, S3ENDA!

Label References

Name Line Occurrences
A0 ABPVCK0+2
A1 A0A+7
A2 A0A+7
A2A A2+2, A2+3
HEADER2 S3START+7, S3C+2
INSCHKC NXTNODE
NXTNODE NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7, NXTNODE+9
PRESET A2+5
S3A S3C+3
S3C S3A+4, S3A+5
S3END S3START+2, S3A
S3ENDA A0A+7, A2+5
S3START A2A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT S3ENDA!
>> %IS A1+1*
>> %ZIS("A" A1+1*
A S3ENDA!
A("PRINT" PRESET+1, S3END+1, ERR
>> ABPV("SITE" A2+1*, A2+2, A2+3, A2+4
BDATE S3ENDA!
BDATED S3ENDA!
>> BRECNO A2+1*, A2+4*, A2+5
DT A0+4, HEADER+5
DUZ(2 A0+3, A0A+1, A2+1, HEADER+2, HEADER+4
EDATE S3ENDA!
EDATED S3ENDA!
I A0+1*, A0+5*, S3ENDA!, HEADER+1*, HEADER+6*, HEADER+9*, HEADER2+1*, HEADER2+4*, HEADER2+6*
IO A0A+7, PRESET+1, S3START+6, S3END+1, HEADER, HEADER+2, HEADER2, ERR
IO(0 A2+6, A2+7, S3START+5
IOF A0+1, HEADER, HEADER2
>> LEXDATE A0A+1*
PDFN S3ENDA!
PGNO A0+1*, S3ENDA!, HEADER*, HEADER+3
R A2+1*, S3START+1*, S3A*, S3A+1, S3C+1, S3ENDA!
RDATES S3ENDA!
RR S3START+1*, S3C+3*, S3END, S3ENDA!
X A0+3*, A0+4, A2+3*, A2+4, S3START+3*, S3START+5, S3START+6, S3A+4*, S3A+5, S3A+6
, S3ENDA!, HEADER+4*
>> X1 HEADER+2*, HEADER+3
>> X2 HEADER+2*
XXX S3ENDA!
Y A0+4*, S3START+4*, S3START+5, S3START+6, S3ENDA!, HEADER+5*
ZCLAMT A2+1*, S3ENDA!
ZCLCT A2+1*, S3ENDA!
ZINSCO NXTNODE, NXTNODE+1, INSCHKC+1, INSCHKC+3, S3ENDA!
ZINSERR INSCHK+1*, NXTNODE+3*, NXTNODE+4*, NXTNODE+6*, NXTNODE+8*, NXTNODE+9*, INSCHKC, INSCHKC+2, S3ENDA!
ZNODE INSCHK+1*, NXTNODE*, NXTNODE+1, NXTNODE+2, S3ENDA!
ZX S3ENDA!
ZY NXTNODE+1*, NXTNODE+2, NXTNODE+3, NXTNODE+4, NXTNODE+5, NXTNODE+7, S3A+1*, S3A+2, S3A+3, S3A+4
, S3C, S3ENDA!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All