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

Package: Scheduling

Routine: SDCNP1


Information

SDCNP1 ;ALB/LDB - CANCEL APPOINTMENT (cont.) ; 5/25/12 11:42am

Source Information

Source file <SDCNP1.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

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 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All