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

Package: IHS Changes To Scheduling

Routine: BSDLTP


Information

BSDLTP ;ALB/LDB - PRINT SCHEDULING LETTERS ; [ 01/02/2004 9:07 AM ]

Source Information

Source file <BSDLTP.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: 1

Package Total Caller Graph
IHS Changes To Scheduling 1 BSDWLE  

Entry Points

Name Comments DBIA/ICR reference
HELP2
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
SEL ;-- select the entries on the list manager screen to print
IND
MAIN(L0) ;-- pass i letter type
HELP

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: to
  • Line Location: BSDLTP+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<0,DATE
  • Variable: I "Pp"[S1 D PAT G R
  • Line Location: L0+2
Function Call: READ
  • Timeout: %Y="^"!($D(DTOUT))
  • Variable: I VAUTC D EX G
  • Line Location: L0+4
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+2
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+2

Global Variables Directly Accessed

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

Label References

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

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+3~
%Y L0+4, EXIT!
A2 EXIT!
BEGDATE EXIT!
C EXIT!
DA R!
DGPGM QUE*, EXIT!
DGVAR QUE*, QUE+1*, EXIT!
DIC R*!, R2!*, DIV!*, EXIT!, HELP*, EXASK+2*
DIC("A" R*, EXASK+2*!
DIC("S" R*, R2*, HELP!, EXASK+2*!
DIC("W" EXASK+1*
DIC(0 R*, R2*, DIV*, EXASK+2*
DIV EXIT!
DIW EXIT!
DIWF EXIT!
DIWL EXIT!
DIWR EXIT!
DIWT EXIT!
DTIME PC
>> DTOUT L0, L0+4
ENDATE EXIT!
ENDDATE EXIT!
IO QUE+3
L EXIT!
L0 MAIN~, MAIN+1, R*, R1+1*, R2, DIV, L0, L0+1, L0+2, L0+3
, DATE+2, DATE+3, EXIT!
L2 DATE+3*, QUE, QUE+1, QUE+3, EXIT!
LL EXIT!
POP DATE+3, QUE+2, EXIT!
S1 L0+2, QUE+1, EXIT!, PC*
SC EXIT!
SD9 R*, L0+2, DATE+3, EXIT!, IND*, IND+1*
SDADD EXIT!
SDARRAY EXIT!
SDBD DATE+3, EXIT!
SDC EXIT!
SDCL EXIT!
SDCNT EXIT!, EX*, EXASK+3*
SDCONC L0+3*, 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+2, EXASK+3*
SDX EXIT!
SDX1 EXIT+2!
U L0+3
VAUTC L0+4, QUE, EXIT+2!
VAUTD DIV+1*, EXIT+2!
VAUTD( DIV+1*
VAUTN QUE, EXIT+2!
>> VAUTNALL QUE, PAT*
VAUTNI L0+2*, EXIT+2!, PAT*
W EXIT+2!
X R2!, DIV!, L0+4, DATE+3, EXIT+2!, EXASK+2
XX EXIT+2!
Y R, R2!, DIV!, L0+2, L0+4, EXIT+2!, EXASK+2, EXASK+3
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