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

Package: Registration

Routine: DGPTOTRL


Information

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

Source Information

Source file <DGPTOTRL.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls