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.) ; 14 MAR 88@13:00

Source Information

Source file <SDCNP1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Scheduling 5 (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

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SDAMC  SDCNP0  

Entry Points

Name Comments DBIA/ICR reference
WH
CLRK
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
DEL
CAN
REB
DEL1
LST
ASK
LET
EWL(DFN) ;
MTCH
END
ZIS
NOPE1
REBK
REASK
OVR
QUE
SDLST
NOTELTR
NOPE
MORE

External References

Name Field # of Occurrence
^%ZIS ZIS, QUE2+1
^%ZISC QUE2+2, QUE2+5
^%ZTLOAD QUE2+4
$$BADADR^DGUTL3 LET+1
Q1^DGUTQ QUE
YN^DICN ASK, LET
^DIR LET+4
END^SDCNP END
RD^SDCNP END
^SDCNP1A DEL1+1
CKK^SDCNP1A DEL1
CKK2^SDCNP1A DEL1
LOOP1^SDCNP1A NOPE+5
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+4
Function Call: WRITE
  • Prompt: !!,"DO YOU WISH TO REBOOK ANY APPOINTMENT(S) THAT YOU HAVE CANCELLED"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE THAT YOU MUST ENTER A DEVICE TO AUTO-REBOOK",!
  • Line Location: ASK+2
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: ": "
  • Timeout: DTIME
  • Variable: A8
  • Line Location: WH+0
Function Call: WRITE
  • Prompt: !!,"DO YOU WISH TO PRINT LETTERS FOR THE CANCELLED APPOINTMENT(S)"
  • Line Location: LET+0
Function Call: WRITE
  • Prompt: *7,!,"** THIS PATIENT HAS BEEN FLAGGED WITH A BAD ADDRESS INDICATOR, NO LETTER"
  • Line Location: LET+2
Function Call: WRITE
  • Prompt: !,"WILL BE PRINTED."
  • Line Location: LET+3
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
  • DIR
  • Line Location:
    • LET+4
Routine Call
  • %ZIS
  • Line Location:
    • ZIS
    • QUE2+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("FUNC" - [#.5] LST
^DPT - [#2] NOPE+1, 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+1, ASK
CAN EWL+5
DEL LST+2
END NOPE+1
EWL NOPE+3
LET NOPE+5, LET
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, LET
REB EWL+4
REBK DEL1
SDLST ZIS+2
WH LST+1, OVR, WH+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, LET*
>> %ZIS ZIS*, QUE2+1*
>> %ZIS("A" ZIS*
>> A NOPE+5*
>> A8 LST+2, WH*, WH+1, DEL, DEL1, DEL1+1
>> A9 REBK+2*
>> ALS ASK*, NOTELTR
>> ANS LET*, 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+1, ASK*
DFN NOPE+1, NOPE+3, NOPE+5, END!, ZIS+1, LST, SDLST, MORE+1, LET+1, REBK
, CLRK, EWL~, REB+2, REB+4, REB+5, CAN+1, CAN+3, CAN+4
>> DGPGM QUE*
>> DGVAR QUE*
>> DIR(0 LET+4*!
>> 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 EWL+3~, REB*, REB+2, REB+4, REB+5, CAN*, CAN+1, CAN+3, CAN+4
>> SDA NOPE+1*, NOPE+4, NOPE+5
>> SDCNT NOPE+1*, NOPE+4, NOPE+5
>> SDCNT1 NOPE+1*, NOPE1
>> SDCTR ASK*, MORE*, OVR*
>> SDCTRL ASK*, 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+1, ZIS+1, REB, CAN
>> X LST*, QUE*
>> X8 NOPE+1*, ASK*, 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