| 1 | IB20P213 ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/24/2003
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**213**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ENV ; environment check
|
|---|
| 5 | ; No special environment check at this time.
|
|---|
| 6 | PRE ; set up check points for pre-init
|
|---|
| 7 | N %
|
|---|
| 8 | S %=$$NEWCP^XPDUTL("R0SC","R0SC^IB20P213")
|
|---|
| 9 | S %=$$NEWCP^XPDUTL("NAMES","NAMES^IB20P213")
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | R0SC ; add a new report type to file 361.2
|
|---|
| 13 | ; Name=R0SC ; Description=PROF. GOV'T PAYER EDITS
|
|---|
| 14 | ; Disposition=MAIL REPORT TO MAIL GROUP
|
|---|
| 15 | N IBA,IBERRM
|
|---|
| 16 | I $$FIND1^DIC(361.2,"","X","R0SC","B") D Q
|
|---|
| 17 | . D BMES^XPDUTL("R0SC report already in file. No action taken.")
|
|---|
| 18 | D BMES^XPDUTL("Adding R0SC report to file 361.2.")
|
|---|
| 19 | S IBA(361.2,"+1,",.01)="R0SC" ; new report name
|
|---|
| 20 | S IBA(361.2,"+1,",.02)=1 ; internal value 1 = Mail report to mail group
|
|---|
| 21 | S IBA(361.2,"+1,",.03)="PROF. GOV'T PAYER EDITS" ; description
|
|---|
| 22 | D UPDATE^DIE("","IBA","","IBERRM") ; file a new record
|
|---|
| 23 | I $D(IBERRM) D Q ; no reason for this to happen but just in case...
|
|---|
| 24 | . K IBA
|
|---|
| 25 | . S IBA(1)="WARNING: Unable to add the R0SC report."
|
|---|
| 26 | . S IBA(2)=" The following error message was recorded."
|
|---|
| 27 | . S IBA(3)=IBERRM("DIERR",1,"TEXT",1)
|
|---|
| 28 | . D BMES^XPDUTL(.IBA)
|
|---|
| 29 | D COMPLETE
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | NAMES ; change names of reports per request from EDI group
|
|---|
| 33 | D BMES^XPDUTL("Filing new names for six of the Electronic Reports")
|
|---|
| 34 | N IBA,IBERRM,IBIEN,IBNA,IBRT
|
|---|
| 35 | S IBNA("R022")="PROV DAILY STATS ACCEPT/REJECT"
|
|---|
| 36 | S IBNA("R0EX")="INST. GOV'T PAYER EDITS"
|
|---|
| 37 | S IBNA("R0N9")="INST. GOV'T WEBMD EDITS"
|
|---|
| 38 | S IBNA("R0SA")="PROF. GOV'T WEBMD ACCEPTANCE"
|
|---|
| 39 | S IBNA("R0SR")="PROF. GOV'T WEBMD REJECTS"
|
|---|
| 40 | S IBNA("R0SS")="PROF. GOV'T WEBMD EDITS"
|
|---|
| 41 | S IBRT=0 F Q:IBRT="" D
|
|---|
| 42 | . S IBRT=$O(IBNA(IBRT)) Q:IBRT=""
|
|---|
| 43 | . S IBIEN=+$$FIND1^DIC(361.2,"","X",IBRT,"B")
|
|---|
| 44 | . I 'IBIEN D BMES^XPDUTL("Report "_IBRT_" not found. No change made.") Q
|
|---|
| 45 | . S IBA(361.2,IBIEN_",",.03)=IBNA(IBRT)
|
|---|
| 46 | D FILE^DIE("","IBA","IBERRM")
|
|---|
| 47 | D COMPLETE
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | COMPLETE ; display message that step has completed
|
|---|
| 51 | D BMES^XPDUTL("Step complete.")
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
| 54 | END ; display message that pre-init has completed successfully
|
|---|
| 55 | D BMES^XPDUTL("Pre-init complete")
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
