Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABPVOP03

Package: Third Party Tracking

Routine: ABPVOP03


Information

ABPVOP03 ;PRINT PRIVATE INSURANCE ELIG O/P VISIT REPORT; [ 06/02/91 12:50 PM ]

Source Information

Source file <ABPVOP03.m>

Entry Points

Name Comments DBIA/ICR reference
A
NAME
SUMRY
PVTINS
CHART
H5
A1
START
INIT
PRINT
CLOSE
XTRACT
HEADING
INSPRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?80-$L(A("TITLE"))\2,A("TITLE"),!!,A("PDT"),?80-$L(LOC)\2,LOC,?73,"page ",ABPV("PG"),!,TME,?80-$L(TITLE)\2,TITLE
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?80-$L(X),X,!
  • Line Location: HEADING+3
Function Call: WRITE
  • Prompt: ?80-$L(TITLE)\2,TITLE
  • Line Location: HEADING+4
Function Call: WRITE
  • Prompt: !!," D.O.S.",?10,"SVCS",?16,"PATIENT NAME",?38,"CHART #",?47,"INSURANCE CARRIER(S)",!
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !
  • Line Location: H5+1
Function Call: WRITE
  • Prompt: !,ABPV("DOS")
  • Line Location: A+2
Function Call: WRITE
  • Prompt: ?11,A("SVCS"),?16,A("NAME"),?38,$J(A("CHART"),7)
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?47,"***** INCOMPLETE *****"
  • Line Location: INSPRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: INSPRT+0
Function Call: WRITE
  • Prompt: ?47,"***** INCOMPLETE *****"
  • Line Location: INSPRT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: INSPRT+1
Function Call: WRITE
  • Prompt: ?47,$P(^AUTNINS(A("PTR"),0),"^",1)
  • Line Location: INSPRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INSPRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMRY+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUMRY+0
Function Call: WRITE
  • Prompt: !!,"TOTAL APC VISITS FOR THIS PERIOD: ",$J(ABPV("TOTAL"),6)
  • Line Location: SUMRY+3
Function Call: WRITE
  • Prompt: !,"VISITS WITH THIRD PARTY COVERAGE: ",$J(ABPV("HITS"),6)
  • Line Location: SUMRY+4
Function Call: WRITE
  • Prompt: !,"PERCENTAGE PRIVATE INS. COVERAGE: ",$J(ABPV("%"),6,1),"%"
  • Line Location: SUMRY+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLOSE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" CLOSE
^%ZTSK - [#14.4] A, A1, A1+1
^AUPNPAT - [#9000001] CHART, CHART+1
^AUPNPRVT - [#9000006] PVTINS
^AUTNINS - [#9999999.18] INSPRT+1, INSPRT+2
^DD("DD" HEADING+4
^DIC(4 - [#4] INIT
^DPT - [#2] NAME, NAME+1

Label References

Name Line Occurrences
A A1
A1 PVTINS+2
CHART NAME
CLOSE START
HEADING START, A+2, INSPRT, INSPRT+1, INSPRT+2
INIT START
INSPRT PVTINS, PVTINS+1
PRINT CHART
SUMRY START
XTRACT START

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CLOSE!
A("ADFN" A+2*, A1*, A1+1, NAME, NAME+1, CHART, CHART+1, PVTINS
A("ADOS" XTRACT*, A*, A+1, A+2, A1, A1+1
A("BEG" HEADING+4*
A("CHART" CHART*, CHART+1*, PRINT
A("END" HEADING+4*
A("HR" HEADING+1*, HEADING+2
A("MIN" HEADING+1*, HEADING+2*
A("NAME" NAME*, NAME+1*, PRINT
A("PDT" HEADING+2*, HEADING+3
A("PRT" PVTINS+1*
A("PTR" PVTINS*, INSPRT, INSPRT+1, INSPRT+2
A("SVCS" A1+1*, PRINT
A("TITLE" INIT+2*, HEADING+3
A("TM" HEADING+1*
ABPV CLOSE!
ABPV("%" SUMRY+1*, SUMRY+2*, SUMRY+5
ABPV("BEG" HEADING+4, XTRACT
ABPV("DOS" A+2*
ABPV("END" HEADING+4, A+1
ABPV("HITS" SUMRY+2, SUMRY+4
ABPV("PG" INIT*, HEADING*, HEADING+3
ABPV("SITE" INIT, A, A1, A1+1, CHART, CHART+1
ABPV("TASK" INIT
ABPV("TOTAL" SUMRY+1, SUMRY+2, SUMRY+3
ASM CLOSE!
ASM("$Y" PVTINS*, PVTINS+2
DT HEADING+2
I H5*, PVTINS*, PVTINS+1, SUMRY*, CLOSE!
IOF HEADING+3, CLOSE
LOC INIT*, HEADING+3, CLOSE!
TITLE INIT+1*, HEADING+3, HEADING+4*, CLOSE!
>> TME HEADING+2*, HEADING+3
X HEADING+3*, PVTINS*, PVTINS+1, CLOSE!
Y HEADING+4*, CLOSE!
>> ZTSK INIT*, HEADING+3, A, A1, A1+1
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All