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

Call Graph

Call Graph Total: 5

Package Total Call Graph
Incomplete Records Tracking 2 EVDT^DGJTEE  EXP^DGJTEE1  
VA Fileman 2 C^%DTC  YN^DICN  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Incomplete Records Tracking 11 DGJPDEF1  DGJTEE  DGJTEVT  DGJXA  DGJXA1  DGJXA2  DGJXE  DGJXE1  
DGJXE2  DGJXE4  DGJXE5  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC LESS48+2
EVDT^DGJTEE TSQ
EXP^DGJTEE1 TS
YN^DICN ASK+1
FULL^VALM1 TS

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGJTUTL+6, WR+4
^DG(393.2 - [#393.2] PHYSRTRG, PHYDEF+7
^DG(40.8 - [#40.8] PHYDEF+6
^DGP(45.84 - [#45.84] PTF+1
^DGPM - [#405] DGJTUTL+6, LESS48+2, WARN+1, WARD+4
^DGPM("APMV" WARD+4
^DGPM("ATID1" WARN+1
^DGPT - [#45] PTF+1
^DIC(42 - [#42] WARD+4
^UTILITY("DGJTADM" DGJTUTL+6, WARN!, WARN+1*, WARN+2, QUIT+1!
^VAS(393 - [#393] DGJTUTL+2, PHYSRTRG, LESS48+1, PHYDEF+5, PHYDEF+9, SET*
^VAS(393.3 - [#393.3] WR+3

Label References

Name Line Occurrences
ASK LESS48+2, ASK+1
SET PHYDEF+7, PHYDEF+11, PHYDEF+13, PHYDEF+14, PHYDEF+16, PHYDEF+17, PHYDEF+18, PHYDEF+20, PHYDEF+21
TSQ TS
WARDQ WARD+4
WARN DGJTUTL+3

Naked Globals

Name Field # of Occurrence
^( WARN+1
^("DT" LESS48+1
^(0 WARN+1, WARD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, ASK+2
>> CA WARD+4
>> D0 PHYSRTRG
DA DGJTUTL+2, LESS48+1, PHYDEF+5, PHYDEF+9, SET, QUIT!
DFN DGJTUTL+2~*, WARN+1, WARD+4, QUIT!
DGA1 QUIT!
DGJATTD PHYDEF+7!
DGJC QUIT!
DGJFDIC PHYDEF+10!
DGJFFL QUIT!
DGJFREV PHYDEF+15!
DGJFSIG PHYDEF+12!
DGJNDT PHYDEF+4~, PHYDEF+9*, PHYDEF+11, PHYDEF+13, PHYDEF+16, PHYDEF+17, PHYDEF+18, PHYDEF+20, PHYDEF+21
DGJREVD PHYDEF+19!
DGJT WR+2, WR+4, QUIT!
DGJT1PH QUIT+1!
DGJT2PH QUIT+1!
DGJTADN QUIT!
DGJTADTP QUIT!
DGJTAIFN QUIT!
DGJTAT QUIT!
DGJTCFLG QUIT+1!
DGJTCH QUIT+1!
DGJTCH1 QUIT+1!
DGJTCNT WARN+1*, QUIT!
DGJTCT QUIT!
DGJTDBY QUIT!
DGJTDD QUIT!
DGJTDDT QUIT+1!
DGJTDEL Q!
DGJTDN PHYDEF+4~
DGJTDT QUIT!
DGJTDV PHYDEF+4~, PHYDEF+5*, PHYDEF+6*, PHYDEF+7, PHYDEF+14, PHYDEF+16, PHYDEF+18, PHYDEF+20, PHYDEF+21, Q!
DGJTEDT QUIT!
DGJTEST PHYSRTRG*!
DGJTF QUIT+1!
DGJTFG QUIT+1!
DGJTFL QUIT+1!
>> DGJTNO LESS48+2
DGJTNOD PHYDEF+4~, PHYDEF+5*, PHYDEF+7, PHYDEF+8, PHYDEF+11, PHYDEF+13, PHYDEF+14, PHYDEF+16, PHYDEF+17, PHYDEF+18
, PHYDEF+20, PHYDEF+21
DGJTOA QUIT!
DGJTOUT QUIT!
DGJTPD PHYDEF+4~, PHYDEF+8*, PHYDEF+14
DGJTPR QUIT!
DGJTRC QUIT!
DGJTSBY QUIT!
DGJTSDT QUIT!, QUIT+1!
DGJTSP QUIT!
DGJTST QUIT!
DGJTSV QUIT!
DGJTTBY QUIT!, QUIT+1!
DGJTTD QUIT+1!
DGJTWD QUIT+1!
DGJTWD1 QUIT!
DGJTX QUIT+1!
DGJTX3 LESS48+2*!
DGJTX4 LESS48+2*!
DGJTYP QUIT+1!
DGJX PHYDEF+4~, PHYDEF+7*, PHYDEF+11*, PHYDEF+13*, PHYDEF+14*, PHYDEF+16*, PHYDEF+17*, PHYDEF+18*, PHYDEF+20*, PHYDEF+21*
, SET
DGPM2X QUIT+1!
DGPMCA QUIT+1!
DGPMDCD QUIT+1!
DGPMT QUIT+1!
DGPMVI QUIT+1!
DGPMY QUIT+1!
DGT QUIT+1!
DIC QUIT!
DIC("A" QUIT+2!
DIC("S" QUIT+2!
DIE QUIT!
DIR QUIT!
DIV QUIT+1!
DR QUIT!
DTOUT QUIT!
I DGJTUTL+2~, DGJTUTL+6*, WARN+1*, WARN+3!, QUIT!
IDT WARD+2~, WARD+4*
IFN WARN+1*, QUIT!
J DGJTUTL+2~
M WARD+2~, WARD+4*
MVT WARD+2~, WARD+4*
OK DGJTUTL+2~, PTF+1*, WARN+3!, QUIT+1!
POP QUIT+1!
PTF DGJTUTL+2~, PTF+1, WARN+3!, QUIT!
U WARD+4
VAERR QUIT+1!
VAINDT QUIT+1!
VAIP QUIT!
>> VALMBCK TSQ*
>> VALMBG TSQ*
X PHYSRTRG*, LESS48+1*, LESS48+2, ASK+2*, WR+1~, WR+2*, WR+3, WARD+3*, WARD+4*, QUIT+1!
>> X1 LESS48+2*
>> X2 LESS48+2*
Y DGJTUTL+6*, WR+1~, WR+4*, QUIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All