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

Package: Scheduling

Routine: SCRPW81


Information

SCRPW81 ; ALB/SCK - SCDX AMB CARE CLOSEOUT RPT FOR MT INDICATOR = U ; 9 JULY 2003

Source Information

Source file <SCRPW81.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for report
EXIT
RUN ; Run report
PASTYR(SDBEG,SDEND) ; Set dates for previous fiscal year
CURYR(SDBEG,SDEND) ; Set dates for current fiscal year
GETDT(SDBEG,SDEND) ; Get beginning and ending date for search
; Output SDBEG Beginning for date range
; SDEND End of date range
; result 1 - If function successful
; 0 - If function NOT successful (User quit)
BLD(SDBEG,SDEND) ; Build list of patient OE's for date range
; Input SDBEG
; SDEND
CHKMT ; Clean out all except those meeting the MT=U conditions
SRTNAME ; Sort remaining encounters by patient name and OE date
MAIL ; send message with report statistics
PRINT ; Print Report
HDR ; Report Header
FTR ; Report Footer
FTR1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Date Range: "_$$FMTE^XLFDT(SDBEG)_" to "_$$FMTE^XLFDT(SDEND)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"A 132-Column printer is required for this report."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"This report will NOT print correctly to the screen!"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!?3,"You have selected to specify your own date range. Please note that by"
  • Line Location: GETDT+8
Function Call: WRITE
  • Prompt: !?3,"doing so you may not generate an accurate picture of the AMB CARE"
  • Line Location: GETDT+9
Function Call: WRITE
  • Prompt: !?3,"closeouts where the means test indicator equals 'U'.",!
  • Line Location: GETDT+10
Function Call: WRITE
  • Prompt: !,$E(SDNAME,1,30)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?($L(SDNAME)+1),"(",VA("BID"),")"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,$E(SDNAME,1,30)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?($L(SDNAME)+1),"(",VA("BID"),")"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: ?35,$$FMTE^XLFDT(SDOEDT,"D"),$S(SDOEX>0:" *",1:" ")
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?56,$P($G(^TMP("SCDX ASORT",$J,SDNAME,SDOEDT)),U,4)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?68,$E($$GET1^DIQ(40.8,$P(SDNODE,U,11),.01),1,30)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?100,$E($$GET1^DIQ(44,$P(SDNODE,U,4),.01),1,30)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!?TAB,PRNTLN
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !!?35,"Outpatient",?52,"",?68,"Medical Ctr"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?35,"Encounter Date",?52,"MT Indicator",?68,"Division",?100,"Clinic"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+3
Function Call: WRITE
  • Prompt: ?5,"* - Transmitted Outpatient Encounter"
  • Line Location: FTR+4
Function Call: WRITE
  • Prompt: !?5,"* - Transmitted Outpatient Encounter"
  • Line Location: FTR1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^SCE - [#409.68] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call