IBCNRE4 ;DAOU/DMK - Edit PLAN APPLICATION Sub-file ;23-DEC-2003
;;2.0;INTEGRATED BILLING;**251,435,452**;21-MAR-94;Build 26
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; Specific to E-PHARM APPLICATION Entry
; Edit LOCAL ACTIVE? Field
;
; 366.033 PLAN APPLICATION
; .01 APPLICATION
; .03 LOCAL ACTIVE?
;
1000 ; Control processing
N ANAME,APIEN,FIELDNO,FILENO,FILENO1,QUIT
N DISYS
;
D INIT1
D HEADING
F D 2000 Q:QUIT
Q
;
2000 ; Control processing
N CONTINUE,IEN,IENS,IENS1,KEY
;
S QUIT=0
;
; Control file entry selection and subfile entry validation
D IEN
I IEN=-1 S QUIT=1 Q
I APIEN=-1 Q
;
; Control file entry printing
D PRINT1
;
; Control pause
D CONTINUE
;
; Control subfile entry printing
D PRINT2
;
; Control subfile entry editing
D EDIT
Q
;
CONTINUE ; Pause until user ready to continue
N CONTINUE
R !,"Press Enter / Return to continue: ",CONTINUE:$S($D(DTIME):DTIME,1:300)
W !
Q
;
EDIT ; Edit subfile entry data
; 366.033 PLAN APPLICATION Subfile
;
N DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y
N %,A,D,D0,DDER,DI,DISYS,DQ,OLD
;
S DA=APIEN,DA(1)=IEN
S DIE=$$ROOT^DILFD(FILENO1,","_IEN_",")
;
; .03 LOCAL ACTIVE
S DR=".03R"_"~"_KEY_" - Local Active?"
;
; Quit if value unchanged
; OLD = old value
; X = new value
S OLD=$$GET1^DIQ(FILENO1,IENS1,.03,"I")
S DR=DR_";"_"S:OLD=X Y="""""
;
; .04 USER EDITED LOCAL
S DR=DR_";"_".04////"_DUZ
;
; .05 DATE/TIME LOCAL EDITED
S DR=DR_";"_".05////"_$$NOW^XLFDT()
;
D ^DIE
;
W !
Q
;
HEADING ; Print heading
W @IOF
W "PLAN File Inquiry and Edit (E-PHARM)",!
Q
;
IEN ; Select file entry
N I
;
S IEN=$$SELECT1^IBCNRFM1(FILENO,"Select Plan ID: ")
I IEN=-1 Q
S IENS=IEN_","
;
; E-PHARM APPLICATION Defined?
S APIEN=$$LOOKUP2^IBCNRFM1(FILENO,IEN,FIELDNO,ANAME)
I APIEN=-1 W " E-PHARM APPLICATION not defined" Q
S IENS1=APIEN_","_IEN_","
Q
;
INIT1 ; Initialize variables
S ANAME="E-PHARM"
S FIELDNO=3
S FILENO=366.03
S FILENO1=FILENO_FIELDNO
I '$D(IOF) D HOME^%ZIS
Q
;
PRINT1 ; Print file entry data
; 366.03 PLAN File
;
N A
;
W !!
;
D GETS^DIQ(FILENO,IENS,"*","","A")
;
; .01 ID
S KEY=A(FILENO,IENS,.01)
W $J("Plan ID: ",40),$G(A(FILENO,IENS,.01)),!
;
; .07 DATE/TIME CREATED
W $J("Date/Time Created: ",40),$G(A(FILENO,IENS,.07)),!
;
; .02 NAME
W $J("Plan Name: ",40),$G(A(FILENO,IENS,.02)),!
;
; .04 NAME - SHORT
W $J("Plan Name - Short: ",40),$G(A(FILENO,IENS,.04)),!
;
; .03 PAYER NAME
W $J("Payer Name: ",40),$G(A(FILENO,IENS,.03)),!
;
; .05 TYPE
W $J("Type: ",40),$G(A(FILENO,IENS,.05)),!
;
; .06 REGION
W $J("Region: ",40),$G(A(FILENO,IENS,.06)),!
;
; 10.01 PHARMACY BENEFITS MANAGER NAME
W $J("Pharmacy Benefits Manager (PBM) Name: ",40),$G(A(FILENO,IENS,10.01)),!
;
; 10.02 BANKING IDENTIFICATION NUMBER
W $J("Banking Identification Number (BIN): ",40),$G(A(FILENO,IENS,10.02)),!
;
; 10.03 PROCESSOR CONTROL NUMBER (PCN)
W $J("Processor Control Number (PCN): ",40),$G(A(FILENO,IENS,10.03)),!
;
; 10.04 NCPDP PROCESSOR NAME
W $J("NCPDP Processor Name: ",40),$G(A(FILENO,IENS,10.04)),!
;
; 10.05 ENABLED?
W $J("Enabled?: ",40),$G(A(FILENO,IENS,10.05)),!
;
; 10.06 SOFTWARE VENDOR ID
W $J("Software Vendor ID: ",40),$G(A(FILENO,IENS,10.06)),!
;
; 10.07 BILLING PAYER SHEET NAME
W $J("Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.07)),!
;
; 10.08 REVERSAL PAYER SHEET NAME
W $J("Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.08)),!
;
; 10.09 REBILL PAYER SHEET NAME
W $J("Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.09)),!
;
; 10.15 ELIGIBILITY PAYER SHEET NAME
W $J("Eligibility Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.15)),!
;
; 10.1 MAXIMUM NCPDP TRANSACTIONS
W $J("Maximum NCPDP Transactions: ",40),$G(A(FILENO,IENS,10.1)),!
;
; 10.11 TEST BILLING PAYER SHEET NAME
W $J("Test Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.11)),!
;
; 10.12 TEST REVERSAL PAYER SHEET NAME
W $J("Test Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.12)),!
;
; 10.13 TEST REBILL PAYER SHEET NAME
W $J("Test Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.13)),!
;
; 10.14 TEST ELIGIBILITY PAYER SHEET NAME
W $J("Test Eligibility Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.14)),!
Q
;
PRINT2 ; Print subfile entry data
; 366.033 PLAN APPLICATION Subfile
;
N A
;
W !
;
D GETS^DIQ(FILENO1,IENS1,"*","","A")
;
; .01 APPLICATION
W $J("Application: ",40),$G(A(FILENO1,IENS1,.01)),!
;
; .13 DATE/TIME CREATED
W $J("Date/Time Created: ",40),$G(A(FILENO1,IENS1,.13)),!
;
; .11 DEACTIVATED
W $J("Deactivated? ",40),$G(A(FILENO1,IENS1,.11)),!
;
; .12 DATE/TIME DEACTIVATED
W $J("Date/Time Deactivated: ",40),$G(A(FILENO1,IENS1,.12)),!
;
; .02 NATIONAL ACTIVE
W $J("National Active? ",40),$G(A(FILENO1,IENS1,.02)),!
;
; .06 DATE/TIME NATIONAL EDITED
W $J("Date/Time National Edited: ",40),$G(A(FILENO1,IENS1,.06)),!
;
; .03 LOCAL ACTIVE
W $J("Local Active? ",40),$G(A(FILENO1,IENS1,.03)),!
;
; .05 DATE/TIME LOCAL EDITED
W $J("Date/Time Local Edited: ",40),$G(A(FILENO1,IENS1,.05)),!
;
; .04 USER EDITED LOCAL
W $J("User Edited Local: ",40),$G(A(FILENO1,IENS1,.04)),!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNRE4 5377 printed Apr 09, 2024@21:11:22 Page 2
IBCNRE4 ;DAOU/DMK - Edit PLAN APPLICATION Sub-file ;23-DEC-2003
+1 ;;2.0;INTEGRATED BILLING;**251,435,452**;21-MAR-94;Build 26
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Specific to E-PHARM APPLICATION Entry
+5 ; Edit LOCAL ACTIVE? Field
+6 ;
+7 ; 366.033 PLAN APPLICATION
+8 ; .01 APPLICATION
+9 ; .03 LOCAL ACTIVE?
+10 ;
1000 ; Control processing
+1 NEW ANAME,APIEN,FIELDNO,FILENO,FILENO1,QUIT
+2 NEW DISYS
+3 ;
+4 DO INIT1
+5 DO HEADING
+6 FOR
DO 2000
if QUIT
QUIT
+7 QUIT
+8 ;
2000 ; Control processing
+1 NEW CONTINUE,IEN,IENS,IENS1,KEY
+2 ;
+3 SET QUIT=0
+4 ;
+5 ; Control file entry selection and subfile entry validation
+6 DO IEN
+7 IF IEN=-1
SET QUIT=1
QUIT
+8 IF APIEN=-1
QUIT
+9 ;
+10 ; Control file entry printing
+11 DO PRINT1
+12 ;
+13 ; Control pause
+14 DO CONTINUE
+15 ;
+16 ; Control subfile entry printing
+17 DO PRINT2
+18 ;
+19 ; Control subfile entry editing
+20 DO EDIT
+21 QUIT
+22 ;
CONTINUE ; Pause until user ready to continue
+1 NEW CONTINUE
+2 READ !,"Press Enter / Return to continue: ",CONTINUE:$SELECT($DATA(DTIME):DTIME,1:300)
+3 WRITE !
+4 QUIT
+5 ;
EDIT ; Edit subfile entry data
+1 ; 366.033 PLAN APPLICATION Subfile
+2 ;
+3 NEW DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y
+4 NEW %,A,D,D0,DDER,DI,DISYS,DQ,OLD
+5 ;
+6 SET DA=APIEN
SET DA(1)=IEN
+7 SET DIE=$$ROOT^DILFD(FILENO1,","_IEN_",")
+8 ;
+9 ; .03 LOCAL ACTIVE
+10 SET DR=".03R"_"~"_KEY_" - Local Active?"
+11 ;
+12 ; Quit if value unchanged
+13 ; OLD = old value
+14 ; X = new value
+15 SET OLD=$$GET1^DIQ(FILENO1,IENS1,.03,"I")
+16 SET DR=DR_";"_"S:OLD=X Y="""""
+17 ;
+18 ; .04 USER EDITED LOCAL
+19 SET DR=DR_";"_".04////"_DUZ
+20 ;
+21 ; .05 DATE/TIME LOCAL EDITED
+22 SET DR=DR_";"_".05////"_$$NOW^XLFDT()
+23 ;
+24 DO ^DIE
+25 ;
+26 WRITE !
+27 QUIT
+28 ;
HEADING ; Print heading
+1 WRITE @IOF
+2 WRITE "PLAN File Inquiry and Edit (E-PHARM)",!
+3 QUIT
+4 ;
IEN ; Select file entry
+1 NEW I
+2 ;
+3 SET IEN=$$SELECT1^IBCNRFM1(FILENO,"Select Plan ID: ")
+4 IF IEN=-1
QUIT
+5 SET IENS=IEN_","
+6 ;
+7 ; E-PHARM APPLICATION Defined?
+8 SET APIEN=$$LOOKUP2^IBCNRFM1(FILENO,IEN,FIELDNO,ANAME)
+9 IF APIEN=-1
WRITE " E-PHARM APPLICATION not defined"
QUIT
+10 SET IENS1=APIEN_","_IEN_","
+11 QUIT
+12 ;
INIT1 ; Initialize variables
+1 SET ANAME="E-PHARM"
+2 SET FIELDNO=3
+3 SET FILENO=366.03
+4 SET FILENO1=FILENO_FIELDNO
+5 IF '$DATA(IOF)
DO HOME^%ZIS
+6 QUIT
+7 ;
PRINT1 ; Print file entry data
+1 ; 366.03 PLAN File
+2 ;
+3 NEW A
+4 ;
+5 WRITE !!
+6 ;
+7 DO GETS^DIQ(FILENO,IENS,"*","","A")
+8 ;
+9 ; .01 ID
+10 SET KEY=A(FILENO,IENS,.01)
+11 WRITE $JUSTIFY("Plan ID: ",40),$GET(A(FILENO,IENS,.01)),!
+12 ;
+13 ; .07 DATE/TIME CREATED
+14 WRITE $JUSTIFY("Date/Time Created: ",40),$GET(A(FILENO,IENS,.07)),!
+15 ;
+16 ; .02 NAME
+17 WRITE $JUSTIFY("Plan Name: ",40),$GET(A(FILENO,IENS,.02)),!
+18 ;
+19 ; .04 NAME - SHORT
+20 WRITE $JUSTIFY("Plan Name - Short: ",40),$GET(A(FILENO,IENS,.04)),!
+21 ;
+22 ; .03 PAYER NAME
+23 WRITE $JUSTIFY("Payer Name: ",40),$GET(A(FILENO,IENS,.03)),!
+24 ;
+25 ; .05 TYPE
+26 WRITE $JUSTIFY("Type: ",40),$GET(A(FILENO,IENS,.05)),!
+27 ;
+28 ; .06 REGION
+29 WRITE $JUSTIFY("Region: ",40),$GET(A(FILENO,IENS,.06)),!
+30 ;
+31 ; 10.01 PHARMACY BENEFITS MANAGER NAME
+32 WRITE $JUSTIFY("Pharmacy Benefits Manager (PBM) Name: ",40),$GET(A(FILENO,IENS,10.01)),!
+33 ;
+34 ; 10.02 BANKING IDENTIFICATION NUMBER
+35 WRITE $JUSTIFY("Banking Identification Number (BIN): ",40),$GET(A(FILENO,IENS,10.02)),!
+36 ;
+37 ; 10.03 PROCESSOR CONTROL NUMBER (PCN)
+38 WRITE $JUSTIFY("Processor Control Number (PCN): ",40),$GET(A(FILENO,IENS,10.03)),!
+39 ;
+40 ; 10.04 NCPDP PROCESSOR NAME
+41 WRITE $JUSTIFY("NCPDP Processor Name: ",40),$GET(A(FILENO,IENS,10.04)),!
+42 ;
+43 ; 10.05 ENABLED?
+44 WRITE $JUSTIFY("Enabled?: ",40),$GET(A(FILENO,IENS,10.05)),!
+45 ;
+46 ; 10.06 SOFTWARE VENDOR ID
+47 WRITE $JUSTIFY("Software Vendor ID: ",40),$GET(A(FILENO,IENS,10.06)),!
+48 ;
+49 ; 10.07 BILLING PAYER SHEET NAME
+50 WRITE $JUSTIFY("Billing Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.07)),!
+51 ;
+52 ; 10.08 REVERSAL PAYER SHEET NAME
+53 WRITE $JUSTIFY("Reversal Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.08)),!
+54 ;
+55 ; 10.09 REBILL PAYER SHEET NAME
+56 WRITE $JUSTIFY("Rebill Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.09)),!
+57 ;
+58 ; 10.15 ELIGIBILITY PAYER SHEET NAME
+59 WRITE $JUSTIFY("Eligibility Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.15)),!
+60 ;
+61 ; 10.1 MAXIMUM NCPDP TRANSACTIONS
+62 WRITE $JUSTIFY("Maximum NCPDP Transactions: ",40),$GET(A(FILENO,IENS,10.1)),!
+63 ;
+64 ; 10.11 TEST BILLING PAYER SHEET NAME
+65 WRITE $JUSTIFY("Test Billing Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.11)),!
+66 ;
+67 ; 10.12 TEST REVERSAL PAYER SHEET NAME
+68 WRITE $JUSTIFY("Test Reversal Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.12)),!
+69 ;
+70 ; 10.13 TEST REBILL PAYER SHEET NAME
+71 WRITE $JUSTIFY("Test Rebill Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.13)),!
+72 ;
+73 ; 10.14 TEST ELIGIBILITY PAYER SHEET NAME
+74 WRITE $JUSTIFY("Test Eligibility Payer Sheet Name: ",40),$GET(A(FILENO,IENS,10.14)),!
+75 QUIT
+76 ;
PRINT2 ; Print subfile entry data
+1 ; 366.033 PLAN APPLICATION Subfile
+2 ;
+3 NEW A
+4 ;
+5 WRITE !
+6 ;
+7 DO GETS^DIQ(FILENO1,IENS1,"*","","A")
+8 ;
+9 ; .01 APPLICATION
+10 WRITE $JUSTIFY("Application: ",40),$GET(A(FILENO1,IENS1,.01)),!
+11 ;
+12 ; .13 DATE/TIME CREATED
+13 WRITE $JUSTIFY("Date/Time Created: ",40),$GET(A(FILENO1,IENS1,.13)),!
+14 ;
+15 ; .11 DEACTIVATED
+16 WRITE $JUSTIFY("Deactivated? ",40),$GET(A(FILENO1,IENS1,.11)),!
+17 ;
+18 ; .12 DATE/TIME DEACTIVATED
+19 WRITE $JUSTIFY("Date/Time Deactivated: ",40),$GET(A(FILENO1,IENS1,.12)),!
+20 ;
+21 ; .02 NATIONAL ACTIVE
+22 WRITE $JUSTIFY("National Active? ",40),$GET(A(FILENO1,IENS1,.02)),!
+23 ;
+24 ; .06 DATE/TIME NATIONAL EDITED
+25 WRITE $JUSTIFY("Date/Time National Edited: ",40),$GET(A(FILENO1,IENS1,.06)),!
+26 ;
+27 ; .03 LOCAL ACTIVE
+28 WRITE $JUSTIFY("Local Active? ",40),$GET(A(FILENO1,IENS1,.03)),!
+29 ;
+30 ; .05 DATE/TIME LOCAL EDITED
+31 WRITE $JUSTIFY("Date/Time Local Edited: ",40),$GET(A(FILENO1,IENS1,.05)),!
+32 ;
+33 ; .04 USER EDITED LOCAL
+34 WRITE $JUSTIFY("User Edited Local: ",40),$GET(A(FILENO1,IENS1,.04)),!
+35 QUIT
