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

Package: Integrated Billing

Routine: IBTOSA


Information

IBTOSA ;ALB/AAS - CLAIMS TRACKING SCHEDULED ADMISSION REPORT ; 27-OCT-93

Source Information

Source file <IBTOSA.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 5 $$BUFFER^IBCNBU1  $$INSURED^IBCNS1  ($$DAT1,DATE)^IBOUTL  $$EXPAND^IBTRE  EN^IBTRKR2  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTE^XLFDT  
VA FileMan 2 DT^DICRW  ^DIE  
List Manager 1 PAUSE^VALM1  
Registration 1 PID^VADPT  

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

Package Total Caller Graph
Integrated Billing 2 IBT OUTPUT SCHED ADM W/INS  IBTOUA  

Entry Points

Name Comments DBIA/ICR reference
DATE ; -- select date
DEV ; -- select device, run option
DQ
END ; -- Clean up
PRINT ; -- print one billing report from ct
PR
ONE ; -- Print one patients data
HDR ; -- Print header for billing report
SET ; -- set tmp array
SCH(IBTRN) ; -- is patient either admitted or still scheduled
SCHQ
FIX ; -- find bad episode dates and fix
F1(IBTRN) ; fix EPISODE DATE

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+9, SET+1
DT^DICRW %
^DIE SCH+9, F1+5
$$BUFFER^IBCNBU1 PRINT+12, ONE+8
$$INSURED^IBCNS1 PRINT+12
$$DAT1^IBOUTL ONE+5, HDR+6
DATE^IBOUTL DATE+1
$$EXPAND^IBTRE ONE+7
EN^IBTRKR2 PRINT+2
PID^VADPT ONE+4
PAUSE^VALM1 HDR+2
$$HTE^XLFDT PRINT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Scheduled Admissions Report"
  • Line Location: IBTOSA+4
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: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"No Scheduled Admission found in date range",!
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,"------------------"
  • Line Location: PR+6
Function Call: WRITE
  • Prompt: !,"TOTAL = ",IBCNT
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,27),?30,VA("PID"),?45,$$DAT1^IBOUTL($P(IBTRND,"^",6),"2P")
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?100,$E($P($G(^DPT(DFN,.1)),"^"),1,12),?115,$E($$EXPAND^IBTRE(356,.07,$P(IBTRND,"^",7)),1,11)
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: ?129,"YES"
  • Line Location: ONE+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Scheduled Admissions with Insurance",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Period beginning on ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient",?30,"Pt. ID",?45,"Adm. Date",?66,"Billable",?100,"Ward",?115,"Type",?126,"Buffer"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"....task stop* ed at user request"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"....task stop* ed at user request"
  • Line Location: SET+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIE
  • Line Location:
    • SCH+9
    • F1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+6
^DGS(41.1 - [#41.1] SCH+6
^DPT - [#2] ONE+7, SET+2
^IBE(356.6 - [#356.6] PRINT+11
^IBE(356.8 - [#356.8] ONE+6
^IBT(356 - [#356] PRINT+7, PRINT+8, SCH+3, FIX+2, F1+3, F1+4
^TMP($J END+1!, PRINT+3!, PR+1, PR+3, SET+2*

Label References

Name Line Occurrences
$$SCH PRINT+11
END DATE+2, DEV+2, DEV+3, DQ, PR+8
F1 FIX+2
FIX PRINT+5
HDR PR, ONE+2, SET+1
ONE PR+3
PRINT DQ
SCHQ SCH+4, SCH+5
SET PRINT+12

Naked Globals

Name Field # of Occurrence
^( PR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2*, END+4!
DA SCH+7~, SCH+8*, F1+1~, F1+5*
DFN END+4!, ONE+4*, ONE+7, ONE+8
DIC SCH+7~, F1+1~
DIE SCH+7~, SCH+8*, F1+1~, F1+5*
>> DIRUT HDR+2
DR SCH+7~, SCH+8*, F1+1~, F1+5*
DT %, FIX+1
I END+4!
IBBDT DATE+2, END+4!, PRINT+2, PRINT+6, PRINT+10, HDR+6
>> IBCNT PR+2*, PR+7, ONE+3*
IBDT END+4!, PRINT+6*, PRINT+7*, PRINT+10, PRINT+12, PR+3*, SET+2, FIX+1*, FIX+2*, F1+1~
, F1+4*, F1+5*
IBEDT DATE+2, END+4!, PRINT+2, PRINT+7, HDR+6
IBHDT END+4!, PRINT+1*, HDR+5
>> IBNAM PR+2*, PR+3*, ONE+5
IBPAG END+4!, PRINT+1*, HDR+2, HDR+3, HDR+4*, HDR+5
IBQUIT END+4!, PRINT+1*, PRINT+7, PR+3, PR+5, ONE+1, ONE+2, HDR+1, HDR+2*, HDR+9*
, SET+1*
IBTRN END+4!, PRINT+7*, PRINT+8, PRINT+11, PR+3*, SET+2, SCH~, SCH+3, SCH+8, FIX+2*
, F1~, F1+2, F1+3, F1+4, F1+5
IBTRND END+4!, PRINT+8*, PRINT+9, PRINT+11, PRINT+12, PR+3*, ONE+4, ONE+5, ONE+6, ONE+7
, SET+2, SCH+2~, SCH+3*, SCH+4, SCH+5, SCH+6
>> IBTSBDT PRINT+2*
>> IBTSEDT PRINT+2*
IBX SCH+2~*, SCH+6*, SCHQ
IO DEV+5
IO("Q" DEV+3!
IOF HDR+3
IOM HDR+5, HDR+8
IOSL ONE+2
IOST HDR+2, HDR+3
J END+4!
>> POP DEV+2
VA END+4!
VA("PID" ONE+5
X DEV+6*, END+4!, SCH+6*
Y END+4!
>> ZTDESC DEV+3*
>> ZTQUEUED END+2, PR+8, HDR+9, SET+1
>> ZTREQ END+2*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+9*, SET+1*
Info |  Source |  Call Graph |  Caller 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