Routine: ACHSA5

Information

ACHSA5 ; IHS/ITSC/TPF/PMF - ENTER DOCUMENTS (6/8)-(SCC,DCR,DEST,REF,COM,DAYS) ;JUL 10, 2008

Source Information

Source file <ACHSA5.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Contract Health Management Information System	8	($$PARM,RTRN)^ACHS END^ACHSA (A1,ACHK)^ACHSA4 ^ACHSA6 NOBLK^ACHSAB ($$PRMT,DIRD,READ)^ACHSFU ^ACHSLDCR $$FY^ACHSVAR
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	$$DIR^XBDIR

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSA4 ACHSA44 ACHSA6

Entry Points

Name	Comments	DBIA/ICR reference
OBJCHK	;EP - Check if object class inactivated.
B12	; Check blanket parm., input Dental Referral Type.
B10	;
B11	;
DATA	;; SCC^OCC
SSNCHK	; Check for SSN.
B3A	;
418	; Ask user to ID x-walk for Tribal Ops, Contracts, or Indirect
C2	;
B10A	;
E1	;
C1	;EP - Input optional comment.
BLKERR	; Blanket not allowed.
STO(S)	; Given an SCC, return the OCC.
B8	;
DISPMPC	;EP - From call to DIR, display medical priorities
B4	;
B5	;
B6	;
B1	;EP - Input Service Class Code.
B2	;
B3	;
D2	;
B9	;
D1	; Input estimated LOS.

External References

Name	Field # of Occurrence
$$PARM^ACHS	B10A+3, B12+1, C1+1, BLKERR+1
RTRN^ACHS	BLKERR+2
END^ACHSA	B1+8, B4+4, B11+6, C1+6, D1+5, D2+2
A1^ACHSA4	B1+11, B4+1, B9+9
ACHK^ACHSA4	B4+5, B4+6, B11+7
^ACHSA6	E1+1
NOBLK^ACHSAB	B6+2
$$PRMT^ACHSFU	C1+3
DIRD^ACHSFU	D1+4
READ^ACHSFU	B1+4, B4+3, C1+5, DISPMPC+4
^ACHSLDCR	B9+6
$$FY^ACHSVAR	STO+3
^DIC	418+5
^DIR	B11+4, B12+7, D1+4
$$DIR^XBDIR	B3A+6, D2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Service Class Code: " Line Location: B1+1
Function Call: WRITE	Prompt: $P($G(^ACHS(3,DUZ(2),1,ACHSSCC,0)),U),"// " Line Location: B1+2
Function Call: WRITE	Prompt: !!?3,"ITEM #",?12,"SER CL",?20,"DESCRIPTION",!?3,"------",?12,"------",?20,"-----------",! Line Location: B1+13
Function Call: WRITE	Prompt: !?5,$J(ACHSCT,3) Line Location: B3A+2
Function Call: WRITE	Prompt: ?12,$P($G(^ACHS(3,DUZ(2),1,R,0),"UNDEFINED"),U) Line Location: B3A+3
Function Call: WRITE	Prompt: ?20,$P($G(^ACHS(3,DUZ(2),1,R,0),"UNDEFINED"),U,2) Line Location: B3A+4
Function Call: WRITE	Prompt: *7,!,"No SERVICE CLASS CODES for CAN.",!!,"Notify Site Manager.",! Line Location: B4+1
Function Call: WRITE	Prompt: !!?20,"SELECT ITEM (1-",ACHSCT,") " Line Location: B4+2
Function Call: WRITE	Prompt: " ",Y Line Location: B4+9
Function Call: WRITE	Prompt: *7," Required" Line Location: B5+5
Function Call: WRITE	Prompt: !!,*7," ONLY 252D or 254E FOR DENTAL." Line Location: B6+4
Function Call: WRITE	Prompt: !!,*7," ONLY 252G, 252M, 252F OR 252R FOR HOSPITAL CARE" Line Location: B6+5
Function Call: WRITE	Prompt: *7,"INVALID INPATIENT SERVICE CLASS." Line Location: B6+6
Function Call: WRITE	Prompt: *7," ??" Line Location: B8+4
Function Call: WRITE	Prompt: " ",*7,"INVALID SERVICE CLASS" Line Location: B9+3
Function Call: WRITE	Prompt: *7,!!,"Unspecified DCR For CAN/SERVICE CLASS CODE pair" Line Location: B9+9
Function Call: WRITE	Prompt: !!,"DCR ACCOUNT = ",$P($G(^ACHS(9,DUZ(2),"RN")),U,ACHSDCR) Line Location: B10+1
Function Call: WRITE	Prompt: !,"WARNING - NO EQUIVALENT OBJECT CLASS CODE.",!,"USING SERVICE CLASS CODE." Line Location: B10+4
Function Call: WRITE	Prompt: !,"WARNING - NO EQUIVALENT OBJECT CLASS CODE.",!,"USING SERVICE CLASS CODE." Line Location: B10+5
Function Call: WRITE	Prompt: !,"This is an invalid Service class code - NO EQUIVALENT OBJECT CLASS CODE." Line Location: B10+7
Function Call: WRITE	Prompt: !,"WARNING - NO EQUIVALENT SERVICE CLASS CODE.",!,"USING OBJECT CLASS CODE." Line Location: B10+8
Function Call: WRITE	Prompt: !,"OBJECT CLASS CODE = ",$E(ACHSOBJC,1,2),".",$E(ACHSOBJC,3,4) Line Location: B10+9
Function Call: WRITE	Prompt: "INVALID OBJECT CLASS CODE" Line Location: B10+13
Function Call: WRITE	Prompt: " : ",$P($G(^ACHSOCC(ACHSOBJC,0)),U,2) Line Location: B10+14
Function Call: WRITE	Prompt: ! Line Location: B11+1
Function Call: WRITE	Prompt: *7,!,"SITE PARAMETER PREVENTS ISSUE OF BLANKET FOR FI DOCUMENT." Line Location: B12+1
Function Call: WRITE	Prompt: ! Line Location: B12+4
Function Call: WRITE	Prompt: !!,"Optional comments: ",ACHSCOPT Line Location: C1+2
Function Call: WRITE	Prompt: !,$$PRMT^ACHSFU(17,ACHSCOPT,10),!,"Optional Comments: " Line Location: C1+3
Function Call: WRITE	Prompt: !," Enter a Comment (10 chars max) If You Wish",!," Enter An '@' To Delete Current Comment" Line Location: C1+8
Function Call: WRITE	Prompt: *7," Too Long" Line Location: C1+11
Function Call: WRITE	Prompt: *7 Line Location: D1+10
Function Call: WRITE	Prompt: !!,*7,"Blankets only valid for IHS Payment Documents",!,"Transaction Cancelled",!!,"'",$P($G(^DD(9002080,14.03,0)),U),"' parameter = '",$$PARM^ACHS(2,3),"'.",!! Line Location: BLKERR+1
Function Call: WRITE	Prompt: !,*7,?12,$P($G(^ACHS(3,DUZ(2),1,R,0)),U)," INVALID INACTIVATION DATE" Line Location: OBJCHK+7
Function Call: WRITE	Prompt: !! Line Location: DISPMPC+1
Function Call: WRITE	Prompt: !,"Press RETURN..." Line Location: DISPMPC+4
Routine Call	DIC Line Location: 418+5
Routine Call	DIR Line Location: B11+4 B12+7 D1+4

FileNo	Call Tags
^ACHSOCC - [#9002078.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(3 - [#9002063]	B1+2, B1+5, B2+2, B2+4, B3A+3, B3A+4, B4+8, B5+3, B5+4, B8+3 , B10+2, B10+8, B10+12, B10A+1, OBJCHK+2, OBJCHK+6, OBJCHK+7
^ACHS(9 - [#9002069]	B10+1
^ACHSOCC - [#9002078.5]	B10+14
^ACHSOCC("B"	B10+11
^DD(9002080	BLKERR+1
^DD(9002080.01	DISPMPC+2, DISPMPC+3, DISPMPC+4
^DPT - [#2]	SSNCHK+1

Label References

Name	Line Occurrences
$$STO	B6+1, B10+2
418	STO+6
B1	B5+5, B5+6, B6+2, B6+4, B6+5, B6+6, B8+5, B9+3, B9+8, B10+7 , B10+13
B10	B12+1, C1+7
B10A	B10+12
B11	B12+8
B12	B12+8
B2	B2+11, B2+28, B3+2, B3A+7
B3	B2+16, B2+17, B2+24, B2+25
B4	B2+3, B3A+6, B4+7
B5	B1+11
B6	B5+3
B8	B6+4, B6+5
B9	B8+1, B8+3
BLKERR	B10A+3, C1+1
C1	B12+3, C1+8, C1+12, D1+6
C2	C1+2, C1+9, C1+10
D1	D2+3
E1	C2+1, D1+9
OBJCHK	B3+1, B9+2
SSNCHK	B11+9

Name	Field # of Occurrence
^(0	B10+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DISPMPC+1, DISPMPC+2, DISPMPC+3, DISPMPC+4, STO+9*
>> ACHS	B2+4*, B2+11, B2+16, B2+24, B2+28
>> ACHS(	B3A+1*, B4+8
>> ACHSACFY	OBJCHK+6, STO+2
>> ACHSBLKF	B2+11, B6+2, B10A+3, B12+1, C1+1
>> ACHSCAN	B1+2, B1+3
>> ACHSCC	B2+2
>> ACHSCOPT	C1+2, C1+3, C1+4, C1+10
>> ACHSCT	B1+12, B3A+1, B3A+2, B3A+6, B4+1, B4+2, B4+7
>> ACHSDCR	B5+2*, B9+8, B9+9, B10+1
>> ACHSDEST	B10A+1, B10A+2, B10A+3, B11+3, B11+8*, B11+9, B12+1, B12+3, C1+1
>> ACHSEDOS	STO+3
>> ACHSESDA	D1+1, D1+3, D1+7, D2+1
>> ACHSF638	B2+16, B2+17, B2+24, B2+25, B6+4, B6+5, B10+7
ACHSOBIF	B9+4!, OBJCHK+2*, OBJCHK+3
>> ACHSOBJC	B6+1, B10+2, B10+7, B10+8, B10+9, B10+11, B10+12*, B10+13, B10+14
ACHSOBOK	B3+2, B9+3, B9+4!, OBJCHK+1!, OBJCHK+3, OBJCHK+9
>> ACHSQUIT	B1+8, B4+4, C1+6, DISPMPC+2
>> ACHSREFT	B12+2, B12+6, B12+9
>> ACHSSAME	B1+2, B1+3*
>> ACHSSCC	B1+2, B1+5, B1+6, B4+1, B4+8, B5+3, B8+1, B8+3, B9+1, B9+9* , B10+2, B10+8, B10A+1
>> ACHSSLOC	C1+2
>> ACHSTYP	B2+16, B2+17, B2+24, B2+25, B2+28, B6+4, B6+5, B6+6, B12+3, C2+1
>> DFN	SSNCHK+1
DIC	418+1~, 418+2*
DIC("S"	418+2, 418+3
DIC(0	418+2*
DIR	B11+5!, B12+10!, D1+8!
DIR("??"	B12+5*
DIR("B"	B11+3, B12+6, D1+3*
DIR(0	B11+2, B12+5, D1+2*
>> DIRUT	B12+8, D2+2
>> DTOUT	B11+6, B12+8, D1+5
>> DUOUT	B1+11, B4+5, B11+7, B12+8, C1+7, D1+6, D2+3
DUZ(2	B1+2, B1+5, B2+2, B2+4, B3A+3, B3A+4, B4+8, B5+3, B5+4, B8+3 , B10+1, B10+2, B10+8, B10+12, B10A+1, OBJCHK+2, OBJCHK+6, OBJCHK+7
O	STO+7~, STO+8, STO+9, STO+10
>> R	B1+12, B2+2, B2+3, B2+4, B3A+1, B3A+3, B3A+4, B9+1*, OBJCHK+2, OBJCHK+6 , OBJCHK+7
S	STO~, STO+1, STO+2, STO+3, STO+6, STO+9, 418+3, 418+4!
T	STO+7~, STO+9*
U	B1+2, B1+5, B2+4, B3A+3, B3A+4, B4+8, B5+3, B8+3, B10+1, B10+2 , B10+8, B10+14, B10A+1, BLKERR+1, SSNCHK+1, OBJCHK+2, OBJCHK+6, OBJCHK+7, STO+3, STO+9 , 418+6
>> X	B8+3, D1+4, OBJCHK+6, OBJCHK+8
>> Y	B1+5, B1+11, B4+6, B4+7, B4+8, B4+9, B5+1, B5+2, B5+3, B5+4* , B5+5, B5+6, B6+1, B6+2, B6+4, B6+5, B6+6, B8+3, B11+8, B12+9 , C1+8, C1+9, C1+10, D1+7, D1+9, D2+1, D2+3, OBJCHK+6, OBJCHK+7, 418+6
>> Y(0	418+6

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSA5

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items