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

Package: Registration

Routine: DGOTHRP4


Information

DGOTHRP4 ;SLC/RM - OTH PATIENT PERIOD STATUS REPORT CONT. ;July 20, 2018@5:15

Source Information

Source file <DGOTHRP4.m>

Entry Points

Name Comments DBIA/ICR reference
CONT(DGSORT) ;Statistical Report continuation
QRPTHD ;quarterly/fiscal report subheader
QRPTSUM ;quarterly report summary
QRPTSUM1 ;display grand total for quarterly/fiscal quarterly report summary
PRINTFY(DGSORT,DGLIST,DGQRTR,DGMON,DGQ,DGMNAME) ;print/display carryover OTH patients

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !,"FY QUARTER ",DGQRTR,":"
  • Line Location: CONT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+20
Function Call: WRITE
  • Prompt: !!,"FISCAL YEAR OVER ALL SUMMARY:",!
  • Line Location: CONT+22
Function Call: WRITE
  • Prompt: !,"FY QUARTER ",I
  • Line Location: CONT+24
Function Call: WRITE
  • Prompt: ?20,$J($P(DGFYAR(I),U),4),?30,$J($P(DGFYAR(I),U,2),6)
  • Line Location: CONT+25
Function Call: WRITE
  • Prompt: ?44,$J($P(DGFYAR(I),U,3),5),?69,$J($P(DGFYAR(I),U,4),6)
  • Line Location: CONT+26
Function Call: WRITE
  • Prompt: !,DGLN,"TOTAL INACTIVATED FOR THE YEAR:",?69,$J(DGCNT("IN"),6)
  • Line Location: CONT+28
Function Call: WRITE
  • Prompt: !!,"Month",?20,"New",?30,"Carry Over",?44,"TOTAL",?69,"INACTIVATED"
  • Line Location: QRPTHD+5
Function Call: WRITE
  • Prompt: !,DGLN,?20,"====",?30,DGLN,?44,"====="
  • Line Location: QRPTHD+6
Function Call: WRITE
  • Prompt: ?69,DGLN
  • Line Location: QRPTHD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: QRPTSUM+7
Function Call: WRITE
  • Prompt: $P(DGSORT("DGMON",DGMON),U)
  • Line Location: QRPTSUM+8
Function Call: WRITE
  • Prompt: " ",$P(DGSORT("DGMON",DGQRTR,DGMON),U)
  • Line Location: QRPTSUM+9
Function Call: WRITE
  • Prompt: ?20,$J(DGNEW,4),?30,$J(DGCARY,6),?44,$J(DGNEW+DGCARY,5),?69,$S($G(DGCNT("IN",DGMON))>0:$J(DGCNT("IN",DGMON),6),1:$J(0,6))
  • Line Location: QRPTSUM+10
Function Call: WRITE
  • Prompt: !,DGLN
  • Line Location: QRPTSUM1+3
Function Call: WRITE
  • Prompt: !,"TOTAL",?20,$J(DGNWTOT,4),?30,$J(DGCRYTOT,6)
  • Line Location: QRPTSUM1+4
Function Call: WRITE
  • Prompt: ?44,$S(4[$P(DGSORT("DGMON"),U):$J(DGCNT,5),1:$J($G(DGNWTOT)+$G(DGCRYTOT),5))
  • Line Location: QRPTSUM1+5
Function Call: WRITE
  • Prompt: ?69,$J(DGINTOT,6)
  • Line Location: QRPTSUM1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTFY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTFY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTFY+9
Function Call: WRITE
  • Prompt: $E(DGPTNM,1,20),?23,$P(DGSTR,U,3)
  • Line Location: PRINTFY+11
Function Call: WRITE
  • Prompt: ?31,$P(DGSTR,U,2),?37,$$FMTE^XLFDT($P(DGSTR,U,4),"5Z"),?49,$$FMTE^XLFDT($P(DGSTR,U,5),"5Z")
  • Line Location: PRINTFY+13
Function Call: WRITE
  • Prompt: ?68,$$FMTE^XLFDT($P(DGSTR,U,8),"5Z")
  • Line Location: PRINTFY+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTFY+19
Info |  Source |  Entry Points |  Interaction Calls