Routine: ACHSDF

Information

ACHSDF ; IHS/ITSC/PMF - UNMET NEEDS DATA ENTRY (1/2) ; [ 03/24/2005 8:22 AM ]

Source Information

Source file <ACHSDF.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Contract Health Management Information System	3	($$DF,$$LOCK)^ACHS (NUMBER,SETCK)^ACHSDF1 ^ACHSDFDP
VA Fileman	3	^DIC ^DIE ^DIR

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Contract Health Management Information System	5	ACHS DEF ADD ACHS DEF DOCNTL ACHS DEF PO ACHS DEN INFO ACHSDF1

Entry Points

Name	Comments	DBIA/ICR reference
DEFCMT	; --- Comment.
DENIAL	;EP - CALLED FROM OPTION 'ACHS DEN INFO' Enter Denial Info
PAT	; --- Is Patient Registered.
DEFCAT	; --- Deferred Service Category.
PATNOT	; --- Patient not on file.
DEFPROC	; --- Deferred Service CPT.
REQ	; --- Date Request Received.
DEFSUB	; --- Deferred Service Subcategory
START	; --- Set Temporary Number.
DIEPWN()	;ITSC/SET/JVK ADD FOR ACHS3.112 IHS/OKCAO/POC PAWNEE BEN PKG
DEFDIAG	; --- Deferred Service Diagnosis.
USER	; --- Set variables to file.
DOCNTL1	;EP - CALLED FROM OPTION 'ACHS DEF DOCNTL' Enter Document Control Info
END	;
DIE(DR,Z)	;EP --- Edit Deferred Service
DEFDCT	; --- Document Control.
PO	;EP - CALLED FROM OPTION 'ACHS DEF PO' Enter Purchase Order Info
ISSDT	; --- Issue Date.
DEFPO	; --- Service Provided on PO.

External References

Name	Field # of Occurrence
$$DF^ACHS	PAT+4, PAT+13, PATNOT+4, REQ+3, DEFDIAG+1
$$LOCK^ACHS	DIE+11, DIE+13, DIEPWN+16, DIEPWN+20
NUMBER^ACHSDF1	END+3
SETCK^ACHSDF1	ACHSDF+4, DOCNTL1+1, DENIAL+1, PO+1
^ACHSDFDP	END+1
^DIC	START+6, DEFCAT+4, DEFSUB+4, DOCNTL1+5, DENIAL+5, PO+5, DIEPWN+3
^DIE	DIE+12
^DIR	DEFDCT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"A Patient Name Must Be Entered",!! Line Location: PAT+13
Function Call: WRITE	Prompt: !,*7,"A Patient Name Must Be Entered",!! Line Location: PATNOT+4
Function Call: WRITE	Prompt: !,*7,"A Date Received Request Must Be Entered" Line Location: REQ+3
Function Call: WRITE	Prompt: !! Line Location: DEFCAT+1
Function Call: WRITE	Prompt: *7,!!,"Must Have Deferred Services Category",! Line Location: DEFCAT+6
Function Call: WRITE	Prompt: *7,!!,"Must Have Unmet Need Category",! Line Location: DEFCAT+7
Function Call: WRITE	Prompt: !! Line Location: DEFSUB+1
Function Call: WRITE	Prompt: *7,!!,"Must Have Deferred Service Subcategory",! Line Location: DEFSUB+6
Function Call: WRITE	Prompt: *7,!!,"Must Have Unmet Need Subcategory",! Line Location: DEFSUB+7
Function Call: WRITE	Prompt: !,*7,"An ICD Diagnosis Code Must Be Entered",!! Line Location: DEFDIAG+5
Function Call: WRITE	Prompt: !,*7,"A CPT Procedure Code Must Be Entered",!! Line Location: DEFPROC+3
Function Call: WRITE	Prompt: !! Line Location: DEFDCT+1
Function Call: WRITE	Prompt: !! Line Location: DOCNTL1+3
Function Call: WRITE	Prompt: !! Line Location: DENIAL+3
Function Call: WRITE	Prompt: !! Line Location: PO+3
Function Call: WRITE	Prompt: ! Line Location: DIE+1
Function Call: WRITE	Prompt: !!,*7,"PBPP Eligibility Card Expired on ",Y Line Location: DIEPWN+8
Function Call: WRITE	Prompt: ! Line Location: DIEPWN+9
Routine Call	DIE Line Location: DIE+12
Routine Call	DIC Line Location: START+6 DEFCAT+4 DEFSUB+4 DOCNTL1+5 DENIAL+5 PO+5 DIEPWN+3
Routine Call	DIR Line Location: DEFDCT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHSDFC - [#9002066.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	START+1*, DEFDIAG+5, DEFPROC+3
^AUTTLOC - [#9999999.06]	PAT+9
^AZOPBPP(	DIEPWN+7
^DD("DD"	DIEPWN+7
^DPT - [#2]	DIEPWN+2

Label References

Name	Line Occurrences
$$DIE	START+11, PAT+2, PAT+10, PATNOT+2, USER+1, ISSDT+1, REQ+1, DEFCAT+9, DEFSUB+9, DEFSUB+10 , DEFDIAG+2, DEFPROC+1, DEFCMT+1, DEFDCT+6, DEFDCT+10, DEFPO+1, DOCNTL1+8, DENIAL+8, PO+8
$$DIEPWN	PAT+9
DEFCAT	REQ+4, DEFCAT+7, DEFSUB+11
DEFCMT	DEFDIAG+6, DEFPROC+4
DEFDCT	DEFCMT+3
DEFDIAG	DEFSUB+12, DEFDIAG+5
DEFPROC	DEFDIAG+1, DEFPROC+3
DEFSUB	DEFSUB+7
DIE	DIEPWN+18
END	START+7, START+11, START+14, DEFDCT+11
ISSDT	USER+3
PAT	START+12, PAT+13, PATNOT+3, PATNOT+4
PATNOT	PAT+4
REQ	ISSDT+3, REQ+3
USER	PAT+14, PATNOT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DIE+1, DIEPWN+9
>> ACHDALL	DIE+6, DIEPWN+15
>> ACHDCAT	DEFCAT+8*, DEFCAT+9, DEFSUB+3
>> ACHDSUB	DEFSUB+8*, DEFSUB+9
ACHDXIT	START+7, START+11, PAT+3, PAT+9, PAT+12, USER+2, ISSDT+2, REQ+2, DEFDIAG+3, DEFPROC+2* , DEFCMT+2, DEFDCT+6, DEFDCT+11, DEFPO+2, END+1, END+3, END+6!, DIE+12, DIEPWN+18
>> ACHDXQT	ACHSDF+5
ACHSA	START+8, DEFDIAG+5, DEFPROC+3, DOCNTL1+2~, DOCNTL1+7, DENIAL+2~, DENIAL+7, PO+2~, PO+7, DIE+4 , DIEPWN+12
>> AUPNLK("INAC"	DIE+5, DIEPWN+13
DA	DOCNTL1+2~, DENIAL+2~, PO+2~, DIE+4, DIEPWN+12
DA(1	START+3, DOCNTL1+4, DENIAL+4, PO+4, DIE+3, DIEPWN+11
DFN	DIEPWN+1~, DIEPWN+2, DIEPWN+5, DIEPWN+17
DIC	START+2, DEFCAT+3, DEFSUB+3, DOCNTL1+2~, DOCNTL1+4, DENIAL+2~, DENIAL+4, PO+2~, PO+4, DIEPWN+2* , DIEPWN+3!
DIC("A"	DEFCAT+3, DEFSUB+3
DIC("B"	DIEPWN+2*
DIC(0	START+4, DEFCAT+3, DEFSUB+3, DOCNTL1+4, DENIAL+4, PO+4, DIEPWN+2*
DIE	DOCNTL1+2~, DENIAL+2~, PO+2~, DIE+2, DIEPWN+10
DIR	DEFDCT+2!
DIR("?"	DEFDCT+4*
DIR("A"	DEFDCT+3*
DIR("B"	DEFDCT+3*
DIR(0	DEFDCT+3*
DQ	PAT+1!, PATNOT+1!
DR	DIE~, DIEPWN+18*
DT	START+11, ISSDT+1, DIEPWN+8
>> DTOUT	DIEPWN+4
>> DUOUT	END+3, DIE+11, DIE+13, DIEPWN+4, DIEPWN+16, DIEPWN+20
DUZ	START+11, USER+1
DUZ(2	START+1, START+2, START+3, PAT+9, DEFDIAG+5, DEFPROC+3, DOCNTL1+4, DENIAL+4, PO+4, DIE+2 , DIE+3, DIEPWN+10, DIEPWN+11, DIEPWN+14, DIEPWN+19
DUZSAVE	DIEPWN+1~, DIEPWN+14*, DIEPWN+19
PBEXDT	DIEPWN+1~, DIEPWN+7*, DIEPWN+8
>> Q	PAT+9
U	START+13, PAT+9, DEFCAT+5, DEFSUB+5, DIEPWN+2, DIEPWN+7
>> X	START+5*, START+13, DEFCAT+5, DEFSUB+5
>> Y	START+7, START+8, PAT+3, PAT+12, PATNOT+3, USER+2, ISSDT+2, REQ+2, DEFCAT+7, DEFCAT+8 , DEFSUB+7, DEFSUB+8, DEFSUB+11, DEFDIAG+3, DEFPROC+2, DEFCMT+2, DEFDCT+6, DEFDCT+11, DEFPO+2, DOCNTL1+6 , DOCNTL1+7, DENIAL+6, DENIAL+7, PO+6, PO+7, DIE+12, DIEPWN+4, DIEPWN+5, DIEPWN+7*, DIEPWN+8 , DIEPWN+18
Z	DIE~, DIE+1

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDF

Call Graph Total: 6

Caller Graph Total: 5