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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSII

Package: Pharmacy Point of Sale

Routine: ABSPOSII


Information

ABSPOSII ; IHS/SD/RLT - DIAGNOSIS CODES form ; [ 06/21/2007 9:30 AM ]

Source Information

Source file <ABSPOSII.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 NOW^%DTC  HLP^DDSUTL  ($$GET,PUT)^DDSVAL  FILE^DIE  $$GET1^DIQ  
Pharmacy Point of Sale 4 ($$CHKDIAG,$$NEW,NEWSUB)^ABSPOSD3  LOG^ABSPOSL2  $$GETDIAG^ABSPOSO  $$IMPOSS^ABSPOSUE  
DRG Grouper 2 $$ICDDX^ICDCODE  $$ICDDATA^ICDXCODE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSI  ABSPOSIZ  

Entry Points

Name Comments DBIA/ICR reference
HELP492 ;EP - Help code for file #9002313.491 - ABSP DIAGNOSIS
; field #492 - DIAGNOSIS CODE QUALIFIER
CHK492 ;;OIT/CAS/RCS 06072012 Patch 45 - Field 492 default value, assumes todays date
ICD10DT(X) ;OIT/CAS/RCS 06072012 Patch 45 - Find ICD10 Effective date to use for interface
CHK424(CODE) ;EP - FM input code for file #9002313.491 - ABSP DIAGNOSIS
; field #424 - DIAGNOSIS CODE
; This input transform just checks for a valid ICD9 code.
DIAGCNT(DIAG) ;
GETPOVS(VIS,EFFDT,X) ;#9000010.07 - V POV file
DISPPOVS ;
DISPPROB ;
NOCLM ;EP - called from ABSPOSI when the claims are NOT filed - we
; still must clean up the empty records if they called upon
; the DIAGNOSIS CODES entry
CNTFIX(FILE,REC,SUB,CNT) ;
CHK424B(X) ;EP - FM input code for file #9002313.491 - ABSP DIAGNOSIS
; field #424 - DIAGNOSIS CODE
; This input transform limits the valid ICD9 codes to those found
; in V POV and PROBLEM lists.
GETVMED(RXI) ;
HELP424 ;EP - FM help code for file #9002313.491 - ABSP DIAGNOSIS
; field #424 - DIAGNOSIS CODE
CNTFILE ;
PREINIT ;EP - check for existing record
; This is the pre-init routine tied to ScreenMan form ABSP INPUT 1
; page 25 DIAGNOSIS CODE 5.1 ENTRY.
; This is used during the creation of the "NEW" claim from
; within POS (called from the "USER" screen) to capture
; DIAGNOSIS CODE values.
GETPROB(RXI,EFFDT,X) ;#9000011 - PROBLEM file
UPDRX(RXI,RXR,DIAG) ;POINTERS REMOVED FROM PRESCRIPTION FILE
; update the prescription with the DIAG 5.1 information
; and the ABSP Data Input file with the appropriate value
CLNDIAG(IEN,ENTRY) ;EP from ABSPOSIZ
; clean up the DIAG file of empty entries
; and update the RX file when no override information
; was actually entered for the 5.1 DIAG segment.
; This routine called from ABSPOSIZ - subroutine FILE

External References

Name Field # of Occurrence
NOW^%DTC HELP492+7, HELP424+17, CHK424+9, CHK492+7
$$CHKDIAG^ABSPOSD3 CLNDIAG+16, NOCLM+11
$$NEW^ABSPOSD3 PREINIT+26
NEWSUB^ABSPOSD3 PREINIT+31
LOG^ABSPOSL2 CLNDIAG+24, CNTFILE+2
$$GETDIAG^ABSPOSO PREINIT+18
$$IMPOSS^ABSPOSUE CNTFILE+3
HLP^DDSUTL PREINIT+23, PREINIT+28
$$GET^DDSVAL PREINIT+12, PREINIT+13
PUT^DDSVAL PREINIT+36
FILE^DIE CLNDIAG+23, CNTFILE+1
$$GET1^DIQ HELP424+7, GETVMED+3, GETVMED+6, GETPOVS+8, GETPOVS+12, GETPROB+6, GETPROB+10, GETPROB+14, CHK424B+8
$$ICDDX^ICDCODE CHK424+20, CHK424+27, CHK424+38
$$ICDDATA^ICDXCODE GETPOVS+11, GETPROB+13, CHK424+17, CHK424+24, CHK424+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"01 - International Classification of Diseases (ICD9)"
  • Line Location: HELP492+11
Function Call: WRITE
  • Prompt: !,"02 - International Classification of Diseases (ICD10)"
  • Line Location: HELP492+13
Function Call: WRITE
  • Prompt: !,"Valid ICD10 codes entered by provider:"
  • Line Location: HELP424+20
Function Call: WRITE
  • Prompt: !,"Valid ICD9 codes entered by provider:"
  • Line Location: HELP424+21
Function Call: WRITE
  • Prompt: !,"VISIT POV List:"
  • Line Location: DISPPOVS+2
Function Call: WRITE
  • Prompt: !,?3,"No V POVS found."
  • Line Location: DISPPOVS+4
Function Call: WRITE
  • Prompt: !,?3,CODE,?15,NARR
  • Line Location: DISPPOVS+9
Function Call: WRITE
  • Prompt: !,"PROBLEM List:"
  • Line Location: DISPPROB+2
Function Call: WRITE
  • Prompt: !,?3,"No PROBLEM entry found."
  • Line Location: DISPPROB+4
Function Call: WRITE
  • Prompt: !,?3,CODE,?15,NARR
  • Line Location: DISPPROB+9
Routine Call
  • DIE
  • Line Location:
    • CLNDIAG+23
    • CNTFILE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AUPNVMED - [#9000010.14] GET1^DIQ
^AUPNPROB - [#9000011] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.491 - [#9002313.491] DIAGCNT+7, DIAGCNT+9, DIAGCNT+13*, HELP424+4, CHK424B+5
^ABSP(9002313.51 - [#9002313.51] CLNDIAG+8
^ABSP(9002313.99 - [#9002313.99] ICD10DT+4
^ABSPEI - [#9002313.4] ICD10DT+15
^ABSPT - [#9002313.59] ICD10DT+13, ICD10DT+14
^AUPNPROB("AC" GETPROB+7, GETPROB+9
^AUPNVPOV("AD" GETPOVS+7
^ICD9("BA" CHK424+19, CHK424+26, CHK424+37
^ICDS(30 GETPOVS+3, GETPROB+3, CHK424+12
^PSRX - [#52] ICD10DT+10, ICD10DT+11
^ROUTINE("ICDXCODE" HELP492+9, HELP424+19, CHK424+7, CHK492+4
^TMP("ABSPOSII" PREINIT+41*, NOCLM+7, NOCLM+8
^TMP("DDS" ICD10DT+6, ICD10DT+7

Label References

Name Line Occurrences
$$GETVMED HELP424+6, CHK424B+7
$$ICD10DT HELP492+4, HELP424+14, CHK424+5, CHK492+5
CNTFILE CNTFILE+3
CNTFIX DIAGCNT+11
DIAGCNT CLNDIAG+26
DISPPOVS HELP424+23
DISPPROB HELP424+26
GETPOVS HELP424+22, CHK424B+13
GETPROB HELP424+25, CHK424B+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLNDIAG NOCLM+4~, NOCLM+11*
CNT CNTFIX~, CNTFIX+3
CODE GETPOVS+1~, GETPOVS+8*, GETPOVS+9, GETPOVS+11, GETPOVS+13, DISPPOVS+1~, DISPPOVS+6*, DISPPOVS+7*, DISPPOVS+8, DISPPOVS+9
, GETPROB+1~, GETPROB+10*, GETPROB+11, GETPROB+13, GETPROB+15, DISPPROB+1~, DISPPROB+6*, DISPPROB+7*, DISPPROB+8, DISPPROB+9
, CHK424~, CHK424+3, CHK424+17, CHK424+18, CHK424+19, CHK424+22, CHK424+24, CHK424+25, CHK424+29, CHK424+35
, CHK424+36, CHK424B+4~
CODEIEN CHK424+4~, CHK424+19*, CHK424+20, CHK424+26*, CHK424+27, CHK424+37*, CHK424+38
CODELKUP CHK424+4~, CHK424+22*, CHK424+24, CHK424+26, CHK424+29*, CHK424+30, CHK424+31*, CHK424+32*, CHK424+33, CHK424+35
, CHK424+37
CODESTAT CHK424+4~
>> DA PREINIT+12, PREINIT+13, PREINIT+36
>> DA(1 HELP424+4, CHK424B+5
DATAREC CLNDIAG+6~, CLNDIAG+8*, CLNDIAG+10, CLNDIAG+13, CLNDIAG+14
>> DDS ICD10DT+6, ICD10DT+7
>> DDSDAORG ICD10DT+6, ICD10DT+7
>> DDSDAORG(1 ICD10DT+6, ICD10DT+7
DFN GETPROB+1~, GETPROB+6*, GETPROB+7, GETPROB+9
DIAG PREINIT+9~, PREINIT+14*, PREINIT+18*, PREINIT+20, PREINIT+25, PREINIT+26*, PREINIT+27, PREINIT+31, PREINIT+36, PREINIT+41
, CLNDIAG+6~, CLNDIAG+10*, CLNDIAG+11, CLNDIAG+16*, CLNDIAG+18, CLNDIAG+22, CLNDIAG+26, UPDRX~, DIAGCNT~, DIAGCNT+2
, DIAGCNT+7, DIAGCNT+9, DIAGCNT+11, DIAGCNT+13
DIAGCNT DIAGCNT+4~, DIAGCNT+6*, DIAGCNT+8*, DIAGCNT+10, DIAGCNT+11, DIAGCNT+13
DIAGCNTR DIAGCNT+4~, DIAGCNT+6*, DIAGCNT+9*, DIAGCNT+10
DIAGIEN NOCLM+4~, NOCLM+6*, NOCLM+7*, NOCLM+8, NOCLM+11, DIAGCNT+4~, DIAGCNT+6*, DIAGCNT+7*, DIAGCNT+9, DIAGCNT+11
DIAGREC NOCLM+4~, NOCLM+8*, NOCLM+9, NOCLM+10
>> DIE PREINIT+12, PREINIT+13, PREINIT+36
EFFDT HELP492+2~, HELP492+4*, HELP492+5*, HELP492+6, HELP492+8, HELP424+3~, HELP424+14*, HELP424+15*, HELP424+16, HELP424+18
, HELP424+19*, HELP424+22, HELP424+25, GETPOVS~, GETPOVS+2, GETPOVS+11, GETPROB~, GETPROB+2, GETPROB+13, CHK424+4~
, CHK424+5*, CHK424+6*, CHK424+7*, CHK424+8, CHK424+10, CHK424+12*, CHK424+17, CHK424+18, CHK424+24, CHK424+25
, CHK424+35, CHK424+36, CHK492+2~, CHK492+5*, CHK492+6*, CHK492+8
ENTRY CLNDIAG~, CLNDIAG+8, CLNDIAG+22
FDA PREINIT+9~, CLNDIAG+21~, CNTFIX+2~
FDA( CLNDIAG+22*, CNTFIX+3*
FDT ICD10DT+2~, ICD10DT+10*, ICD10DT+11*, ICD10DT+13, ICD10DT+15, ICD10DT+16
FILDT HELP492+2~, HELP492+5*, HELP492+7, HELP424+3~, HELP424+15*, HELP424+17, CHK424+4~, CHK424+6*, CHK424+9, CHK492+2~
, CHK492+6*, CHK492+7
FILE CNTFIX~, CNTFIX+3
GENDT ICD10DT+2~, ICD10DT+4*, ICD10DT+8, ICD10DT+13, ICD10DT+14, ICD10DT+15
>> ICDCODE CHK424+18, CHK424+20*, CHK424+25, CHK424+27*, CHK424+36, CHK424+38*
ICDFL HELP492+2~, HELP492+3*, HELP492+8*, HELP492+9*, HELP492+11, HELP492+13, HELP424+3~, HELP424+13*, HELP424+18*, HELP424+19*
, HELP424+20, HELP424+22, HELP424+25, CHK424+4~, CHK424+10*, CHK424+11*, CHK424+13
IEN CLNDIAG~, CLNDIAG+8, CLNDIAG+22
IEN59 ICD10DT+2~, ICD10DT+12*, ICD10DT+13, ICD10DT+14
IMPDT GETPOVS+1~, GETPOVS+3*, GETPOVS+4*, GETPOVS+5*, GETPOVS+11, GETPROB+1~, GETPROB+3*, GETPROB+4*, GETPROB+5*, GETPROB+13
, CHK424+4~, CHK424+12*, CHK424+13*, CHK424+14*, CHK424+17, CHK424+24, CHK424+35
INSDT ICD10DT+2~, ICD10DT+15*, ICD10DT+16
INSIEN ICD10DT+2~, ICD10DT+14*, ICD10DT+15
MES GETPOVS+1~, GETPOVS+11*, GETPROB+1~, GETPROB+13*, CHK424+4~, CHK424+17*, CHK424+24*, CHK424+35*
>> MSG CNTFILE+2, CNTFILE+3
NARR GETPOVS+1~, GETPOVS+12*, GETPOVS+13, DISPPOVS+1~, DISPPOVS+8*, DISPPOVS+9, GETPROB+1~, GETPROB+14*, GETPROB+15, DISPPROB+1~
, DISPPROB+8*, DISPPROB+9
PIEN GETPOVS+1~, GETPOVS+6*, GETPOVS+7*, GETPOVS+8, GETPOVS+12, GETPROB+1~, GETPROB+8*, GETPROB+9*, GETPROB+10, GETPROB+14
POVS HELP424+3~, DISPPOVS+3, DISPPOVS+5, CHK424B+4~
POVS( GETPOVS+13*, DISPPOVS+7, DISPPOVS+8, CHK424B+17
PROB HELP424+3~, DISPPROB+3, DISPPROB+5, CHK424B+4~
PROB( GETPROB+15*, DISPPROB+7, DISPPROB+8, CHK424B+19
REC CNTFIX~, CNTFIX+3
RXI PREINIT+9~, PREINIT+12*, PREINIT+16, PREINIT+18, PREINIT+21, PREINIT+41, CLNDIAG+13*, UPDRX~, NOCLM+4~, NOCLM+9*
, HELP424+3~, HELP424+4*, HELP424+5, HELP424+6, HELP424+25, GETVMED~, GETVMED+3, GETVMED+6, GETPROB~, GETPROB+6
, CHK424B+4~, CHK424B+5*, CHK424B+6, CHK424B+7, CHK424B+15, ICD10DT+2~, ICD10DT+6*, ICD10DT+8, ICD10DT+10, ICD10DT+11
, ICD10DT+12
RXR PREINIT+9~, PREINIT+13*, PREINIT+18, PREINIT+22, PREINIT+41, CLNDIAG+14*, UPDRX~, NOCLM+4~, NOCLM+10*, ICD10DT+2~
, ICD10DT+7*, ICD10DT+10, ICD10DT+11, ICD10DT+12
RXVMED HELP424+3~, HELP424+6*, HELP424+7, GETVMED+1~, GETVMED+3*, GETVMED+4, CHK424B+4~, CHK424B+7*, CHK424B+8
STRING PREINIT+9~, PREINIT+23, PREINIT+28
STRING(1 PREINIT+21*, PREINIT+22*, PREINIT+27*
SUB CNTFIX~, CNTFIX+3
U DIAGCNT+9, DIAGCNT+13, HELP492+5, HELP424+4, HELP424+15, CHK424+6, CHK424+17, CHK424+20, CHK424+24, CHK424+27
, CHK424+35, CHK424+38, CHK492+6, CHK424B+5, ICD10DT+4, ICD10DT+6, ICD10DT+7, ICD10DT+10, ICD10DT+11, ICD10DT+14
, ICD10DT+15
VIS HELP424+3~, HELP424+7*, HELP424+22, GETPOVS~, GETPOVS+7, CHK424B+4~, CHK424B+8*, CHK424B+13
VMED PREINIT+43~
X HELP492+2~, HELP492+7*, HELP492+8, HELP424+3~, HELP424+17*, HELP424+18, GETPOVS~, GETPOVS+3*, GETPOVS+4, GETPROB~
, GETPROB+3*, GETPROB+4, CHK424+4~, CHK424+9*, CHK424+10, CHK492+2~, CHK492+7*, CHK492+8, CHK424B~, CHK424B+17
, CHK424B+19, ICD10DT~
Y CHK492+3*, CHK492+8*, CHK492+9*, ICD10DT+2~, ICD10DT+12*
ZERR CLNDIAG+21~, CLNDIAG+24

Marked Items

Name Field # of Occurrence
$T( CNTFILE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All