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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDDPA

Package: Scheduling

Routine: SDDPA


Information

SDDPA ;MAN/GRR,ALB/TMP,GXT/SCM- DISPLAY APPOINTMENTS ; 23 JUL 2018 12:37 pm

Source Information

Source file <SDDPA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  YN^DICN  ^DIE  $$GET1^DIQ  
Scheduling 3 DT^SDM0  $$PCLINE^SDPPTEM  (DATE,DT,DTS,OUT)^SDUTL  
Kernel 1 $$FMTE^XLFDT  
Registration 1 (CLOSE,ZIS)^DGUTQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDDISPPEND  

Entry Points

Name Comments DBIA/ICR reference
RESET ;reset zero node of appt multiple in file #44 if values are known SD/545
1
CHKSO
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
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
NO
ADDHDR(SDLOC) ;
; Added with patch SD*5.3*705
; The SDLOC variable is passed to delineate which entered text should
; be printed.
RD2
RD
EN1 ;
; Output updated to include physical location of the clinic and
; as appropriate excludes administrative clinics. SD*5.3*705
RANGE
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
FLEN ;following code changed with SD/545
END
ARCH
MORE

External References

Name Field # of Occurrence
^%DT 1+4
CLOSE^DGUTQ END+2
ZIS^DGUTQ RD2+3
^DIC RD+1
YN^DICN RD1+5, RD2
^DIE RESET+10
$$GET1^DIQ ADMIN+6
DT^SDM0 EN1+7
$$PCLINE^SDPPTEM 1+13
DATE^SDUTL RANGE
DT^SDUTL SDDPA+4
DTS^SDUTL ARCH+1
OUT^SDUTL 1+14, MORE, MORE+4, ADDHDR+28
$$FMTE^XLFDT 1+8, ARCH+1

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
Routine Call
  • DIE
  • Line Location:
    • RESET+10
Routine Call
  • DIC
  • Line Location:
    • RD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("FUNC" - [#.5] EN1+7
^DIC(40.7 - [#40.7] EXCLUDE+11
^DPT - [#2] 1, 1+15, EN1+3, EN1+4, RANGE+1, FLEN+2, RESET+2, RESET+3, RESET+4, RESET+5
, RESET+7, CHKSO, CHKSO+1
^SC - [#44] FLEN+2, FLEN+4, FLEN+5, RESET+5!, RESET+7, RESET+12*, RESET+13*, RESET+14*, MORE+2
^SD(404.91 - [#404.91] ADDHDR+7, ADDHDR+9, ADDHDR+15, ADDHDR+22
^UTILITY($J RD+1!, EN1+5*, EN1+7, CHKSO+1*, END+1!, MORE, MORE+2
^VA(200 - [#200] CHKSO

Label References

Name Line Occurrences
$$ADMIN RD1+4
$$EXCLUDE EN1+5
1 RD2+3
ADDHDR 1+3, 1+11
ARCH RANGE+1
CHKSO EN1+5
END RD+1, 1+11, 1+14, EN1+8, NO+1
FLEN EN1+5
MORE EN1+7
NO 1+15, EN1+6
RANGE RD2+1
RD RD+1, RD1+5, RD2, RD2+1
RD1 RD1+5
RD2 RD2
RESET FLEN+4
SDDPA RD2+3

Naked Globals

Name Field # of Occurrence
^( EN1+7, RANGE+1, MORE+2, MORE+3
^("S" RANGE+1
^(0 1, RESET+5, CHKSO, CHKSO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RD1+5*, RD1+6, RD2*, RD2+1
%DT 1+4*, END!
A RANGE+1*, END!
APL RD*, EN1+5, FLEN+4*, FLEN+5*, END!
APLEN FLEN+4, FLEN+6!, RESET+5*, RESET+6*, RESET+7*, RESET+15!
AT EN1+7*, END!, MORE, MORE+1
B RANGE+1*, ARCH+1, ARCH+2!
BEGDATE RANGE, END!
C RANGE+1*, ARCH+1, ARCH+2!, END!
COLNUM ADDHDR+8~, ADDHDR+23*, ADDHDR+24
COV EN1+5, FLEN+2*, END!
D RANGE+1*, ARCH+1, ARCH+2!
DA RD+2*, RESET+8*, RESET+15!, END!, ADMIN+4~, ADMIN+5*, ADMIN+6
DA(1 RESET+8*, RESET+9
DA(2 RESET+8*, RESET+9, RESET+11
DFN RD+2*, 1, 1+13, 1+15, EN1+3, EN1+4, RANGE+1, FLEN+2, FLEN+5, RESET+1
, RESET+2, RESET+3, RESET+4, RESET+5, RESET+7, CHKSO, CHKSO+1, END!
DGPGM RD2+3*, END!
DGVAR RD2+3*, END!
DIC RD+1*, END!, ADMIN+4~, ADMIN+5*, ADMIN+6
DIC(0 RD+1*
DIE RESET+9*, RESET+15!
DIPGM END!
DIQ ADMIN+4~
DIQ(0 ADMIN+5*
DR RESET+10*, RESET+15!, ADMIN+4~, ADMIN+5*, ADMIN+6
DT SDDPA+4, RD
DTOUT RD+1, RD1+5*, RD2*, END+1!
DUZ(2 ADDHDR+7, ADDHDR+9
E RANGE+1*, ARCH+1, ARCH+2!
ENDDATE RANGE, END!
FIRST ADDHDR+8~, ADDHDR+14*, ADDHDR+18*, ADDHDR+21*
HDRTXT ADDHDR+8~, ADDHDR+22*, ADDHDR+23, ADDHDR+24, ADDHDR+31
HDT RD*, 1+15, RANGE*, RANGE+1, END!
IO 1
IOF 1+14, ARCH, MORE, MORE+4, ADDHDR+18, ADDHDR+28
IOSL 1+14, MORE, MORE+4, ADDHDR+28
IOST 1+14, MORE, MORE+4, ADDHDR+28
J EN1+3*, END!
L 1+15*, EN1+5, EN1+6, FLEN+2*, CHKSO+1*, END!
NAME RD+2*, END!
NDT 1+15*, EN1+3*, EN1+4, EN1+5, FLEN+2, FLEN+4, FLEN+5, RESET+2, RESET+3, RESET+4
, RESET+5, RESET+7, RESET+8, RESET+12, RESET+13, RESET+14, CHKSO, CHKSO+1, END!
NODE RESET+6*, RESET+7*, RESET+12, RESET+13, RESET+15!
POP RD2+1*, RD2+3, RANGE, FLEN+3~*, FLEN+4, FLEN+6!, RESET+1*, RESET+2*, RESET+3*, RESET+4*
, RESET+5*, END!
SC EN1+5, FLEN+2*, FLEN+4, FLEN+5, RESET+5, RESET+7, RESET+8, RESET+11*, RESET+12, RESET+13
, RESET+14, END!
SCNODE FLEN+2*, END+1!
SCRM EN1+5, FLEN+2*, END+1!
SDACS SDDPA+4!, RD
SDBD END!
SDBY EN1+5, CHKSO*, END!
SDED END!
SDEDT RD*, EN1+3, RANGE*, RANGE+1, END!
SDEND RD+1*, 1+11, 1+14, EN1+7, END!, MORE, MORE+4, ADDHDR+15, ADDHDR+28
SDEXCLUD RD1+3~*, RD1+6*, EN1+5, EXCLUDE~, EXCLUDE+11
SDJ CHKSO+1*, END!
SDLOC ADDHDR~, ADDHDR+15, ADDHDR+18, ADDHDR+21, ADDHDR+23, ADDHDR+28, ADDHDR+31
SDN 1*, 1+5, END!
SDNS EN1+5, CHKSO*, END!
SDONE RD2+1*, RANGE*, ARCH, ARCH+2*, END!
SDRG RD*, EN1+3, EN1+4, NO, RANGE*, END!
SDSCIEN EN1+5, FLEN+2*, END+1!, EXCLUDE~, EXCLUDE+11
SDSSN 1+4*, 1+7, END!
SDSTR 1*, 1+4, END!
SDU CHKSO*!
SDYN RD2+1*, END!
SITEIEN ADDHDR+8~, ADDHDR+9*, ADDHDR+13, ADDHDR+15, ADDHDR+22
STAT1 RESET+6*, RESET+7*, RESET+14, RESET+15!
TXTIEN ADDHDR+8~, ADDHDR+14*, ADDHDR+15*, ADDHDR+22
U 1, 1+4, FLEN+2, FLEN+5, RESET+5, RESET+7, RESET+12, RESET+13, RESET+14, ADDHDR+22
, EXCLUDE+11
X RD+1, 1+4*, EN1+7*, RANGE+1*, END+1!
Y RD+1, RD+2, 1+8, EN1+7*, ARCH+1*, END+1!
Z RANGE+1*, ARCH+1, ARCH+2!
ZL FLEN+2*, FLEN+4, FLEN+5, RESET+5, RESET+8, RESET+12, RESET+13, RESET+14, END+1!
ZX END+1!
ZZ EN1+7*, END+1!, MORE, MORE+2, MORE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All