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 |  Caller 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: DGBLRV

Package: Registration

Routine: DGBLRV


Information

DGBLRV ;ALB/BOK - PATIENT ADMISSION FORM/BILL REVIEW ; 18 SEP 86 11:00

Source Information

Source file <DGBLRV.m>

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 $$INSUR^IBBAPI  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 7 DG THIRD PARTY ADMIT REVIEW  DG THIRD PARTY PATIENT REVIEW  DG1010P  DG1010PA  DGBLRV  DGPMV31  DGSCHAD  
Integrated Billing 1 IB20PT81  

Entry Points

Name Comments DBIA/ICR reference
CK ;check logic to see if 3rd party review is asked
212
IO
211
RET
61
82
81
21
EN1
PRT
ASK ;print TPR?
201
202
SCHAD
Q
START
CKLN
72
71
QUIT
ADDR ;
32
31
51
INS ; -- new insurance logic, modified for IBBAPI insurance call, DG*570
73

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 IO, ASK+5
^DIC START, PRT
YN^DICN ASK+1
EN1^DIP EN1+2
D^DIQ RET+1, RET+2
DT^DIQ 21
$$INSUR^IBBAPI INS+5, CK+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(DGIBINS(P)):$P(DGIBINS(P,1),U,2),1:"")
  • Line Location: 51+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(DGIBINS(P)):DGIBINS(P,6),1:"")
  • Line Location: 71+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: " "
  • Line Location: 81+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: 82+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+3
^DGPM("ATID1" START
^DGS(41.1 - [#41.1] SCHAD, RET+2
^DIC(42 - [#42] 202
^DIC(47 - [#47] PRT+1
^DPT - [#2] RET, CK+3
^UTILITY($J DGBLRV+3!

Label References

Name Line Occurrences
@( CKLN
ADDR INS+10
ASK ASK+3
CKLN PRT+1
INS RET+1
IO START+2
Q PRT
QUIT START, SCHAD, IO, PRT, EN1+2
SCHAD START, START+1

Naked Globals

Name Field # of Occurrence
^( PRT+1
^("VET" CK+3
^(0 RET+1, 202

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*, SCHAD, RET, RET+2, INS+5, QUIT!, CK+3
DGADT RET!, RET+1*, QUIT+1!, 212
DGADX RET!, RET+1*, QUIT+1!, 201
DGDATA INS+2~, INS+5
>> DGDEF ASK+1
DGGRP INS+12~, INS+13*, INS+14
DGI RET+1*, RET+2*, INS+10, QUIT+1!
DGIB INS+2~, INS+5*, INS+8
DGIBDT INS+2~, INS+3*, INS+4*, INS+5
DGIBINS INS+2~, INS+6*
DGIBINS( INS+8, INS+9, INS+11, INS+13, INS+15, ADDR+1, 51, 71
DGIMULT QUIT+1!
DGINAD RET!, INS+10!, INS+15, QUIT+1!, ADDR+1*
DGINFO RET*, QUIT+1!, 31
DGINS QUIT+1!
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+3, QUIT!, ASK+5
DGPTPR ASK+5!
DGSDT RET!, RET+2*, INS+3, 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
DGX INS+2~, INS+6*
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+3, INS+9, 21
FLDS EN1*, EN1+2!
I RET!, INS+7*, INS+8*, INS+9, INS+11, INS+13, INS+15, QUIT+1!, ADDR+1, EN1+2!
I( INS+11*, INS+14*, INS+15*, 61, 72, 73
IO IO, ASK+5
J PRT+1*, QUIT+1!
K PRT+1*, QUIT+1!, CKLN
L QUIT+1!, CKLN*, EN1*
P INS+7*, INS+11, INS+14, INS+15, INS+16*, PRT+1*, QUIT+1!, 51, 61, 71
, 72, 73
POP IO, QUIT+1!, ASK+5
U RET+2, INS+11, INS+14, INS+15, ADDR+1, 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*
Info |  Source |  Call Graph |  Caller 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