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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROQ30D

Package: Surgery

Routine: SROQ30D


Information

SROQ30D ;BIR/ADM - 30-DAY READMISSION TRANSMISSION ;10/31/2011

Source Information

Source file <SROQ30D.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 C^%DTC  EN^DDIOL  $$GET1^DIQ  EN^DIQ1  ^DIR  
Registration 2 RPC^DGPTFAPI  (IN5,INP)^VADPT  
Surgery 2 $$SITE^SROUTL0  $$SITE^SROVAR  
Kernel 1 $$ACTIVE^XUSER  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 ^SRO(133  

Entry Points

Name Comments DBIA/ICR reference
CASE ; examine case
DATES
EN ; entry point when run manually to generate current report
END
PIMS ; determine if inpatient surgery
SEL ; run for selected fiscal quarter
SITE ; update site parameters file
CHECK
CURRENT ; get current reporting quarter
EN1
NIGHT ; determine if current quarterly 30-day readmission report has been transmitted
MSG ; create mail message to server
QTR
ADM ; get information related to admission
; determine if admission was for observation
; quit if no specialty defined for admission
SPEC ; find specialty associated with movement
HELP

External References

Name Field # of Occurrence
C^%DTC CASE+8, PIMS+3, ADM+6
EN^DDIOL HELP+1
RPC^DGPTFAPI CASE+10
$$GET1^DIQ CASE+3
EN^DIQ1 SPEC+1
^DIR SEL+1
$$SITE^SROUTL0 CASE+3
$$SITE^SROVAR EN1+1
IN5^VADPT PIMS+1, PIMS+3, ADM+7
INP^VADPT CASE+9
^XMD MSG+6
$$ACTIVE^XUSER MSG+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APTT1" CASE+7, CASE+8, PIMS+3, ADM+6
^SRF - [#130] CASE+1, CASE+4, CASE+5, PIMS+3, ADM+6
^SRF("AC" EN1+2
^SRO(133 - [#133] CASE+3, SITE+1, NIGHT+1
^TMP("SRQTR" MSG+6!, EN1!, EN1+1*, CASE+11*, END!
^XMB("NETNAME" MSG+3

Label References

Name Line Occurrences
ADM PIMS+4
CASE EN1+2
CHECK SEL+2, QTR
CURRENT EN+1, NIGHT+1
DATES EN1
EN1 NIGHT+2, SEL+4
END EN1+3
HELP SEL+2, QTR
MSG EN1+3
PIMS CASE+5
SEL SEL+2
SITE MSG+7
SPEC CASE+9, ADM+4

Naked Globals

Name Field # of Occurrence
^(0 SITE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SPEC+1!*, END!
DFN CASE+2~, CASE+4*, CASE+7, CASE+8, PIMS+3, ADM+6
DIC SPEC+1!*, END!
DIQ SPEC+1!*, END!
DIQ(0 SPEC+1*
DIR SEL+1!
DIR("A" SEL+1*
DIR(0 SEL+1*
DR SPEC+1!*, END!
DT CURRENT+1
>> DTOUT SEL+1
>> DUOUT SEL+1
DUZ MSG+1
I MSG+6~
ISC MSG+3*, MSG+4, MSG+5, END!
SR CASE+2~
SR(0 CASE+4*, PIMS+1
SR24 PIMS+3*, END!
SR30 CASE+8*, END!
SR48 ADM+6*, END!
SRADM CASE+2~, CASE+7*, CASE+8*, CASE+9, CASE+11
SRASITE MSG+2, EN1+1*, CASE+3, CASE+11, END!
SRCNT MSG+2, EN1+1*, CASE+11*, END!
SRD MSG+3*, MSG+5, END!
SRDAY END!, CURRENT+1*, CURRENT+2
SRDISCH CASE+2~, CASE+5*, CASE+7, CASE+8, ADM+3*, ADM+6*, ADM+7*, ADM+8*
SRDIV CASE+3*, CASE+11, END!
SRDT PIMS+3*, ADM+6*, ADM+7, END!
SRE END!, SITE+1*, NIGHT+1*
SRED EN1+1*, EN1+2, END!
SREMO END!, DATES*
SREND EN1+1, END+1!, DATES*
SRFQ END+1!, SITE+1, NIGHT+1, CURRENT+3*, SEL+3*
SRHELP HELP!, HELP+1!
SRHELP(1 HELP*
SRHELP(2 HELP*
SRHELP(3 HELP*
SRHELP(4 HELP*
SRHELP(5 HELP+1*
SRHELP(6 HELP+1*
SRHELP(7 HELP+1*
SRPTF CASE+2~, CASE+10*
SRQTR MSG+2, END+1!, DATES, CURRENT+1*, CURRENT+2, CURRENT+3, SEL+3*
SRRES CASE+2~, CASE+10*
SRRES(1 CASE+11
SRSD EN1+1*, EN1+2*, END+1!
SRSDATE PIMS+1~*, PIMS+3
SRSMO END+1!, DATES*
SRSOUT PIMS+1~*, PIMS+4, ADM+3*, ADM+4, ADM+6*, ADM+7*, END+1!
SRSP ADM+4, SPEC+1*, END+1!
SRSPE CASE+9*, CASE+11, SPEC+1*, END+1!
SRSTART EN1+1, END+1!, DATES*
SRTN EN1+2*, CASE+1, CASE+3, CASE+4, CASE+5, CASE+11, PIMS+3, ADM+6, END+1!
SRX CASE+9*, ADM+3*, SPEC+1, END+1!, SEL+3, QTR+1!, CHECK+3*, CHECK+5
SRY SPEC+1!, END+1!, SEL+3, QTR+1!, CHECK+4*, CHECK+5
SRY( SPEC+1
SRYR MSG+2, END+1!, CURRENT+1*, CURRENT+2*, CURRENT+3*, SEL+3*
SRYRF END+1!, DATES, CURRENT+3*, SEL+3*
VAIN END+1!
VAIN(10 CASE+10
VAIN(3 CASE+9
VAINDT CASE+9*, END+1!
VAIP END+1!
VAIP("D" PIMS+1*, PIMS+3*, ADM+7*
VAIP(13 PIMS+3, PIMS+4, ADM+3, ADM+6, ADM+7
VAIP(17 ADM+3, ADM+8
X MSG+1*, CASE+3*, CASE+8, PIMS+3, ADM+6, END+1!, SEL+1, SEL+2, QTR, CHECK!
, CHECK+1!, CHECK+2!, CHECK+3!, CHECK+4!, CHECK+5*
X1 CASE+8*, PIMS+3*, ADM+6*, END+1!
X2 CASE+8*, PIMS+3*, ADM+6*, END+1!
>> XMDUZ MSG+1*
>> XMMG MSG+7
>> XMSUB MSG+2*
XMTEXT MSG+6*!
XMY MSG+4!, MSG+6!
XMY("G.CARDIA C RISK ASSESSMENTS@DENVER.DOMAIN.EXT" , MSG+4*
XMY("G.SR-QUARTERLY@" MSG+5*
XMY("G.SRCOSERV@FO-HINES.DOMAIN.EXT" MSG+4*
Y ADM+4*, END+1!
>> ZTREQ END+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All