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

Package: Integrated Billing

Routine: IBCSCU


Information

IBCSCU ;ALB/MJB - MCCR SCREEN UTILITY ROUTINE ;27 MAY 88 11:09

Source Information

Source file <IBCSCU.m>

Entry Points

Name Comments DBIA/ICR reference
M ;I $L(IBVI_IBVO)>4 S X=80 X ^%ZOSF("RM")
H ;Screen Header
HQ ;
A ;Format Address(es)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?(40-($L(X)\2)),IBVI,X,IBVO,!,L
  • Line Location: H+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !,VADM(1)
  • Line Location: H+11
Function Call: WRITE
  • Prompt: " ",$P(VADM(2),"^",2)
  • Line Location: H+12
Function Call: WRITE
  • Prompt: " BILL#: ",IBBNO_" - "_DGINPT,"/"
  • Line Location: H+13
Function Call: WRITE
  • Prompt: "1500"
  • Line Location: H+14
Function Call: WRITE
  • Prompt: $TR($P($G(^IBE(353,3,0)),U,1),"-")
  • Line Location: H+15
Function Call: WRITE
  • Prompt: $$GET1^DIQ(353,"7,",.01)
  • Line Location: H+18
Function Call: WRITE
  • Prompt: ?(80-$L(X1)),X1
  • Line Location: H+19
Function Call: WRITE
  • Prompt: !,L
  • Line Location: H+20
Function Call: WRITE
  • Prompt: !?(40-($L(X)\2)),IBVI,X,IBVO
  • Line Location: H+21

FileMan Files Accessed Via FileMan Db Call

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