Routine: ABSPOSII

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

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

Customize PDF page

Package: Pharmacy Point of Sale

Routine: ABSPOSII

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items