Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IB20PT81

Package: Integrated Billing

Routine: IB20PT81


Information

IB20PT81 ;ALB/CPM - EXPORT ROUTINE 'DGBLRV' ; 24-FEB-94

Source Information

Source file <IB20PT81.m>

Call Graph

Call Graph

Call Graph Total: 10

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

External References

Name Field # of Occurrence
RET^DGBLRV ASK+5
EN^DGPMUTL START+1
$$FIRST^DGUTL PRT
ENDREP^DGUTL QUIT
LO^DGUTL DGBLRV+3
CLOSE^DGUTQ Q
ZIS^DGUTQ IOASK+5
^DIC STARTPRT
YN^DICN ASK+1
EN1^DIP EN1+2
D^DIQ RET+1, RET+2
DT^DIQ 21
ALL^IBCNS1 INS+3
PID^VADPT6 RET

Interaction Calls

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: $P(DGINFO,U,1)
  • Line Location: 31+0
Function Call: WRITE
  • Prompt: VA("PID")
  • Line Location: 32+0
Function Call: WRITE
  • Prompt: $S($D(I(P)):$P(I(P),U,5),1:"")
  • Line Location: 61+0
Function Call: WRITE
  • Prompt: $S($D(I(P)):$P(I(P),U,2),1:"")
  • Line Location: 72+0
Function Call: WRITE
  • Prompt: $S($D(I(P)):$P(I(P),U,3),1:"")
  • Line Location: 73+0
Function Call: WRITE
  • Prompt: $S($D(DGADX):DGADX,$D(DGSDX):DGSDX,1:"")
  • Line Location: 201+0
Function Call: WRITE
  • Prompt: $S($D(^DIC(42,X,0)):$P(^(0),U,1),1:"")
  • Line Location: 202+0
Function Call: WRITE
  • Prompt: $S($D(DGSDT):DGSDT,1:"")
  • Line Location: 211+0
Function Call: WRITE
  • Prompt: $S($D(DGADT):DGADT,1:"")
  • Line Location: 212+0
Function Call: WRITE
  • Prompt: !,"PRINT THIRD PARTY REVIEW"
  • Line Location: ASK+1
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGPM - [#405] Classic Fileman Calls
^DIC(47 - [#47] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( CKLN
ADDR INS+6
ASK ASK+3
CKLN PRT+1
INS RET+1
IO START+2
Q PRT
QUIT STARTSCHADIOPRTEN1+2
SCHAD STARTSTART+1

Naked Globals

Name Field # of Occurrence
^( PRT+1, ADDR718182
^("VET" CK+2
^(0 RET+1, ADDR+2, 51202

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2, ASK+3
BY EN1*, EN1+2!
DFN START*, SCHADRETRET+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!, PRTQEN1+1*
DT INS+2, INS+6, 21
FLDS EN1*, EN1+2!
I RET!, INS+5*, INS+6, QUIT+1!, EN1+2!
I( INS+6*, 51617172738182
IO IOASK+5
J PRT+1*, QUIT+1!
K PRT+1*, QUIT+1!, CKLN71
L QUIT+1!, CKLN*, EN1*
P INS+4*, INS+6*, PRT+1*, QUIT+1!, 516171727381
82
POP IOQUIT+1!, ASK+5
U RET+2, INS+6, ADDR+1, ADDR+2, 3151617273202
VA QUIT+1!
VA("PID" 32
X IO*, PRT*, PRT+1, QUIT+1!, 202*
X1 PRT+1*, QUIT+1!
Y STARTSTART+1, START+2, RET+1*, RET+2*, PRTQUIT+1!, 21*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All