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 |  Local Variables  | All
Print Page as PDF
Routine: DGPTOM1

Package: Registration

Routine: DGPTOM1


Information

DGPTOM1 ;ALB/AS - PTF MEANS TEST INDICATOR OF 'U' REPORT ; 19 MAR 87 14:00

Source Information

Source file <DGPTOM1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 IN^DGHELP  ^DGPTOM2  LO^DGUTL  (CLOSE,ZIS)^DGUTQ  
VA FileMan 2 ^%DT  YN^DICN  
Kernel 1 ^%ZIS  

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 DG PTF MEANS TEST OF 'U'  

Entry Points

Name Comments DBIA/ICR reference
RD
ASK
DT
P
OK
Q

External References

Name Field # of Occurrence
^%DT DTDT+1
^%ZIS DGPTOM1+2
IN^DGHELP ASK+1, P+1
^DGPTOM2 DGPTOM1+3
LO^DGUTL DGPTOM1+2
CLOSE^DGUTQ DGPTOM1+3
ZIS^DGUTQ DGPTOM1+3
YN^DICN OK

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"Choose DATE RANGE by ",!?4,"(D)ISCHARGE DATE or (A)DMISSION DATE: DISCHARGE// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"A - to choose beginning and ending report dates by admission dates",!?12,"or",!?12,"D - to choose by discharge dates",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,*7,?12,"Please limit your date range to no more than 1 year."
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !!,"Sort by (P)ATIENT NAME or (T)ERMINAL DIGIT ORDER: PATIENT// "
  • Line Location: P+0
Function Call: WRITE
  • Prompt: X
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"T - to have report sorted by terminal digit order or",!?12,"P - to sort by patient last name",!
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"You have selected output for: ",!?4,"Patients ",$S(DGD:"discharged",1:"admitted")," between "
  • Line Location: P+3
Function Call: WRITE
  • Prompt: ?4,Y," and "
  • Line Location: P+4
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !?4,"Report to be sorted by ",$S(DGP:"patient last name.",1:"terminal digit order."),!
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!!
  • Line Location: OK+0
Routine Call
  • %ZIS
  • Line Location:
    • DGPTOM1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DGPTOM1+3
^DD("DD" P+4

Label References

Name Line Occurrences
ASK DGPTOM1+2, ASK+1
DT DTDT+1, DT+2
OK OK
P P+1
Q DGPTOM1+2, DGPTOM1+3
RD ASKP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+1*, P+1*, OK*, OK+1, Q!
%DT DT*!, DT+1*!, Q!
%DT("A" DT*, DT+1*
%DT(0 DT*, DT+1*
DGD ASK+2*, DTDT+1, P+3, Q!
DGED DT+3*, P+4, Q!
DGP P+2*, P+5, Q!
DGPGM DGPTOM1+3*, Q!
DGQ DGPTOM1+2, RD*, ASK*, DT*, DT+1*, POK+1*, Q!
DGSD DT+1*, DT+2, P+4, Q!
DGVAR DGPTOM1+3*, Q!
DT DT
DTIME RD
IO DGPTOM1+3
IOP DGPTOM1+2*!
POP DGPTOM1+3, Q!
X DGPTOM1+3*, RD*, RD+1*, ASK*, ASK+2, DTDT+1, P*, P+2, Q!
Y DTDT+1, DT+2, DT+3, P+4*, Q!
Z ASK*, P*, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All