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

Package: Registration

Routine: DGRUUTL1


Information

DGRUUTL1 ;ALB/GRR - RAI/MDS UTILITY ROUTINE

Source Information

Source file <DGRUUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Process each division for routing
LOCTRAN(DGPV1) ;TRANSLATE WARD AND ROOM-BED
SKIP1 ;
LOCEX
WARDTRAN(DGWIEN,DGWNAM) ;
RBTRAN(DGRBIEN,DGRBNAM) ;
DOCTOR(X) ;DETERMINE IF NEW PERSON A PHYSICIAN ;added 1/12/2000
IN1(DFN) ;CREATE IN1 SEGMENT
CALCDT(DFN,DGMIEN) ;CALCULATE FUTURE DISCHARGE DATE
ENTS ;USED TO REVIEW HL7 MESSAGES FOR TROUBLE SHOOTING
RD2
PRIOR(DA) ;
NEXT(DA) ;
GETDIV(X) ;GET DIVISION FOR SPECIFIED WARD
CKADMIT(DFN) ;CHECH IF INTEGRATED SITE FOR ORIGINAL ADMIT DATE
FLLTCM(DFN) ;
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The 'DGRU RAI EVENTS' entry in file 771 missing!"
  • Line Location: ENTS+3
Function Call: WRITE
  • Prompt: !,^(ZZ,0)
  • Line Location: PRIOR+4
Function Call: WRITE
  • Prompt: "...At the Top.."
  • Line Location: PRIOR+5
Function Call: WRITE
  • Prompt: !,^(ZZ,0)
  • Line Location: NEXT+4
Function Call: WRITE
  • Prompt: "...Bottomed out.."
  • Line Location: NEXT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^DGRU(46.12 - [#46.12] GET1^DIQ
^DGRU(46.13 - [#46.13] GET1^DIQ
^DIC(7 - [#7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call