- ECX110PT ;ALB/ESD - PATCH ECX*3.0*110 Post-Init Rtn ; 09/20/07 1:00pm
- ;;3.0;DSS EXTRACTS;**110**;Dec 22, 1997;Build 4
- ;
- ;Post-init routine to add new entries to:
- ;
- ; NATIONAL CLINIC file (#728.441)
- ;
- ;
- EN D POST1
- Q
- ;
- ;
- POST1 ;- Add new entry to file 728.441
- ; ECXREC is in format: code^short description
- ;
- ;
- N ECXFDA,ECXERR,ECXCODE,ECXREC,I
- D BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
- ;
- ;- Get NATIONAL CLINIC record
- F I=1:1 S ECXREC=$P($T(NATCLIN+I),";;",2) Q:ECXREC="QUIT" D
- .;
- .;- National Clinic code
- .S ECXCODE=$P(ECXREC,"^")
- .;
- .;- Quit w/error message if entry already exists in file #728.441
- .I $$FIND1^DIC(728.441,"","X",ECXCODE) D Q
- ..D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" not added, entry already exists.")
- ..D BMES^XPDUTL(">>> Delete entries and reinstall patch if entries were not created by a")
- ..D MES^XPDUTL(">>> previous installation of this patch.")
- .;
- .;- Setup field values of new entry
- .S ECXFDA(728.441,"+1,",.01)=ECXCODE
- .S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2)
- .;
- .;- Add new entry to file #728.441
- .D UPDATE^DIE("E","ECXFDA","","ECXERR")
- .;
- .I '$D(ECXERR) D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" added to file.")
- .I $D(ECXERR) D BMES^XPDUTL(">>>....Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.")
- ;
- Q
- ;
- NATCLIN ;- Contains the NATIONAL CLINIC entry to be added
- ;;OEFN^OEF/OIF CSMG BY NURSE
- ;;OEFS^OEF/OIF CSMG BY SOCIAL WORKER
- ;;LVL1^LEVEL 1
- ;;LVL2^LEVEL 2
- ;;LVL3^LEVEL 3
- ;;LVL4^LEVEL 4
- ;;LVL5^LEVEL 5
- ;;RV15^RVU 15 MINUTES HIGHER THAN MATRIX
- ;;RV20^RVU 20 MINUTES HIGHER THAN MATRIX
- ;;RV30^RVU 30 MINUTES HIGHER THAN MATRIX
- ;;RV45^RVU 45 MINUTES HIGHER THAN MATRIX
- ;;RV60^RVU 60 MINUTES HIGHER THAN MATRIX
- ;;VL1A^VL CATEGORY 1 A
- ;;VL1B^VL CATEGORY 1 B
- ;;VL1C^VL CATEGORY 1 C
- ;;VL1D^VL CATEGORY 1 D
- ;;VL2A^VL CATEGORY 2 A
- ;;VL2B^VL CATEGORY 2 B
- ;;VL2C^VL CATEGORY 2 C
- ;;VL2D^VL CATEGORY 2 D
- ;;VL4A^VL CATEGORY 4 A
- ;;VL4B^VL CATEGORY 4 B
- ;;VL4C^VL CATEGORY 4 C
- ;;VL4D^VL CATEGORY 4 D
- ;;VL5A^VL CATEGORY 5 A
- ;;VL5B^VL CATEGORY 5 B
- ;;VL5C^VL CATEGORY 5 C
- ;;VL5D^VL CATEGORY 5 D
- ;;FDLA^VL CATEGORY 4 A
- ;;FDLB^VL CATEGORY 4 B
- ;;FDLC^VL CATEGORY 4 C
- ;;FDLD^VL CATEGORY 4 D
- ;;PSOA^PSYCHOLOGIST A
- ;;PSOB^PSYCHOLOGIST B
- ;;PSOC^PSYCHOLOGIST C
- ;;PSOD^PSYCHOLOGIST D
- ;;PSOE^PSYCHOLOGIST E
- ;;QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX110PT 2469 printed Mar 13, 2025@20:54:09 Page 2
- ECX110PT ;ALB/ESD - PATCH ECX*3.0*110 Post-Init Rtn ; 09/20/07 1:00pm
- +1 ;;3.0;DSS EXTRACTS;**110**;Dec 22, 1997;Build 4
- +2 ;
- +3 ;Post-init routine to add new entries to:
- +4 ;
- +5 ; NATIONAL CLINIC file (#728.441)
- +6 ;
- +7 ;
- EN DO POST1
- +1 QUIT
- +2 ;
- +3 ;
- POST1 ;- Add new entry to file 728.441
- +1 ; ECXREC is in format: code^short description
- +2 ;
- +3 ;
- +4 NEW ECXFDA,ECXERR,ECXCODE,ECXREC,I
- +5 DO BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
- +6 ;
- +7 ;- Get NATIONAL CLINIC record
- +8 FOR I=1:1
- SET ECXREC=$PIECE($TEXT(NATCLIN+I),";;",2)
- if ECXREC="QUIT"
- QUIT
- Begin DoDot:1
- +9 ;
- +10 ;- National Clinic code
- +11 SET ECXCODE=$PIECE(ECXREC,"^")
- +12 ;
- +13 ;- Quit w/error message if entry already exists in file #728.441
- +14 IF $$FIND1^DIC(728.441,"","X",ECXCODE)
- Begin DoDot:2
- +15 DO BMES^XPDUTL(">>>...."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" not added, entry already exists.")
- +16 DO BMES^XPDUTL(">>> Delete entries and reinstall patch if entries were not created by a")
- +17 DO MES^XPDUTL(">>> previous installation of this patch.")
- End DoDot:2
- QUIT
- +18 ;
- +19 ;- Setup field values of new entry
- +20 SET ECXFDA(728.441,"+1,",.01)=ECXCODE
- +21 SET ECXFDA(728.441,"+1,",1)=$PIECE(ECXREC,"^",2)
- +22 ;
- +23 ;- Add new entry to file #728.441
- +24 DO UPDATE^DIE("E","ECXFDA","","ECXERR")
- +25 ;
- +26 IF '$DATA(ECXERR)
- DO BMES^XPDUTL(">>>...."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" added to file.")
- +27 IF $DATA(ECXERR)
- DO BMES^XPDUTL(">>>....Unable to add "_ECXCODE_" "_$PIECE(ECXREC,U,2)_" to file.")
- End DoDot:1
- +28 ;
- +29 QUIT
- +30 ;
- NATCLIN ;- Contains the NATIONAL CLINIC entry to be added
- +1 ;;OEFN^OEF/OIF CSMG BY NURSE
- +2 ;;OEFS^OEF/OIF CSMG BY SOCIAL WORKER
- +3 ;;LVL1^LEVEL 1
- +4 ;;LVL2^LEVEL 2
- +5 ;;LVL3^LEVEL 3
- +6 ;;LVL4^LEVEL 4
- +7 ;;LVL5^LEVEL 5
- +8 ;;RV15^RVU 15 MINUTES HIGHER THAN MATRIX
- +9 ;;RV20^RVU 20 MINUTES HIGHER THAN MATRIX
- +10 ;;RV30^RVU 30 MINUTES HIGHER THAN MATRIX
- +11 ;;RV45^RVU 45 MINUTES HIGHER THAN MATRIX
- +12 ;;RV60^RVU 60 MINUTES HIGHER THAN MATRIX
- +13 ;;VL1A^VL CATEGORY 1 A
- +14 ;;VL1B^VL CATEGORY 1 B
- +15 ;;VL1C^VL CATEGORY 1 C
- +16 ;;VL1D^VL CATEGORY 1 D
- +17 ;;VL2A^VL CATEGORY 2 A
- +18 ;;VL2B^VL CATEGORY 2 B
- +19 ;;VL2C^VL CATEGORY 2 C
- +20 ;;VL2D^VL CATEGORY 2 D
- +21 ;;VL4A^VL CATEGORY 4 A
- +22 ;;VL4B^VL CATEGORY 4 B
- +23 ;;VL4C^VL CATEGORY 4 C
- +24 ;;VL4D^VL CATEGORY 4 D
- +25 ;;VL5A^VL CATEGORY 5 A
- +26 ;;VL5B^VL CATEGORY 5 B
- +27 ;;VL5C^VL CATEGORY 5 C
- +28 ;;VL5D^VL CATEGORY 5 D
- +29 ;;FDLA^VL CATEGORY 4 A
- +30 ;;FDLB^VL CATEGORY 4 B
- +31 ;;FDLC^VL CATEGORY 4 C
- +32 ;;FDLD^VL CATEGORY 4 D
- +33 ;;PSOA^PSYCHOLOGIST A
- +34 ;;PSOB^PSYCHOLOGIST B
- +35 ;;PSOC^PSYCHOLOGIST C
- +36 ;;PSOD^PSYCHOLOGIST D
- +37 ;;PSOE^PSYCHOLOGIST E
- +38 ;;QUIT
