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

Package: Registration

Routine: DGOREL1


Information

DGOREL1 ;ALB/MAC - PATIENT OUTPUT BY RELIGIOUS AFFILIATIONS (Cont.) ; 5/25/18 8:31am

Source Information

Source file <DGOREL1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 CLOSE^DGUTQ  PID^VADPT6  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 NOW^%DTC  

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 DGOREL  

Entry Points

Name Comments DBIA/ICR reference
START
PR
DIV
DGUTIL
CONT
DGSET
SET1
SET
RET
RELP
DGPR ;D:$Y+4>IOSL RELP Q:DGU W ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?40,$P(DGUT,"^",2),?58 S Y=$P(DGUT,"^",3) X ^DD("DD") W Y Q
HEAD
QUIT
QUIT1

External References

Name Field # of Occurrence
NOW^%DTC START
CLOSE^DGUTQ QUIT
PID^VADPT6 SET+1
$$FMTE^XLFDT STARTHEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"=====>NO PATIENTS FOUND"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+0
Function Call: READ
  • Formatting: ?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?40,$P(DGUT,"^",2),?58
  • Line Location: DGPR+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGPR+0
Function Call: WRITE
  • Prompt: ?3,$P(DGUT,"^",4),?15,$P(DGUT,"^",1),?43,$E($P(DGUT,"^",2),8,11),?58
  • Line Location: DGPR+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: DGPR+1
Function Call: WRITE
  • Prompt: @IOF,!?3,"DIVISION: ",$S(DGD="ZNOT SPECIFIED":"NOT SPECIFIED",1:DGD),?50,DGDT,?63," PAGE ",DGPG,!?24,"INPATIENT RELIGIOUS AFFILIATIONS",!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?DGSP1,DGSP,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?DGY,DGT,!!?4,"ROOM",?20,"PATIENT",?43,"PT ID",?60,"ADMISSION DATE",!,DGCL
  • Line Location: HEAD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DGPR+1
^DG(40.8 - [#40.8] DIV
^DGPM - [#405] START+1, DGSETSET1SET1+1
^DGPM("AMV1" START+1
^DIC(13 - [#13] SET
^DIC(42 - [#42] DIV
^DPT - [#2] SET1+1, SETSET+1
^DPT("CN" START+3, DGSET
^UTILITY($J PRPR+1, DGUTIL+1, DGUTIL+2, CONTSET+1*, SET+2*, QUIT1+1!

Label References

Name Line Occurrences
CONT DGUTIL+2
DGPR CONT
DGSET START+3
DGUTIL PR
DIV START+3, SET1+1
HEAD DGUTIL+2, RELP
PR START+2
QUIT PR+2
RELP DGUTIL+2, DGPR+1
RET PRDGUTIL+2, RELP
SET DGSET
SET1 START+1

Naked Globals

Name Field # of Occurrence
^( CONTDGSETSET1+1, SET+1
^(0 DGSETSET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START, QUIT1!
D1 DGUTIL+2*, CONT*, QUIT1!
DFN START*, START+1*, CONT*, DGSET*, SET1+1, SETSET+1, SET+2, QUIT1!
DGAD DGSET*, SET1+1*, SET+1, SET+2, QUIT1!
DGBEG START+1, QUIT1!
DGBEG1 HEAD+2, QUIT1!
DGCA START+1*, DGSET*, SET1SET1+1, QUIT1!
DGCL START*, HEAD+4, QUIT1!
DGCL1 START*, RELP+1, QUIT1!
DGD DIV*, DGUTIL*, DGUTIL+1*, DGUTIL+2, CONTSET+1, SET+2, HEAD, QUIT1!
DGDA START+1*, QUIT1+1!
DGDAT SET*, SET+1, SET+2, QUIT1!
DGDD SET1*, QUIT1+1!
DGDN DIV*, QUIT1!
DGDT START*, HEADHEAD+3, QUIT1!
DGDV QUIT1!
DGEND START+1, SET1, QUIT1!
DGEND1 HEAD+2, QUIT1!
DGF START*, START+3, DIV*, SET1+1, QUIT1!
DGFL PR*, RELP+1*, HEAD+1*, QUIT1!
DGFLAG START*, PRRET+1*, QUIT1!
DGHOW SET+1, RELP+1, HEAD+1, QUIT1!
DGJ START*, DGUTIL+2*, CONTRELP+1, QUIT1!
DGJJ START*, QUIT1!
DGL START+1, START+2, HEAD+2, HEAD+3, QUIT1!
DGN QUIT1!
DGNON SET, QUIT1!
DGP START*, CONT*, QUIT1!
DGPG PR*, DGUTIL+2*, HEAD*, QUIT1!
DGPGM QUIT1!
DGR SET, QUIT1!
DGREL SET*, SET+1, SET+2, QUIT1!
DGRM START*, SET+1*, SET+2, QUIT1!
DGSP HEAD+1*, QUIT1+1!
DGSP1 HEAD+1*, QUIT1+1!
DGT HEAD+2*, HEAD+3*, HEAD+4, QUIT1+1!
DGU START*, START+3, PRDGUTIL+1, DGUTIL+2, CONTRET+1*, RELPDGPR+1, QUIT1+1!
DGUT CONT*, DGPR+1, QUIT1+1!
DGVAR QUIT1+1!
DGW START*, START+3*, DIV, DGUTIL*, DGUTIL+2*, CONTDGSETSET1+1*, SET+1, SET+2
HEAD+1, QUIT1+1!
DGWN QUIT1+1!
DGY HEAD+4*, QUIT1+1!
DIC QUIT1!
DTIME RET+1
I QUIT1+1!
IOF HEAD
IOSL RETRELPDGPR+1
IOST PRRETRELP
J1 DGUTIL+1*, QUIT1+1!
P1 DGUTIL+2*, QUIT1+1!
POP QUIT1+1!
VA("BID" QUIT1+1!
VA("PID" SET+1, SET+2, QUIT1+1!
VADAT QUIT1+1!
VADATE QUIT1+1!
VAUTD DIVQUIT1+1!
VAUTD( DIV
VAUTNI QUIT1+1!
VAUTW START+3, SET1+1, QUIT1+1!
VAUTW( START+3, SET1+1
X RET*, RET+1*, QUIT1+1!
X1 START+3*, QUIT1+1!
Y START*, DGPR+1*, QUIT1+1!
Z QUIT1+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All