Routine: FBCH78

Package	Total	Call Graph
VA FileMan	8	^%DT NOW^%DTC (,IX)^DIC FILE^DICN ^DIE ^DIK ($$GET1,EN)^DIQ ^DIR
Fee Basis	6	($$DATX,SITEP)^FBAAUTL (,$$DISCH,NULL,NULL1,PTF)^FBCH780 NOUP^FBCHCD ASKV^FBCHREQ $$IMPDATE^FBCSV1 $$ADDUA^FBUTL9
Kernel	3	HOME^%ZIS ($$F2H,$$FMDIFF,$$H2F)^XLFDT ($$GETRLNPI,$$NPI)^XUSNPI
IFCAP	2	EN1^PRCS58 EN1^PRCSUT31

Package	Total	Caller Graph
Fee Basis	11	FBAA79 FBAADEM1 FBCH 7078 SETUP FBCH DISPLAY 7078 FBCH780 FBCHCD FBCHP78 FBCHREQ FBCNH DISPLAY 7078 FBCTAU1 ^FB7078
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
EN	;DEM;139 ICD=10 Project - Replaced original line with next two to add condition FBFRDT<$$IMPDATE^FBCSV1("10D")
FBPDIS
ASKPT
7078
SET78
AUTH
FBDCHG
FBPUR
FBPSA
SHOW
END
PROB
NOGOOD
OUTP	;ENTRY TO DISPLAY A 7078
REFNPI(IEN200,IEN162P4,CHKAUTH)	;FB3.5103 ; a new function that returns the REFERRING PROVIDER NPI if it is Active and the provider has authorized use of the NPI ; If is used in both a Fileman function and in other FB routines.	ICR #5328 Status: Retired Usage: Controlled Subscription
NBCHK	;Newborn Enhancement check FB3.5146
DTCHK1	;
DEL
CN7078(FBDA)	; VA FORM 10-7078 Contract ; input FBDA = ien of entry in file 162.4 ; returns contract ien^contract number for the 7078 or null

External References

Name	Field # of Occurrence
^%DT	EN+6, EN+7, EN+9
NOW^%DTC	NBCHK+4
HOME^%ZIS	AUTH
^DIC	7078+1
IX^DIC	OUTP+2
FILE^DICN	AUTH+8, FBPSA+2
^DIE	7078+2, SET78, FBPSA+13, FBPSA+14, DEL
^DIK	DEL
$$GET1^DIQ	REFNPI+17
EN^DIQ	SHOW, OUTP+4, OUTP+5
^DIR	EN+12, EN+14, FBPDIS, ASKPT, AUTH+21, FBDCHG, FBPUR, FBPSA, NOGOOD
$$DATX^FBAAUTL	EN+6, EN+9
SITEP^FBAAUTL	AUTH+1
^FBCH780	SET78+1
$$DISCH^FBCH780	OUTP+7
NULL^FBCH780	FBPDIS
NULL1^FBCH780	FBDCHG, FBPSA
PTF^FBCH780	SET78+8
NOUP^FBCHCD	ASKPT
ASKV^FBCHREQ	FBCH78+3
$$IMPDATE^FBCSV1	EN+2
$$ADDUA^FBUTL9	SET78+6
EN1^PRCS58	7078
EN1^PRCSUT31	7078
$$F2H^XLFDT	NBCHK+6, NBCHK+7
$$FMDIFF^XLFDT	NBCHK+5
$$H2F^XLFDT	NBCHK+6, NBCHK+7
$$GETRLNPI^XUSNPI	REFNPI+22
$$NPI^XUSNPI	REFNPI+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"There already is a 7078 set up for this request.",!,"The number is ",$P(^FB7078($P(^FBAA(162.2,FBDA,0),"^",17),0),"^")," .",! Line Location: FBCH78+4
Function Call: WRITE	Prompt: !! Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: EN+7
Function Call: WRITE	Prompt: !!,*7,?5,"Authorization To Date must be after Authorization From Date!",! Line Location: EN+8
Function Call: WRITE	Prompt: !! Line Location: EN+9
Function Call: WRITE	Prompt: !!,*7,?5,"Date of Discharge must not be earlier than the Authorization To Date!",! Line Location: EN+10
Function Call: WRITE	Prompt: !!,*7,?5,"Date of Discharge must not be earlier than the Date of Birth!",! Line Location: EN+11
Function Call: WRITE	Prompt: !!,*7,"...deleting 7078." Line Location: SET78+1
Function Call: WRITE	Prompt: !!,*7,Y,!,"...deleting 7078. Use 'Set-up a 7078' after adjusting 1358.",! Line Location: SET78+2
Function Call: WRITE	Prompt: !,"Error adding record in User Audit. Please contact IRM." Line Location: SET78+7
Function Call: WRITE	Prompt: !,"ERROR: Unable to create entry in FEE BASIS PATIENT file." Line Location: AUTH+10
Function Call: WRITE	Prompt: !! Line Location: SHOW+0
Function Call: WRITE	Prompt: ?2,"CONTRACT: ",$P(X,U,2) Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"The reference number did not get set up with the",!,"IFCAP software. Contact your package coordinator." Line Location: PROB+0
Function Call: WRITE	Prompt: !! Line Location: OUTP+4
Function Call: WRITE	Prompt: ?2,"CONTRACT: ",$P(X,U,2),! Line Location: OUTP+6
Function Call: WRITE	Prompt: ?2,"DISCHARGE TYPE: ",$$DISCH^FBCH780(FBDA),! Line Location: OUTP+7
Function Call: WRITE	Prompt: !!,*7,?5,"Patient is a newborn. Authorization To Date must not be more than 7 days after the Date of Birth",! Line Location: DTCHK1+2
Function Call: WRITE	Prompt: !!,*7,?5,"Patient is a newborn. Authorization To Date must not be before the Date of Birth",! Line Location: DTCHK1+3
Routine Call	DIC Line Location: 7078+1
Routine Call	DIC Line Location: OUTP+2
Routine Call	DIE Line Location: 7078+2 SET78 FBPSA+13 FBPSA+14 DEL
Routine Call	DIR Line Location: EN+12 EN+14 FBPDIS ASKPT AUTH+21 FBDCHG FBPUR FBPSA NOGOOD
Routine Call	%ZIS Line Location: AUTH

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAAA - [#161]	Classic Fileman Calls
^FBAA(162.2 - [#162.2]	Classic Fileman Calls
^FB7078 - [#162.4]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	AUTH+1
^DPT - [#2]	NBCHK+3
^FB7078 - [#162.4]	FBCH78+4, CN7078+6
^FBAA(161.43 - [#161.43]	CN7078+12
^FBAA(162.2 - [#162.2]	FBCH78+4, EN+1, EN+2, EN+4, DEL
^FBAAA - [#161]	AUTH+3, AUTH+6, AUTH+9, CN7078+10
^FBAAA("AG"	CN7078+8

Label References

Name	Line Occurrences
$$CN7078	SHOW+1, OUTP+6
7078	NOGOOD
ASKPT	ASKPT
DEL	SET78+1, SET78+2
DTCHK1	EN+6
EN	EN+6, EN+8, EN+10, EN+11
END	FBCH78+3, FBCH78+4, EN+6, EN+7, EN+9, EN+13, EN+15, FBPDIS, SET78+1, SET78+2 , AUTH+3, AUTH+13, FBDCHG, FBPUR+1, FBPSA, FBPSA+2, PROB, NOGOOD, OUTP+3
FBDCHG	FBDCHG
FBPSA	FBPSA
NBCHK	EN+5
NOGOOD	7078
OUTP	OUTP+8
PROB	7078+1
SHOW	SET78+9

Naked Globals

Name	Field # of Occurrence
^(0	EN+1, AUTH+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+6!, EN+7!, EN+9*!
%DT("A"	EN+6, EN+7, EN+9*
%DT("B"	EN+6, EN+9
A	END+1!
CHKAUTH	REFNPI~, REFNPI+22
D	END!, OUTP+2*
D0	END+1!
D1	END+1!
DA	EN+4!, 7078+1, 7078+2!, SET78!, SET78+3!, FBPSA+2, FBPSA+14!, SHOW, END!, OUTP+4* , OUTP+5, DEL
DA(1	FBPSA+2*
DD	AUTH+7!, FBPSA+2!
DE	AUTH+11!
DFN	SET78+8, END!, CN7078+3~, CN7078+6, CN7078+7, CN7078+8, CN7078+10
DIC	7078+1, 7078+2!, SET78!, SET78+3!, AUTH+7, FBPSA+2, FBPSA+5, FBPSA+14, SHOW, END! , OUTP+2
DIC("A"	OUTP+2*
DIC("S"	FBCH78+3*
DIC(0	7078+1, AUTH+7, FBPSA+2, OUTP+2
DIE	7078+2!, SET78!, SET78+3!, AUTH+11!, FBPSA+5, FBPSA+13!, FBPSA+14!, END!, DEL*
DIE("NO^"	FBPSA+2*
DIK	DEL*!
>> DILOCKTM	AUTH+6
DINUM	AUTH+4~, AUTH+7*
>> DIQ(0	OUTP+4*!
DIR	EN+12!, EN+14!, FBPDIS!, ASKPT!, AUTH+15~, FBDCHG!, FBPUR!, FBPSA!, END!, NOGOOD!
DIR("?"	ASKPT, AUTH+18, AUTH+19*
DIR("A"	EN+12, ASKPT, AUTH+17, NOGOOD
DIR("B"	NOGOOD*
DIR("S"	AUTH+20*
DIR(0	EN+12, EN+14, FBPDIS, ASKPT, AUTH+16, FBDCHG, FBPUR, FBPSA, NOGOOD*
DIRUT	EN+13, EN+15, ASKPT, END+1!, NOGOOD
DLAYGO	7078+1, AUTH+7, AUTH+11!, FBPSA+2*, END!
DO	AUTH+7!, FBPSA+2!
DOB	NBCHK+1~, NBCHK+3*, NBCHK+5, NBCHK+6, NBCHK+7
>> DOB7	EN+6*
DQ	AUTH+11!
DR	7078+2!, SET78!, AUTH+11!, FBPSA+5, FBPSA+6, FBPSA+7, FBPSA+13!, FBPSA+14!, SHOW, END! , OUTP+4, OUTP+5, DEL
DR(1	FBPSA+9, FBPSA+10, FBPSA+11*
>> DTFG	EN+6, DTCHK1+1, DTCHK1+2, DTCHK1+3*
DTOUT	FBPDIS, AUTH+13, AUTH+21, FBDCHG, FBPUR+1, FBPSA, END+1!
DUOUT	FBPDIS, AUTH+13, AUTH+21, FBDCHG, FBPUR+1, FBPSA, END+1!
FB	END!
FB7078	7078*, 7078+1, END!
FB78	FBPSA+3*, END!
FBAA78	7078+1*, SET78, SET78+6, FBPSA+3, FBPSA+14, SHOW, SHOW+1, END!, DEL
FBADMIT	EN+13*, END+1!
FBAU	CN7078+3~, CN7078+8*, CN7078+9, CN7078+10
FBCHOB	7078*, END!
FBCNTRA	AUTH+14, AUTH+22, FBPSA+11, END+1!, CN7078+3~, CN7078+10*, CN7078+11, CN7078+12
FBCOMM	END!
FBDA	FBCH78+3, FBCH78+4, EN+1, EN+2, EN+4, 7078+2, END!, OUTP+4*, OUTP+5, OUTP+6 , OUTP+7, CN7078~, CN7078+5, CN7078+6, CN7078+8
FBDCHG	FBDCHG*, END+1!
FBDFN	END!, NBCHK+3
FBDOA	EN+1*, END+1!
FBDOB	EN+11, END+1!, NBCHK+2, NBCHK+6, DTCHK1+3
FBDOB7	EN+6, END+1!, NBCHK+2, NBCHK+7, DTCHK1+2
FBDOD	EN+9*, EN+10, EN+11, END+1!
FBDXS	EN+2*, END+1!
FBEST	EN+15*, END!
FBFLG	END!
FBFRDT	EN+1*, EN+2, EN+8, FBPSA+2, END!
FBI	END!
FBLENT	END!
FBMENT	END!
FBNAME	END!
FBOUT	SET78+1, END!
FBPDIS	FBPDIS*, END+1!
FBPOP	AUTH+1, END+1!
FBPSA	AUTH+1, FBPSA, END!
FBPT	ASKPT*, END!
FBPUR	FBPUR*, END+1!
FBRET	CN7078+3~, CN7078+4, CN7078+12, CN7078+13
FBRP	EN+4*, FBPSA+6, END+1!
FBSEQ	7078*, END!
FBSITE	END!
FBSITE(1	AUTH+1
FBSSN	END!
FBSW	END!
FBTODT	EN+6, EN+7, EN+8, EN+9, EN+10, FBPDIS, ASKPT, SET78+9, END!, DTCHK1+2 , DTCHK1+3
FBTYPE	FBPUR*, END!
FBVEN	EN+1, AUTH+2, END!
FBVET	EN+1*, SET78+8, AUTH+3, AUTH+6, AUTH+7, AUTH+9, FBPSA+2, END!
FBX	SET78+5~, SET78+6*, SET78+7
FBZ	END!
FBZZ	END+1!
I	END!
IEN162P4	REFNPI~, REFNPI+13, REFNPI+17
IEN200	REFNPI~, REFNPI+13, REFNPI+17*, REFNPI+22, REFNPI+25
J	END!
K	END!
>> NEWB	EN+6, EN+7, EN+10, NBCHK+2, NBCHK+7
NOW	NBCHK+1~, NBCHK+4*, NBCHK+5
NPI	REFNPI+25~*, REFNPI+28, REFNPI+29
POP	END!
PRC	END!
PRCS	END+1!
PRCS("A"	7078*!
PRCS("TYPE"	7078*
PRCSCPAN	END+1!
S	END!
U	SHOW+1, OUTP+6, REFNPI+28, CN7078+6, CN7078+10, CN7078+12
VAL	END!
X	FBCH78+3, EN+6, EN+7, EN+9, FBPDIS, 7078, 7078+1, AUTH+7, FBDCHG, FBPSA , FBPSA+2, FBPSA+14!, SHOW+1, END!, OUTP+3, OUTP+6, NBCHK+4
X1	END+1!
Y	EN+6, EN+7, EN+9, EN+13, EN+15, FBPDIS, ASKPT, 7078, 7078+1, SET78+2 , AUTH+3, AUTH+5*, AUTH+10, AUTH+22, FBDCHG, FBPUR, FBPSA, FBPSA+2, END!, NOGOOD , OUTP+4
ZZ	END!
ZZZ	END+1!

Customize PDF page

Package: Fee Basis

Routine: FBCH78

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: