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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCSC9

Package: Integrated Billing

Routine: IBCSC9


Information

IBCSC9 ;ALB/BI - MCCR SCREEN 9 (AMBULANCE INFO) ;11 MAY 2011 10:20

Source Information

Source file <IBCSC9.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry Point
IBWP(IBX,IBLM,IBRM) ;
SCREEN1(DA1) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Ambulance Transport Data"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,?4,"P/U Address1: ",$P(IB("U5"),U,2)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,?4,"P/U Address2: ",$P(IB("U5"),U,3)
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,?4,"P/U City: ",$P(IB("U5"),U,4)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !,?4,"D/O Location: ",$P(IB("U6"),U)
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,?4,"D/O Address1: ",$P(IB("U6"),U,2)
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !,?4,"D/O Address2: ",$P(IB("U6"),U,3)
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !,?4,"D/O City: ",$P(IB("U6"),U,4)
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !,?4,"Patient Weight: ",$P(IB("U7"),U,1),?41,"Transport Distance: ",$P(IB("U7"),U,3)
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !,?4,"R/T Purpose: "
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,?4,"Stretcher Purpose: "
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: " Ambulance Certification Data"
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !,?4,"Condition Indicator:"
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: ?25,$$GET1^DIQ(353.5,IBACI_",",.01)," - ",$$GET1^DIQ(353.5,IBACI_",",.02),!
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,?(IBLM)
  • Condition for execution: Y>1
  • Line Location: IBWP+4
Function Call: WRITE
  • Prompt: $G(^UTILITY($J,"W",1,Y,0))
  • Line Location: IBWP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(353.4 - [#353.4] GET1^DIQ
^IBE(353.5 - [#353.5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call