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

Entry Points

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

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 "_$S(SDBEG<ICD10IMPDT:"(ICD9)",1:"(ICD10)")_" CODE"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,"-------------------",?32,"------------------",?55,"------------------------",?90,"--------------",?117,"---------------"
  • Line Location: HDR+16
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call