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

Package: Registration

Routine: DGOTHRP2


Information

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

Source Information

Source file <DGOTHRP2.m>

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
LOOP(DGSORT,DGLIST) ;
ISOTH90(DGDFN) ;determine if patient is EMERGENT OTH
CLOCK(DGIEN33) ;
ALL90(DGSORT,DGLIST,DGRET,DFN,DGIEN33,DGARR,DG90A) ;
SSN(DFN) ;extract patient's SSN4
SORT(DGTMP,DGPTNM,DGCLCK,DGDYSLFT,I,DGENCTR) ;
CHKDATE(DGSDT,DGEDT) ;check if dates fall within the Begin and End dates
PRINT(DGSORT,DGLIST) ;output report
PRINT1(DGSUB1) ;Print or display report by division
PRINT2 ;
PTNAME ;diplay patient and PID
PRNTFC ;Print or display report by facility
PRNTFC1 ;
RPTSUM ;Display report summary
DVISION(DGFAC) ;
HEAD ;Print/Display Page Header
PAUSE(DGQ) ; pause screen display
; Input:
; DGQ - var used to quit report processing to user CRT
; Output:
; DGQ - passed by reference - 0 = Continue, 1 = Quit
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," >>> No OTH-90 records were found using the report criteria.",!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: $E(DGSUB4,1,18),?20,$P(DGSTR,U,2)
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: ?27,DGSUB3
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: ?31,$P(DGSTR,U),?35,$P(DGSTR,U,3),?47,$P(DGSTR,U,4),?59,$P(DGSTR,U,5),?65,$E($P(DGSTR,U,6),1,15)
  • Line Location: PRINT2+6
Function Call: WRITE
  • Prompt: $E(DGSUB2,1,18),?20,$P(DGSTR,U,2)
  • Line Location: PTNAME+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTFC1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTFC1+2
Function Call: WRITE
  • Prompt: $E(DGSUB1,1,18),?20,$P(DGSTR,U,2)
  • Line Location: PRNTFC1+3
Function Call: WRITE
  • Prompt: $E(DGSUB3,1,18),?20,$P(DGSTR,U,2)
  • Line Location: PRNTFC1+4
Function Call: WRITE
  • Prompt: ?27,DGSUB2
  • Line Location: PRNTFC1+5
Function Call: WRITE
  • Prompt: ?31,$P(DGSTR,U),?35,$P(DGSTR,U,3),?47,$P(DGSTR,U,4),?59,$P(DGSTR,U,5),?65,$E($P(DGSTR,U,6),1,15)
  • Line Location: PRNTFC1+6
Function Call: WRITE
  • Prompt: !!,"REPORT SUMMARY:"
  • Line Location: RPTSUM+1
Function Call: WRITE
  • Prompt: !,"==============="
  • Line Location: RPTSUM+2
Function Call: WRITE
  • Prompt: !!,"Total "_$S(1[$P(DGSORT("DGSTATUS"),U):"Active",2[$P(DGSORT("DGSTATUS"),U):"Expired",1:"Active/Expired")
  • Line Location: RPTSUM+3
Function Call: WRITE
  • Prompt: " OTH 90-DAY PERIOD from ",$$FMTE^XLFDT($G(DGSORT("DGBEG")),"5Z")
  • Line Location: RPTSUM+4
Function Call: WRITE
  • Prompt: " to ",$$FMTE^XLFDT($G(DGSORT("DGEND")),"5Z"),":",$J($S(DGTOTAL>0:DGTOTAL,1:0),4),!
  • Line Location: RPTSUM+5
Function Call: WRITE
  • Prompt: !,"<END OF REPORT>"
  • Line Location: RPTSUM+6
Function Call: WRITE
  • Prompt: "Division: ",DGSORT("DIVISION",DGOEIEN,DGFAC)_" ("_DGFAC_")",!
  • Line Location: DVISION+1
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: !,"Date Range:",?12,$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?45,"Sorted By:",?56,$S(2[$P(DGSORT("REPORT"),U):"",1:$P(DGSORT("REPORT"),U,2)_","),$P($G(DGSORT("DGSRTBY")),U,2)
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"Status :",?12,$P($G(DGSORT("DGSTATUS")),U,2)
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?45,"Printed :",?56,$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?20,"PID",?26,"365",?31,"90",?35,"START DATE",?47,"END DATE",?59,"DAYS",?65,"AUTHORIZED BY"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,?26,"PRD",?31,"PRD",?59,"LEFT"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3

FileMan Files Accessed Via FileMan Db Call

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