Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls