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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SCMCCV4

Package: Scheduling

Routine: SCMCCV4


Information

SCMCCV4 ; bp-ciofo/vad - PCMM PC Attending Assignments Report ; 05 May 99 9:05 AM

Source Information

Source file <SCMCCV4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$LJ^XLFSTR  KILL^XUSCLEAN  
Scheduling 3 $$PRTP^SCAPMC8  $$DTU^SCMCCV3  $$TEAM^SCMCMU  
VA FileMan 3 EN^DDIOL  $$FMTE^DILIBF  ^DIR  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main module to drive this routine
; -------------------------------------------------------------------
QIT() ; Module to QUEUE and Run this job in the Background.
; -------------------------------------------------------------------
MAINQ ; Main module to drive this routine
; -------------------------------------------------------------------
RUNIT ; Module to gather the data and print the report.
; -------------------------------------------------------------------
ASKTEAM() ; Prompt for "A"ll or "S"elected Teams.
; -------------------------------------------------------------------
; Sets up the SCMCTM and SCTMNAM arrays.
; Returns a "1" to STOP, or a "0" to CONTINUE.
TYPE() ; Ask the user to enter "A"ll or "S"elected teams.
; -------------------------------------------------------------------
; "A" means All Teams.
; "S" means Select Teams.
; Returns a "0" to quit or a "1" to continue.
TMLP ; Allow the user to select multiple teams.
; -------------------------------------------------------------------
; Sets up the SCMCTM and SCTMNAM arrays with the teams.
; Sets SCSTOP=1 to stop selection.
SCPTLP ; Process the ^SCPT(404.43) global to gather reportable data.
; -------------------------------------------------------------------
PRINT ; Store the report in temp array prior to a Mailman Message.
; -------------------------------------------------------------------
LJ(STRING,LENGTH)
PRTTMHDR ; Print the Team Sub-heading.
; -------------------------------------------------------------------
PRTPHHDR ; Print the Physician Sub-heading.
; -------------------------------------------------------------------
MAILIT ; Queue the report as a MailMan Message.
; -------------------------------------------------------------------
EXIT ; Clean up and Exit
; -------------------------------------------------------------------

External References

Name Field # of Occurrence
^%ZTLOAD QIT+9
EN^DDIOL MAIN+10
$$FMTE^DILIBF SCPTLP+22
^DIR TYPE+12
$$PRTP^SCAPMC8 SCPTLP+35
$$DTU^SCMCCV3 MAIN+5
$$TEAM^SCMCMU TMLP+9
DEM^VADPT SCPTLP+11
$$FMTE^XLFDT PRINT+5
$$NOW^XLFDT PRINT+5
$$LJ^XLFSTR LJ
^XMD MAILIT+7
KILL^XUSCLEAN EXIT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SCPT(404.43 - [#404.43] SCPTLP+19
^SCTM(404.51 - [#404.51] TMLP+12, SCPTLP+27, SCPTLP+31
^SCTM(404.57 - [#404.57] SCPTLP+24

Label References

Name Line Occurrences
$$ASKTEAM QIT+7
$$LJ PRINT+34
$$QIT MAIN+7
$$TYPE ASKTEAM+8
EXIT MAINQ+5, RUNIT+10
MAILIT RUNIT+9
PRINT RUNIT+3
PRTPHHDR PRINT+24
PRTTMHDR PRINT+16
RUNIT MAINQ+7
SCPTLP RUNIT+2
TMLP ASKTEAM+13

Naked Globals

Name Field # of Occurrence
^( PRINT+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN SCPTLP+3*, SCPTLP+8*, SCPTLP+9, SCPTLP+12, SCPTLP+13, SCPTLP+15, SCPTLP+45, PRINT+27*, PRINT+28*, PRINT+30
DIR TYPE+6~
DIR("?" TYPE+8*, TYPE+9*, TYPE+10*
DIR(0 TYPE+7*
>> DIRUT TYPE+13
DT TMLP+9, SCPTLP+20
DUZ MAILIT+4
>> I RUNIT+5*, PRTTMHDR+4*
LENGTH LJ~
>> REPORT MAINQ+3*, MAINQ+4, EXIT+2
>> SCACTDT SCPTLP+3*, SCPTLP+16*, SCPTLP+17, SCPTLP+18, SCPTLP+45, PRINT+29*, PRINT+30*, PRINT+31
>> SCASNDT SCPTLP+22*, SCPTLP+46, PRINT+2*
>> SCBLK RUNIT+6, PRINT+6*, PRINT+10, PRINT+12, PRINT+19, PRTTMHDR+9, PRTTMHDR+10, PRTPHHDR+5, PRTPHHDR+6, PRTPHHDR+10
PRTPHHDR+12
SCCNT SCPTLP+41~, SCPTLP+42*, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+31*, PRINT+32
SCCTR TMLP+5~, TMLP+6*, TMLP+11*, TMLP+16
SCDATES SCPTLP+34~
>> SCDBL PRINT+8*, PRTTMHDR+5, PRTTMHDR+7
>> SCDSH PRINT+7*, PRTTMHDR+10, PRTPHHDR+6, PRTPHHDR+12
SCG SCPTLP+2~, SCPTLP+7*, SCPTLP+8, SCPTLP+9
SCG2 SCPTLP+2~, SCPTLP+15*, SCPTLP+16, SCPTLP+17, SCPTLP+18
>> SCGOTONE RUNIT+4, PRINT+3*, PRINT+37*
>> SCLNSEQ PRINT+3*
>> SCLNUP RUNIT+5, RUNIT+7, PRINT+4*, PRINT+11, PRINT+13, PRINT+20, PRINT+35, PRTTMHDR+4, PRTTMHDR+5, PRTTMHDR+6
PRTTMHDR+7, PRTTMHDR+8, PRTTMHDR+9, PRTTMHDR+10, PRTPHHDR+4, PRTPHHDR+5, PRTPHHDR+6, PRTPHHDR+9, PRTPHHDR+11, PRTPHHDR+13
SCMCERR SCPTLP+2~, SCPTLP+34~
>> SCMCSTOP QIT+7*, MAINQ+5
SCMCTM ASKTEAM+6!, ASKTEAM+7*, ASKTEAM+13, TMLP+16*, SCPTLP+29, PRINT+12
SCMCTM( TMLP+10, TMLP+11*, SCPTLP+29
>> SCMCTYPE ASKTEAM+8*, ASKTEAM+9, ASKTEAM+11, ASKTEAM+13
SCMCVAR SCPTLP+2~, SCPTLP+34~, SCPTLP+35*, SCPTLP+36
>> SCPHYPOS SCPTLP+39*, SCPTLP+45, SCPTLP+46, PRINT+2*, PRINT+22*, PRINT+23*, PRINT+26, PRINT+28, PRINT+30, PRTPHHDR+5
PRTPHHDR+6
>> SCPOSNM SCPTLP+25*
>> SCPTNM SCPTLP+12*, SCPTLP+45, SCPTLP+46, PRINT+2*, PRINT+25*, PRINT+26*, PRINT+28, PRINT+30, PRINT+34
>> SCPTSSN SCPTLP+13*, SCPTLP+46, PRINT+2*
>> SCREC1 SCPTLP+19*, SCPTLP+20, SCPTLP+21
>> SCREC2 SCPTLP+24*, SCPTLP+25, SCPTLP+26
>> SCREC3 SCPTLP+31*, SCPTLP+32
>> SCRPDT PRINT+5*, PRINT+10
>> SCSEQ1 SCPTLP+3*, SCPTLP+18*, SCPTLP+19
>> SCSTATUS SCPTLP+3*
SCSTOP TMLP+5~, TMLP+6*, TMLP+7, TMLP+14*, PRINT+3*
SCTMNAM ASKTEAM+6!, ASKTEAM+7*, TMLP+16*
SCTMNAM( TMLP+13*, SCPTLP+4
>> SCTMNM SCPTLP+32*, SCPTLP+43, SCPTLP+46, PRINT+2*, PRINT+15*, PRINT+17, PRTTMHDR+5, PRTTMHDR+6, PRTTMHDR+7
>> SCTMNO SCPTLP+26*, SCPTLP+27, SCPTLP+29, SCPTLP+31, SCPTLP+42, SCPTLP+43, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+17*
PRINT+18, PRINT+23, PRINT+26, PRINT+28, PRINT+30, PRINT+32
>> SCTMPOS SCPTLP+3*, SCPTLP+17*, SCPTLP+18, SCPTLP+24, SCPTLP+35
SCTMREC TMLP+5~, TMLP+12*, TMLP+13
SCTNAME SCPTLP+2~, SCPTLP+3*, SCPTLP+4*, SCPTLP+5
SCX QIT+2~, QIT+8*, PRINT+32*, PRINT+34
SCY MAIN+2!, MAIN+10
SCY(1 MAIN+3*
SCY(2 MAIN+4*
SCY(3 MAIN+5*
SCY(4 MAIN+6*
SCY(5 MAIN+7*
SCY(6 MAIN+9*
SCZZPROV SCPTLP+2~, SCPTLP+34~
SCZZPROV(1 SCPTLP+37, SCPTLP+39
STOP ASKTEAM+5~, ASKTEAM+7*, ASKTEAM+9*, ASKTEAM+11, ASKTEAM+13*, ASKTEAM+14
>> STORE MAINQ+2*, MAINQ+4, SCPTLP+5, SCPTLP+42, SCPTLP+43, SCPTLP+44, SCPTLP+45, SCPTLP+46, PRINT+15, PRINT+17
PRINT+23, PRINT+26, PRINT+28, PRINT+30, PRINT+32, EXIT+2
STRING RUNIT+5*, RUNIT+6*, PRINT+10*, PRINT+12*, PRINT+19*, PRINT+34*, LJ~, PRTTMHDR+2~, PRTTMHDR+4*, PRTTMHDR+5*
PRTTMHDR+6*, PRTTMHDR+7*, PRTTMHDR+8*, PRTTMHDR+9*, PRTTMHDR+10*, PRTPHHDR+2~, PRTPHHDR+4*, PRTPHHDR+5*, PRTPHHDR+6*, PRTPHHDR+9*
PRTPHHDR+10*, PRTPHHDR+12*
TM TMLP+8~, TMLP+9*, TMLP+10, TMLP+11, TMLP+12, TMLP+13
U TMLP+13, SCPTLP+20, SCPTLP+21, SCPTLP+25, SCPTLP+26, SCPTLP+32, SCPTLP+39, SCPTLP+46, PRINT+34
VA SCPTLP+10~
VA("PID" SCPTLP+13
VADM SCPTLP+10~
VADM(1 SCPTLP+12
VAERR SCPTLP+10~
XMDUZ MAILIT+2~, MAILIT+3*, MAILIT+4
XMSUB MAILIT+2~, MAILIT+5*
XMTEXT MAILIT+2~, MAILIT+6*
XMY MAILIT+2~
XMY( MAILIT+4*
>> Y TYPE+13, SCPTLP+21*, SCPTLP+22
ZTDESC QIT+2~, QIT+4*
ZTDTH QIT+2~, QIT+5*
ZTIO QIT+2~, QIT+6*
ZTRTN QIT+2~, QIT+3*
ZTSAVE QIT+2~
ZTSAVE( QIT+8*
ZTSK MAIN+8!, QIT+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All