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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDCNP0

Package: Scheduling

Routine: SDCNP0


Information

SDCNP0 ;ALB/LDB,ANU,MGD - CANCEL APPT. FOR A PATIENT ;MAY 30, 2024

Source Information

Source file <SDCNP0.m>

Entry Points

Name Comments DBIA/ICR reference
EN2
WH1
WH
DEL
DEL1
BEGD
CAN
EN01
C
NO
CHKSO
MORE
OVR ;Following code added SD/517
CONSULT(CSSD,CSDT) ;
CK1
SDEC(DFN,S,SDCLI,SDWH,SDSCR,SDREM,SDNOW,SDDUZ,SDF) ;update SDEC APPOINTMENT /alb/sat SD/627
STATUS(LF) ;
EVT ; -- separate tag if need to NEW vars
CANCELVVS(DFN,A1,SDWH,SDSCR,SDCANCELVVS,SDVVSAPPT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SDITEM
  • Line Location: WH1+2
Function Call: WRITE
  • Prompt: SDITEM
  • Line Location: WH1+3
Function Call: WRITE
  • Prompt: " ",$J(X,8)
  • Line Location: WH1+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: AT
  • Line Location: WH1+4
Function Call: READ
  • Prompt: ": "
  • Variable: APP
  • Timeout: DTIME
  • Line Location: WH+0
Function Call: WRITE
  • Prompt: !,*7,">>> Appointment #",A1," has a check in date and cannot be cancelled."
  • Line Location: BEGD+3
Function Call: WRITE
  • Prompt: !,*7,">>> Appointment #",A1," has a check out date and cannot be cancelled."
  • Line Location: BEGD+4
Function Call: WRITE
  • Prompt: ?41,$P(^UTILITY($J,"SDCNP",Z),"^",2)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: " ",$S($P(^UTILITY($J,"SDCNP",Z),"^",4)?.N:"("_$P(^(Z),"^",4)_" MIN) ",1:$P(^(Z),"^",4))," ",$S($D(^SC($P(^(Z),"^",2),0)):$P(^(0),"^",1),1:"DELETED CLINIC"),$P(^UTILITY($J,"SDCNP",Z),"^",3)
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !?5,"CONSULT ",Y,"/ ",CONSULT
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: ?55,"(",$E($$LOWER^VALM1($P($$STATUS^SDAM1(DFN,+^UTILITY($J,"SDCNP",Z),+$P(^(Z),U,2),$G(^DPT(DFN,"S",+^(Z),0))),";",3)),1,23),")"
  • Line Location: STATUS+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.2 - [#409.2] GET1^DIQ
^SDEC(409.84 - [#409.84] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call