source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P213.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1IB20P213 ;ISP/TJH - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/24/2003
2 ;;2.0;INTEGRATED BILLING;**213**;21-MAR-94
3 ;
4ENV ; environment check
5 ; No special environment check at this time.
6PRE ; 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 ;
12R0SC ; 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 ;
32NAMES ; 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 ;
50COMPLETE ; display message that step has completed
51 D BMES^XPDUTL("Step complete.")
52 Q
53 ;
54END ; display message that pre-init has completed successfully
55 D BMES^XPDUTL("Pre-init complete")
56 Q
57 ;
Note: See TracBrowser for help on using the repository browser.