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
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls