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

Package: Incomplete Records Tracking

Routine: DGJTUTL


Information

DGJTUTL ;ALB/MIR - ZSECUTABLE HELP FOR EVENT DATE IN INCOMPLETE RECORD FILE ; 04 JAN 91

Source Information

Source file <DGJTUTL.m>

Entry Points

Name Comments DBIA/ICR reference
PTF ;Check to make sure PTF exists and it is not closed
PHYSRTRG
LESS48 ;Checking for discharge summary less than 48 hours.
ASK
TS
TSQ
WARN
WR ;write node from delinquent records file
WARD ; -- find last ward for event driver
; input CA = ifn of cors adm
WARDQ
PHYDEF ;Cross-reference on the Date Transcribed,10.03; Transcribed By,10.04
; Date Signed,10.05; Signed By,10.06
SET
Q
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Choose from:"
  • Line Location: DGJTUTL+5
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: DGJTUTL+6
Function Call: WRITE
  • Prompt: !!,"Will this Discharge Summary <48 hrs need to be dictated? "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"ENTER:",!?10,"Y for YES",!?10,"N for NO",!?10,"^ to EXIT"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,*7," Patient has no admissions on file in this facility",!
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: $S(X]""&($D(^VAS(393.3,+X,0))):$P(^VAS(393.3,+X,0),"^",1),1:"UNKNOWN DEFICIENCY")
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: ?45,Y
  • Line Location: WR+4
Info |  Source |  Entry Points |  Interaction Calls