| [613] | 1 | IBTOAT2 ;ALB/AAS - CLAIMS TRACKING ADMISSION SHEET PRINT ; 18-JUN-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;D DEMO,LINE,ADM,LINE,EM,LINE,INS,LINE,DIAG,PROC,FNL,SC,STMT
|
|---|
| 5 | D DIAG,PROC,SC,STMT
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | DIAG ; -- pirnt diagnosis/procedure block
|
|---|
| 9 | W !?TAB,"Date",?12,"Diagnosis",?37,"Procedure",?60,"Final",?68,"DRG",?73,"LOS"
|
|---|
| 10 | F I=1:1:5 D BLINE
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | PROC ; -- print procedures done
|
|---|
| 14 | ;W !!?TAB,"Procedures Done",?56,"Date"
|
|---|
| 15 | ;D TWOL^IBTOAT1
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | ;
|
|---|
| 19 | SC ; -- prints sc conditions
|
|---|
| 20 | N I,I1,I2,I3
|
|---|
| 21 | S I3=0
|
|---|
| 22 | S MAX=$S(IOSL<61:4,IOSL<67:6,1:11)
|
|---|
| 23 | I '+VAEL(3) W !! G SCQ
|
|---|
| 24 | W !!?TAB,"Service Connected Conditions: " W:'$G(IBTRCSC) ?54,"Treated"
|
|---|
| 25 | F I=0:0 S I=$O(^DPT(DFN,.372,I)) Q:'I D I '$G(IBTRCSC),I3>MAX W !?TAB,"MORE...." Q
|
|---|
| 26 | .S I1=^DPT(DFN,.372,I,0)
|
|---|
| 27 | .Q:'$P(I1,"^",3)
|
|---|
| 28 | .S I2=$G(^DIC(31,+I1,0))
|
|---|
| 29 | .S:$P(I2,"^",4)'="" I2=$P(I2,"^",4)
|
|---|
| 30 | .S I2=$P(I2,"^")
|
|---|
| 31 | .W !?TAB+5,$E(I2,1,39),?49,$J($P(I1,"^",2),3)_"%" W:'$G(IBTRCSC) " _______" S I3=I3+1
|
|---|
| 32 | .Q
|
|---|
| 33 | I 'I3 W !?TAB,$S('$O(^DPT(DFN,.372,0)):"NONE STATED",1:"NO SC DISABILITIES LISTED") S I3=1
|
|---|
| 34 | SCQ F I3=I3:1:MAX W !
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | STMT ; -- print attestation and sig. lines
|
|---|
| 38 | W !!,"I attest that these are the diagnoses and procedures for which the"
|
|---|
| 39 | W !,"Patient was treated during this episode of care."
|
|---|
| 40 | W !!,"MD: __________________________________ Date: __________________"
|
|---|
| 41 | W !!,"Patient: ",$E(VADM(1),1,20)," ",VA("PID"),?IOM-30," Printed: " D NOW^%DTC S Y=% D D^DIQ W $P(Y,":",1,2)
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | BLINE ; -- write line with BARS
|
|---|
| 45 | ;
|
|---|
| 46 | W !?TAB," | | | | |"
|
|---|
| 47 | W !?TAB,"_____|________________________|______________________|________|_____|_____"
|
|---|
| 48 | Q
|
|---|
