Routine: IB20PT81

Package	Total	Call Graph
Registration	5	RET^DGBLRV EN^DGPMUTL ($$FIRST,ENDREP,LO)^DGUTL (CLOSE,ZIS)^DGUTQ PID^VADPT6
VA Fileman	4	^DIC YN^DICN EN1^DIP (D,DT)^DIQ
Integrated Billing	1	ALL^IBCNS1

Entry Points

Name	Comments	DBIA/ICR reference
CK	;check logic to see if 3rd party review is asked
212
IO
211
RET
61
82
EN1
81
21
DGBLRV	;ALB/BOK - PATIENT ADMISSION FORM/BILL REVIEW ; 18 SEP 86 11:00
PRT
ASK	;print TPR?
201
202
SCHAD
Q
START
CKLN
72
71
QUIT
ADDR
32
31
51
INS	; -- new insurance logic
73

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No admissions on file, will check scheduled admissions",! Line Location: START+0
Function Call: WRITE	Prompt: !,"Since an admission was not chosen, scheduled admissions for this patient will be checked",! Line Location: START+1
Function Call: WRITE	Prompt: !,"No scheduled admissions on file" Line Location: SCHAD+0
Function Call: WRITE	Prompt: !!,"This report requires 132 column output",! Line Location: IO+0
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: $E($P(J,"{}",K),$S(K=1:1,X1']"":1,1:$L(X)+1),999) S X1=$P(J,"{",K+1),P=$S(DGLN<9:1,DGLN<14:2,1:3) Q:X1']"" Line Location: PRT+1
Function Call: WRITE	Prompt: $S($D(^DIC(42,X,0)):$P(^(0),U,1),1:"") Line Location: 202+0
Function Call: WRITE	Prompt: !!,"CHOOSE FROM",!?4,"YES - If you wish to print Third Party Review Sheet",!?4,"NO - If you don't want to print Third Party Review Sheet",! Line Location: ASK+3
Routine Call	DIC Line Location: START PRT

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	IO
^DGPM - [#405]	RET+1, INS+2
^DGPM("ATID1"	START
^DGS(41.1 - [#41.1]	SCHAD, RET+2
^DIC(36 - [#36]	ADDR, 51, 71, 81, 82
^DIC(42 - [#42]	202
^DIC(47 - [#47]	PRT+1
^DIC(5 - [#5]	ADDR+2
^DPT - [#2]	RET, CK+2
^UTILITY($J	DGBLRV+3!

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2, ASK+3
BY	EN1*, EN1+2!
DFN	START*, SCHAD, RET, RET+2, INS+3, QUIT!, CK+2
DGADT	RET!, RET+1*, QUIT+1!, 212
DGADX	RET!, RET+1*, QUIT+1!, 201
>> DGDEF	ASK+1
DGI	RET+1, RET+2, INS+6, QUIT+1!
DGIBDT	INS+1~, INS+2*, INS+3
DGIBINS	INS+1~
DGIBINS(	INS+5, INS+6
DGIBINS(0	INS+5
DGIMULT	QUIT+1!, ADDR*, ADDR+1, ADDR+2
DGINAD	RET!, INS+6!, QUIT+1!, ADDR+1, ADDR+2
DGINFO	RET*, QUIT+1!, 31
DGINS	INS+6*, QUIT+1!, ADDR
DGLN	PRT+1*, QUIT+1!, CKLN
>> DGNOQ	ASK+4
>> DGOPT	Q
DGPGM	IO, QUIT+1!, ASK+5, ASK+6!
>> DGPMA	QUIT
DGPMDA	START+2, SCHAD+1, RET*, RET+1, INS+2, QUIT!, ASK+5
DGPTPR	ASK+5!
DGSDT	RET!, RET+2*, INS+2, QUIT+1!, 211
DGSDX	RET!, RET+2*, QUIT+1!, 201
DGVAR	IO, QUIT+1!, ASK+5, ASK+6!
DGWD	RET+1, RET+2, QUIT+1!, 202
DGY	PRT*, PRT+1, QUIT+1!
DHD	EN1*, EN1+2!
DIC	START, START+1!, PRT!, QUIT+1!, EN1*, EN1+2!
DIC("S"	START+1*
DIC(0	START, PRT
DIS	EN1+2!, ASK+5!
DIS(0	IO!, PRT, Q, EN1+1*
DT	INS+2, INS+6, 21
FLDS	EN1*, EN1+2!
I	RET!, INS+5*, INS+6, QUIT+1!, EN1+2!
I(	INS+6*, 51, 61, 71, 72, 73, 81, 82
IO	IO, ASK+5
J	PRT+1*, QUIT+1!
K	PRT+1*, QUIT+1!, CKLN, 71
L	QUIT+1!, CKLN, EN1
P	INS+4, INS+6, PRT+1*, QUIT+1!, 51, 61, 71, 72, 73, 81 , 82
POP	IO, QUIT+1!, ASK+5
U	RET+2, INS+6, ADDR+1, ADDR+2, 31, 51, 61, 72, 73, 202
VA	QUIT+1!
VA("PID"	32
X	IO, PRT, PRT+1, QUIT+1!, 202*
X1	PRT+1*, QUIT+1!
Y	START, START+1, START+2, RET+1, RET+2, PRT, QUIT+1!, 21*