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

Entry Points

Name Comments DBIA/ICR reference
HEADER ; Display an appropriate header for this report.
; Do standard header setup
ENCBDDT ; Detailed Body of the Disability/POV Encounter report
NBILLHD ; Display an appropriate header for this report.
; Do standard header setup
NBILLBD ; Body of the Non Service Connected Billable Encounter reports
PRVHD ; Display the header for the Provider Service Connected Review Report.
; Do standard header setup
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.
RVWHD ; Display the header for the User Service Connected Review 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.
CTPOV() ; Count all POV entries for the specified visit.
CTDIS() ; Count all rated disabilities for this patient.
POV2S ; Loop through and display all POV entries for the specified visit.
DIS2S ; Loop through and display all rated disabilities for this patient.
STDHDR ; tag for all of the standard report header calls
; Do not ask 'RETURN' before first page on CRT.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SDSC(409.48 - [#409.48] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call