source: FOIAVistA/trunk/r/DSS_EXTRACTS-ECX/ECX110PT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1ECX110PT ;ALB/ESD - PATCH ECX*3.0*110 Post-Init Rtn ; 09/20/07 1:00pm
2 ;;3.0;DSS EXTRACTS;**110**;Dec 22, 1997;Build 4
3 ;
4 ;Post-init routine to add new entries to:
5 ;
6 ; NATIONAL CLINIC file (#728.441)
7 ;
8 ;
9EN D POST1
10 Q
11 ;
12 ;
13POST1 ;- Add new entry to file 728.441
14 ; ECXREC is in format: code^short description
15 ;
16 ;
17 N ECXFDA,ECXERR,ECXCODE,ECXREC,I
18 D BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
19 ;
20 ;- Get NATIONAL CLINIC record
21 F I=1:1 S ECXREC=$P($T(NATCLIN+I),";;",2) Q:ECXREC="QUIT" D
22 .;
23 .;- National Clinic code
24 .S ECXCODE=$P(ECXREC,"^")
25 .;
26 .;- Quit w/error message if entry already exists in file #728.441
27 .I $$FIND1^DIC(728.441,"","X",ECXCODE) D Q
28 ..D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" not added, entry already exists.")
29 ..D BMES^XPDUTL(">>> Delete entries and reinstall patch if entries were not created by a")
30 ..D MES^XPDUTL(">>> previous installation of this patch.")
31 .;
32 .;- Setup field values of new entry
33 .S ECXFDA(728.441,"+1,",.01)=ECXCODE
34 .S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2)
35 .;
36 .;- Add new entry to file #728.441
37 .D UPDATE^DIE("E","ECXFDA","","ECXERR")
38 .;
39 .I '$D(ECXERR) D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" added to file.")
40 .I $D(ECXERR) D BMES^XPDUTL(">>>....Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.")
41 ;
42 Q
43 ;
44NATCLIN ;- Contains the NATIONAL CLINIC entry to be added
45 ;;OEFN^OEF/OIF CSMG BY NURSE
46 ;;OEFS^OEF/OIF CSMG BY SOCIAL WORKER
47 ;;LVL1^LEVEL 1
48 ;;LVL2^LEVEL 2
49 ;;LVL3^LEVEL 3
50 ;;LVL4^LEVEL 4
51 ;;LVL5^LEVEL 5
52 ;;RV15^RVU 15 MINUTES HIGHER THAN MATRIX
53 ;;RV20^RVU 20 MINUTES HIGHER THAN MATRIX
54 ;;RV30^RVU 30 MINUTES HIGHER THAN MATRIX
55 ;;RV45^RVU 45 MINUTES HIGHER THAN MATRIX
56 ;;RV60^RVU 60 MINUTES HIGHER THAN MATRIX
57 ;;VL1A^VL CATEGORY 1 A
58 ;;VL1B^VL CATEGORY 1 B
59 ;;VL1C^VL CATEGORY 1 C
60 ;;VL1D^VL CATEGORY 1 D
61 ;;VL2A^VL CATEGORY 2 A
62 ;;VL2B^VL CATEGORY 2 B
63 ;;VL2C^VL CATEGORY 2 C
64 ;;VL2D^VL CATEGORY 2 D
65 ;;VL4A^VL CATEGORY 4 A
66 ;;VL4B^VL CATEGORY 4 B
67 ;;VL4C^VL CATEGORY 4 C
68 ;;VL4D^VL CATEGORY 4 D
69 ;;VL5A^VL CATEGORY 5 A
70 ;;VL5B^VL CATEGORY 5 B
71 ;;VL5C^VL CATEGORY 5 C
72 ;;VL5D^VL CATEGORY 5 D
73 ;;FDLA^VL CATEGORY 4 A
74 ;;FDLB^VL CATEGORY 4 B
75 ;;FDLC^VL CATEGORY 4 C
76 ;;FDLD^VL CATEGORY 4 D
77 ;;PSOA^PSYCHOLOGIST A
78 ;;PSOB^PSYCHOLOGIST B
79 ;;PSOC^PSYCHOLOGIST C
80 ;;PSOD^PSYCHOLOGIST D
81 ;;PSOE^PSYCHOLOGIST E
82 ;;QUIT
Note: See TracBrowser for help on using the repository browser.