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

Package: Integrated Billing

Routine: IBCF1TP


Information

IBCF1TP ;ALB/MJB - UB-82 TEST PATTERN PRINT ;23 SEP 88 13:42

Source Information

Source file <IBCF1TP.m>

Entry Points

Name Comments DBIA/ICR reference
ZIS ;
Q
ENP ;
8
16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?24,"*** UB-82 TEST PATTERN ***",!,"AGENT CASHIER",!,"AGENT CASHIER STREET",?24," F. L. 2",?57,"BILL NUMBER",?74,"XXX"
  • Line Location: ENP+4
Function Call: WRITE
  • Prompt: !,"CITY STATE ZIP",!,"PHONE #",?24,"BC/BS #",?38,"FED TAX #",?71,"F. L. 9"
  • Line Location: ENP+5
Function Call: WRITE
  • Prompt: !!,"PATIENT NAME",?33,"PATIENT ADDRESS",!!,"PT DOB",?8,"X",?10,"X",?14,"ADM DT",?21,"HR",?25,"X",?28,"X",?30,"AH",?33,"DH",?36,"XX",?40,"FROM",?48,"TO",?70,"F. L. 27",!!
  • Line Location: ENP+6
Function Call: WRITE
  • Prompt: "OC",?3,"DATE"
  • Line Location: ENP+7
Function Call: WRITE
  • Prompt: ?11,"OC",?14,"DATE"
  • Line Location: ENP+7
Function Call: WRITE
  • Prompt: ?11,"OC",?14,"DATE"
  • Line Location: ENP+7
Function Call: WRITE
  • Prompt: !,"MAILING ADDRESS NAME",!,"STREET ADDRESS 1",?30,"CC",?33,"CC",?36,"CC",?39,"CC",?42,"CC",?61,"F. L. 45"
  • Line Location: ENP+8
Function Call: WRITE
  • Prompt: !,"STREET ADDRESS 2",!,"STREET ADDRESS 3"
  • Line Location: ENP+9
Function Call: WRITE
  • Prompt: !,"CITY",?$X+2,"STATE",?$X+2,"ZIP"
  • Line Location: ENP+10
Function Call: WRITE
  • Prompt: !!!!,"000 DAYS MEDICAL CARE",!
  • Line Location: 8+0
Function Call: WRITE
  • Prompt: !,"REV CODE ",I,?24,"000.00",?31,"000",?35,"00",?39," 0000.00"
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !!,"SUBTOTAL",?39," 00000.00"
  • Line Location: 8+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+3
Function Call: WRITE
  • Prompt: !!,"TOTAL",?39," 00000.00"
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+5
Function Call: WRITE
  • Prompt: !,"PAYER ",I,?24,"X",?27,"X"
  • Line Location: 8+6
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+7
Function Call: WRITE
  • Prompt: !,"INSURED NAME ",I,?23,"X",?26,"XX",?29,"POLICY # ",I,?46,"GROUP NAME ",I,?61,"GROUP # ",I
  • Line Location: 8+8
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+9
Function Call: WRITE
  • Prompt: "X",?2,"X",?4,"EMPLOYER NAME",?42,"CITY STATE ZIP"
  • Line Location: 8+10
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+11
Function Call: WRITE
  • Prompt: "PRINCIPAL DIAGNOSIS",?44,"CODE"
  • Line Location: 8+12
Function Call: WRITE
  • Prompt: ?I,"CODE"
  • Line Location: 8+12
Function Call: WRITE
  • Prompt: !!,"X",?3,"PRINCIPAL PROCEDURE",?44,"CODE",?51,"DATE",?57,"CODE",?63,"DATE",?68,"CODE",?74,"DATE"
  • Line Location: 8+13
Function Call: WRITE
  • Prompt: !
  • Line Location: 8+14
Function Call: WRITE
  • Prompt: !?22,"TX. AUTH.",?33,"Dept. Veterans Affairs",?56,"F. L. 93"
  • Line Location: 8+15
Function Call: WRITE
  • Prompt: !!,"Patient ID: ","XXXXXXXXX",!,"Bill Type: ","XXXX XXXXXXX",!,"UB-82 TEST PATTERN",!,"**TEST PATTERN**"
  • Line Location: 8+16
Function Call: WRITE
  • Prompt: !
  • Line Location: 16+0
Function Call: WRITE
  • Prompt: ?46,"UB-82 SIGNER NAME",!,?46,"UB-82 SIGNER TITLE",?69,"DATE"
  • Line Location: 16+1
Info |  Source |  Entry Points |  Interaction Calls