Routine: SDCNP1

Package	Total	Call Graph
Scheduling	6	CANQ^SDAMC (END,RD)^SDCNP (,CKK,CKK2,LOOP1,SDLET)^SDCNP1A ^SDCNP2 DT^SDM0 (DISREB,MESS,OPENEWL,REBOOK)^SDWLREB
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	2	$$BADADR^DGUTL3 Q1^DGUTQ
VA FileMan	2	YN^DICN ^DIR

Package	Total	Caller Graph
Scheduling	2	SDAMC SDCNP0

Entry Points

Name	Comments	DBIA/ICR reference
NOPE
END
ASK
ZIS
LST
SDLST
MORE
OVR
WH
DEL
DEL1
LET	;
QUE2	;S DGPGM="SDLET^SDCNP1A",DGVAR="SDCL#^DUZ^DFN^DT^A^SDWH" D ZIS^DGUTQ D:POP CLOSE^DGUTQ Q:POP D SDLET^SDCNP1A Q
NOTELTR
QUE
NOPE1
REBK
REASK
CLRK
MTCH
EWL(DFN)	;
REB
CAN

External References

Name	Field # of Occurrence
^%ZIS	ZIS, QUE2+1
^%ZISC	QUE2+2, QUE2+5
^%ZTLOAD	QUE2+4
$$BADADR^DGUTL3	LET+2
Q1^DGUTQ	QUE
YN^DICN	ASK+1, LET+1
^DIR	LET+5
CANQ^SDAMC	NOPE+6
END^SDCNP	END
RD^SDCNP	END
^SDCNP1A	DEL1+1
CKK^SDCNP1A	DEL1
CKK2^SDCNP1A	DEL1
LOOP1^SDCNP1A	NOPE+6
SDLET^SDCNP1A	QUE2+5
^SDCNP2	QUE+1
DT^SDM0	LST
DISREB^SDWLREB	REB+4, CAN+3
MESS^SDWLREB	EWL+4, EWL+5
OPENEWL^SDWLREB	REB+5, CAN+4
REBOOK^SDWLREB	REB+2, CAN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,$S(CNT:CNT_" Appointment"_$S(CNT>1:"s",1:"")_" cancelled",1:"NOTHING CANCELLED") Line Location: NOPE+0
Function Call: WRITE	Prompt: !,*7,"NO AUTO-REBOOKING --Patient has died." Line Location: NOPE+5
Function Call: WRITE	Prompt: !!,"DO YOU WISH TO REBOOK ANY APPOINTMENT(S) THAT YOU HAVE CANCELLED" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"PLEASE NOTE THAT YOU MUST ENTER A DEVICE TO AUTO-REBOOK",! Line Location: ASK+3
Function Call: WRITE	Prompt: " ",$J(X,8) Line Location: LST+0
Function Call: WRITE	Prompt: ?41,$P(^UTILITY($J,"SDCNP2",B),"^",2) Line Location: MORE+0
Function Call: WRITE	Prompt: " (",$P(S5,"^",6)," MINUTES) ",$S($D(^SC($P(S5,"^",2),0)):$P(^(0),"^",1),1:"DELETED CLINIC"),$P(S5,"^",3) Line Location: MORE+1
Function Call: WRITE	Prompt: !,?41,"Max days for rebooking= ",M1 Line Location: MORE+1
Function Call: READ	Prompt: ": " Variable: A8 Timeout: DTIME Line Location: WH+0
Function Call: WRITE	Prompt: !!,"DO YOU WISH TO PRINT LETTERS FOR THE CANCELLED APPOINTMENT(S)" Line Location: LET+1
Function Call: WRITE	Prompt: 7,!,"* THIS PATIENT HAS BEEN FLAGGED WITH A BAD ADDRESS INDICATOR, NO LETTER" Line Location: LET+3
Function Call: WRITE	Prompt: !,"WILL BE PRINTED." Line Location: LET+4
Function Call: WRITE	Prompt: @IOF Line Location: QUE2+2
Function Call: WRITE	Prompt: @IOF Line Location: QUE2+5
Function Call: WRITE	Prompt: @IOF,!,*7,$S(SDCNT1:SDCNT1_" Appointment"_$S(SDCNT1>1:"s",1:"")_" rebooked",1:"NOTHING REBOOKED") Line Location: NOPE1+0
Function Call: WRITE	Prompt: !,*7,"There is no appointment number ",A9 Line Location: REBK+2
Function Call: WRITE	Prompt: !,"ANSWER (Y)ES OR (N)O" Line Location: REASK+0
Routine Call	%ZIS Line Location: ZIS QUE2+1
Routine Call	DIR Line Location: LET+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("FUNC" - [#.5]	LST
^DPT - [#2]	NOPE+2, CLRK*
^SC - [#44]	MORE+1
^TMP("SDWLREB"	EWL+3!, EWL+4, EWL+5
^TMP($J	EWL+3!, REB+5!, CAN+4!
^UTILITY($J	ZIS+1, LST, SDLST, MORE, MORE+1, OVR, REBK!*, EWL+1, EWL+4, REB , CAN

Label References

Name	Line Occurrences
ASK	NOPE+2, ASK+1
CAN	EWL+5
DEL	LST+2
END	NOPE+2
EWL	NOPE+4
LET	NOPE+6, LET+1
LST	DEL+1, DEL1+1
MORE	LST
MTCH	DEL
NOPE1	LST+2, DEL1+3
NOTELTR	QUE2+2, QUE2+5
OVR	MORE
QUE	DEL1+2
REASK	ASK+1, LET+1
REB	EWL+4
REBK	DEL1
SDLST	ZIS+2
WH	LST+1, OVR, WH+1

Naked Globals

Name	Field # of Occurrence
^(	NOPE+2, ZIS+1, LST, SDLST
^(0	MORE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1, LET+1
>> %ZIS	ZIS, QUE2+1
>> %ZIS("A"	ZIS*
>> A	NOPE+6*
>> A8	LST+2, WH*, WH+1, DEL, DEL1, DEL1+1
>> A9	REBK+2*
>> ALS	ASK+1*, NOTELTR
>> ANS	LET+1*, NOTELTR, NOTELTR+1
>> AT	LST*, MORE
>> B	LST*, LST+2, MORE, MORE+1, OVR, WH
CNDA	NOTELTR!, NOTELTR+1!
CNDIE	NOTELTR!, NOTELTR+1!
CNINDX	NOTELTR!, NOTELTR+1!
>> CNT	NOPE, NOPE+2, ASK+1*
DFN	NOPE+2, NOPE+4, NOPE+6, END!, ZIS+1, LST, SDLST, MORE+1, LET+2, REBK , CLRK, EWL~, REB+2, REB+4, REB+5, CAN+1, CAN+3, CAN+4
>> DGPGM	QUE*
>> DGVAR	QUE*
>> DIR(0	LET+5*!
>> DIROUT	END
DTIME	WH
IO	QUE2+2, QUE2+5, QUE, QUE+1
IO("Q"	QUE2+1!, QUE2+2
IO(0	QUE2+2, QUE2+5, QUE, QUE+1
IOF	OVR, QUE2+2, QUE2+5, NOPE1
>> IOP	QUE*
IOST	QUE+1
>> J	DEL, DEL1
>> L	ZIS+1*
>> L1	SDLST*
>> M1	MORE+1*
>> MAX	DEL1+2
>> POP	ZIS, QUE2+1
RBFLG	REB+2~, REB+3, REB+4, CAN+1~, CAN+2, CAN+3
>> S	CLRK
>> S5	MORE+1*
SC	NOPE+1, EWL+3~, REB, REB+2, REB+4, REB+5, CAN, CAN+1, CAN+3, CAN+4
>> SDA	NOPE+2*, NOPE+5, NOPE+6
SDCLNK	NOPE+1~*, NOPE+6!
>> SDCNT	NOPE+2*, NOPE+5, NOPE+6
>> SDCNT1	NOPE+2*, NOPE1
>> SDCTR	ASK+1, MORE, OVR*
>> SDCTRL	ASK+1, LST, LST+2, OVR, WH*
>> SDDH	DEL, DEL1, MTCH
>> SDDI	DEL1*, REBK+2
>> SDDM	DEL1*, REBK+2
>> SDERR	DEL, DEL+1, DEL1, DEL1+1, REBK+2, MTCH*
SDFRB	EWL+3~, EWL+4, EWL+5, REB, CAN
>> SDIO	QUE+1*
>> SDMSG	WH+1, MTCH
>> SDNODE	CLRK
SDREB	EWL+3~, REB, REB+4, REB+5, CAN, CAN+3, CAN+4
SDT	EWL+3~, REB, REB+2, REB+5, CAN, CAN+1, CAN+4
SDTRB	REB+2~, REB+4, CAN+1~, CAN+3
U	NOPE+2, ZIS+1, REB, CAN
>> X	LST, QUE
>> X8	NOPE+2, ASK+1, ZIS, WH, DEL1+1
>> Y	LST*
>> Z1(	LST*, REBK+2
>> Z5	SDLST*
>> Z6	SDLST*
>> Z7	SDLST*
>> Z9	DEL1*, REBK
>> ZTRTN	QUE2+3*
ZTS	QUE2+3*, QUE2+4!
>> ZTSAVE(	QUE2+3*

Customize PDF page

Package: Scheduling

Routine: SDCNP1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: