|
Last change
on this file since 771 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.1 KB
|
| Rev | Line | |
|---|
| [613] | 1 | IB20PT8C ;ALB/CPM - EXPORT ROUTINE 'FBUINS' ; 04-MAR-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | FBUINS ;AISC/DMK-ADD INSURANCE INFORMATION ;07JULY92
|
|---|
| 5 | ;;3.0;FEE BASIS;**5**;NOV 26, 1993
|
|---|
| 6 | Q:$E(IOST,1,2)'="C-"
|
|---|
| 7 | Q:'$G(DFN)
|
|---|
| 8 | N FBOUT
|
|---|
| 9 | INS S DIR("A")="Want to add NEW insurance data",DIR("B")="No",DIR("?")="Answer 'Yes' if you want to add a new insurance company for this patient."
|
|---|
| 10 | S DIR("?",1)="You are not allowed to edit current insurance information.",DIR("?",2)="However, you will be given the opportunity to send a bulletin to MCCR",DIR("?",3)="if insurance information is incorrect."
|
|---|
| 11 | S DIR(0)="Y" D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 12 | D:Y FEE^IBCNSP2
|
|---|
| 13 | S DIR("A")="Are there any discrepancies with insurance data on file",DIR("?")="A 'Yes' answer will send a bulletin to MCCR",DIR(0)="Y",DIR("B")="No" D ^DIR K DIR Q:$D(DIRUT)!('Y) D
|
|---|
| 14 | .N VADM D DEM^VADPT S XMB(1)=VADM(1),XMB(2)=VA("PID")
|
|---|
| 15 | .S DIR("A")="Enter description of change",DIR(0)="F^3:70" D ^DIR K DIR Q:$D(DIRUT) S XMB(3)=Y
|
|---|
| 16 | .S XMB="FB INSURANCE CHANGE",XMDUZ=$S($G(DUZ):DUZ,1:.5) D ^XMB
|
|---|
| 17 | K DIC,DIE,FBX,VA,XMB,XMDUZ,Y
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
