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

Package: Automated Information Collection System

Routine: IBDFOSG


Information

IBDFOSG ;ALB/MAF/AAS - SCANNED EF FOR OUTPATIENTS WITH BILLS GENERATED REPORT ;8/21/95

Source Information

Source file <IBDFOSG.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  
Automated Information Collection System 1 START^IBDFOSG1  
Integrated Billing 1 DATE^IBOUTL  
List Manager 1 PAUSE^VALM1  
Registration 1 DIVISION^VAUTOMA  
VA FileMan 1 DT^DICRW  

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

Package Total Caller Graph
Automated Information Collection System 2 IBDF SCANNED W/BILL GEN  IBDFOSG2  
Integrated Billing 1 IBDF SCANNED W/BILL GEN  

Entry Points

Name Comments DBIA/ICR reference
DATE ; -- select date
DEV ; -- select device, run option
DQ
END ; -- Clean up
PRINT ; -- print one billing report
; Data sorted into ^tmp arrays
; := ^tmp("mccr",$j) =
; Clinic Totals := ^tmp("ctot",$j,division,clinic)=
; Division Totals := ^tmp("dtot",$j,division) =
; Grand Totals := ^tmp("gtot",$j) =
PR
ONECL ; -- Print one clinics data
ONEDV ; -- Print Division totals
LINE(NAME,IBX) ;
; -- print detail line
; input Name := text to be printed
; ibx ;= 9 piece global node containing data
HDR ; -- Print header for billing report
QUIT
DASH
DIVH ; -- Write division header

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+10
DT^DICRW %
START^IBDFOSG1 PRINT+10
DATE^IBOUTL DATE+1
PAUSE^VALM1 HDR+2
DIVISION^VAUTOMA %+3
$$FMTE^XLFDT HDR+6
$$HTE^XLFDT %+5, PRINT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"** This option is OUT OF ORDER **"
  • Line Location: IBDFOSG+3
Function Call: WRITE
  • Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated."
  • Line Location: IBDFOSG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"No Data Meeting This Criteria for the Date Range Chosen",!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,$E(NAME,1,25)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?27,$J($P(IBX,"^",4),8)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?39,$J($P(IBX,"^",3),8)
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: ?51,$J($P(IBX,"^",1),8)
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: ?63,$J($P(IBX,"^",2),8)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: ?75,$J(X,8,2)
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: ?87,$J($P(IBX,"^",6),8)
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: ?99,$J($P(IBX,"^",7),8)
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: ?111,$J($P(IBX,"^",8),8)
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: ?123,$J($P(IBX,"^",9),8)
  • Line Location: LINE+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Scanned Encounters with Bill Generation Data",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Period beginning on ",$$FMTE^XLFDT(IBBDT,2)," to ",$$FMTE^XLFDT(IBEDT,2)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?53,"Visits",?65,"#Bills",?75,"Avg. Days",?114,"Total",?126,"Total"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Clinic",?27,"#Scanned",?39,"#Insured",?53,"Billed",?64,"Printed",?75,"to Print",?87,"$ Billed",?100,"$ Recvd",?114,"Bills",?125,"Visits"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: !,"------------------",?27,"--------",?39,"--------",?51,"--------",?63,"--------",?75,"--------",?87,"--------",?99,"--------",?111,"--------",?123,"--------"
  • Line Location: DASH+0
Function Call: WRITE
  • Prompt: !!,?(IOM-$L(IBDFDV)+10/2),"DIVISION: ",IBDFDV,!
  • Line Location: DIVH+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+6
^DG(43 - [#43] %+3
^TMP("CTOT" END+1!, PR+4, PR+7, ONECL+2, ONECL+3, QUIT!
^TMP("DTOT" END+1!, PR+15, ONEDV+3, ONEDV+5, QUIT!, DIVH+2
^TMP("GTOT" END+1!, PR+18, QUIT!
^TMP("IBD-BILL" END+1!, QUIT!
^TMP("IBD-ENTERED" END+1!
^TMP("IBD-PRINTED" END+1!
^TMP("MCCR" END+1!, PR+1, QUIT!

Label References

Name Line Occurrences
DASH PR+17, ONEDV+4
DIVH PR+5
END %+1, %+3, DATE+2, DEV+2, DEV+3, DQ
HDR PR, PR+12, ONEDV+2, LINE+5, DIVH+1
LINE PR+18, ONECL+3, ONEDV+5
ONECL PR+7
ONEDV PR+7, PR+15
PRINT DQ
QUIT PRINT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+2*
DFN END+4!
>> DIRUT HDR+2
DT %
IBBDT DATE+2, DATE+3, END+4!, PRINT+8, HDR+6
IBCNT END+5!
IBDFBEG DATE+3*, END+5!
IBDFCL PR+2~, PR+3*, PR+6*, PR+7*, PR+13*, ONECL+2, ONECL+3
IBDFCLI END+5!, PR+7*
IBDFDA END+5!
IBDFDAT %+5*, END+5!
IBDFDIV END+5!, PR+4*, PR+15*
IBDFDV PR+2~, PR+3*, PR+4*, PR+7, PR+13*, PR+15*, ONECL+2, ONECL+3, ONEDV+3, ONEDV+5
, DIVH+2, DIVH+3
IBDFDVE END+4!, PRINT+7*, PR+7*, PR+10*, ONEDV+4*
IBDFEND DATE+3*, END+5!
IBDFIFN END+5!
IBDFMUL %+3*, END+5!
IBDFNODE END+5!
IBDFNUM END+5!
IBDFPAT PR+2~
IBDFPT PR+2~, PR+3*, PR+13*
IBDFSA END+5!
IBDFT END+5!, PR+2~
IBDFTMP END+5!, PR+2~
IBDFTMP1 END+5!
IBDFTMP2 END+5!
IBDFTPRT END+5!
IBDNODE PR+2~
IBDT END+4!
IBEDT DATE+2, DATE+3, END+4!, PRINT+8, HDR+6
IBFLG1 END+6!
IBFLG2 END+6!
IBFLG3 END+6!
IBFLG4 END+6!, PR+14*, ONEDV+3
IBFLG5 END+6!
IBFLG6 END+6!
IBFLG7 END+6!
IBFLG8 END+6!
IBFLG9 END+6!
IBHDT END+4!, PRINT+7*, HDR+5
IBMCNODE END+6!
IBMCSND END+6!
IBNAM END+6!
IBPAG END+4!, PRINT+7*, HDR+2, HDR+3, HDR+4*, HDR+5
IBQUIT END+4!, PRINT+7*, PR+4, PR+11, PR+15, PR+16, ONECL+1, ONEDV+1, ONEDV+2, LINE+5
, HDR+1, HDR+2*, HDR+10*, DIVH+1
IBTSBDT END+6!, PRINT+8*
IBTSEDT END+6!, PRINT+8*
IBX LINE~, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, LINE+13, LINE+14, LINE+15, LINE+16
IO DEV+5
IO("Q" DEV+3!
IOF HDR+3
IOM HDR+5, HDR+9, DIVH+3
IOSL ONEDV+2, LINE+5, DIVH+1
IOST HDR+2, HDR+3
NAME LINE~, LINE+6
>> POP DEV+2
VAUTC %+4*, END+7!
VAUTD END+7!
X DEV+6*, END+4!, LINE+11*, LINE+12
Y %+3, END+4!
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, HDR+10
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
>> ZTSAVE("VA*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All