Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ABSPOSJ1

Package: Pharmacy Point of Sale

Routine: ABSPOSJ1


Information

ABSPOSJ1 ;IHS/SD/lwj - NCPDP 5.1 pre and post init for V1.0 patch 3 [ 10/31/2002 10:58 AM ]

Source Information

Source file <ABSPOSJ1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DICN  (,FILE,UPDATE)^DIE  EN^DIU2  
Pharmacy Point of Sale 4 EN^ABSPICNV  (CLNREJ,CLNREV,DEF,DEF2,DIAL,DOL,MCAR,RESTORE)^ABSPOSJ2  LOG^ABSPOSL2  ^ABSPOSSC  
Kernel 2 ($$ADD,$$DELETE,OUT)^XPDMENU  MES^XPDUTL  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSJ2  

Entry Points

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.

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSP(9002313.55 - [#9002313.55] Classic Fileman Calls

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All