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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 7 $$MSNGPRD^DGOTHBTN  ($$GETEXPR,$$ISOTH,$$ISOTHD)^DGOTHD  ASKCONT^DGOTHMG2  PAUSE^DGOTHRP2  RESULT^DGOTHRP3  CHKTREAT^DGPPRP1  $$SITE^VASITE  
Kernel 4 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 3 WAIT^DICD  GETS^DIQ  ^DIR  

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

Package Total Caller Graph
Registration 6 DGOTHBTN  DGOTHRP1  DGOTHRP2  DGOTHRP3  DGOTHRP4  DGOTHRP5  

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 ;

External References

Name Field # of Occurrence
HOME^%ZIS EXIT+5
^%ZISC EXIT+5
$$S^%ZTLOAD HEAD+1
$$MSNGPRD^DGOTHBTN LOOP+17
$$GETEXPR^DGOTHD ISOTH90+2
$$ISOTH^DGOTHD ISOTH90+6
$$ISOTHD^DGOTHD LOOP+8
ASKCONT^DGOTHMG2 PRINT+8, RPTSUM+7
PAUSE^DGOTHRP2 PRINT+17, PRINT+29, PRINT1+16
RESULT^DGOTHRP3 LOOP+18
CHKTREAT^DGPPRP1 ALL90+17
WAIT^DICD START+1
GETS^DIQ LOOP+12, SSN+1
^DIR PAUSE+6
$$SITE^VASITE START+2
$$FMTE^XLFDT ALL90+22, RPTSUM+4, RPTSUM+5, HEAD+8, HEAD+11
$$NOW^XLFDT HEAD+11

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
Routine Call
  • %ZIS
  • Line Location:
    • EXIT+5
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^DGOTH(33 - [#33] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SORT+7
^DGOTH(33 - [#33] LOOP+4, LOOP+11, CLOCK+2, CLOCK+3, CLOCK+5, CLOCK+6
^TMP("DGOTHR2" START+5

Label References

Name Line Occurrences
$$CHKDATE ALL90+14
$$ISOTH90 LOOP+10
$$SSN ALL90+19
ALL90 LOOP+21
CLOCK LOOP+15
DVISION PRINT+14, PRINT2+2
EXIT START+10
HEAD PRINT+6, PRINT+14, PRINT+25, PRINT+31, PRINT2+2, PRNTFC1+2
LOOP START+7
PAUSE PRINT2+2, PRNTFC1+2
PRINT START+8
PRINT1 PRINT+19, PRINT+27
PRINT2 PRINT1+8, PRINT1+12
PRNTFC PRINT1+3
PRNTFC1 PRNTFC+5, PRNTFC+7
PTNAME PRINT2+2, PRINT2+3
RPTSUM PRINT+31
SORT ALL90+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+4!
DDASH PRINT+1~, PRINT+3*, HEAD+12, HEAD+15
DFN LOOP+5~, LOOP+20*, LOOP+21, ALL90~, ALL90+17, ALL90+19, SSN~, SSN+1, SSN+2
DG90 ALL90+1~, ALL90+3*, ALL90+5, ALL90+6, ALL90+7, ALL90+20, ALL90+22, ALL90+23
DG90A LOOP+1~, LOOP+6!, LOOP+18, LOOP+21, ALL90~
DG90A( CLOCK+6*
DGARR LOOP+1~, LOOP+6!, LOOP+18, LOOP+21, ALL90~
DGARR( ALL90+21
DGARR(33 LOOP+14, LOOP+20, ALL90+18
DGAUTH ALL90+1~, ALL90+4!, ALL90+21*, ALL90+22
DGCLCK LOOP+1~, LOOP+6!, LOOP+16, LOOP+17, SORT~, SORT+12, SORT+13, SORT+16, SORT+17, SORT+20
, SORT+21
DGCLCK( CLOCK+7*, ALL90+20
DGDFN LOOP+1~, LOOP+3*, LOOP+4*, LOOP+8, LOOP+10, LOOP+11, ISOTH90~, ISOTH90+2
DGDIEN LOOP+1~
DGDIV SORT+1~, SORT+2*, SORT+3*, SORT+4, SORT+6, SORT+7, SORT+8, SORT+10, PRINT+2~, PRINT+10*
, PRINT+20*, PRINT1+16
DGDIVNUM SORT+1~, SORT+5!, SORT+6*, SORT+7*, SORT+8, SORT+10, SORT+12, SORT+16, SORT+20
DGDYSLFT ALL90+1~, ALL90+4!, ALL90+7*, ALL90+8, ALL90+22, ALL90+23, SORT~, SORT+20, SORT+21
DGEDT ALL90+1~, ALL90+4!, ALL90+6*, ALL90+14, ALL90+22, CHKDATE~, CHKDATE+1
DGENCTR ALL90+1~, ALL90+15!, ALL90+17, ALL90+23, SORT~
DGENCTR( SORT+3, SORT+4, SORT+6, SORT+8, SORT+10
DGERR LOOP+1~, LOOP+6!, LOOP+13
DGEXP ISOTH90+1~, ISOTH90+2*, ISOTH90+3, ISOTH90+4, ISOTH90+5, ISOTH90+6
DGFAC PRINT+2~, PRINT+13*, PRINT+14, PRINT+15, PRINT+19, PRINT+20, DVISION~, DVISION+1
DGFACLTY HEAD+2~, HEAD+5*, HEAD+7
DGIEN LOOP+1~, LOOP+3*
DGIEN33 LOOP+5~, LOOP+11*, LOOP+12, LOOP+14, LOOP+15, LOOP+18, LOOP+20, LOOP+21, CLOCK~, CLOCK+2
, CLOCK+3, CLOCK+5, CLOCK+6, ALL90~, ALL90+18, ALL90+20
DGIENS ALL90+1~, ALL90+4!, ALL90+20*, ALL90+21
DGLIST START+4~, START+5*, START+6, START+7, START+8, START+9, LOOP~, LOOP+21, ALL90~, SORT+10
, SORT+12, SORT+13, SORT+16, SORT+17, SORT+20, SORT+21, SORT+24, PRINT~, PRINT+4, PRINT+5
, PRINT+15, PRINT+26, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+11, PRNTFC+3, PRNTFC+4
, PRNTFC+6
DGLS365D LOOP+5~, LOOP+17, CLOCK+2*, CLOCK+3, CLOCK+4, ALL90+2
DGLS365I LOOP+5~, CLOCK+3*
DGN CLOCK+1~, CLOCK+5*, CLOCK+6, CLOCK+7
DGNEWDIV PRINT+2~, PRINT+14*, PRINT1+12*, PRINT2+3, PRINT2+4, PRINT2+5
DGOEIEN PRINT+2~, PRINT+12*, PRINT+13, DVISION+1
DGOLD LOOP+1~, LOOP+3*, SORT+23*, PRINT+2~, PRINT+10*, PRINT2+2, PRINT2+3*, PRINT2+4*, PRNTFC1+3*, PRNTFC1+4*
DGOLD365 PRINT+2~, PRINT+10*, PRINT2+3*, PRINT2+4*, PRINT2+5*, PRNTFC1+3*, PRNTFC1+4*, PRNTFC1+5*
DGPAGE PRINT+1~, PRINT+3*, HEAD+3, HEAD+4*, HEAD+6, PAUSE+6
DGPTNM ALL90+1~, ALL90+4!, ALL90+18*, ALL90+23, SORT~, SORT+12, SORT+13, SORT+16, SORT+17, SORT+20
, SORT+21, SORT+23
DGPTSTAT LOOP+5~
DGQ LOOP+1~, LOOP+3*, PRINT+1~, PRINT+3*, PRINT+12, PRINT+13, PRINT+17, PRINT+26, PRINT+28, PRINT+29
, PRINT+30, PRINT1+1, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+7, PRINT1+15, PRINT1+16, PRINT2+2
, PRNTFC+2, PRNTFC+3, PRNTFC1+2, PRNTFC1+7, HEAD+1*, PAUSE~, PAUSE+6*
DGRES LOOP+1~
DGRET LOOP+1~, LOOP+6!, LOOP+19, LOOP+21, ALL90~
DGRET( ALL90+3, ALL90+5, ALL90+6, ALL90+7, ALL90+12, ALL90+13
DGSDT ALL90+1~, ALL90+4!, ALL90+5*, ALL90+14, ALL90+22, SORT+1~, SORT+2*, SORT+4*, SORT+6, SORT+8
, SORT+10, CHKDATE~
DGSORT START+7, START+8, LOOP~, LOOP+21, ALL90~, PRINT~
DGSORT("DGBEG" ALL90+17, CHKDATE+1, RPTSUM+4, HEAD+8
DGSORT("DGEND" ALL90+17, CHKDATE+1, RPTSUM+5, HEAD+8
DGSORT("DGSRTBY" SORT+11, SORT+15, SORT+19, PRINT1+6, PRINT2+3, PRINT2+4, PRNTFC+2, PRNTFC1+3, PRNTFC1+4, HEAD+9
DGSORT("DGSTATUS" LOOP+21, ALL90+8, ALL90+12, ALL90+13, RPTSUM+3, HEAD+10
DGSORT("DIVISION" SORT+8*, PRINT+12, PRINT+13, DVISION+1
DGSORT("REPORT" SORT+12, SORT+16, SORT+20, PRINT+11, PRINT+24, PRINT1+3, PRINT1+6, PRINT1+16, HEAD+9
DGSSN ALL90+1~, ALL90+4!, ALL90+19*, ALL90+22
DGSSN(2 SSN+2
DGSTR PRINT+2~, PRINT+10*, PRINT1+5!, PRINT1+8*, PRINT1+11*, PRINT2+4, PRINT2+6, PTNAME+1, PRNTFC+1!, PRNTFC+4*
, PRNTFC+6*, PRNTFC1+3, PRNTFC1+4, PRNTFC1+6
DGSUB1 PRINT+1~, PRINT+10*, PRINT+26*, PRINT+27, PRINT1~, PRINT1+1, PRINT1+2, PRINT1+4, PRINT1+7, PRINT1+8
, PRINT1+11, PRINT1+16, PRINT2+2, PRNTFC+3, PRNTFC+4, PRNTFC+6, PRNTFC1+3
DGSUB2 PRINT+1~, PRINT+10*, PRINT1+1*, PRINT1+2, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+11, PRINT2+2, PRINT2+3
, PTNAME+1, PRNTFC+3, PRNTFC+4, PRNTFC+6, PRNTFC1+5
DGSUB3 PRINT+1~, PRINT+10*, PRINT1+2*, PRINT1+4, PRINT1+7, PRINT1+8, PRINT1+11, PRINT2+5, PRNTFC+3, PRNTFC+4
, PRNTFC+6, PRNTFC1+4
DGSUB4 PRINT+1~, PRINT+10*, PRINT1+4*, PRINT1+7, PRINT1+8, PRINT1+11, PRINT2+4, PRNTFC+3*, PRNTFC+4
DGSUB5 PRINT+1~, PRINT+10*, PRINT1+7*, PRINT1+8
DGTMP ALL90+1~, ALL90+22*, ALL90+23, SORT~, SORT+12, SORT+13, SORT+16, SORT+17, SORT+20, SORT+21
DGTOTAL LOOP+1~, LOOP+3*, SORT+23*, SORT+24, PRINT+2~, PRINT+3*, PRINT+4*, RPTSUM+5
DIR PAUSE+6!
DIR(0 PAUSE+6*
HERE START+2~*, HEAD+5
I CLOCK+4*, CLOCK+5, CLOCK+6, CLOCK+7, ALL90+1~, ALL90+2*, ALL90+3, ALL90+5, ALL90+6, ALL90+7
, ALL90+12, ALL90+13, ALL90+20, ALL90+22, ALL90+23, SORT~, SORT+12, SORT+13, SORT+16, SORT+17
, SORT+20, SORT+21
II ALL90+1~
IOF HEAD+3, EXIT+3
IOSL PRINT2+2, PRNTFC1+2
IOST START+1, START+3
POP EXIT+4!
RET LOOP+1~, LOOP+6!
TRM START+3~*, HEAD+3, PAUSE+6, EXIT+3
U ALL90+5, ALL90+6, ALL90+7, ALL90+8, ALL90+12, ALL90+13, ALL90+22, SORT+6, SORT+7, SORT+8
, SORT+10, SORT+11, SORT+12, SORT+15, SORT+16, SORT+19, SORT+20, PRINT+11, PRINT+24, PRINT1+3
, PRINT1+6, PRINT1+16, PRINT2+3, PRINT2+4, PRINT2+6, PTNAME+1, PRNTFC+2, PRNTFC1+3, PRNTFC1+4, PRNTFC1+6
, RPTSUM+3, HEAD+5, HEAD+9, HEAD+10
>> VAUTD ALL90+17
>> Y PAUSE+6
>> ZTDESC HEAD+6
>> ZTQUEUED HEAD+1, EXIT+1, EXIT+2
>> ZTREQ EXIT+1*
>> ZTSTOP HEAD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All