| [613] | 1 | IB20PT71 ;ALB/CPM - REMOVE OPTIONS FROM MENUS ; 11-FEB-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | D DEL ; Delete 'IB UB-82 TEST PATTERN PRINT' from output menu
|
|---|
| 5 | D NEWF ; Delete 'New Features of Integrated Billing' from menus
|
|---|
| 6 | D NEWCR ; Add new cancellation reasons into file #350.3
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | ;
|
|---|
| 10 | DEL ; Delete 'IB UB-82 TEST PATTERN PRINT' from 'IB OUTPUT PATIENT REPORT MENU'
|
|---|
| 11 | S Y=$O(^DIC(19,"B","IB OUTPUT PATIENT REPORT MENU",0)) Q:Y=""
|
|---|
| 12 | S X=$O(^DIC(19,"B","IB UB-82 TEST PATTERN PRINT",0)) Q:X=""
|
|---|
| 13 | S X=$O(^DIC(19,+Y,10,"B",X,0)) Q:'X
|
|---|
| 14 | S DA(1)=+Y,DA=+X,DIK="^DIC(19,"_+Y_",10," D ^DIK K DA,DIK
|
|---|
| 15 | W !!,">>> Deleted IB UB-82 TEST PATTERN PRINT from IB OUTPUT PATIENT REPORT MENU..."
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | NEWF ; Delete 'New Features of Integrated Billing' from menus
|
|---|
| 19 | S IBX=$O(^DIC(19,"B","IB NEW FEATURES 1.5",0)) I 'IBX G NEWFQ
|
|---|
| 20 | S IBN=0 F S IBN=$O(^DIC(19,"AD",IBX,IBN)) Q:'IBN D
|
|---|
| 21 | .S IBNAME=$G(^DIC(19,IBN,0)) Q:IBNAME=""
|
|---|
| 22 | .S IBY=0 F S IBY=$O(^DIC(19,"AD",IBX,IBN,IBY)) Q:'IBY D
|
|---|
| 23 | ..S DA(1)=IBN,DA=IBY,DIK="^DIC(19,"_IBN_",10," D ^DIK K DA,DIK
|
|---|
| 24 | ..W !!,">>> Deleted 'IB NEW FEATURES 1.5' from '",$P(IBNAME,"^"),"'"
|
|---|
| 25 | NEWFQ K DA,DIK,IBN,IBNAME,IBX,IBY
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | NEWCR ; Add new cancellation reasons into file #350.3
|
|---|
| 29 | W !!,">>> Adding new cancellation reasons into file #350.3..."
|
|---|
| 30 | F IBI=1:1 S IBCR=$P($T(CRES+IBI),";;",2) Q:IBCR="QUIT" D
|
|---|
| 31 | .S X=$P(IBCR,"^")
|
|---|
| 32 | .I $O(^IBE(350.3,"B",X,0)) W !," >> '",X,"' is already on file..." Q
|
|---|
| 33 | .K DD,DO S DIC="^IBE(350.3,",DIC(0)="" D FILE^DICN Q:Y<0
|
|---|
| 34 | .S DIE=DIC,DA=+Y,DR=".02////"_$P(IBCR,"^",2)_";.03////"_$P(IBCR,"^",3) D ^DIE
|
|---|
| 35 | .W !," >> '",$P(IBCR,"^"),"' has been filed..."
|
|---|
| 36 | K DA,DIC,DIE,DR,IBI,IBCR,X,Y
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | ;
|
|---|
| 40 | CRES ; Cancellation Reasons to add into file #350.3
|
|---|
| 41 | ;;MT CATEGORY CHANGED FROM C^NOT C^2
|
|---|
| 42 | ;;COMP & PENSION VISIT RECORDED^CNP VST^2
|
|---|
| 43 | ;;CHAMPVA ADMISSION DELETED^CVA DEL^2
|
|---|
| 44 | ;;RECD INPATIENT CARE^INP CARE^2
|
|---|
| 45 | ;;CHECK OUT DELETED^CO DEL^2
|
|---|
| 46 | ;;CLASSIFICATION CHANGED^CLS CHNG^2
|
|---|
| 47 | ;;RESEARCH VISIT/ADMISSION^RES VST^2
|
|---|
| 48 | ;;SERVICE CONNECTED VISIT/ADM^SER CONN^2
|
|---|
| 49 | ;;HARDSHIP GRANTED^HRDSHP^2
|
|---|
| 50 | ;;ADJUDICATED AS CATEGORY A^ADJ A^2
|
|---|
| 51 | ;;TREATED AT OTHER FACILITY^OTH FAC^2
|
|---|
| 52 | ;;AGENT ORANGE RELATED VISIT^AO VST^2
|
|---|
| 53 | ;;IONIZING RAD RELATED VISIT^IO VST^2
|
|---|
| 54 | ;;ENV CONTAMINANT RELATED VISIT^EC VST^2
|
|---|
| 55 | ;;CLASS II DENTAL VISIT^DENTL^2
|
|---|
| 56 | ;;QUIT
|
|---|
