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

Package: Scheduling

Routine: SDLTP


Information

SDLTP ;ALB/LDB - PRINT SCHEDULING LETTERS ; 11/27/00 1:53pm

Source Information

Source file <SDLTP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 2 (CLOSE,ZIS)^DGUTQ  PATIENT^VAUTOMA  
Scheduling 2 (NCLINIC,NCOUNT)^SDAL0  DATE^SDUTL  
VA FileMan 2 ^DIC  YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDOUTPUT  SDPRLETTERS  

Entry Points

Name Comments DBIA/ICR reference
R
R1
R2
DIV
L0
DATE
QUE
EXIT
HELP
HELP1
PC
HELP2
PAT
EX
EXASK
MAX
IND
HLP3

External References

Name Field # of Occurrence
CLOSE^DGUTQ EXIT+1
ZIS^DGUTQ QUE+2
^DIC R, R2, HELP, EXASK
YN^DICN R1, EX, IND
NCLINIC^SDAL0 L0+3
NCOUNT^SDAL0 L0+2
DATE^SDUTL DATE+1
PATIENT^VAUTOMA PAT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: !
  • Variable: "PRINT LETTER ASSIGNED TO THE CLINIC(S)" S %=1 D YN^DICN G
  • Timeout: '%
  • Line Location: R1+0
Function Call: READ
  • Variable: I VAUTC D EX G
  • Timeout: %Y="^"!($D(DTOUT))
  • Line Location: L0+3
Function Call: WRITE
  • Prompt: !,"LETTER TYPE MUST EXIST IN LETTERS TYPE FILE!"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"If you want to print another letter for the selected clinic(s), you must answer",!,"""N"""_" and select another letter of the appropriate type. If you do this, that ",!,"letter will print for (ALL) the selected clinic(s)."
  • Line Location: HELP1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter 'P' for individual PATIENT letters or 'C' for letters by CLINIC: P// "
  • Variable: S1
  • Timeout: DTIME
  • Line Location: PC+0
Function Call: WRITE
  • Prompt: "??"
  • Line Location: PC+0
Function Call: WRITE
  • Prompt: !,"Entering 'P' will allow you to select PATIENT(S) and entering a 'C' will allow",!,"you to select CLINIC(S)."
  • Line Location: HELP2+0
Function Call: WRITE
  • Prompt: !,"RESPOND YES OR NO"
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !,*7,"THIS CLINIC HAS ALREADY BEEN SELECTED!"
  • Line Location: EXASK+0
Function Call: WRITE
  • Prompt: !,*7,"NO MORE THAN TEN CLINICS ALLOWED TO BE EXCLUDED"
  • Line Location: MAX+0
Function Call: WRITE
  • Prompt: !!,"If the clinic was cancelled for any length of time respond 'Y'.",!,"If individual appointments were cancelled without cancelling the clinic respond 'N'",!
  • Line Location: HLP3+0
Function Call: WRITE
  • Prompt: !,"CLINIC CANCELLATION LETTERS will be selectable with 'C' response.",!
  • Line Location: HLP3+1
Routine Call
  • DIC
  • Line Location:
    • R
    • R2
    • HELP
    • EXASK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV, DIV+1
^DG(43 - [#43] DIV
^TMP($J EXIT+1!
^UTILITY("SDLT" EXIT+1!
^UTILITY($J EXIT+1!

Label References

Name Line Occurrences
@( DIV, QUE+3
DATE L0+1
DIV R1
EX L0+3, EX
EXASK EXASK, EXASK+1
EXIT R, R1, R2, DATE+1, QUE+2
HELP1 R1
HELP2 PC
HLP3 IND
IND L0, IND
PAT L0+1
PC L0+1, PC
R DIV, L0, L0+1, L0+2, L0+3, HELP
R1 HELP1

Naked Globals

Name Field # of Occurrence
^("GL" DIV
^("LTR" DIV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% R1*, L0, EXIT!, EX*, EX+1, IND*, IND+1
%DT DATE~
%Y L0+3, EXIT!
A2 EXIT!
BEGDATE EXIT!
C EXIT!
DA R!
DGPGM QUE*, EXIT!
DGVAR QUE*, QUE+1*, EXIT!
DIC R*!, R2!*, DIV!*, EXIT!, HELP*, EXASK*
DIC("A" R*, EXASK*!
DIC("S" R*, R2*, HELP!, EXASK*!
DIC(0 R*, R2*, DIV*, EXASK*
DIV EXIT!
DIW EXIT!
DIWF EXIT!
DIWL EXIT!
DIWR EXIT!
DIWT EXIT!
DTIME PC
>> DTOUT L0, L0+3
ENDATE EXIT!
ENDDATE EXIT!
IO QUE+3
L EXIT!
L0 R*, R2, DIV, L0, L0+1, L0+2, DATE, DATE+1, EXIT!
L2 DATE+1*, QUE, QUE+1, QUE+3, EXIT!
LL EXIT!
POP DATE+1, QUE+2, EXIT!
S1 L0+1, QUE+1, EXIT!, PC*
SC EXIT!
SD9 R*, L0+1, DATE+1, EXIT!, IND*, IND+1*
SDADD EXIT!
SDARRAY EXIT!
SDBD DATE+1, EXIT!
SDC EXIT!
SDCL EXIT!
SDCNT EXIT!, EX*, EXASK+1*
SDCONC L0+2*, EXIT!
SDD EXIT!
SDDAT EXIT!
SDED DATE+1*, EXIT!
SDFORM DIV+1*, EXIT!
SDHX EXIT!
SDIV EXIT!
SDLET R1*, R2*, DIV, EXIT!
SDLT R*, EXIT!
SDLT1 DIV*, EXIT!
SDMDT EXIT!
SDT0 EXIT!
>> SDT00 DATE*
SDTADB EXIT!
SDTADE EXIT!
SDTIME DIV+1*, EXIT!
SDV EXIT!
SDV1 DIV*, DIV+1, EXIT!
SDVAUTC QUE+1, EXIT+1!, EX+1!
SDVAUTC( EXASK, EXASK+1*
SDX EXIT!
SDX1 EXIT+1!
U L0+2
VAUTC L0+3, QUE, EXIT+1!
VAUTD DIV+1*, EXIT+1!
VAUTD( DIV+1*
VAUTN QUE, EXIT+1!
>> VAUTNALL QUE, PAT*
VAUTNI L0+1*, EXIT+1!, PAT*
W EXIT+1!
X R2!, DIV!, L0+3, DATE+1, EXIT+1!, EXASK
XX EXIT+1!
Y R, R2!, DIV!, L0+1, L0+3, EXIT+1!, EXASK, EXASK+1
Y(0 R
Z0 EXIT+1!
Z5 EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All