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 Total: 9

Package Total Call Graph
Registration 3 (CLOSE,ZIS)^DGUTQ  KVA^VADPT  PATIENT^VAUTOMA  
Scheduling 2 (NCLINIC,NCOUNT)^SDAL0  DATE^SDUTL  
VA Fileman 2 ^DIC  YN^DICN  
IHS Changes To Scheduling 1 $$INACTMSG^BSDU  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 3 SD IHS PR LETTERS  SDOUTPUT  SDPRLETTERS  
IHS Changes To Scheduling 1 BSDROUT  

Entry Points

Name Comments DBIA/ICR reference
PAT
R1
R2
MAX
EXASK
HLP3
PC
R
QUE
EX
L0
HELP1
DATE ;N %DT D DATE^SDUTL G:POP&('$D(SDBD)) EXIT G:POP&(X="^") EXIT S:'$D(SDED) SDED=SDBD S L2=$S(L0="C"&('SD9):"BEG1^SDC0",L0="N":"BC^SDN1",L0="P":"^SDL1",1:"^SDCNL")
EXIT
DIV
IND
HELP2
HELP

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: to
  • Line Location: SDLTP+4
Function Call: READ
  • Prompt: !
  • Timeout: '%
  • Variable: "PRINT LETTER ASSIGNED TO THE CLINIC(S)" S %=1 D YN^DICN G
  • Line Location: R1+0
Function Call: READ
  • Timeout: %Y="^"!($D(DTOUT))
  • Variable: I VAUTC D EX G
  • 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
  • Prompt: "Enter 'P' for individual PATIENT letters or 'C' for letters by CLINIC: P// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: S1
  • 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+1
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+1

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( DIV, QUE+3
DATE L0+1
DIV R1
EX L0+3, EX
EXASK EXASK+1, EXASK+2
EXIT R, R1, R2, DATE+3, 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
%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+1*
DIC("A" R*, EXASK+1*!
DIC("S" R*, R2*, HELP!, EXASK+1*!
DIC("W" EXASK*
DIC(0 R*, R2*, DIV*, EXASK+1*
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+2, DATE+3, EXIT!
L2 DATE+3*, QUE, QUE+1, QUE+3, EXIT!
LL EXIT!
POP DATE+3, QUE+2, EXIT!
S1 L0+1, QUE+1, EXIT!, PC*
SC EXIT!
SD9 R*, L0+1, DATE+3, EXIT!, IND*, IND+1*
SDADD EXIT!
SDARRAY EXIT!
SDBD DATE+3, EXIT!
SDC EXIT!
SDCL EXIT!
SDCNT EXIT!, EX*, EXASK+2*
SDCONC L0+2*, EXIT!
SDD EXIT!
SDDAT EXIT!
SDED DATE+3*, 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+2*, EXIT+1!
SDTADB EXIT!
SDTADE EXIT!
SDTIME DIV+1*, EXIT!
SDV EXIT!
SDV1 DIV*, DIV+1, EXIT!
SDVAUTC QUE+1, EXIT+2!, EX+1!
SDVAUTC( EXASK+1, EXASK+2*
SDX EXIT!
SDX1 EXIT+2!
U L0+2
VAUTC L0+3, QUE, EXIT+2!
VAUTD DIV+1*, EXIT+2!
VAUTD( DIV+1*
VAUTN QUE, EXIT+2!
>> VAUTNALL QUE, PAT*
VAUTNI L0+1*, EXIT+2!, PAT*
W EXIT+2!
X R2!, DIV!, L0+3, DATE+3, EXIT+2!, EXASK+1
XX EXIT+2!
Y R, R2!, DIV!, L0+1, L0+3, EXIT+2!, EXASK+1, EXASK+2
Y(0 R
Z0 EXIT+2!
Z5 EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All