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

Package: Registration

Routine: DGPTOTRL


Information

DGPTOTRL ;ALB/MLI - PTF TRANSMITTED RECORD LIST ; 28 JAN 88 11:00

Source Information

Source file <DGPTOTRL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 NUMACT^DGPTSUF  RTY^DGPTUTL  (CLOSE,ZIS)^DGUTQ  
VA FileMan 2 ^%DT  DT^DIQ  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Registration 4 DG PTF TRANSMITTED RECORDS  DGPTCO  DGRUGPP1  DGRUGS  

Entry Points

Name Comments DBIA/ICR reference
DATE
1
2
3
PRT
T
HEAD
QUIT
DF
NOW ;Called from other routines...gets present date/time and formats for outputs

External References

Name Field # of Occurrence
^%DT DATE+1, DATE+2, NOW+1
NUMACT^DGPTSUF 2+2
RTY^DGPTUTL DGPTOTRL+3
CLOSE^DGUTQ QUIT
ZIS^DGUTQ DATE+4
DT^DIQ HEAD+1
$$FMTE^XLFDT DF, NOW+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,*7,*7,"THIS REPORT REQUIRES 132 COLUMN OUTPUT"
  • Line Location: DGPTOTRL+2
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,K,?14
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!,?40,"Total Transmitted Records From ",$S($D(DGW):DGW,1:"Facility "_DGH),": ",?128,$J(DGC(DGH),4)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: @IOF,!,?54,$P(DGRTY0,U)," TRANSMITTED RECORDS LIST",?121,"PAGE: ",$J(DGPG,3),!,?52
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: " - "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !?54,"DATE RUN: ",DGNOW,!!?14,"ADMISSION",?26,"FACILITY/",?75,$S(DGRTY=1:"DISCHARGE",1:"CENSUS")
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?87,"RELEASED",?110,"RELEASED",?121,"TRANSMITTED",!,"SSN",?14,"DATE",?26,"SUFFIX",?38,"PATIENT NAME",?66,$S(DGRTY=1:"PTF",1:"CENSUS")," #",?75,"DATE",?87,"BY",?110,"ON",?121,"ON",!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT(Y,"5DF")," ","0")
  • Line Location: DF+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DATE+4
^DGP(45.83 - [#45.83] 1
^DGP(45.84 - [#45.84] 2+6
^DGPT - [#45] 2
^DPT - [#2] 2+1
^UTILITY($J 1+1, 2+6*, 3+1, PRT, QUIT!
^VA(200 - [#200] PRT+1

Label References

Name Line Occurrences
2 1
3 1+1
DF PRT+1
HEAD PRT
NOW 1
PRT 3+1
QUIT DATE+1, DATE+2, DATE+4, 1+1
T 1+1, HEAD

Naked Globals

Name Field # of Occurrence
^(0 2, 2+1, 2+6, PRT+1
^(70 2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1*, DATE+2*!, QUIT!, NOW+1*
%DT("A" DATE+1*, DATE+2*
%DT(0 DATE+1*
DFN 2+1*, QUIT!
DGAD 2+1*, 2+6, QUIT!
DGANUM 2+2!, 2+3, 2+4, 2+5!
DGBDT DATE+1*, 1, 3*, HEAD+1, QUIT!
DGC QUIT!
DGC( 2+7*, T
DGCTR 2+4*, 2+5!
DGDD 2+1*, 2+6, QUIT!
DGEDT DATE+2*, 1, 3*, HEAD+1, QUIT!
DGF 2+1*, 2+6, 2+7, QUIT!
DGH 1*, PRT*, T, HEAD, QUIT!
DGHX QUIT!, NOW+1*!
DGHY NOW+1*!
DGI 2+1*, QUIT!
DGI2 2+1*, QUIT!
DGIFN 1*, 2, 2+6, QUIT!
DGNOW HEAD+2, QUIT!, NOW+1*
DGPG 1*, HEAD*, HEAD+1, QUIT!
DGPGM DATE+4*, QUIT!
DGPT 2+1*, 2+6, QUIT!
DGRB 2+6*, PRT*, PRT+1, QUIT!
DGRO 2+6*, QUIT!
>> DGRTY DGPTOTRL+3, 2, HEAD+2, HEAD+3
>> DGRTY0 HEAD+1
DGSF 2+1*, 2+2, 2+4, 2+6, QUIT!
DGSSN 2+1*, 2+6, QUIT!
DGST PRT*, PRT+1, QUIT!
DGSUFNAM 2+5!
DGSUFNAM( 2+4
DGTO 2+6*, QUIT!
DGTR 2+6*, QUIT!
DGVAR DATE+4*, QUIT!
DGW T!*, QUIT!
F 2+2*, 2+4*, 2+6, 2+7, T*, QUIT!
I 1*, 2+6, 3*, 3+1*, PRT, HEAD, QUIT!
I1 3+1*, QUIT!
IO DATE+4
IOF HEAD+1
IOSL PRT
J 1*, 3+1*, PRT, QUIT!
K 1*, 3*, 3+1*, PRT, PRT+1, QUIT!
K1 3+1*, QUIT!
L 3+1*, PRT, PRT+1, QUIT!
M 3+1*, PRT, PRT+1, QUIT!
POP DATE+4, QUIT!
U 1*, 2, 2+1, 2+6, PRT, PRT+1, HEAD+1
X DATE+4*, QUIT!, NOW+1*
Y DGPTOTRL+3*, DATE+1, DATE+2, PRT+1*, HEAD+1*, HEAD+3!*, QUIT!, DF, NOW+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All