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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDSCRPT2

Package: Scheduling

Routine: SDSCRPT2


Information

SDSCRPT2 ;ALB/JAM/RBS - ASCD SB/Reports for Service Connected Automated Monitor ; 3/5/07 12:11pm

Source Information

Source file <SDSCRPT2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 $$FMTE^XLFDT  $$UP^XLFSTR  $$NAME^XUSER  
Registration 2 RDIS^DGRPDB  (DEM,KVA)^VADPT  
VA Fileman 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 $$ICDDX^ICDCODE  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Scheduling 5 SDSCMSR  SDSCPRV  SDSCRPT1  SDSCSSD  SDSCUSR  

Entry Points

Name Comments DBIA/ICR reference
STDHDR ; tag for all of the standard report header calls
; Do not ask 'RETURN' before first page on CRT.
DIS2S ; Loop through and display all rated disabilities for this patient.
RVWHD ; Display the header for the User Service Connected Review Report.
; Do standard header setup
PRVHD ; Display the header for the Provider Service Connected Review Report.
; Do standard header setup
CTDIS() ; Count all rated disabilities for this patient.
CTPOV() ; Count all POV entries for the specified visit.
POV2S ; Loop through and display all POV entries for the specified visit.
NBILLBD ; Body of the Non Service Connected Billable Encounter reports
HEADER ; Display an appropriate header for this report.
; Do standard header setup
NBILLHD ; Display an appropriate header for this report.
; Do standard header setup
RVWBD ; Body of the User Service Connected Review Report
; This routine will display the Activity during a review
; Start a new page for every user.
ENCBDDT ; Detailed Body of the Disability/POV Encounter report
PRVBD ; Body of the Provider Service Connected Review Report
; This routine will display the Activity during a review
; Start a new page for every provider.

External References

Name Field # of Occurrence
RDIS^DGRPDB CTDIS+3, DIS2S+3
$$GET1^DIQ PRVBD+19, PRVBD+20, RVWBD+14, RVWBD+15, RVWBD+18, RVWBD+19
^DIR STDHDR+2
$$ICDDX^ICDCODE POV2S+4
DEM^VADPT ENCBDDT+4, NBILLBD+5, PRVBD+15
KVA^VADPT ENCBDDT+7, PRVBD+17
$$FMTE^XLFDT HEADER+4, ENCBDDT+3, NBILLHD+4, NBILLBD+3, PRVHD+5, PRVBD+13, RVWHD+5, RVWBD+12, RVWBD+19
$$UP^XLFSTR PRVBD+7, RVWBD+7
$$NAME^XUSER PRVBD+7, RVWBD+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " & NON SERVICE CONNECTED"
  • Condition for execution: SDOPT=2
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?67,"PAGE: ",P
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?5,"ENCOUNTERS DATED ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: " By Division: "_SDSCDNM
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"DATE",?18,"PATIENT",?50,"ENCOUNTER",?65,"SC VALUE",!,!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SDOEDT,"5MZ")
  • Line Location: ENCBDDT+3
Function Call: WRITE
  • Prompt: ?18,$E(VADM(1),1,25)_" ("_$E($P(VADM(2),U),6,9)_")"
  • Line Location: ENCBDDT+6
Function Call: WRITE
  • Prompt: ?50,SDOE,?65,$S(SCVAL:"YES",SCVAL=0:"NO",1:"TBD"),!
  • Line Location: ENCBDDT+9
Function Call: WRITE
  • Prompt: !,!
  • Line Location: ENCBDDT+18
Function Call: WRITE
  • Prompt: SDHDR,?67,"PAGE: ",P
  • Line Location: NBILLHD+3
Function Call: WRITE
  • Prompt: !,?5,"FOR ENCOUNTERS DATED ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
  • Line Location: NBILLHD+4
Function Call: WRITE
  • Prompt: " By Division: "_SDSCDNM
  • Line Location: NBILLHD+5
Function Call: WRITE
  • Prompt: !,"DATE",?18,"PATIENT",?50,"ENCOUNTER",!,!
  • Line Location: NBILLHD+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SDOEDT,"5MZ")
  • Line Location: NBILLBD+3
Function Call: WRITE
  • Prompt: ?18,$E(VADM(1),1,25)_" ("_$E($P(VADM(2),U),6,9)_")"
  • Line Location: NBILLBD+6
Function Call: WRITE
  • Prompt: ?50,SDOE,!
  • Line Location: NBILLBD+8
Function Call: WRITE
  • Prompt: SDHDR,?67,"PAGE: ",P
  • Line Location: PRVHD+4
Function Call: WRITE
  • Prompt: !,?5,"FOR ENCOUNTERS DATED ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
  • Line Location: PRVHD+5
Function Call: WRITE
  • Prompt: " By Division: "_SDSCDNM
  • Line Location: PRVHD+6
Function Call: WRITE
  • Prompt: !,?5,"ENCOUNTER DATE",?23,"PATIENT NAME",?56,"ENC #",?65,"VBA SC",?73,"USER SC",!,!
  • Line Location: PRVHD+7
Function Call: WRITE
  • Prompt: $$UP^XLFSTR($$NAME^XUSER(SDPROV,"F"))
  • Line Location: PRVBD+7
Function Call: WRITE
  • Prompt: " (cont'd)"
  • Line Location: PRVBD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRVBD+10
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT(SDOEDT,"5MZ")
  • Line Location: PRVBD+13
Function Call: WRITE
  • Prompt: ?23,$E(VADM(1),1,25)_" ("_$E($P(VADM(2),U),6,9)_")"
  • Line Location: PRVBD+16
Function Call: WRITE
  • Prompt: ?56,SDOE,?65,SDSCCVB,?73,SDSCCUB
  • Line Location: PRVBD+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PRVBD+23
Function Call: WRITE
  • Prompt: !,!
  • Line Location: PRVBD+31
Function Call: WRITE
  • Prompt: SDHDR,?67,"PAGE: ",P
  • Line Location: RVWHD+4
Function Call: WRITE
  • Prompt: !,?5,"FOR ENCOUNTERS DATED ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
  • Line Location: RVWHD+5
Function Call: WRITE
  • Prompt: " By Division: "_SDSCDNM
  • Line Location: RVWHD+6
Function Call: WRITE
  • Prompt: !,?5,"ENCOUNTER DATE",?23,"ENC #",?33,"VBA SC",?40,"USER SC",?50,"STATUS",?60,"DATE LAST EDITED",!,!
  • Line Location: RVWHD+7
Function Call: WRITE
  • Prompt: $$UP^XLFSTR($$NAME^XUSER(SDLEB,"F"))
  • Line Location: RVWBD+7
Function Call: WRITE
  • Prompt: " (cont'd)"
  • Line Location: RVWBD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RVWBD+10
Function Call: WRITE
  • Prompt: ?5,$$FMTE^XLFDT(SDOEDT,"5MZ")
  • Line Location: RVWBD+12
Function Call: WRITE
  • Prompt: ?23,SDOE,?33,SDSCCVB,?40,SDSCCUB
  • Line Location: RVWBD+17
Function Call: WRITE
  • Prompt: ?48,$$GET1^DIQ(409.48,SDOE,.05,"E")
  • Line Location: RVWBD+18
Function Call: WRITE
  • Prompt: ?60,$$FMTE^XLFDT($$GET1^DIQ(409.48,SDOE,.02,"E"),"5MZ")
  • Line Location: RVWBD+19
Function Call: WRITE
  • Prompt: !
  • Line Location: RVWBD+20
Function Call: WRITE
  • Prompt: !,!
  • Line Location: RVWBD+28
Function Call: WRITE
  • Prompt: !!,?10,"POVs/ICDs:"
  • Line Location: POV2S+2
Function Call: WRITE
  • Prompt: !?15,$P(SDICD,U,2),?23,$P(SDICD,U,4)
  • Line Location: POV2S+5
Function Call: WRITE
  • Prompt: !!,?10,"Rated Disabilities:"
  • Line Location: DIS2S+1
Function Call: WRITE
  • Prompt: !,?15,I2
  • Line Location: DIS2S+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STDHDR+4
Routine Call
  • DIR
  • Line Location:
    • STDHDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SDSC(409.48 - [#409.48] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV - [#9000010.07] POV2S+4
^AUPNVPOV("AD" CTPOV+3, POV2S+3
^DIC(31 - [#31] DIS2S+6

Label References

Name Line Occurrences
$$CTDIS ENCBDDT+15, PRVBD+28, RVWBD+25
$$CTPOV ENCBDDT+1, ENCBDDT+13, PRVBD+4, PRVBD+26, RVWBD+4, RVWBD+23
DIS2S ENCBDDT+16, PRVBD+29, RVWBD+26
HEADER ENCBDDT+1, ENCBDDT+13, ENCBDDT+15, ENCBDDT+17
NBILLHD NBILLBD+1, NBILLBD+9
POV2S ENCBDDT+14, PRVBD+27, RVWBD+24
PRVHD PRVBD+4, PRVBD+33
RVWHD PRVBD+26, PRVBD+28, PRVBD+30, RVWBD+4, RVWBD+23, RVWBD+25, RVWBD+27, RVWBD+29
STDHDR HEADER+2, NBILLHD+2, PRVHD+2, RVWHD+2

Naked Globals

Name Field # of Occurrence
^(0 DIS2S+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN ENCBDDT+4~*, NBILLBD+5~*, PRVBD+3~, PRVBD+15*
DIR STDHDR+2~
DIR(0 STDHDR+2*
I CTDIS+1~, CTDIS+2*, CTDIS+4*, DIS2S+2~, DIS2S+4*, DIS2S+5
I1 DIS2S+2~, DIS2S+5*, DIS2S+6
I2 DIS2S+2~, DIS2S+6*, DIS2S+7
I3 CTDIS+1~, CTDIS+2*, CTDIS+4*, CTDIS+5, DIS2S+2~, DIS2S+4*, DIS2S+6*
IOF STDHDR+4
IOSL ENCBDDT+1, ENCBDDT+13, ENCBDDT+15, ENCBDDT+17, NBILLBD+1, NBILLBD+9, PRVBD+4, PRVBD+26, PRVBD+28, PRVBD+30
, PRVBD+33, RVWBD+4, RVWBD+23, RVWBD+25, RVWBD+27, RVWBD+29
IOST STDHDR+2, STDHDR+4
>> L ENCBDDT+1, ENCBDDT+9*, ENCBDDT+13, ENCBDDT+15, ENCBDDT+17, ENCBDDT+18*, NBILLBD+1, NBILLBD+8*, NBILLBD+9, PRVBD+4
, PRVBD+10*, PRVBD+23*, PRVBD+26, PRVBD+28, PRVBD+30, PRVBD+31*, PRVBD+33, RVWBD+4, RVWBD+10*, RVWBD+20*
, RVWBD+23, RVWBD+25, RVWBD+27, RVWBD+28*, RVWBD+29, POV2S+2*, POV2S+5*, DIS2S+1*, DIS2S+7*, STDHDR+5*
>> P HEADER+3, NBILLHD+3, PRVHD+4, RVWHD+4, STDHDR+2, STDHDR+4, STDHDR+5*
SCRD CTDIS+1~, CTDIS+3, DIS2S+2~, DIS2S+3
SCRD( CTDIS+4, DIS2S+4, DIS2S+5
>> SCVAL ENCBDDT+9
>> SDABRT HEADER+2, ENCBDDT+1, ENCBDDT+13, ENCBDDT+15, ENCBDDT+17, NBILLHD+2, NBILLBD+1, NBILLBD+9, PRVHD+2, PRVBD+4
, PRVBD+24, PRVBD+26, PRVBD+28, PRVBD+30, PRVBD+33, RVWHD+2, RVWBD+4, RVWBD+21, RVWBD+23, RVWBD+25
, RVWBD+27, RVWBD+29, STDHDR+2*
SDCT CTPOV+1~, CTPOV+2*, CTPOV+3*, CTPOV+4
>> SDDET ENCBDDT+1, ENCBDDT+11, PRVBD+4, PRVBD+23, PRVBD+24, RVWBD+4, RVWBD+20, RVWBD+21
>> SDEDT HEADER+4, NBILLHD+4, PRVHD+5, RVWHD+5
>> SDHDR NBILLHD+3, PRVHD+4, RVWHD+4
SDICD POV2S+1~, POV2S+4*, POV2S+5
>> SDLEB RVWBD+7
>> SDNWPV PRVHD+3*, PRVBD+6, PRVBD+8*, RVWHD+3*, RVWBD+6, RVWBD+8*
>> SDOE ENCBDDT+9, NBILLBD+8, PRVBD+19, PRVBD+20, PRVBD+22, RVWBD+14, RVWBD+15, RVWBD+17, RVWBD+18, RVWBD+19
>> SDOEDT ENCBDDT+3, NBILLBD+3, PRVBD+13, RVWBD+12
>> SDOPT HEADER+3
>> SDPAT ENCBDDT+4, NBILLBD+5, PRVBD+15, CTDIS+3, DIS2S+3
>> SDPOV POV2S+4*
>> SDPROV PRVBD+7
>> SDPVCN PRVBD+4*, PRVBD+9*, PRVBD+26*, PRVBD+28*, PRVBD+30*, PRVBD+33*, RVWBD+4*, RVWBD+9*, RVWBD+23*, RVWBD+25*
, RVWBD+27*, RVWBD+29*
SDSCCUB PRVBD+3~, PRVBD+20*, PRVBD+21*, PRVBD+22, RVWBD+3~, RVWBD+15*, RVWBD+16*, RVWBD+17
SDSCCVB PRVBD+3~, PRVBD+19*, PRVBD+22, RVWBD+3~, RVWBD+14*, RVWBD+17
>> SDSCDNM HEADER+5, NBILLHD+5, PRVHD+6, RVWHD+6
>> SDSCTDT HEADER+4, NBILLHD+4, PRVHD+5, RVWHD+5
>> SDV0 CTPOV+3, POV2S+3
SDVPOV0 CTPOV+1~, CTPOV+3*, POV2S+1~, POV2S+3*, POV2S+4
U ENCBDDT+6, NBILLBD+6, PRVBD+16, POV2S+4, POV2S+5, DIS2S+6
VADM ENCBDDT+4~, NBILLBD+5~, PRVBD+3~
VADM(1 ENCBDDT+6, NBILLBD+6, PRVBD+16
VADM(2 ENCBDDT+6, NBILLBD+6, PRVBD+16
Y STDHDR+2~
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 |  Naked Globals |  Local Variables |  All