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

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

initial load of WorldVistAEHR
File size: 4.8 KB
RevLine 
[613]1IBCNRE4 ;DAOU/DMK - Edit PLAN APPLICATION Sub-file ;23-DEC-2003
2 ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; Specific to E-PHARM APPLICATION Entry
6 ; Edit LOCAL ACTIVE? Field
7 ;
8 ; 366.033 PLAN APPLICATION
9 ; .01 APPLICATION
10 ; .03 LOCAL ACTIVE?
11 ;
121000 ; Control processing
13 N ANAME,APIEN,FIELDNO,FILENO,FILENO1,QUIT
14 N DISYS
15 ;
16 D INIT1
17 D HEADING
18 F D 2000 Q:QUIT
19 Q
20 ;
212000 ; Control processing
22 N CONTINUE,IEN,IENS,IENS1,KEY
23 ;
24 S QUIT=0
25 ;
26 ; Control file entry selection and subfile entry validation
27 D IEN
28 I IEN=-1 S QUIT=1 Q
29 I APIEN=-1 Q
30 ;
31 ; Control file entry printing
32 D PRINT1
33 ;
34 ; Control pause
35 D CONTINUE
36 ;
37 ; Control subfile entry printing
38 D PRINT2
39 ;
40 ; Control subfile entry editing
41 D EDIT
42 Q
43 ;
44CONTINUE ; Pause until user ready to continue
45 N CONTINUE
46 R !,"Press Enter / Return to continue: ",CONTINUE:$S($D(DTIME):DTIME,1:300)
47 W !
48 Q
49 ;
50EDIT ; Edit subfile entry data
51 ; 366.033 PLAN APPLICATION Subfile
52 ;
53 N DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y
54 N %,A,D,D0,DDER,DI,DISYS,DQ,OLD
55 ;
56 S DA=APIEN,DA(1)=IEN
57 S DIE=$$ROOT^DILFD(FILENO1,","_IEN_",")
58 ;
59 ; .03 LOCAL ACTIVE
60 S DR=".03R"_"~"_KEY_" - Local Active?"
61 ;
62 ; Quit if value unchanged
63 ; OLD = old value
64 ; X = new value
65 S OLD=$$GET1^DIQ(FILENO1,IENS1,.03,"I")
66 S DR=DR_";"_"S:OLD=X Y="""""
67 ;
68 ; .04 USER EDITED LOCAL
69 S DR=DR_";"_".04////"_DUZ
70 ;
71 ; .05 DATE/TIME LOCAL EDITED
72 S DR=DR_";"_".05////"_$$NOW^XLFDT()
73 ;
74 D ^DIE
75 ;
76 W !
77 Q
78 ;
79HEADING ; Print heading
80 W @IOF
81 W "PLAN File Inquiry and Edit (E-PHARM)",!
82 Q
83 ;
84IEN ; Select file entry
85 N I
86 ;
87 S IEN=$$SELECT1^IBCNRFM1(FILENO,"Select Plan ID: ")
88 I IEN=-1 Q
89 S IENS=IEN_","
90 ;
91 ; E-PHARM APPLICATION Defined?
92 S APIEN=$$LOOKUP2^IBCNRFM1(FILENO,IEN,FIELDNO,ANAME)
93 I APIEN=-1 W " E-PHARM APPLICATION not defined" Q
94 S IENS1=APIEN_","_IEN_","
95 Q
96 ;
97INIT1 ; Initialize variables
98 S ANAME="E-PHARM"
99 S FIELDNO=3
100 S FILENO=366.03
101 S FILENO1=FILENO_FIELDNO
102 I '$D(IOF) D HOME^%ZIS
103 Q
104 ;
105PRINT1 ; Print file entry data
106 ; 366.03 PLAN File
107 ;
108 N A
109 ;
110 W !!
111 ;
112 D GETS^DIQ(FILENO,IENS,"*","","A")
113 ;
114 ; .01 ID
115 S KEY=A(FILENO,IENS,.01)
116 W $J("Plan ID: ",40),$G(A(FILENO,IENS,.01)),!
117 ;
118 ; .07 DATE/TIME CREATED
119 W $J("Date/Time Created: ",40),$G(A(FILENO,IENS,.07)),!
120 ;
121 ; .02 NAME
122 W $J("Plan Name: ",40),$G(A(FILENO,IENS,.02)),!
123 ;
124 ; .04 NAME - SHORT
125 W $J("Plan Name - Short: ",40),$G(A(FILENO,IENS,.04)),!
126 ;
127 ; .03 PAYER NAME
128 W $J("Payer Name: ",40),$G(A(FILENO,IENS,.03)),!
129 ;
130 ; .05 TYPE
131 W $J("Type: ",40),$G(A(FILENO,IENS,.05)),!
132 ;
133 ; .06 REGION
134 W $J("Region: ",40),$G(A(FILENO,IENS,.06)),!
135 ;
136 ; 10.01 PHARMACY BENEFITS MANAGER NAME
137 W $J("Pharmacy Benefits Manager (PBM) Name: ",40),$G(A(FILENO,IENS,10.01)),!
138 ;
139 ; 10.02 BANKING IDENTIFICATION NUMBER
140 W $J("Banking Identification Number (BIN): ",40),$G(A(FILENO,IENS,10.02)),!
141 ;
142 ; 10.03 PROCESSOR CONTROL NUMBER (PCN)
143 W $J("Processor Control Number (PCN): ",40),$G(A(FILENO,IENS,10.03)),!
144 ;
145 ; 10.04 NCPDP PROCESSOR NAME
146 W $J("NCPDP Processor Name: ",40),$G(A(FILENO,IENS,10.04)),!
147 ;
148 ; 10.05 ENABLED?
149 W $J("Enabled?: ",40),$G(A(FILENO,IENS,10.05)),!
150 ;
151 ; 10.06 SOFTWARE VENDOR ID
152 W $J("Software Vendor ID: ",40),$G(A(FILENO,IENS,10.06)),!
153 ;
154 ; 10.07 BILLING PAYER SHEET NAME
155 W $J("Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.07)),!
156 ;
157 ; 10.08 REVERSAL PAYER SHEET NAME
158 W $J("Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.08)),!
159 ;
160 ; 10.09 REBILL PAYER SHEET NAME
161 W $J("Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.09)),!
162 ;
163 ; 10.1 MAXIMUM NCPDP TRANSACTIONS
164 W $J("Maximum NCPDP Transactions: ",40),$G(A(FILENO,IENS,10.1)),!
165 ;
166 ; 10.11 TEST BILLING PAYER SHEET NAME
167 W $J("Test Billing Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.11)),!
168 ;
169 ; 10.12 TEST REVERSAL PAYER SHEET NAME
170 W $J("Test Reversal Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.12)),!
171 ;
172 ; 10.13 TEST REBILL PAYER SHEET NAME
173 W $J("Test Rebill Payer Sheet Name: ",40),$G(A(FILENO,IENS,10.13)),!
174 Q
175 ;
176PRINT2 ; Print subfile entry data
177 ; 366.033 PLAN APPLICATION Subfile
178 ;
179 N A
180 ;
181 W !
182 ;
183 D GETS^DIQ(FILENO1,IENS1,"*","","A")
184 ;
185 ; .01 APPLICATION
186 W $J("Application: ",40),$G(A(FILENO1,IENS1,.01)),!
187 ;
188 ; .13 DATE/TIME CREATED
189 W $J("Date/Time Created: ",40),$G(A(FILENO1,IENS1,.13)),!
190 ;
191 ; .11 DEACTIVATED
192 W $J("Deactivated? ",40),$G(A(FILENO1,IENS1,.11)),!
193 ;
194 ; .12 DATE/TIME DEACTIVATED
195 W $J("Date/Time Deactivated: ",40),$G(A(FILENO1,IENS1,.12)),!
196 ;
197 ; .02 NATIONAL ACTIVE
198 W $J("National Active? ",40),$G(A(FILENO1,IENS1,.02)),!
199 ;
200 ; .06 DATE/TIME NATIONAL EDITED
201 W $J("Date/Time National Edited: ",40),$G(A(FILENO1,IENS1,.06)),!
202 ;
203 ; .03 LOCAL ACTIVE
204 W $J("Local Active? ",40),$G(A(FILENO1,IENS1,.03)),!
205 ;
206 ; .05 DATE/TIME LOCAL EDITED
207 W $J("Date/Time Local Edited: ",40),$G(A(FILENO1,IENS1,.05)),!
208 ;
209 ; .04 USER EDITED LOCAL
210 W $J("User Edited Local: ",40),$G(A(FILENO1,IENS1,.04)),!
211 Q
Note: See TracBrowser for help on using the repository browser.