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 |  Marked Items |  All
Print Page as PDF
Routine: SDAMODO3

Package: Scheduling

Routine: SDAMODO3


Information

SDAMODO3 ;ALB/SCK - PROVIDER DIAGNOSTICS REPORT OUTPUT ; 05 Oct 98 8:44 PM

Source Information

Source file <SDAMODO3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 $$NOW^VALM1  
Scheduling 1 ^SDAMODO1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDAMODO2  

Entry Points

Name Comments DBIA/ICR reference
SELDX(DX) ;
NOREP ;
HDRQ
PRNT(I) ;
LINE2 ;
SUBCNT(SB1,SB1P) ;
PRNTQ
START ;
HDR(SDIV) ;
SELDXQ
EXIT ;
LINE1 ;
SELPRVQ
REPORT ;
SELPRV(PRV) ;
SUBCNTQ

External References

Name Field # of Occurrence
^DIC SELDX+4
^DIR HDR+6
^SDAMODO1 SUBCNT+2, HDR+10, NOREP+1
$$NOW^VALM1 HDR+11, NOREP+2
$$FMTE^XLFDT LINE1+4, HDR+12, NOREP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SUBCNT," ",$S(SORT2=1!(SORT2=2):"Primary "_$P($T(SORT+SORT2^SDAMODO1),";;",2),1:$P($T(SORT+SORT2^SDAMODO1),";;",2))," entries for ",$S(SORT1=1!(SORT1=3):$P(SB1P,"^"),SORT1=5:$P($G(^DIC(40.7,SB1P,0)),U),1:SB1P),!!
  • Line Location: SUBCNT+2
Function Call: WRITE
  • Prompt: !,$P(^DPT($P($G(SDATA),U),0),U)_" "_$P(SDSID,"-",3)
  • Line Location: LINE1+2
Function Call: WRITE
  • Prompt: ?32,$P($$FMTE^XLFDT(OEN,1),":",1,2)
  • Line Location: LINE1+4
Function Call: WRITE
  • Prompt: ?55,$E($P(SDATA,U,3),1,25)
  • Line Location: LINE1+5
Function Call: WRITE
  • Prompt: ?90,$S(+$P(SDATA,U,5)>0:$P(^VA(200,+$P(SDATA,U,5),0),U),1:$P(SDATA,U,5))
  • Line Location: LINE1+6
Function Call: WRITE
  • Prompt: ?117,$P(SDATA,U,6)
  • Line Location: LINE1+7
Function Call: WRITE
  • Prompt: !?56,$P($G(^DIC(40.7,+SCODE,0)),U,2),"/",$P($G(^DIC(40.7,+SCODE,0)),U)
  • Line Location: LINE2+2
Function Call: WRITE
  • Prompt: ?90,$S(+SDPRX>0:$P(^VA(200,SDPRX,0),U),1:"")
  • Line Location: LINE2+3
Function Call: WRITE
  • Prompt: ?117,SDDX1
  • Line Location: LINE2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE2+11
Function Call: WRITE
  • Prompt: ?90,$S(+SDPRX>0:$P(^VA(200,SDPRX,0),U),1:"")
  • Line Location: LINE2+12
Function Call: WRITE
  • Prompt: ?117,SDDX1
  • Line Location: LINE2+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"Provider/Diagnosis Encounter Report sorted by ",$P($T(SORT+SORT1^SDAMODO1),";;",2)," and ",$P($T(SORT+SORT2^SDAMODO1),";;",2)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@"),?(IOM-10),"Page: ",PAGE
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(SDBEG,1),"@")," to ",$P($$FMTE^XLFDT(SDEND,1),"@")
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Division: ",$P($G(^DG(40.8,SDIV,0)),U)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,"PATIENT",?32,"ENCOUNTER DATE",?55,"CLINIC/PRIMARY STOP CODE",?90,"PROVIDER",?117,"DX CODE"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"-------------------",?32,"------------------",?55,"------------------------",?90,"--------------",?117,"-------"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !!,"Provider/Diagnosis Report sorted by ",$P($T(SORT+SORT1^SDAMODO1),";;",2)," and ",$P($T(SORT+SORT2^SDAMODO1),";;",2)
  • Line Location: NOREP+1
Function Call: WRITE
  • Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@")
  • Line Location: NOREP+2
Function Call: WRITE
  • Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(SDBEG,1),"@")," to ",$P($$FMTE^XLFDT(SDEND,1),"@")
  • Line Location: NOREP+3
Function Call: WRITE
  • Prompt: !!,"No data found matching sort parameters"
  • Line Location: NOREP+4
Routine Call
  • DIC
  • Line Location:
    • SELDX+4
Routine Call
  • DIR
  • Line Location:
    • HDR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] HDR+13
^DIC(40.7 - [#40.7] SUBCNT+2, LINE2+2
^DPT - [#2] LINE1+2
^TMP("SDRPT" REPORT+1, START+4, START+6, START+9, START+10, START+11, EXIT+1!, PRNT+2, PRNT+3, PRNT+4
^VA(200 - [#200] LINE1+6, LINE2+3, LINE2+12

Label References

Name Line Occurrences
$$HDR START+5, START+8, PRNT+7, LINE2+10
$$PRNT START+11
$$SELDX PRNT+6
$$SELPRV PRNT+5
$$SUBCNT START+5, START+7, START+12
EXIT REPORT+1
HDRQ HDR+3
NOREP REPORT+1
PRNTQ PRNT+5, PRNT+6, PRNT+7
SELDXQ SELDX+2, SELDX+4, SELDX+5
SELPRVQ SELPRV+2, SELPRV+3
SUBCNTQ SUBCNT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC SELDX+3*, SELDX+4!
DIC(0 SELDX+3*
DIR HDR+4!, HDR+6!
DIR("?" HDR+5*
DIR("A" HDR+4*
DIR(0 HDR+4*
>> DTOUT HDR+6
>> DUOUT HDR+6
DX SELDX~, SELDX+3
I START+11*, PRNT~, PRNT+2, PRNT+3, PRNT+4
IOF START+3, HDR+7, HDR+9
IOM HDR+11, NOREP+2
IOSL PRNT+7, LINE2+10
IOST START+3, HDR+3, HDR+9
OEN START+1~, START+10*, START+11, PRNT+2, PRNT+3, PRNT+4, LINE1+4
PAGE START+2*, EXIT+1!, HDR+8*, HDR+11
>> PDIAG SELDX+2
>> PDIAG( SELDX+5
>> PROVDR SELPRV+2
>> PROVDR( SELPRV+3
PRV SELPRV~, SELPRV+3
QFLAG START+2*, EXIT+1!, PRNTQ, HDR+3, HDR+6*
SB1 SUBCNT~, SUBCNTQ
SB1P SUBCNT~, SUBCNT+1, SUBCNT+2
SCODE PRNT+1~, LINE2+1*, LINE2+2
SDATA START+1~, PRNT+1~, PRNT+2*, LINE1+1, LINE1+2, LINE1+5, LINE1+6, LINE1+7, LINE2+1
>> SDBEG HDR+12, NOREP+3
SDCHECK START+1~, START+10*, LINE1+3*
SDDX1 PRNT+1~, LINE2+4*, LINE2+7*, LINE2+9, LINE2+13
>> SDEND HDR+12, NOREP+3
SDFIN START+2*, START+4, START+5*, START+6, START+8*, START+9, START+10, START+11*, EXIT+1!
SDIV START+1~, START+2*, START+4*, START+5, START+6, START+8, START+9, START+10, START+11, PRNT+2
, PRNT+3, PRNT+4, PRNT+7, LINE2+10, HDR~, HDR+13
SDONE EXIT+1!, LINE2+5*, LINE2+6, LINE2+9*, LINE2+10*
SDPRX START+1~, PRNT+1~, LINE2+3*, LINE2+8*, LINE2+9, LINE2+12
SDSID PRNT+1~, LINE1+1*, LINE1+2, LINE1+3
SDVC START+2*, START+5*, EXIT+1!, HDR+3, HDR+9
SDX START+1~, PRNT+1~
SDX( PRNT+4*, LINE2+4, LINE2+7
>> SORT1 START+8, SUBCNT+2, PRNT+5, PRNT+6, LINE2+3, LINE2+4, LINE2+12, LINE2+13
>> SORT2 SUBCNT+2
SPRV START+1~, PRNT+1~
SPRV( PRNT+3*, LINE2+3, LINE2+8
SUB1 START+1~, START+2*, START+5, START+6*, START+7, START+8, START+9, START+10, START+11, START+12
, PRNT+2, PRNT+3, PRNT+4, PRNT+5, PRNT+6
SUB2 START+1~, START+2*, START+9*, START+10, START+11, PRNT+2, PRNT+3, PRNT+4
SUBCNT START+2*, START+10*, EXIT+1!, SUBCNT+1, SUBCNT+2, SUBCNT+3*, LINE1+3*
SUBX START+2*, START+5*, START+7*, START+8, START+12*, EXIT+1!
U SUBCNT+2, LINE1+1, LINE1+2, LINE1+5, LINE1+6, LINE1+7, LINE2+1, LINE2+2, LINE2+3, LINE2+12
, HDR+13, SELDX+5
>> X SELDX+3*
XX EXIT+1!, PRNT+1~, PRNT+3*, PRNT+4*, LINE2+6*
Y PRNT+1~, PRNT+5*, PRNT+6*, PRNT+7*, LINE2+14*, PRNTQ*, HDR+1~, HDR+2*, HDR+16*, HDRQ
, SELPRV+1~*, SELPRV+4*, SELPRVQ, SELDX+1~*, SELDX+4*, SELDX+5, SELDX+6*, SELDXQ

Marked Items

Name Field # of Occurrence
$T(SORT+SORT1^SDAMODO1 HDR+10, NOREP+1
$T(SORT+SORT2^SDAMODO1 SUBCNT+2, HDR+10, NOREP+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 |  Marked Items |  All