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
Print Page as PDF
Routine: IBCEQ2

Package: Integrated Billing

Routine: IBCEQ2


Information

IBCEQ2 ;ALB/TMK - PROVIDER/BILLING ID WORKSHEET ;18-AUG-04

Source Information

Source file <IBCEQ2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1Q
ENQ ; Queued job enters here
BOX(IBINM,Z00,IBCTI) ;
HDR(IBINM,IBPG,IBSTOP) ; Ins Co info
ASK(IBSTOP) ; Ask continue
; If passed by ref, IBSTOP returned = 1 if print aborted
SOLUTION ; Solution text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Task # "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENQ+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ENQ+50
Function Call: WRITE
  • Prompt: IBTEXT
  • Line Location: ENQ+51
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+5
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,2)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+6
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,3)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+7
Function Call: WRITE
  • Prompt: !,"!",$E($P(Z00,U,4)_" "_$P($G(^DIC(5,+$P(Z00,U,5),0)),U,2)_" "_$P(Z00,U,6)_$J("",30),1,30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+8
Function Call: WRITE
  • Prompt: !,"!",$J("",30),"!",$J("",$S(IOM<132:23,1:49)),"!",$J("",$S(IOM<132:23,1:49)),"!"
  • Line Location: BOX+9
Function Call: WRITE
  • Prompt: !,X
  • Line Location: BOX+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X)\2),X
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"**** ENTER THE SPECIAL PERFORMING AND BILLING PROVIDER ID REQUIREMENTS",!," FOR THE LISTED INSURANCE COMPANIES IN THE BOXES PROVIDED"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"**** ENTER THE NAMES OF ANY INSURANCE COMPANIES THAT HAVE SPECIAL ID",!," REQUIREMENTS FOR YOUR SITE AND THEN ENTER THE SPECIFIC REQUIREMENTS IN",!," THE BOXES PROVIDED."
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,X,!,"! !"_$J("",$S(IOM<132:1,1:14))_"SECONDARY PERFORMING"_$J("",$S(IOM<132:2,1:15))_"!"_$J("",$S(IOM<132:8,1:21))_"BILLING"_$J("",$S(IOM<132:8,1:21)),"!"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"! !"_$J("",$S(IOM<132:3,1:16))_"PROV. ID SPECIFIC"_$J("",$S(IOM<132:3,1:16))_"!"_$J("",$S(IOM<132:3,1:16))_"PROV. ID SPECIFIC"_$J("",$S(IOM<132:3,1:16))_"!"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"! INSURANCE COMPANY !"_$J("",$S(IOM<132:0,1:13))_"REQUIREMENTS (SCREEN 8)"_$J("",$S(IOM<132:0,1:13))_"!"_$J("",$S(IOM<132:0,1:13))_"REQUIREMENTS (SCREEN 3)"_$J("",$S(IOM<132:0,1:13))_"!"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"!"_$J("",30)_"!"_$J("",$S(IOM<132:23,1:49))_"!"_$J("",$S(IOM<132:23,1:49))_"!"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"!*** example: !"_$J("",$S(IOM<132:1,1:14))_"requires specific IDs"_$J("",$S(IOM<132:1,1:14))_"!"_$J("",$S(IOM<132:1,1:14))_"requires specific ids"_$J("",$S(IOM<132:1,1:14))_"!"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"! insurance co name !"_$J("",$S(IOM<132:2,1:15))_"for each specialty"_$J("",$S(IOM<132:3,1:16))_"!"_$J("",$S(IOM<132:3,1:16))_"for each division"_$J("",$S(IOM<132:3,1:16))_"!"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Info |  Source |  Entry Points |  Interaction Calls