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

Package: Scheduling

Routine: SCMCMHE


Information

SCMCMHE ;BP/DMR - PCMM Mental Health Report; 8 FEB 12

Source Information

Source file <SCMCMHE.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  ^%DTC  ^DIC  $$GET1^DIQ  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Scheduling 1 $$START^SCMCMHTC  

Entry Points

Name Comments DBIA/ICR reference
INIT ;
DATE ;
INST ;
EN ;
PRT ;
LOOP ;
FORMAT ;
SAVE ;
FUT ;
EXIT ;

External References

Name Field # of Occurrence
^%DT DATE+5, DATE+6
^%DTC SAVE+14
^%ZIS EN+6
^%ZISC PRT+14
^%ZTLOAD EN+7
^DIC INST+2
$$GET1^DIQ INST+4, LOOP+4, LOOP+8, LOOP+11, LOOP+12, LOOP+14, LOOP+17, LOOP+18, LOOP+22, SAVE+4
SAVE+5, FUT+3, FUT+5
$$START^SCMCMHTC LOOP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be run during non peak hours and can take hours to run!",!!
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Beginning date must be before end date!"
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,"Enter Number from 1 to 10 or '^' to Exit!"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "Patient^SSN(Last4)^Days Since Last Encounter^Future Appointment Date^Location^Encounter Date^Clinic Name^Location of Encounter"
  • Line Location: PRT+4
Routine Call
  • DIC
  • Line Location:
    • INST+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.98 GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SCE - [#409.68] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SAVE+6, SAVE+12, FUT+4
^DPT - [#2] FUT+2
^SCE("C" LOOP+3, LOOP+7
^SCTM(404.61 - [#404.61] LOOP+15, LOOP+16, LOOP+19, LOOP+20
^TMP("MHEN" INIT+1!, PRT+7, PRT+8, PRT+9, LOOP+25*, FORMAT+3!, SAVE+2, SAVE+3, SAVE+7*, SAVE+8*
SAVE+9*, SAVE+15*, FUT+6*, FUT+7*, EXIT+4!
^TMP("MHEN1" INIT+2!, PRT+10, PRT+11, PRT+12, LOOP+26*, LOOP+27*, FORMAT+4!, SAVE+10, SAVE+11, SAVE+13*
EXIT+5!

Label References

Name Line Occurrences
DATE DATE+7
EN EN+4
EXIT DATE+5, DATE+6, INST+3, EN+3, EN+6, EN+7, PRT+15
FORMAT LOOP+6
FUT SAVE+16
LOOP PRT+1
SAVE PRT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE+5*, DATE+6*
>> %DT("A" DATE+5*, DATE+6*
>> %ZIS EN+6*
ADT FUT+1*, FUT+2, FUT+4*, FUT+6, EXIT+2!
APP EXIT+2!
BEG DATE+1*, DATE+5*, DATE+7, LOOP+9, EXIT+1!
CC PRT+6*, PRT+11*, PRT+12, LOOP+2*, LOOP+6, LOOP+7*, LOOP+23*, LOOP+24, LOOP+26, LOOP+27
FORMAT+1, SAVE+1*, SAVE+11*, SAVE+13, SAVE+14, EXIT+1!
CH EXIT+1!
CL FUT+1*, FUT+5*, FUT+7, EXIT+1!
CLIN LOOP+1*, LOOP+22*, LOOP+26, LOOP+27, EXIT+2!
CODE LOOP+1*, EXIT+3!
CSC LOOP+1*, LOOP+18*, LOOP+19, EXIT+3!
DATE DATE+1*, LOOP+8*, LOOP+9, LOOP+10, LOOP+24, LOOP+25, LOOP+26, LOOP+27, LOOP+28, EXIT+1!
EXIT+2!
DAYS SAVE+1*, SAVE+14*, SAVE+15, EXIT+2!
DEF INST+1*, EN+1*, EN+2*, EN+3*, EN+4, LOOP+6, LOOP+7, SAVE+14, EXIT+1!
DFN PRT+6*, PRT+8*, PRT+9, PRT+10, PRT+11, PRT+12, LOOP+1*, LOOP+3*, LOOP+4, LOOP+5
LOOP+6, LOOP+7, LOOP+10, LOOP+25, LOOP+26, LOOP+27, LOOP+28, SAVE+1*, SAVE+3*, SAVE+4
SAVE+5, SAVE+7, SAVE+8, SAVE+9, SAVE+10, SAVE+11, SAVE+13, SAVE+15, FUT+2, FUT+3
FUT+5, FUT+6, FUT+7, EXIT+2!
DIC INST+2*, EXIT+3!
DIC("A" INST+2*
DIC(0 INST+2*
DT SAVE+14, FUT+1, FUT+3
DTE PRT+6*, PRT+7*, PRT+8, PRT+9, SAVE+1*, SAVE+2*, SAVE+3, SAVE+6, SAVE+7, SAVE+8
SAVE+9, SAVE+14, SAVE+15, FUT+6, FUT+7, EXIT+1!
DTE2 PRT+6*, PRT+10*, PRT+11, PRT+12, SAVE+1*, SAVE+10*, SAVE+11, SAVE+12, SAVE+13, EXIT+1!
DTT FUT+1*, FUT+2*, FUT+3, FUT+4, FUT+5, EXIT+2!
ECL LOOP+1*, LOOP+17*, LOOP+18, EXIT+3!
EDT SAVE+1*, SAVE+6*, SAVE+12*, SAVE+13, EXIT+2!
EIEN LOOP+1*, LOOP+7*, LOOP+8, LOOP+11, LOOP+12, LOOP+14, LOOP+17, LOOP+22, EXIT+2!
EN LOOP+1*, SAVE+1*, EXIT+1!
ENC LOOP+1*, EXIT+1!, EXIT+3!
END DATE+1*, DATE+6*, DATE+7, LOOP+2*, LOOP+9, EXIT+1!
ESC LOOP+1*, EXIT+3!
FAC LOOP+1*, LOOP+12*, LOOP+13, LOOP+26, LOOP+27, EXIT+2!
HDT LOOP+1*, LOOP+24*, FORMAT+2, FORMAT+3, EXIT+2!
HDT2 LOOP+1*, LOOP+10, LOOP+24*, LOOP+28*, EXIT+3!
HOLD LOOP+1*, LOOP+6, LOOP+10, LOOP+28*, FORMAT+1, FORMAT+3, FORMAT+4, EXIT+3!
IEN PRT+6*, LOOP+1*, SAVE+1*, EXIT+2!
IN INST+1*, INST+4*, EXIT+1!
INST INST+1*, INST+4*, INST+5*, LOOP+13, EXIT+1!
IO EN+8
>> IO("Q" EN+7, EN+8
JJ LOOP+1*, EXIT+1!
LEN SAVE+1*, EXIT+1!
LTE SAVE+1*, EXIT+3!
MHSC LOOP+1*, LOOP+15*, LOOP+16, EXIT+2!
MHTC LOOP+1*, LOOP+5*, EXIT+2!
PAT EXIT+1!
PN SAVE+1*, SAVE+4*, SAVE+8, EXIT+3!
POP EN+6, EXIT+3!
SC LOOP+1*, FUT+1*, EXIT+1!, EXIT+2!
SCIEN LOOP+1*, LOOP+14*, LOOP+15, EXIT+1!
SCODE LOOP+1*, EXIT+3!
SSC LOOP+19*, LOOP+20, EXIT+3!
SSN SAVE+1*, SAVE+5*, SAVE+9, EXIT+3!
SSTOP LOOP+1*, LOOP+17*, LOOP+19, LOOP+20*, LOOP+21, EXIT+2!
ST FUT+1*, FUT+3*, FUT+4, EXIT+2!
X SAVE+14, EXIT+3!
X1 SAVE+14*, EXIT+3!
X2 SAVE+14*, EXIT+3!
Y DATE+5, DATE+6, INST+3, INST+4, INST+5, SAVE+6*, SAVE+12*, FUT+4*, EXIT+3!
ZTRTN EN+7*!
ZTSAVE EN+7!
ZTSAVE("*" EN+7*
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