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
Print Page as PDF
Routine: SCRPW29

Package: Scheduling

Routine: SCRPW29


Information

SCRPW29 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ;03 Aug 98 8:56 PM

Source Information

Source file <SCRPW29.m>

Entry Points

Name Comments DBIA/ICR reference
XY(X) ;Maintain $X, $Y
MAR ;Margin note
PFC() ;Print field choice
PF ;Print fields prompter
PF1
PFD
PFL ;List print field selections
WAIT
PFR ;Remove print fields per parameter re-edits
APFP ;Addl. print fields print
APF(S1) ;Addl. print field
APF1
OE0() ;Get encounter node
HDR1
VF(SDISP) ;Verify format parameters
VFD
VFS
VP(SDISP) ;Verify perspective parameters
VL(SDISP) ;Verify limitation parameters
VO(SDISP) ;Verify output order parameter
VQ ;Prompt for re-edit
VERICD(ICDERR) ;
DDPH(SDI) ;Detail dx/procedure header
DPHD ;Detail patient subheader
APFH(SDC) ;Addl. print field subheader
APFL(SDC) ;Addl. print field subheader, cont.
HD1 ;Subheader for summary
HD2
HDR(SDTITL) ;Print report header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X
  • Line Location: XY+2
Function Call: WRITE
  • Prompt: !,"This report requires 132 column output!",!
  • Line Location: MAR+1
Function Call: WRITE
  • Prompt: !!?10,$$XY(IORVON),"Select additional print fields for patient detail: (optional)",$$XY(IORVOFF)
  • Line Location: PF1+0
Function Call: WRITE
  • Prompt: !,"deleted..."
  • Line Location: PFD+1
Function Call: WRITE
  • Prompt: !!,"Additional print fields currently selected:"
  • Line Location: PFL+1
Function Call: WRITE
  • Prompt: !,$J($P(SDX,U,2)_": ",30),$P(SDX,U,3)
  • Line Location: PFL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDII
  • Line Location: APF+1
Function Call: WRITE
  • Prompt: ?(SDC),$P(SDACT,T),": "
  • Line Location: APF+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: SDIII
  • Line Location: APF1+6
Function Call: WRITE
  • Prompt: ?(SDC1),$E(^UTILITY($J,"W",DIWL,SDL2,0),1,(51-(SDC1-SDC)+(81-SDC)))
  • Line Location: APF1+6
Function Call: WRITE
  • Prompt: !,$C(7),$$XY(IORVON)," ",SDV," parameters are incomplete.",$$XY(IORVOFF)
  • Line Location: VQ+2
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDX)\2),SDX,!?(IOM-$L(SDX)\2),$E(SDLINE,1,$L(SDX))
  • Line Location: DDPH+3
Function Call: WRITE
  • Prompt: !?(SDCOL),"Diagnosis",?(SDCOL+49),"Primary",?(SDCOL+62),"Secondary",?(SDCOL+81),"Total"
  • Line Location: DDPH+4
Function Call: WRITE
  • Prompt: !?(SDCOL),"------------------------------------------",?(SDCOL+46),"----------",?(SDCOL+61),"----------",?(SDCOL+76),"----------"
  • Line Location: DDPH+5
Function Call: WRITE
  • Prompt: !?(SDCOL+13),"Procedures",?(SDCOL+61),"Total",!?(SDCOL+13),"--------------------------------------",?(SDCOL+56),"----------"
  • Line Location: DDPH+6
Function Call: READ
  • Prompt: S"
  • Variable: SDF(4)="V"
  • Timeout: "V
  • Line Location: DPHD+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDX)\2),SDX,!?(IOM-$L(SDX)\2),$E(SDLINE,1,$L(SDX))
  • Line Location: DPHD+2
Function Call: WRITE
  • Prompt: !?(SDCOL),"Patient:",?(SDCOL+20),"SSN:",?(SDCOL+32),"Date:",?(SDCOL+52),"Location:"
  • Line Location: DPHD+3
Function Call: WRITE
  • Prompt: !?(SDCOL),$E(SDLINE,1,18),?(SDCOL+20),$E(SDLINE,1,10),?(SDCOL+32),$E(SDLINE,1,18),?(SDCOL+52),$E(SDLINE,1,28)
  • Line Location: DPHD+3
Function Call: WRITE
  • Prompt: !?(SDCOL+13),"Patient:",?(SDCOL+45),"SSN:",?(SDCOL+57),"Date:"
  • Line Location: DPHD+4
Function Call: WRITE
  • Prompt: !?(SDCOL+13),$E(SDLINE,1,30),?(SDCOL+45),$E(SDLINE,1,10),?(SDCOL+57),$E(SDLINE,1,11)
  • Line Location: DPHD+4
Function Call: WRITE
  • Prompt: !?(SDCOL+19),"Patient:",?(SDCOL+51),"SSN:"
  • Line Location: DPHD+5
Function Call: WRITE
  • Prompt: !?(SDCOL+19),$E(SDLINE,1,30),?(SDCOL+51),$E(SDLINE,1,10)
  • Line Location: DPHD+5
Function Call: WRITE
  • Prompt: ?(SDC),"Additional print fields:"
  • Line Location: APFH+1
Function Call: WRITE
  • Prompt: ?(SDC),$E(SDLINE,1,51)
  • Line Location: APFL+1
Function Call: WRITE
  • Prompt: !?77,"Prior",?87,"Prior",?97,"Prior",?105,"Percent",?115,"Percent",?125,"Percent"
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: !?78,"Year",?88,"Year",?98,"Year",?106,"Change",?116,"Change",?126,"Change"
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !?(SDCOL),$P(SDPAR("P",1,1),U,2),":",?(SDCOL+44),"Encount.",?(SDCOL+56),"Visits",?(SDCOL+65),"Uniques"
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: ?74,"Encount.",?86,"Visits",?95,"Uniques",?104,"Encount.",?116,"Visits",?125,"Uniques"
  • Line Location: HD1+4
Function Call: WRITE
  • Prompt: !?(SDCOL),"------------------------------------------ -------- -------- -------- "
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: "-------- -------- -------- -------- -------- --------"
  • Condition for execution: SDCOL=0
  • Line Location: HD1+5
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDPTX(SDI))\2),SDPTX(SDI)
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: SDLINE,!?(IOM-28\2),"<*> ACRP AD HOC REPORT <*>"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTITLX)\2),SDTITLX
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTITL)\2),SDTITL,!,SDLINE,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "For date range: ",SDPBDT," to ",SDPEDT,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Date printed: ",SDPNOW,?(IOM-7-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls