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

Package: Integrated Billing

Routine: IBEPTC2


Information

IBEPTC2 ;ALB/CPM/ARH - TP LIST NON-BILLABLE STOP CODES AND CLINICS ; 05-AUG-93

Source Information

Source file <IBEPTC2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 ($$NABCT,$$NABST,$$NBCT,$$NBST)^IBEFUNC  ($$DAT1,$$DAT2)^IBOUTL  
VA FileMan 2 ^%DT  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB TP LIST FLAGGED PARAMS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point - describe output.
DQ ; Tasked entry point.
ENQ
ENQ1
HDR ; Generate a report header.
LST ; List all selected entries.
LSTQ
NBILL(IBF,IBEN,IBD) ; Is the entry not billable as of the effective date?
; Input: IBF -- Base file (#352.3, #352.4)
; IBEN -- Internal entry number for entry
; IBD -- Effective date for non-billing
NBILLQ
VAL(IBF,IBEN) ; Return the entry name.
; Input: IBF -- Base file (#352.3, #352.4)
; IBEN -- Internal entry number for entry
; Output: Entry name (#.01 from respective file)
VALQ
DASH() ; Return a dashed line.
PAUSE ; Page break

External References

Name Field # of Occurrence
^%DT EN+7
^%ZIS EN+10
HOME^%ZIS EN+14
^%ZISC ENQ
^%ZTLOAD EN+13
^DIR PAUSE+4
$$NABCT^IBEFUNC NBILL+7
$$NABST^IBEFUNC NBILL+6
$$NBCT^IBEFUNC NBILL+7
$$NBST^IBEFUNC NBILL+6
$$DAT1^IBOUTL HDR+3, HDR+4
$$DAT2^IBOUTL EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"This report may be used to generate a list of all clinic stop codes,"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?5,"and clinics that are non-billable in Third Party Billing or "
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,"that will not have bills created by the Third Party Auto Biller.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $$DASH(),!?(80-$L(IBT)\2),IBT,!?33,"As Of: ",$$DAT1^IBOUTL(IBDAT)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?64,"Page: ",IBPAG,!?60,"Run Date: ",$$DAT1^IBOUTL(DT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$DASH(),!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "All ",$S(IBI=352.3:"clinic stop codes",1:"clinics")," are billable and may be auto billed on this date."
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !,"No ",$S(IBI=352.3:"clinic stop codes",1:"clinics")," are flagged as ",IBK1,!
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: $$VAL(IBI,IBH)
  • Line Location: LST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] VAL+6
^IBE( DQ+3
^SC - [#44] VAL+7
^TMP("IBEPTC2" DQ+5*, DQ+6*, ENQ1!, LST+1, LST+4, LST+5, LST+6

Label References

Name Line Occurrences
$$DASH HDR+3, HDR+5
$$NBILL DQ+4
$$VAL DQ+5, DQ+6, LST+8
ENQ EN+7, EN+10, EN+11
ENQ1 DQ+3
HDR DQ+9, LST+7
LST DQ+9
LSTQ LST+1
NBILLQ NBILL+5, NBILL+6
PAUSE DQ+9, LST+7
VALQ VAL+5, VAL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+6*, EN+7!
%DT("A" EN+6*
%DT("B" EN+6*
>> %ZIS EN+10*
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DT EN+6, HDR+4
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
IBD NBILL~, NBILL+5
IBDAT EN+7*, DQ+4, ENQ+1!, HDR+3, NBILL+6, NBILL+7
IBEN NBILL~, NBILL+5, NBILL+6, NBILL+7, VAL~, VAL+5, VAL+6, VAL+7
IBF NBILL~, NBILL+5, NBILL+6, NBILL+7, VAL~, VAL+5, VAL+6, VAL+7
>> IBH LST+6*, LST+8
IBI DQ+3*, DQ+4, DQ+5, DQ+6, DQ+9*, ENQ+1!, HDR+2, LST+1, LST+4, LST+5
, LST+6, LST+8
IBJ DQ+3*, DQ+4, DQ+5, DQ+6, ENQ+1!, LST+5*, LST+6
>> IBK LST+2*, LST+4, LST+5, LST+6
>> IBK1 LST+2*, LST+3, LST+4
IBPAG DQ+9*, ENQ+1!, HDR+1, HDR+2*, HDR+4
IBQ DQ+9*, ENQ+1!, LST+5, LST+7, PAUSE+4*
IBT ENQ+1!, HDR+2*, HDR+3
IBX DQ+4*, DQ+5, DQ+6, PAUSE+2~, PAUSE+3*
IO EN+16
IO("Q" EN+11, EN+14!
IOF HDR+1
IOSL LST+7, PAUSE+3
IOST HDR+1, PAUSE+1
>> POP EN+10
U DQ+6, NBILL+6, NBILL+7
X PAUSE+2~
Y EN+7, NBILL+4~*, NBILL+6*, NBILL+7*, NBILLQ, VAL+4~*, VAL+6*, VAL+7*, VALQ, PAUSE+2~
>> ZTDESC EN+12*
>> ZTQUEUED ENQ
>> ZTRTN EN+12*
>> ZTSAVE("IBDAT" EN+12*
ZTSK EN+13, EN+14!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All