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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGOIL1

Package: Registration

Routine: DGOIL1


Information

DGOIL1 ;ALB/AAS - INPATIENT LIST (CONT.) ; 28-SEPT-90

Source Information

Source file <DGOIL1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 4 (%,DQ,HDR)^DGOIL  ^DGOIL2  EN1^DGPTFD  (INP,PID)^VADPT  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGOIL  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- print line for one entry
PRINT2 ; -- Print with ward breakout, if DGDRG add DRG data
PRINT1 ; -- Print without ward breakout
NUM
DRG ; - calculate DRG from PTF and print on total line
END
EN1 ;
; - tasked entry , no ward breakout
EN2 ;
; - tasked entry, with ward breakout, no drg
EN3 ;
; - tasked entry, with ward breakout, with drg info
BED ; -- Print room and treating specialty

External References

Name Field # of Occurrence
%^DGOIL %
DQ^DGOIL EN1+3, EN2+3, EN3+3
HDR^DGOIL PRINT+1
^DGOIL2 PRINT+4
EN1^DGPTFD DRG+2
INP^VADPT PRINT+2
PID^VADPT PRINT+2
$$FMTE^XLFDT PRINT1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"BAD 'CN' CROSS REFERENCE FOR WARD ",W,", PATIENT NUMBER",DFN,!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$P(X,"^",10),$P(X,"^",9),$E(N,1,17),?19,VA("BID")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?41,"TOTAL"
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: ?27,Y,?38,$E(W,1,10)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?49
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: $J(+$P(X,"^",L),5)
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: ?76,"No DRG can be calculated"
  • Line Location: DRG+2
Function Call: WRITE
  • Prompt: ?112,NTT,"/",LTT,?120,PNT,"/",PLT,?128,FLG
  • Line Location: DRG+6
Function Call: WRITE
  • Prompt: !,?48,$J("("_DGL_")",7)
  • Line Location: DRG+7
Function Call: WRITE
  • Prompt: !?38,"Rm: ",VAIN(5),?55,"Spec: ",$E($P(VAIN(3),"^",2),1,19)
  • Line Location: BED+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] PRINT+3, DRG+1
^DPT - [#2] DRG+2
^ICD - [#80.2] DRG+3

Label References

Name Line Occurrences
BED PRINT2+5, NUM+1
DRG PRINT2+4
END PRINT+7
NUM PRINT2+3
PRINT1 PRINT+6, PRINT2+1, PRINT2+2
PRINT2 PRINT+6

Naked Globals

Name Field # of Occurrence
^(0 PRINT+3, DRG+1, DRG+2, DRG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AFFIL DRG+3
AGE DRG+2*, END!
>> DFN PRINT+3, DRG+2
>> DGBEG EN1+3*, EN2+3*, EN3+3*
>> DGBRK PRINT+6, NUM+1, EN1+3*, EN2+3*, EN3+3*
DGCPT DRG+2*!
>> DGDRG PRINT2+4, EN1+3*, EN2+3*, EN3+3*
>> DGEND EN1+3*, EN2+3*, EN3+3*
DGL PRINT+4*, DRG+4, END!
>> DGPM PRINT+3, PRINT+4, DRG+1
>> DGPMIFN PRINT+4*
>> DGWARD EN1+3*
>> DGWRD EN2+3*, EN3+3*
DRG DRG+2*, DRG+3, END!
DRGCAL DRG+2*, DRG+3*, DRG+4, DRG+5, END!
>> DUOUT PRINT+1
FLG DRG+5*, DRG+6, END!
I PRINT+2~
IOSL PRINT+1
J PRINT+2~
K PRINT+2~
>> L NUM*
LTT DRG+4*, DRG+5*, DRG+6, END!
>> M PRINT2+2*
>> N PRINT+5
NTT DRG+4*, DRG+5*, DRG+6, END!
PLN END!
PLT DRG+4*, DRG+5, DRG+6, END!
PNT DRG+4*, DRG+5, DRG+6, END!
PTF DRG+1*, END!
SEX DRG+2*, END!
U DRG+1, DRG+2, DRG+3, DRG+4, DRG+5
VA END!
VA("BID" PRINT+5
VAERR END!
>> VAIN(3 BED+1
>> VAIN(5 BED+1
>> W PRINT+3, PRINT2+2*, PRINT1+2
W1 PRINT2+2*, END!
>> X PRINT+4*, PRINT+5, PRINT2+2*, PRINT2+3*, PRINT1+1, NUM
>> X( PRINT2+2
>> X(0 PRINT2+1
>> X(1 PRINT2+3
>> X3 PRINT+4, PRINT2+3
>> Y PRINT2+2*, PRINT1+1*, PRINT1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All