Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
START
SCHAD
IO
RET
INS ; -- new insurance logic, modified for IBBAPI insurance call, DG*570
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?

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call