©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
Select the objects that you wish to see in the downloaded PDF
InfoABSPOSJ1 ;IHS/SD/lwj - NCPDP 5.1 pre and post init for V1.0 patch 3 [ 10/31/2002 10:58 AM ]
Source file <ABSPOSJ1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST39 | ; - IHS/OIT/SCR 6/28/2010 patch 39 cleanup reject codes in response file
|
|
| POST38 | ;EP - IHS/OIT/SCR 03/24/10 patch 38 mark options out of order if site not using IHS 3PB
|
|
| FORMAT | ;EP - pre-init for absp0100.p6k
; This file is killed so that updated formats can be loaded into ; the file |
|
| POST37 | ;EP - IHS/OIT/SCR 02/19/10 patch 37 mark options out of order if site not using IHS 3PB
|
|
| POST36 | ;EP - IHS/OIT/SCR 01/12/10 patch 36 mark option in order
|
|
| POST31 | ;EP - IHS/OIT/SCR 05/15/09 patch 31 added subroutine
; Remove 'garbage strings' from returning message field of ABSP REPORT MASTER |
|
| PATCH6 | ;EP - pre-init for absp0100.p6k
; This subroutine is used to perform the preinits needed ; for POS V1.0 patch 6. |
|
| POST44 | ; IHS/OIT/RCS 8/31/2012 Patch 44 fix for DIALOUT field
|
|
| POST45 | ; IHS/OIT/RCS 11/28/2012 Patch 45 Add the ICD10 General default date
|
|
| POST46 | ; IHS/OIT/RCS 11/28/2012 Patch 46 Add the Maximum Dollar Limit, Unsuppress Fields 147,384 for Medicare Part D plans
|
|
| POST47 | ; IHS/OIT/RCS 04/08/2014 Patch 47 Add the new ICD10 General default date
|
|
| POST42 | ; - IHS/OIT/RAN 3/16/2011 patch 42 run conversion that switches over from formats to new Claims methodology
|
|
| POST43 | ; - IHS/OIT/RCS 3/2/2012 patch 43 run fix for errored reversals
|
|
| CKSETUP() | ; This routine will check the setup file for the existance of the
; NCPDP51 node in the setup file. If it exists, then the conversion ; has already been run, and we will exit the routine. |
|
| POST28 | ;EP - IHS/OIT/SCR 09/22/08 ; added subroutine
; If there are claims that are being held, release them for processing |
|
| POST24 | ;EP - 02/28/08 - Patch 24 - RLT
; Update old Emdeon IP address 199.244.222.6 to DNS name ; emdeonserver.ihs.gov which is pointing to 170.138.220.70 |
|
| SAV320 | ; Save the 320 field, since node 300 also hit its limits
|
|
| MOVFLD(FLDNUM,VALUE) | ;Adds the field back to it's new location
|
|
| POST | ;EP - This will be the entry point for the post init in patch
; 3 of Pharmacy Point of Sale Version 1.0. It will do two ; things. First, it will check to see if patch 2 was run ; First, it will call the routine created in Patch 2 that ; creates the Cache entry in the ABSP Dial out file. Secondly, ; it will call the "RESTORE" subroutine in this program to ; restore the values from the moves done in fields on the ; ABSP claims file in preparation of 5.1. ; first thing - see if the conversion has run before - if so, quit |
|
| FLDDEF | ;EP - pre-init for abps0100.p6k
; Kill of ^ABSPF(9002313.91) - ABSP NCPDP FIELD DEFS ; This file is killed so that updated field definitions can be loaded ; into the file. |
|
| POST17 | ;EP - 6/13/06 Patch 17 RLT
|
|
| POST16 | ;EP - 2/22/06 Patch 16 RLT
|
|
| SAVREC | ; Save the record
|
|
| POST14 | ;EP - 11/7/05 patch 14 lwj
; need to add the menu option for the Medicare Part D ; eligibility check to the menu |
|
| POST12 | ;EP - 6/9/05 patch 12 lwj
; From patch 12 forward we need to make sure the insurer file ; can be access for update and addition by anyone with Pp access. |
|
| DELFLD(FLDNUM) | ;
|
|
| SAVE | ;EP - pre-init for abps0100.p3k
; This subroutine will save any existing values found in the ; 431, and 433-443 fields into a save global (^ABSPOSXX($J,"ABSPOSJ1") ; This global will be used to hold the values while the data ; dictionary redefines their storage location, and it will ; then be used in the RESTORE subroutine of this program during the ; post-init to restore the values to their new home. ; ^ABSPOSXX($J,"ABSPOSJ1",ClmIEN,400,MedIEN,400) ; ClmIEN - IEN for the individual claims ; MedIEN - IEN for the medication subfile ; first thing - see if the conversion has run before - if so, quit |
|
| CLNRPT() | ||
| UPSETUP | ; This routine is called after the conversion to the claim file is
; completed. It will update the "NCPDP51" node of the setup file ; with today's date so that future patches will not need to ; run the conversion again. |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | UPSETUP+5, CLNRPT+6 |
| EN^ABSPICNV | POST42+1 |
| CLNREJ^ABSPOSJ2 | POST39+1 |
| CLNREV^ABSPOSJ2 | POST43+1 |
| DEF^ABSPOSJ2 | POST45+1 |
| DEF2^ABSPOSJ2 | POST47+1 |
| DIAL^ABSPOSJ2 | POST44+1 |
| DOL^ABSPOSJ2 | POST46+1 |
| MCAR^ABSPOSJ2 | POST46+2 |
| RESTORE^ABSPOSJ2 | POST+11 |
| LOG^ABSPOSL2 | SAV320+7, DELFLD+4, MOVFLD+5, UPSETUP+9, CLNRPT+23 |
| ^ABSPOSSC | POST+10 |
| ^DIC | POST14+9 |
| FILE^DICN | POST14+17 |
| ^DIE | POST24+23 |
| FILE^DIE | SAV320+6, DELFLD+3, MOVFLD+4, UPSETUP+8 |
| UPDATE^DIE | CLNRPT+22 |
| EN^DIU2 | POST28+3 |
| ^XBFMK | POST24+19 |
| $$ADD^XPDMENU | POST17+8, POST16+8 |
| $$DELETE^XPDMENU | POST36+3 |
| OUT^XPDMENU | POST38+5, POST38+7, POST37+5, POST37+6, POST37+9, POST37+10, POST36+1 |
| MES^XPDUTL | POST36+2, POST36+3, POST31+4, POST24+6, POST24+7, POST24+12, POST24+13, POST24+14, POST24+16, POST24+17 , POST24+26, POST24+27, POST24+29, POST24+30, POST17+9, POST16+9 |
| FileNo | Call Tags |
|---|---|
| ^ABSP(9002313.55 - [#9002313.55] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.55 - [#9002313.55] | POST24+4, POST24+10, POST24+24 |
| ^ABSP(9002313.99 - [#9002313.99] | POST38+3, POST37+3, CKSETUP+5 |
| ^ABSPC - [#9002313.02] | SAVE+15, SAVE+18, SAVE+19, SAV320+2 |
| ^ABSPECX("RPT" - [#9002313.61] | CLNRPT+11, CLNRPT+12, CLNRPT+13 |
| ^ABSPF(9002313.91 - [#9002313.91] | FLDDEF+4! |
| ^ABSPHOLD( | POST28+7! |
| ^ABSPHOLD(0 | POST28+8! |
| ^ABSPOSXX("ABSPOSJ1" | SAV320+8*, SAVREC+9* |
| ^DD(19 | POST14+13 |
| ^DIC(19 - [#19] | POST14+6, POST14+12 |
| ^DIC(9002313.4 | POST12+3*, POST12+4* |
| Name | Line Occurrences |
|---|---|
| $$CKSETUP | SAVE+11, POST+9 |
| $$CLNRPT | POST31+3 |
| DELFLD | SAVREC+5, SAVREC+8 |
| FLDDEF | PATCH6+4 |
| FORMAT | PATCH6+5 |
| POST | POST12+5 |
| POST12 | POST14+18 |
| POST14 | POST16+10 |
| POST16 | POST17+10 |
| POST17 | POST24+31 |
| POST24 | POST28+9 |
| POST28 | POST31+5 |
| POST31 | POST37+12, POST36+5 |
| POST37 | POST38+9 |
| POST38 | POST39+2 |
| POST39 | POST42+2 |
| POST42 | POST43+2 |
| POST43 | POST44+2 |
| POST44 | POST45+2 |
| POST45 | POST46+3 |
| POST46 | POST47+2 |
| SAV320 | SAVE+16 |
| SAVE | PATCH6+3 |
| SAVREC | SAVE+21 |
| UPSETUP | POST+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | UPSETUP+6, CLNRPT+7 |
| ABSP31 | POST31+2~, POST31+3*, POST31+4 |
| ABSPAR | POST38+2~, POST38+3*, POST38+4, POST38+6, POST37+2~, POST37+3*, POST37+4, POST37+8 |
| ABSPDATE | CLNRPT+5~, CLNRPT+10*, CLNRPT+11*, CLNRPT+12 |
| ABSPHIEN | POST28+2~, POST28+5*, POST28+7* |
| ABSPIEN | CLNRPT+5~, CLNRPT+12~*, CLNRPT+13, CLNRPT+21 |
| ABSPMENU | POST17+3~, POST17+4*, POST17+8, POST16+3~, POST16+4*, POST16+8 |
| ABSPMSG | CLNRPT+5~, CLNRPT+13*, CLNRPT+15*, CLNRPT+16*, CLNRPT+17, CLNRPT+18 |
| ABSPOPT | POST17+3~, POST17+5*, POST17+8, POST16+3~, POST16+5*, POST16+8 |
| ABSPORD | POST17+3~, POST17+7*, POST17+8, POST16+3~, POST16+7*, POST16+8 |
| ABSPRTN | CLNRPT+5~, CLNRPT+9*, CLNRPT+24*, CLNRPT+28 |
| ABSPSTRT | CLNRPT+5~, CLNRPT+8*, CLNRPT+10 |
| ABSPSYN | POST17+3~, POST17+6*, POST17+8, POST16+3~, POST16+6*, POST16+8 |
| ABSPX | POST17+3~, POST17+8*, POST17+9, POST16+3~, POST16+8*, POST16+9 |
| CLMIEN | SAVE+13~, SAVE+14*, SAVE+15*, SAVE+18, SAVE+19, SAV320+2, SAV320+5, SAV320+8, SAVREC+9, DELFLD+2 , MOVFLD+3 |
| CONV | CKSETUP+3~, CKSETUP+4*, CKSETUP+5*, CKSETUP+6 |
| DA | POST24+21*, POST14+4~, POST14+12*, POST14+15 |
| DA(1 | POST14+6*, POST14+8 |
| DATE | UPSETUP+4~, UPSETUP+6*, UPSETUP+7, CLNRPT+7*, CLNRPT+8 |
| DIALIEN | POST24+3~, POST24+4*, POST24+5, POST24+8, POST24+10, POST24+21, POST24+24 |
| DIC | POST14+4~, POST14+8* |
| DIC("DR" | POST14+14* |
| DIC("P" | POST14+13* |
| DIC(0 | POST14+5*, POST14+16* |
| >> DIE | POST24+20* |
| DIU | POST28+2~, POST28+3*, POST28+4! |
| DIU(0 | POST28+3* |
| DLAYGO | POST14+4~ |
| >> DR | POST24+22* |
| FDA | SAV320+1~, DELFLD+1~, MOVFLD+1~, UPSETUP+4~, CLNRPT+20~ |
| FDA( | SAV320+5*, DELFLD+2*, MOVFLD+3*, UPSETUP+7*, CLNRPT+21* |
| FLDNUM | DELFLD~, DELFLD+2, MOVFLD~, MOVFLD+2, MOVFLD+3 |
| FND | SAVREC+1~, SAVREC+2*, SAVREC+9, DELFLD+5* |
| I | SAVREC+1~, SAVREC+6*, SAVREC+7, SAVREC+8 |
| IP | POST24+3~, POST24+10*, POST24+11, POST24+14, POST24+15, POST24+18, POST24+24*, POST24+25, POST24+28 |
| MEDIEN | SAVE+13~, SAVE+14*, SAVE+17*, SAVE+18*, SAVE+19, SAVREC+9, DELFLD+2, MOVFLD+3 |
| MSG | SAV320+1~, SAV320+7, DELFLD+1~, DELFLD+4, MOVFLD+1~, MOVFLD+5, UPSETUP+4~, UPSETUP+9, CLNRPT+20~, CLNRPT+23 |
| MSGTEXT | CLNRPT+5~, CLNRPT+19 |
| MSGTEXT(1 | CLNRPT+17*, CLNRPT+18* |
| NEWIP | POST24+3~, POST24+9*, POST24+22 |
| OUTREC | SAV320+1~, SAV320+4*, SAV320+8, SAVREC+1~, SAVREC+3*, SAVREC+4*, SAVREC+7*, SAVREC+9 |
| REC | SAVE+13~, SAVE+19*, SAVE+20, SAVREC+4, SAVREC+5, SAVREC+7, SAVREC+8 |
| U | SAV320+2, SAVREC+4, SAVREC+5, SAVREC+7, SAVREC+8, POST24+10, POST24+24, CKSETUP+5 |
| VALUE | SAV320+1~, SAV320+2*, SAV320+3, SAV320+4, MOVFLD~, MOVFLD+3 |
| X | POST14+4~, POST14+7*, POST14+15* |
| Y | POST14+4~, POST14+11 |