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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Scheduling 5 ($$DIR,DISP)^SCRPW23  STOP^SCRPW26  HIN^SCRPW27  ($$CSI,$$IMP)^SCRPWICD  $$GETOE^SDOE  
VA FileMan 2 ^DIR  ^DIWP  

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

Package Total Caller Graph
Scheduling 4 SCRPW20  SCRPW21  SCRPW22  SCRPW27  

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

External References

Name Field # of Occurrence
^DIR PFD, WAIT, VQ+3, HDR+1
^DIWP APF1+4
$$DIR^SCRPW23 PF1+2, PF1+3
DISP^SCRPW23 PF+3
STOP^SCRPW26 HDR+2
HIN^SCRPW27 HDR+3
$$CSI^SCRPWICD VERICD+18, VERICD+33
$$IMP^SCRPWICD VERICD+4
$$GETOE^SDOE OE0+2

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
Routine Call
  • DIR
  • Line Location:
    • PFD
    • WAIT
    • VQ+3
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" HDR+2
^DD("DD" VERICD+4
^TMP("SCRPW" PF1+5, APF+1
^UTILITY($J APF1+4!, APF1+5, APF1+6

Label References

Name Line Occurrences
$$OE0 APF1+1
$$XY PF1, VQ+2
@( VF+2
APF APFP+1
APF1 APF+1
APFH DPHD+3, DPHD+4, DPHD+5
APFL DPHD+3, DPHD+4, DPHD+5
DPHD HDR1
HD2 HDR1
HDR HDR1
HDR1 APF+1, APF1+3
PF1 PF+5
PFD PF1+4
PFL PF+5
VQ VF+1, VFD+1, VFD+2, VFD+3, VFS+2, VP+1, VP+2, VL+2, VO+1
WAIT PFL+2, PFL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CSYS VERICD+1~, VERICD+7*, VERICD+18, VERICD+33, VERICD+34
>> DFN OE0+1
DIR PF1+1!, PF1+2, PF1+3!, PFD~, WAIT~, VQ+3~, HDR+1~
DIR("?" PF1+1*
DIR("A" PF1+1*, PF1+3*, PFD*, VQ+3*
DIR("B" PFD*, VQ+3*
DIR(0 PFD*, WAIT*, VQ+3*, HDR+1*
DIWF APF1~, APF1+2*
DIWL APF1~, APF1+2*, APF1+5, APF1+6
>> DTOUT PFD, VQ+3
>> DUOUT PFD, VQ+3
DX XY+2~*, HDR+3~*
DY XY+2~*, HDR+3~*
I10DTE VERICD+1~, VERICD+4*, VERICD+19, VERICD+20
I10DTI VERICD+1~, VERICD+4*, VERICD+7
ICDERR VERICD~, VERICD+19*, VERICD+20*, VERICD+22, VERICD+34*, VERICD+36
IOF HDR+3
IOM DDPH+3, DPHD+2, HD2, HDR+4, HDR+5, HDR+6
>> IORVOFF PF1, VQ+2
>> IORVON PF1, VQ+2
IOSL APF+1, APF1+3
IOST HDR+1
S1 PF1+2*, PF1+3, PF1+4, PF1+5, PFD+1*, PFL+2*, APFP+1~, APF~, APF+1
S2 PF1+3*, PF1+4, PF1+5, PFD+1*, PFL+2*, PFR+3*, APFP+1~, APF+1*
SDACT APFP+1~, APF+1*, APF1+1
SDBOT PF+2!, PF+3
SDBOT(1 PF+2*
SDBOT(2 PF+2*
SDBOT(3 PF+2*
SDC APFP+1~*, APF+1, APF1+1, APF1+2, APF1+6, APFH~, APFH+1, APFL~, APFL+1
SDC1 APFP+1~, APF1+1*, APF1+2, APF1+6
>> SDCOL DDPH+4, DDPH+5, DDPH+6, DPHD+3, DPHD+4, DPHD+5, HD1+1, HD1+2, HD1+3, HD1+4
, HD1+5
>> SDD PF+4*, PF1+2, PF1+3
>> SDF(4 APFP+1, OE0+1, DPHD+1, DPHD+3, DPHD+4, DPHD+5
>> SDF(5 DDPH+1
>> SDHIN HDR+3
SDI PFL+1~*, PFL+2*, APFP+1, HDR1*, VF+1~, VFD*, VFS*, VFS+1*, VL+1~*, VERICD+1~
, VERICD+27*, VERICD+28*, VERICD+29, VERICD+30, VERICD+31, VERICD+32, DDPH~, DDPH+2, DDPH+4, DDPH+5
, DDPH+6, HD2~*
SDII APFP+1~*, APF+1*, HDR1*, DDPH+1*
SDIII APFP+1~, APF1+1*, APF1+5*, APF1+6, HDR1*
SDISP VF~, VP~, VL~, VO~, VQ+2
SDL2 APF1~, APF1+5*, APF1+6
>> SDLINE DDPH+3, DPHD+2, DPHD+3, DPHD+4, DPHD+5, APFL+1, HD2+1, HDR+4, HDR+5, HDR+6
>> SDNUL PF+4*, PF+5, PF1+2, PF1+3*
>> SDOE OE0+2
SDOE0 APFP+1~, APF1+1*
SDOUT PF+1, PF+4*, PF+5, PF1+2, PF1+3, PFL+1~*, PFL+2, PFL+3, WAIT*, PFR+2
, PFR+3, APF+1, APF1+3, OE0+1, VQ+2*, VQ+3*, DDPH+1, DPHD+1, APFH+1, APFL+1
, HD1+1, HD2, HDR+1*, HDR+2
>> SDPAGE HDR+1, HDR+3, HDR+6*
>> SDPAR( PF1+5*
>> SDPAR("F" MAR+1, PFC+1, PF+1, PF+4, PFR+1, PFR+2, VF+1, VFD!, VFD+2, VFD+3
, VFS!, VFS+1, VP+2
>> SDPAR("L" VL+1, VERICD+7, VERICD+28, VERICD+29, VERICD+30, VERICD+31, VERICD+32
>> SDPAR("O" VO+1
>> SDPAR("P" VP+1, VP+2, VERICD+14, VERICD+15, VERICD+16, VERICD+17, HD1+3
>> SDPAR("PF" MAR+1, PFD+1!, PFL+1, PFL+2, PFR+1!, PFR+3!, APFP+1, APF+1, APFH+1, APFL+1
>> SDPAR("PFX" PF1+4, PF1+5*, PFD+1, PFR+1!, PFR+3!
>> SDPAR("SDX" PFD+1!
>> SDPBDT HDR+5
>> SDPEDT HDR+5
>> SDPNOW HDR+6
>> SDPTX( HD2
>> SDS1 PF+4*, PF+5*, PF1+5
>> SDS2 PF1+5*
>> SDS3 PF1+5*
>> SDSEL PF1+4*, PF1+5, PFD+1, PFR+3*
SDTITL HDR~, HDR+5
>> SDTITLX HDR+4
SDV VF+1~*, VFD*, VFD+1*, VFD+2*, VFD+3*, VFS+1*, VFS+2*, VP+1*, VP+2*, VL+1~*
, VL+2*, VO+1*, VQ+2, VQ+3, VERICD+1~, VERICD+28
SDX PFL+1~, PFL+2*, APFP+1~, APF1+1!*, APF1+3*, APF1+4, VF+1~*, VF+2, VERICD+1~, VERICD+14*
, VERICD+15*, VERICD+16*, VERICD+17*, VERICD+18*, VERICD+19, VERICD+20, VERICD+29*, VERICD+30*, VERICD+31*, VERICD+32*
, VERICD+33*, DDPH+1~*, DDPH+2*, DDPH+3, DPHD+1~*, DPHD+2
SDX( APF1+3, APF1+4
>> SDXY XY+2, HDR+2*, HDR+3
SDY APFP+1~, APF+1*
>> T PF1+5, APF+1, APF1+1
U MAR+1, PFC+1, PF+1, PF+4, PF1+3, PF1+4, PF1+5, PFL+2, PFR+1, PFR+2
, PFR+3, APF+1, APF1+4, OE0+1, VF+2, VFD+2, VP+2, VERICD+7, VERICD+14, VERICD+15
, VERICD+16, VERICD+29, VERICD+30, VERICD+31, HD1+3
X XY~, XY+2, APF1+4*
>> Y PFD+1, WAIT, VQ+3, VERICD+4*, HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All