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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGOTHRP3

Package: Registration

Routine: DGOTHRP3


Information

DGOTHRP3 ;SLC/RM - OTH PATIENT PERIOD STATUS REPORT CONT. ;MAY 8, 2018@5:15

Source Information

Source file <DGOTHRP3.m>

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
LOOP(DGSORT,DGLIST) ;
LOOP1(DGSORT,DGLIST) ;
; If 4[$P(DGSORT("DGMON"),U)
; - Then, build DGSORT("DGBEG") and DGSORT("DGEND")
; for each month on the fly
LOOP2(DGSORT,DGLIST) ;
LOOP3(DGSORT,DGLIST) ;Fiscal year detail
; If 5[$P(DGSORT("DGMON"),U)
; - Then, build DGSORT("DGBEG") and DGSORT("DGEND")
; for each month in the quarter on the fly
RESULT(DGARR,DG90A,DGIEN33) ;extract the 365 and 90 day period data for OTH patient
SORT(DGRET,DGSORT,DGCLCK) ;
PRDDT(DGSORT,DGBEG,DGEND) ;
BLD(DGSORT,DGLIST,DGRET,DGARR,DATA,DGDTOK) ;
BLDNEW(DGPTNM,DATA) ;
BLDOLD(DGPTNM,DGMON,DGCLCK,DGTMP) ;
PRINT1(DGSORT,DGLIST,DGCNT) ;display by month or month in the quarter
PRINT2 ;
FYEAR ;loop and display report for the entire FISCAL YEAR
NOREC(STATUS) ;
PRNTNEW ;OTH-90 newly started their treatment
DSPLYNW ;
PRNTOLD ;OTH-90 whose treatment carried/continued to the following month
DSPLYCRY
CALCIN(DGSTR,DGSTAT,DGMON) ;calculate inactivated OTH patients
MRPTSUM ;monthly report summary
MONAME ;Month Name
HEAD ;Print/Display Page Header Detail
SUBHEAD(DGSTAT,DGMNAME) ;display sub header
HELP ;provide extended DIR("?") help text.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!," >>> No Records were found using the report criteria.",!
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+22
Function Call: WRITE
  • Prompt: !!,"<END OF REPORT>"
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: !," *** No "_$S(STATUS=1:"NEW",1:"CARRY-OVER")_" OTH-90 patient records were found",!
  • Line Location: NOREC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOREC+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: NOREC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTNEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTNEW+6
Function Call: WRITE
  • Prompt: $E(DGPTNM,1,20),?23,$P(DGSTR,U,3)
  • Line Location: PRNTNEW+7
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: PRNTNEW+9
Function Call: WRITE
  • Prompt: ?68,$$FMTE^XLFDT($P(DGSTR,U,8),"5Z")
  • Line Location: PRNTNEW+12
Function Call: WRITE
  • Prompt: !!,"New for "_DGMNAME,?26,"="
  • Line Location: DSPLYNW+2
Function Call: WRITE
  • Prompt: $S($G(DGCNT("NEW"))>0:$J(DGCNT("NEW"),5),1:$J(0,5)),!
  • Line Location: DSPLYNW+3
Function Call: WRITE
  • Prompt: $S($G(DGCNT("NEW",DGMON))>0:$J(DGCNT("NEW",DGMON),5),1:$J(0,5)),!
  • Line Location: DSPLYNW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOLD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOLD+7
Function Call: WRITE
  • Prompt: $E(DGPTNM,1,20),?23,$P(DGSTR,U,3)
  • Line Location: PRNTOLD+8
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: PRNTOLD+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRNTOLD+17
Function Call: WRITE
  • Prompt: "Carryover for "_DGMNAME,?26,"="
  • Line Location: DSPLYCRY+0
Function Call: WRITE
  • Prompt: $S($G(DGCNT("OLD"))>0:$J(DGCNT("OLD"),5),1:$J(0,5)),!
  • Line Location: DSPLYCRY+1
Function Call: WRITE
  • Prompt: $S($G(DGCNT("OLD",DGMON))>0:$J(DGCNT("OLD",DGMON),5),1:$J(0,5)),!
  • Line Location: DSPLYCRY+3
Function Call: WRITE
  • Prompt: "================================",!
  • Line Location: DSPLYCRY+4
Function Call: WRITE
  • Prompt: "TOTAL",?26," ",$J(($G(DGCNT("NEW",DGMON)))+($G(DGCNT("OLD",DGMON))),5),!
  • Line Location: DSPLYCRY+5
Function Call: WRITE
  • Prompt: !,"REPORT SUMMARY for the month of ",$P(DGSORT("DGMON"),U,2),":"
  • Line Location: MRPTSUM+3
Function Call: WRITE
  • Prompt: !!,?16,"90-DAY",?29,"NEW",?39,"CARRY OVER",?55,"TOTAL",?64,"|",?65,"INACTIVATED"
  • Line Location: MRPTSUM+4
Function Call: WRITE
  • Prompt: !,?16,DGLN,?64,"|",?65,"============"
  • Line Location: MRPTSUM+5
Function Call: WRITE
  • Prompt: !,?16,$J(I,4)
  • Line Location: MRPTSUM+9
Function Call: WRITE
  • Prompt: ?29,$J(DGCNT("NEW",I),3)
  • Line Location: MRPTSUM+11
Function Call: WRITE
  • Prompt: ?39,$J(DGCNT("OLD",I),5)
  • Line Location: MRPTSUM+12
Function Call: WRITE
  • Prompt: ?55,$J($G(DGCNT("NEW",I))+($G(DGCNT("OLD",I))),5)
  • Line Location: MRPTSUM+13
Function Call: WRITE
  • Prompt: ?55,$J(0,5)
  • Line Location: MRPTSUM+14
Function Call: WRITE
  • Prompt: ?64,"|"
  • Line Location: MRPTSUM+15
Function Call: WRITE
  • Prompt: ?65,$J($G(DGCNT("NEW",I,0))+($G(DGCNT("OLD",I,0))),6)
  • Line Location: MRPTSUM+17
Function Call: WRITE
  • Prompt: !,DGLN,?64,"|",?65,"============"
  • Line Location: MRPTSUM+20
Function Call: WRITE
  • Prompt: !,"TOTAL",?29,$J($G(DGCNT("NEW")),3),?39,$J($G(DGCNT("OLD")),5),?55,$J($G(TOTAL1),5),?64,"|",?65,$J($G(TOTAL2),6)
  • Line Location: MRPTSUM+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,?80-$L(ZTDESC)\2,$G(ZTDESC),?71,"Page:",?77,DGPAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?80-$L(DGFACLTY)\2,DGFACLTY
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?80-$L(DGPRD)\2,DGPRD
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"Date Range:",?12,DGDTRNGE
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?45,"Date Printed:",?59,$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?23,"PID",?29,"PERIOD",?37,"START DATE",?49,"END DATE",?61,"DAYS",?68,"INACTIVATION"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,?61,"LEFT",?68,"DATE"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,DDASH,!
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,$S(DGSTAT:"OTH-90 Patients that started treatment in ",1:"Carry-over OTH-90 Patients for ")
  • Line Location: SUBHEAD+1
Function Call: WRITE
  • Prompt: DGMNAME_":"
  • Line Location: SUBHEAD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUBHEAD+3
Function Call: WRITE
  • Prompt: !," Not a valid fiscal year.",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," Enter the fiscal year in this format: YY or YYYY"
  • Line Location: HELP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGOTH(33 - [#33] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call