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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBDFOSG2

Package: Automated Information Collection System

Routine: IBDFOSG2


Information

IBDFOSG2 ;ALB/TMP - ENCOUNTERS WITH BILLING DATA CONT. - SEP 11, 1995

Source Information

Source file <IBDFOSG2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  (,C)^%DTC  DT^DICRW  EN1^DIP  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  $$HTE^XLFDT  
Automated Information Collection System 1 END^IBDFOSG  

Entry Points

Name Comments DBIA/ICR reference
PRT11 ;
LAG ; Set up lag time accumulators-from computed fld
PRT(IBTOT,IBFLDS,IBBY,IBDHD,DIOBEG,DIOEND) ; Prt rpt
END
SELDEVQ
TOT4 ; #4
SELDEV ; Device/queue tm (IOP,DQTIME returned)
DTRNG ;
TOT11Q
DT() ; Display date format
TOT3 ; #3a,b
TOT2 ; #2a,b
PRTQ
TOT7 ; #7
GEN30 ; Was printed within 30 days of any visit on bill
TOT11 ; #11
TOT10 ; #10a,b
PRT1
SELMONTH ;
END10 ; DIOEND
BEG10 ; DIOBEG

External References

Name Field # of Occurrence
^%DT SELDEV+7, SELMONTH+1
DD^%DT DT+2
^%DTC LAG+4, LAG+5, GEN30+4
C^%DTC DTRNG+5
^%ZIS SELDEV+3
HOME^%ZIS SELDEV+5
^%ZTLOAD PRT11+8
DT^DICRW TOT2+2, TOT3+2, TOT4+2, TOT7+2, TOT10+2, TOT11+2
EN1^DIP PRT1+4
^DIR TOT11+17, PRT+5
END^IBDFOSG END
$$HTE^XLFDT PRT11+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"#3b"
  • Line Location: TOT3+7
Function Call: WRITE
  • Prompt: !,"#11"
  • Line Location: TOT11+4
Function Call: WRITE
  • Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated."
  • Line Location: TOT11+5
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: TOT11+11
Function Call: WRITE
  • Prompt: !,"#11 MONTH: "_$$DT()
  • Line Location: PRT11+3
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: PRT11+9
Function Call: WRITE
  • Prompt: !,"#",IBTOT
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"TOTALS FOR #"_IBTOT_" ("_$$DT()_")"
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: !!,"(10a) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL CREATE: ",$J($S(^TMP($J,"EFDPTOT",2):^TMP($J,"EFDPTOT",1)/^TMP($J,"EFDPTOT",2),1:0),10,2)
  • Line Location: END10+1
Function Call: WRITE
  • Prompt: !,"(10b) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL PRINT : ",$J($S(^TMP($J,"EFDPTOT",4):^TMP($J,"EFDPTOT",3)/^TMP($J,"EFDPTOT",4),1:0),10,2)
  • Line Location: END10+2
Function Call: WRITE
  • Prompt: !,$C(7),"CANNOT BE YOUR HOME DEVICE"
  • Line Location: SELDEV+4
Function Call: WRITE
  • Prompt: !,$C(7),"Must choose a month from 4/94 thru 3/96"
  • Line Location: SELMONTH+1
Routine Call
  • %ZIS
  • Line Location:
    • SELDEV+5
Routine Call
  • DIR
  • Line Location:
    • TOT11+17
    • PRT+5
Routine Call
  • %ZIS
  • Line Location:
    • SELDEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] LAG+2, LAG+3, LAG+4, LAG+5, GEN30+2, GEN30+3, GEN30+4
^TMP($J BEG10+1*, END10+1, END10+2, END10+3!, LAG+4*, LAG+5*

Label References

Name Line Occurrences
$$DT PRT11+3, PRT1+2, PRT1+3
DTRNG TOT11+14, PRT+4
END TOT11+3, TOT11+12, TOT11Q
PRT TOT2+5, TOT3+5, TOT3+10, TOT4+5, TOT7+5, TOT10+5
PRT1 PRT+8, PRT+10
PRT11 TOT11+16, TOT11+20, TOT11+22
PRTQ PRT+3, PRT+6, PRT+7
SELDEV TOT3+7, TOT11+12, PRT+3, SELDEV+4
SELDEVQ SELDEV+5
SELMONTH TOT11+21, PRT+9
TOT11Q TOT11+18, TOT11+19

Naked Globals

Name Field # of Occurrence
^("S" LAG+2
^(2 BEG10+1*
^(4 BEG10+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SELDEV+7*!, SELMONTH+1*!
%DT("A" SELDEV+7*, SELMONTH+1*
%DT("B" SELDEV+7*
%DT(0 SELDEV+7*, SELMONTH+1*
%ZIS SELDEV+2*, SELDEV+3!
%ZIS("A" SELDEV+2*
%ZIS("B" SELDEV+2*
>> BY PRT1+1*
>> D0 LAG+2, LAG+3, LAG+4, LAG+5, GEN30+2, GEN30+3, GEN30+4
>> DHD PRT1+2*
>> DIC PRT1+2*
DIOBEG PRT~, PRT1*
DIOEND PRT~, PRT1*
DIPA PRT+1~
DIPA("DTFR" PRT11+2*, PRT1+1*, PRT1+2, DT+1
DIPA("DTTO" PRT1+1*, PRT1+2
DIR TOT11+17!, PRT+5!
DIR("A" TOT11+17*, PRT+5*
DIR("B" TOT11+17*, PRT+5*
DIR(0 TOT11+17*, PRT+5*
>> DIRUT TOT11+18, PRT+6
>> DIS(0 PRT1+2*
DQTIME TOT2+6!, TOT3+7, TOT3+11!, TOT4+6!, TOT7+6!, TOT10+6!, TOT11+12, PRT11+7, END+1!, PRT+3
, SELDEV+1!, SELDEV+8*
DT TOT2+2, TOT3+2, TOT4+2, TOT7+2, TOT10+2, TOT11+2
>> DTOUT SELMONTH+1
DTRNG TOT11+1~, PRT+1~
DTRNG( TOT11+16, PRT11+1, PRT1+1, DTRNG+5*
DTRNG1 TOT11+1~, PRT+1~
DTRNG1( TOT11+15, TOT11+22, PRT+10, DTRNG+5*, SELMONTH+1
>> FLDS PRT1+1*
>> FR PRT1+2*
>> IBBDT TOT11+16*, PRT11+1*, PRT11+2, PRT11+6
IBBY TOT2+1~, TOT2+3*, TOT2+5, TOT3+1~, TOT3+3*, TOT3+5, TOT3+8*, TOT3+10, TOT4+1~, TOT4+3*
, TOT4+5, TOT7+1~, TOT7+3*, TOT7+5, TOT10+1~, TOT10+3*, TOT10+5, PRT~, PRT1+1
>> IBDFBEG PRT11+6*
>> IBDFDAT PRT11+5*
>> IBDFEND PRT11+6*
>> IBDFL PRT11+4*
>> IBDFMUL TOT11+9*
IBDHD TOT2+1~, TOT2+4*, TOT2+5, TOT3+1~, TOT3+4*, TOT3+5, TOT3+9*, TOT3+10, TOT4+1~, TOT4+4*
, TOT4+5, TOT7+1~, TOT7+4*, TOT7+5, TOT10+1~, TOT10+4*, TOT10+5, PRT~, PRT1+2
>> IBEDT TOT11+16*, PRT11+1*, PRT11+6
IBFLDS TOT2+1~, TOT2+3*, TOT2+5, TOT3+1~, TOT3+3*, TOT3+5, TOT3+8*, TOT3+10, TOT4+1~, TOT4+3*
, TOT4+5, TOT7+1~, TOT7+3*, TOT7+5, TOT10+1~, TOT10+3*, TOT10+5, PRT~, PRT1+1
IBTOT PRT~, PRT+2, PRT1, PRT1+3
IBZ TOT11+15*, TOT11+16, TOT11+20*, TOT11+22*, PRT11+1, PRT+1~, PRT+8*, PRT+10*, PRT1+1
IO SELDEV+4, SELDEV+6
IO(0 SELDEV+4
IOP TOT2+6!, TOT3+7, TOT3+11!, TOT4+6!, TOT7+6!, TOT10+6!, TOT11+12, END+1!, PRT+3, SELDEV+1!
, SELDEV+6*
>> L PRT1+2*
>> POP SELDEV+5
>> TO PRT1+2*
U TOT11+16, PRT11+1, PRT1+1, LAG+2, GEN30+2, DTRNG+5
>> VAUTC PRT11+4*
>> VAUTD TOT11+9*
X PRT+1~, LAG+2*, LAG+3*, LAG+4, LAG+5, GEN30+2*, GEN30+3*, GEN30+4*, DTRNG+1~, DTRNG+5
, SELMONTH+1
X1 LAG+1~, LAG+4*, LAG+5*, GEN30+1~, GEN30+4*, DTRNG+1~, DTRNG+5*
X2 LAG+1~, LAG+4*, LAG+5*, GEN30+1~, GEN30+4*, DTRNG+1~, DTRNG+4*
Y TOT11+15, TOT11+19, TOT11+22, PRT+1~, PRT+7, PRT+10, SELDEV+8, DT+1*, DT+3, SELMONTH+1
Z LAG+1~, LAG+2*, LAG+3*, LAG+4, LAG+5, GEN30+1~, GEN30+2*, GEN30+3*, GEN30+4, DTRNG+1~
, DTRNG+3*, DTRNG+4, DTRNG+5*
Z0 LAG+1~, LAG+2*, LAG+4, GEN30+1~, GEN30+2*, GEN30+4, DTRNG+1~, DTRNG+3*, DTRNG+5
Z1 LAG+1~, LAG+2*, LAG+5, DTRNG+4*, DTRNG+5
>> ZTDESC PRT11+8*
>> ZTDTH PRT11+7*
>> ZTRTN PRT11+8*
>> ZTSAVE("IB*" PRT11+8*
>> ZTSAVE("VAD*" PRT11+8*
>> ZTSAVE("VAU*" PRT11+8*
>> ZTSK PRT11+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All