| [613] | 1 | IBCIPAY ;DSI/ESG - Extract data and create Ingenix Payor File ;11-JAN-2001
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ENTRY ; Entry point for routine (or called from the top)
|
|---|
| 6 | NEW IBCIRTN,STOP,IBCIPATH,IBCIFILE
|
|---|
| 7 | D INIT
|
|---|
| 8 | D INTRO
|
|---|
| 9 | I STOP G EXIT
|
|---|
| 10 | D GETPATH^IBCINPT ; get the file location & Open the file
|
|---|
| 11 | I STOP G EXIT
|
|---|
| 12 | D OUTPUT ; build the file & Close the file
|
|---|
| 13 | EXIT ;
|
|---|
| 14 | ; Routine Exit
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | INIT ; Procedure to initialize some routine-wide variables
|
|---|
| 19 | S IBCIRTN="IBCIPAY" ; routine name, IO handle
|
|---|
| 20 | S STOP=0 ; stop flag
|
|---|
| 21 | S IBCIFILE="IBCIPAY.DAT" ; name of file that gets created
|
|---|
| 22 | INITX ;
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | INTRO ; This procedure displays introductory text and asks if the user
|
|---|
| 27 | ; wants to proceed with the creation of the PAYOR file.
|
|---|
| 28 | ;
|
|---|
| 29 | W @IOF
|
|---|
| 30 | NEW Y,IBCIMSG,DIR,X,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 31 | ;
|
|---|
| 32 | S IBCIMSG(1)=" This option is responsible for creating the Payor File"
|
|---|
| 33 | S IBCIMSG(2)=" for the ClaimsManager application from Ingenix. This"
|
|---|
| 34 | S IBCIMSG(3)=" is a listing of the Insurance Companies that are currently"
|
|---|
| 35 | S IBCIMSG(4)=" stored in VistA."
|
|---|
| 36 | S IBCIMSG(5)=""
|
|---|
| 37 | ;
|
|---|
| 38 | DO EN^DDIOL(.IBCIMSG)
|
|---|
| 39 | ;
|
|---|
| 40 | ; Now for the user response
|
|---|
| 41 | ;
|
|---|
| 42 | S DIR(0)="Y"
|
|---|
| 43 | S DIR("A")=" Do you wish to proceed"
|
|---|
| 44 | S DIR("B")="NO"
|
|---|
| 45 | DO ^DIR
|
|---|
| 46 | I 'Y S STOP=1
|
|---|
| 47 | INTROX ;
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | ;
|
|---|
| 51 | OUTPUT ; This procedure displays a VistA "please wait" message to the user
|
|---|
| 52 | ; while it loops through the "B" cross reference to the INSURANCE
|
|---|
| 53 | ; COMPANY FILE (#36). The file is closed here and a confirmation
|
|---|
| 54 | ; message is shown to the user.
|
|---|
| 55 | ;
|
|---|
| 56 | NEW INSNAME,COUNT,IEN,IBCIMSG,POP,X,X1,X2,X3,X4,Y
|
|---|
| 57 | DO WAIT^DICD
|
|---|
| 58 | ;
|
|---|
| 59 | ; Use the file for writing
|
|---|
| 60 | U IO
|
|---|
| 61 | ;
|
|---|
| 62 | ; loop through and write the data
|
|---|
| 63 | S INSNAME="",COUNT=0
|
|---|
| 64 | F S INSNAME=$O(^DIC(36,"B",INSNAME)) Q:INSNAME="" D
|
|---|
| 65 | . S IEN=0
|
|---|
| 66 | . F S IEN=$O(^DIC(36,"B",INSNAME,IEN)) Q:'IEN D
|
|---|
| 67 | .. I $P($G(^DIC(36,IEN,0)),U,5) Q ; INACTIVE flag
|
|---|
| 68 | .. I $P($G(^DIC(36,IEN,5)),U,1) Q ; SCHEDULED FOR DELETION flag
|
|---|
| 69 | .. S X=IEN,X1=20,X4="T" W $$FILL^IBCIUT2
|
|---|
| 70 | .. S X=INSNAME,X1=40,X4="T" W $$FILL^IBCIUT2
|
|---|
| 71 | .. W !
|
|---|
| 72 | .. S COUNT=COUNT+1
|
|---|
| 73 | .. Q
|
|---|
| 74 | . Q
|
|---|
| 75 | ;
|
|---|
| 76 | ; The file has been created so close it and tell the user
|
|---|
| 77 | DO CLOSE^%ZISH(IBCIRTN)
|
|---|
| 78 | U IO(0)
|
|---|
| 79 | S IBCIMSG(1)=" There are "_COUNT_" records in the Payor File."
|
|---|
| 80 | S IBCIMSG(2)=" The Payor File creation process is complete!"
|
|---|
| 81 | S IBCIMSG(3)=""
|
|---|
| 82 | S IBCIMSG(1,"F")="!!"
|
|---|
| 83 | DO EN^DDIOL(.IBCIMSG)
|
|---|
| 84 | ;
|
|---|
| 85 | OUTPUTX ;
|
|---|
| 86 | Q
|
|---|
| 87 | ;
|
|---|
