IBCNRE2 ;DAOU/DMK - Edit NCPDP PROCESSOR APPLICATION Sub-file ;23-DEC-2003
;;2.0;INTEGRATED BILLING;**251,550**;21-MAR-94;Build 25
;;Per VA Directive 6402, this routine should not be modified.
;
; Specific to E-PHARM APPLICATION Entry
; Edit LOCAL ACTIVE? Field
;
; 366.013 NCPDP PROCESSOR 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 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 subfile entry printing
D PRINT2
;
; Control subfile entry editing
D EDIT
Q
;
EDIT ; Edit subfile entry data
; 366.013 NCPDP PROCESSOR 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 "NCPDP PROCESSOR File Inquiry and Edit (E-PHARM)",!
Q
;
IEN ; Select file entry
N I
;
S IEN=$$SELECT1^IBCNRFM1(FILENO,"Select NCPDP Processor Name: ")
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.01
S FILENO1=FILENO_FIELDNO
I '$D(IOF) D HOME^%ZIS
Q
;
PRINT1 ; Print file entry data
; 366.01 NCPDP PROCESSOR File
;
N A
;
W !!
;
D GETS^DIQ(FILENO,IENS,"*","","A")
;
; .01 NAME
S KEY=A(FILENO,IENS,.01)
W $J("NCPDP Processor Name: ",40),$G(A(FILENO,IENS,.01)),!
;
; .03 DATE/TIME CREATED
W $J("Date/Time Created: ",40),$G(A(FILENO,IENS,.03)),!
;
; .02 BLOCKED?
W $J("Blocked? ",40),$G(A(FILENO,IENS,.02)),!
Q
;
PRINT2 ; Print subfile entry data
; 366.013 NCPDP PROCESSOR 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[HIBCNRE2 3341 printed Sep 23, 2025@19:52:26 Page 2
IBCNRE2 ;DAOU/DMK - Edit NCPDP PROCESSOR APPLICATION Sub-file ;23-DEC-2003
+1 ;;2.0;INTEGRATED BILLING;**251,550**;21-MAR-94;Build 25
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Specific to E-PHARM APPLICATION Entry
+5 ; Edit LOCAL ACTIVE? Field
+6 ;
+7 ; 366.013 NCPDP PROCESSOR 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 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 subfile entry printing
+14 DO PRINT2
+15 ;
+16 ; Control subfile entry editing
+17 DO EDIT
+18 QUIT
+19 ;
EDIT ; Edit subfile entry data
+1 ; 366.013 NCPDP PROCESSOR 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 "NCPDP PROCESSOR File Inquiry and Edit (E-PHARM)",!
+3 QUIT
+4 ;
IEN ; Select file entry
+1 NEW I
+2 ;
+3 SET IEN=$$SELECT1^IBCNRFM1(FILENO,"Select NCPDP Processor Name: ")
+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.01
+4 SET FILENO1=FILENO_FIELDNO
+5 IF '$DATA(IOF)
DO HOME^%ZIS
+6 QUIT
+7 ;
PRINT1 ; Print file entry data
+1 ; 366.01 NCPDP PROCESSOR File
+2 ;
+3 NEW A
+4 ;
+5 WRITE !!
+6 ;
+7 DO GETS^DIQ(FILENO,IENS,"*","","A")
+8 ;
+9 ; .01 NAME
+10 SET KEY=A(FILENO,IENS,.01)
+11 WRITE $JUSTIFY("NCPDP Processor Name: ",40),$GET(A(FILENO,IENS,.01)),!
+12 ;
+13 ; .03 DATE/TIME CREATED
+14 WRITE $JUSTIFY("Date/Time Created: ",40),$GET(A(FILENO,IENS,.03)),!
+15 ;
+16 ; .02 BLOCKED?
+17 WRITE $JUSTIFY("Blocked? ",40),$GET(A(FILENO,IENS,.02)),!
+18 QUIT
+19 ;
PRINT2 ; Print subfile entry data
+1 ; 366.013 NCPDP PROCESSOR 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
