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

Package: Scheduling

Routine: SDDPA


Information

SDDPA ;MAN/GRR,ALB/TMP,GXT/SCM - DISPLAY APPOINTMENTS ;7/23/18

Source Information

Source file <SDDPA.m>

Entry Points

Name Comments DBIA/ICR reference
RD
RD1 ; If "Exclude Administrative Clinics" parameter (ADMIN API) is set to "YES"
; then user will be prompted if they want to exclude the administrative
; clinics from the Appointment List. SD*5.3*705
RD2
1
EN1 ;
; Output updated to include physical location of the clinic and
; as appropriate excludes administrative clinics. SD*5.3*705
NO
RANGE
ARCH
FLEN ;following code changed with SD/545
RESET ;reset zero node of appt multiple in file #44 if values are known SD/545
CHKSO
END
MORE
ADDHDR(SDLOC) ;
; Added with patch SD*5.3*705
; The SDLOC variable is passed to delineate which entered text should
; be printed.
ADMIN() ;
; This API gets the value of the "EXCLUDE ADMIN CLINICS" (#1.2)
; field in the SCHEDULING PARAMETERS (404.91) file.
; Added with patch SD*5.3*705
EXCLUDE(SDEXCLUD,SDSCIEN) ;
; This API returns a 1 if the user responded to the "Exclude
; Administrative Clinics" with a yes SDEXCLUD variable and
; if the appointment clinic has a Stop Code Number equals 674.
; The values of SDEXCLUD may be based on the YN^DICN call for future maintainability.
; NOTE: The SDSCIEN variable is the pointer value of STOP CODE
; NUMBER (#8) FIELD in the HOSPITAL LOCATION(#44) FILE. Using
; this pointer value a check is done on the value in the REPORTING
; STOP CODE (#1) field in the CLINIC STOP (#40.7) file to see if it
; equals 674.
; Added with patch SD*5.3*705

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,*7,*7,"PATIENT NOT FOUND",*7,*7
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,"Respond YES or NO"
  • Line Location: RD1+5
Function Call: WRITE
  • Prompt: !,"Respond YES or NO"
  • Line Location: RD2+0
Function Call: WRITE
  • Prompt: !,"APPOINTMENTS FOR: ",$E(SDN,1,22)
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: ?42,"***","-","**","-",$E(SDSSN,6,9)
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: ?54,"PRINTED: ",$$FMTE^XLFDT(Y,"5")
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !!,$$PCLINE^SDPPTEM(DFN)
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: " ",$J(X,8)
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: @IOF,!!,"This patient has archived appts during this time period:",!
  • Line Location: ARCH+0
Function Call: WRITE
  • Prompt: !,?3,"ARCHIVED DATE RANGE # APPOINTMENTS TAPE # DATE ARCHIVED",!
  • Line Location: ARCH+0
Function Call: WRITE
  • Prompt: !,?3,$S(B:$$FMTE^XLFDT(B,"5D"),1:""),"-",$S(C:$$FMTE^XLFDT(C,"5D"),1:""),?32,+D,?45,E
  • Line Location: ARCH+1
Function Call: WRITE
  • Prompt: ?59,Y
  • Line Location: ARCH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: ?36,$P(^UTILITY($J,ZZ),"^",2)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: " (",$P(^UTILITY($J,ZZ),"^",4)," MINUTES) ",$S($D(^SC(+$P(^UTILITY($J,ZZ),"^",2),0)):$P(^SC(+$P(^UTILITY($J,ZZ),"^",2),0),"^"),1:"Deleted Clinic"),$P(^UTILITY($J,ZZ),"^",3)," ",$P(^(ZZ),"^",5),?60,$P(^(ZZ),"^",8)
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: !,$S($P(^(ZZ),"^",6)["NT":" *** ACTION REQUIRED ***",$P(^(ZZ),"^",6)["N":" *** NO-SHOW ***",$P(^(ZZ),"^",6)["C":" *** CANCELLED BY "_$P(^(ZZ),"^",7)_" ***",1:"")
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADDHDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDHDR+21
Function Call: WRITE
  • Prompt: !,?COLNUM,HDRTXT
  • Line Location: ADDHDR+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call