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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ENDR^%ZISS  ^%ZTLOAD  ($$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT  
VA Fileman 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 2 $$LST^DGMTU  PID^VADPT6  
MailMan 1 ^XMD  
Scheduling 1 $$MTI^SCDXUTL0  

Entry Points

Name Comments DBIA/ICR reference
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)
EN ; Main entry point for report
RUN ; Run report
HDR ; Report Header
FTR ; Report Footer
CHKMT ; Clean out all except those meeting the MT=U conditions
BLD(SDBEG,SDEND) ; Build list of patient OE's for date range
; Input SDBEG
; SDEND
SRTNAME ; Sort remaining encounters by patient name and OE date
EXIT
FTR1 ;
PRINT ; Print Report
MAIL ; send message with report statistics
PASTYR(SDBEG,SDEND) ; Set dates for previous fiscal year
CURYR(SDBEG,SDEND) ; Set dates for current fiscal year

External References

Name Field # of Occurrence
NOW^%DTC PASTYR+3, CURYR+3
^%ZIS EN+28
HOME^%ZIS EN+33
^%ZISC EN+35
ENDR^%ZISS EN+21
^%ZTLOAD EN+33
$$LST^DGMTU CHKMT+16
$$GET1^DIQ BLD+17, CHKMT+11, CHKMT+12, SRTNAME+5, PRINT+25, PRINT+26
^DIR EN+6, GETDT+15, GETDT+22
$$MTI^SCDXUTL0 CHKMT+13
PID^VADPT6 PRINT+16, PRINT+20
$$FMADD^XLFDT PASTYR+8, PASTYR+9, BLD+6, BLD+7
$$FMTE^XLFDT EN+17, MAIL+3, PRINT+22, HDR+10, HDR+13
$$HDIFF^XLFDT MAIL+7
$$HTE^XLFDT MAIL+5, MAIL+6
$$NOW^XLFDT CURYR+8, HDR+13
^XMD MAIL+17

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+33
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • GETDT+15
    • GETDT+22
Routine Call
  • %ZIS
  • Line Location:
    • EN+28

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] CHKMT+5
^SCE - [#409.68] BLD+13, PRINT+24
^SCE("B" BLD+10, BLD+12
^SD(409.73 - [#409.73] BLD+18
^TMP("SCDX ASORT" RUN+2!, RUN+9!, SRTNAME+11*, PRINT+7, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+23
^TMP("SCDX MTU" RUN+2!, RUN+9!, BLD+9*, BLD+20*, BLD+21*, BLD+22*, CHKMT+4, CHKMT+6!, CHKMT+8, CHKMT+9
, CHKMT+15!, CHKMT+17!, CHKMT+18*, CHKMT+19*, SRTNAME+4, SRTNAME+7*, SRTNAME+9, SRTNAME+10, SRTNAME+11, SRTNAME+12*
, SRTNAME+13*, MAIL+5, MAIL+6, MAIL+7, MAIL+9, MAIL+10, MAIL+11

Label References

Name Line Occurrences
BLD RUN+4
CHKMT RUN+5
CURYR EN+13
EXIT EN+28
FTR HDR+3
FTR1 PRINT+29
GETDT EN+15
HDR PRINT+5, PRINT+27
MAIL RUN+7
PASTYR EN+11
PRINT RUN+8
RUN EN+34
SRTNAME RUN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I PASTYR+1~, CURYR+1~
%I(1 PASTYR+4, CURYR+4
%I(3 PASTYR+4, CURYR+4
%ZIS EN+27~, EN+28*
CNT BLD+4~
CURMN PASTYR+1~, PASTYR+4*, PASTYR+5, CURYR+1~, CURYR+4*, CURYR+5
CURYR PASTYR+1~, PASTYR+4*, PASTYR+6*, PASTYR+7, CURYR+1~, CURYR+4*, CURYR+6*, CURYR+7
DFN CHKMT+1~, CHKMT+3*, CHKMT+4*, CHKMT+5, CHKMT+6, CHKMT+8, CHKMT+9, CHKMT+13, CHKMT+15, CHKMT+16
, CHKMT+17, CHKMT+18, SRTNAME+1~, SRTNAME+3*, SRTNAME+4*, SRTNAME+5, SRTNAME+9, SRTNAME+10, SRTNAME+11, PRINT+2~
, PRINT+12*
DIR EN+1~, EN+6!, GETDT+6~
DIR("?" EN+5*, GETDT+14*
DIR("A" EN+3*, GETDT+13*, GETDT+21*
DIR("B" EN+4*
DIR(0 EN+3*, GETDT+12*, GETDT+20*
DIRUT EN+1~, EN+7, GETDT+6~, GETDT+16, GETDT+23
DUZ MAIL+15
IO RUN+1
IO("Q" EN+29, EN+33!
IOF HDR+4
IOM HDR+8, HDR+11, HDR+14, HDR+17, HDR+23
IORVOFF EN+19~, EN+25
IORVON EN+19~, EN+22
IOSL PRINT+27, FTR+3
LINE HDR+1~, HDR+23*
MSG MAIL+1~
MSG(1 MAIL+3*
MSG(2 MAIL+4*
MSG(3 MAIL+5*
MSG(4 MAIL+6*
MSG(5 MAIL+7*
MSG(6 MAIL+8*
MSG(7 MAIL+9*
MSG(8 MAIL+10*
MSG(9 MAIL+11*
NODE BLD+4~, BLD+13*, BLD+14, BLD+15, BLD+16, BLD+19, BLD+20
PAGE PRINT+2~, PRINT+4*, HDR+3, HDR+4, HDR+5*, HDR+16
POP EN+27~, EN+28
PRNTL4 PRINT+2~, PRINT+9*, PRINT+15*
PRNTLN HDR+1~, HDR+7*, HDR+8, HDR+9, HDR+10*, HDR+11, HDR+12, HDR+13*, HDR+14, HDR+15
, HDR+16*, HDR+17, HDR+18
PRVYR PASTYR+1~, PASTYR+7*, PASTYR+8, PASTYR+9
RSLT EN+1~, EN+8*, EN+10, EN+12
SDAT CHKMT+1~, CHKMT+12*, CHKMT+13
SDBEG EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+9*, CURYR~
, CURYR+7*, GETDT~, GETDT+17*, GETDT+18*, BLD~, BLD+6, MAIL+3, HDR+10
SDEC CHKMT+1~, CHKMT+11*, CHKMT+13
SDEND EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+8*, CURYR~
, CURYR+8*, GETDT~, GETDT+24*, GETDT+25*, BLD~, BLD+7, MAIL+3, HDR+10
SDFLAG PRINT+2~, PRINT+9*, PRINT+18*, PRINT+27*
SDLOC BLD+4~, BLD+16*, BLD+17
SDMAX BLD+4~, BLD+7*, BLD+10
SDMT CHKMT+1~
SDMTI CHKMT+1~, CHKMT+13*, CHKMT+14, CHKMT+18
SDMTT CHKMT+1~, CHKMT+16*, CHKMT+19!
SDN CHKMT+1~, CHKMT+7*
SDNAME SRTNAME+1~, SRTNAME+5*, SRTNAME+6, SRTNAME+11, PRINT+2~, PRINT+6*, PRINT+7*, PRINT+8, PRINT+11, PRINT+12
, PRINT+13, PRINT+14, PRINT+17, PRINT+19, PRINT+21, PRINT+23
SDNODE PRINT+2~, PRINT+24*, PRINT+25, PRINT+26
SDO CHKMT+1~, CHKMT+7*
SDOEDT CHKMT+1~, CHKMT+9*, CHKMT+10, CHKMT+13, CHKMT+16, SRTNAME+1~, SRTNAME+10*, SRTNAME+11, PRINT+2~, PRINT+10*
, PRINT+11*, PRINT+12, PRINT+13, PRINT+14, PRINT+22, PRINT+23
SDOEI BLD+4~, BLD+11*, BLD+12*, BLD+13, BLD+18, BLD+20, CHKMT+1~, CHKMT+7*, CHKMT+8*, CHKMT+9
, CHKMT+11, CHKMT+12, CHKMT+13, CHKMT+18, SRTNAME+1~, SRTNAME+8*, SRTNAME+9*, SRTNAME+10, SRTNAME+11, PRINT+2~
, PRINT+14*, PRINT+24
SDOEX BLD+4~, BLD+18*, BLD+20, PRINT+2~, PRINT+13*, PRINT+22
SDR CHKMT+1~, CHKMT+7*
SDX BLD+4~, BLD+6*, BLD+10*, BLD+12, FTR+1~, FTR+3*
SDXNODE PRINT+2~
SPACE HDR+1~
TAB HDR+1~, HDR+8*, HDR+9, HDR+11*, HDR+12, HDR+14*, HDR+15, HDR+17*, HDR+18
U BLD+14, BLD+15, BLD+16, BLD+19, BLD+20, CHKMT+9, CHKMT+16, CHKMT+18, SRTNAME+10, SRTNAME+11
, PRINT+12, PRINT+13, PRINT+14, PRINT+23, PRINT+25, PRINT+26
VA PRINT+2~
VA("BID" PRINT+17, PRINT+21
X EN+1~, EN+19~, EN+20*
XMDUZ MAIL+1~, MAIL+16*
XMSUB MAIL+1~, MAIL+13*
XMTEXT MAIL+1~, MAIL+14*
XMY MAIL+1~
XMY( MAIL+15*
Y EN+1~, EN+8, EN+19~, GETDT+6~, GETDT+18, GETDT+25
ZTDESC EN+27~, EN+32*
>> ZTQUEUED EXIT
>> ZTREQ EXIT*
ZTRTN EN+27~, EN+31*
ZTSAVE EN+27~
ZTSAVE("DUZ" EN+30*
ZTSAVE("SDBEG" EN+30*
ZTSAVE("SDEND" EN+30*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All