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 |  Local Variables |  All
Print Page as PDF
Routine: BSDDPA

Package: IHS Changes To Scheduling

Routine: BSDDPA


Information

BSDDPA ; IHS/ITSC/LJF, WAR - DISPLAY PAT APPTS ; [ 04/16/2004 4:40 PM ]

Source Information

Source file <BSDDPA.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
IHS Changes To Scheduling 4 EN^BSDAMEP  $$DIV^BSDU  ($$APPTYP,$$CI,$$CO,$$OI)^BSDU2  ($$ONWL,WLDATA)^BSDWLV  
Registration 4 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
Kernel 3 $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
IHS Changes To ADT 2 ($$CONF,$$READ,PAUSE)^BDGF  ($$DEAD,$$DOD,$$HRCN)^BDGF2  
IHS Patient 1 KILL^AUPNPAT  
Patient Care Component 1 ^APCDVD  
Scheduling 1 $$PCLINE^SDPPTEM  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGPI  

Entry Points

Name Comments DBIA/ICR reference
VA ;EP; called by View Appt action
RESVIEW() ; -- returns 1 if restrict viewing of who made appt turned on
EN ;EP; -- main entry point for SD IHS APPT MADE BY;IHS/ITSC/LJF PATCH 1003
PAT ; -- ask user for patient
HDR ; -- header code
FORMAT ; -- convert data to external format
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
SP(N) ; -- SUBRTN to pad N number of spaces
STATUS(PAT,DATE,NODE) ; returns appt status
SET(LINE,DATA,NUM,BSDLN) ; -- set ^tmp with display line
GETAPPT(BSDSUB) ; -- select appt from listing
; BSDSUB=subscript of display global
INIT ; -- init variables and list array
; variables set are DFN, BSDBD, BSDED
; BSDLN keeps track of line #s to update VALMCNT which is returned
; BSDNUM used to link display line with entry
EXIT ; -- exit code
GETVST(PAT,DATE) ; returns visit ien for appt date and patient
VV ;EP; called by View Visit action
FINDUSR(PAT,CLINIC,DATE,BSDU,BSDM) ; -- gets user and date made from file 44
RETURN ; -- reset variables for return to lt
OI(PAT,CLINIC,DATE) ; -- returns other info display line
HELP ; -- help code

External References

Name Field # of Occurrence
^APCDVD VV+14
KILL^AUPNPAT PAT+2, EXIT+4
$$CONF^BDGF HDR+2
$$READ^BDGF PAT+3, PAT+5, PAT+15
PAUSE^BDGF VV+7, VV+12
$$DEAD^BDGF2 HDR+7
$$DOD^BDGF2 HDR+7
$$HRCN^BDGF2 HDR+4
EN^BSDAMEP VA+8
$$DIV^BSDU RESVIEW+1
$$APPTYP^BSDU2 STATUS+2
$$CI^BSDU2 STATUS+6
$$CO^BSDU2 STATUS+5
$$OI^BSDU2 OI+1
$$ONWL^BSDWLV PAT+10
WLDATA^BSDWLV INIT+22
$$GET1^DIQ HDR+3, HDR+5, HDR+6, INIT+12, FORMAT+1, RESVIEW+1
$$PCLINE^SDPPTEM HDR+8
EN^VALM EN+3
TERM^VALM0 EN+2, RETURN+1
CLEAR^VALM1 EN+2, EN+4
FULL^VALM1 GETAPPT+3
EN^VALM2 GETAPPT+5
$$FMTE^XLFDT INIT+11, FORMAT+3
$$REPEAT^XLFSTR INIT+29, PAD+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO APPOINTMENTS FOUND!",!
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: !!,"NO APPOINTMENTS OR WAITING LIST ENTRIES FOUND!",!
  • Line Location: PAT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Sorry data missing on this appointment!"
  • Line Location: VA+7
Function Call: WRITE
  • Prompt: !,"Sorry data missing on this appointment!"
  • Line Location: VV+6
Function Call: WRITE
  • Prompt: !,"Sorry, this appointment does not have a visit attached yet."
  • Line Location: VV+11
Routine Call
  • VALM
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^BSDPAR - [#9009020.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] VV+10
^DPT - [#2] PAT+10, INIT+9, INIT+10, INIT+17, INIT+18, FINDUSR+3, GETVST+3
^SC - [#44] FINDUSR+7, FINDUSR+8, FINDUSR+9
^SCE - [#409.68] GETVST+5
^TMP( GETAPPT+9, GETAPPT+10, GETAPPT+11, GETAPPT+12
^TMP("BSDDPA" INIT+5!, SET+2*, SET+3*
^XUSEC("SDZSUP" FORMAT+2

Label References

Name Line Occurrences
$$GETVST VV+9
$$OI INIT+16
$$PAD HDR+4, HDR+5, HDR+6, INIT+11, INIT+12, SP+1
$$RESVIEW FORMAT+2
$$SP HDR+2, HDR+7, INIT+18, INIT+25, INIT+27, INIT+33, OI+1
$$STATUS INIT+13
EN PAT+17
EXIT EN+4
FORMAT FINDUSR+4
GETAPPT VA+4, VV+3
PAT PAT+10, PAT+17
RETURN VA+5, VA+9, VV+5, VV+10, VV+16
SET INIT+15, INIT+16, INIT+18, INIT+19, INIT+23, INIT+25, INIT+27, INIT+28, INIT+29, INIT+33
, INIT+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDCAT VV+15!
APCDCLN VV+15!
APCDDATE VV+15!
APCDLOC VV+15!
APCDLOOK VV+15!
APCDPAT VV+9*, VV+15!
APCDTYPE VV+15!
APCDVSIT VV+9*, VV+10, VV+15!
APDT INIT+4~, INIT+8*, INIT+9*, INIT+10, INIT+11, INIT+13, INIT+15, INIT+16, INIT+17, INIT+18
BSDA GETAPPT+2~, GETAPPT+4*, GETAPPT+9, GETAPPT+12*, GETAPPT+13, GETAPPT+14
BSDBD PAT+1~, PAT+5*, PAT+10, INIT+8, EXIT+1!
BSDED PAT+1~, PAT+15*, INIT+8, EXIT+1!
BSDLN INIT+4~, INIT+15, INIT+16, INIT+18, INIT+19, INIT+23, INIT+25, INIT+27, INIT+28, INIT+29
, INIT+33, INIT+34, INIT+37, SET~, SET+1*, SET+2, SET+3, EXIT+1!
BSDM INIT+4~, FINDUSR~, FINDUSR+4*, FINDUSR+11*, FORMAT+3*
BSDNUM INIT+4~, INIT+14*, INIT+15, INIT+16, INIT+18, INIT+19, INIT+23*, INIT+25, INIT+27, INIT+28
, INIT+29, INIT+33, INIT+34, EXIT+1!
BSDSOME GETAPPT+6*, GETAPPT+7*, VA+2~, VA+6
BSDSUB GETAPPT~, GETAPPT+9, GETAPPT+10, GETAPPT+11, GETAPPT+12
BSDU INIT+4~, FINDUSR~, FINDUSR+4*, FINDUSR+10*, FORMAT+1*, FORMAT+2*
BSDWLR INIT+22!
BSDWLR( INIT+31, INIT+32, INIT+33
BSDWLR(0 INIT+25, INIT+28
CLINIC FINDUSR~, FINDUSR+7, FINDUSR+8, FINDUSR+9, OI~, OI+1
DATA SET~, SET+3, PAD~, PAD+1
DATE INIT+30~, INIT+31*, INIT+32, INIT+33, FINDUSR~, FINDUSR+3, FINDUSR+7, FINDUSR+8, FINDUSR+9, STATUS~
, STATUS+2, STATUS+5, STATUS+6, OI~, OI+1, GETVST~, GETVST+2, GETVST+3
DFN PAT+1~, PAT+3*, PAT+10, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, INIT+9
, INIT+10, INIT+13, INIT+15, INIT+16, INIT+17, INIT+18, INIT+22, GETAPPT+14*, VA+1~, VA+4*
, VA+5, VV+1~, VV+3*, VV+5, VV+9, VV+10, FINDUSR+8
DT HDR+8
DUZ FORMAT+2
DUZ(2 HDR+4
END INIT+4~, INIT+8*, INIT+9
>> IORVOFF HDR+3, HDR+7
>> IORVON HDR+3, HDR+7
LENGTH PAD~, PAD+1
LINE INIT+4~, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15, INIT+30~, INIT+32*, INIT+33, SET~
, SET+2
N SP~, SP+1
NODE INIT+4~, INIT+10*, INIT+12, INIT+13, INIT+15, INIT+16, INIT+17, STATUS~, STATUS+3, STATUS+4
, STATUS+5, STATUS+6
NUM SET~, SET+3
ORX EXIT+2!
PAT FINDUSR~, FINDUSR+3, STATUS~, STATUS+2, STATUS+5, STATUS+6, OI~, OI+1, GETVST~, GETVST+2
, GETVST+3, GETVST+6
SDC EXIT+2!
SDCL GETAPPT+14*, VA+1~, VA+4*, VA+5, VV+1~, VV+3*, VV+5
SDIFN EXIT+2!
SDP EXIT+2!
SDPP EXIT+2!
SDS EXIT+2!
SDSTAT EXIT+2!
SDT GETAPPT+14*, VA+1~, VA+4*, VA+5, VV+1~, VV+3*, VV+5, VV+9
SDW GETAPPT+8*, VA+1~, VV+1~
>> SUB VA+3*, VA+4, VV+2*, VV+3
TYP STATUS+1~, STATUS+2*, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7
U INIT+15, INIT+17, INIT+33, GETAPPT+14, VV+10, FINDUSR+3, FINDUSR+4, FINDUSR+9, FINDUSR+10, FINDUSR+11
, STATUS+3, STATUS+4, GETVST+4, GETVST+6, GETVST+7
>> VALMAR VA+3, VV+2
VALMBCK EXIT+3!, RETURN+1*
>> VALMCC EN+2*
VALMCNT EN+1~, INIT+37*, EXIT+3!
VALMHDR EXIT+3!
VALMHDR(1 HDR+2*
VALMHDR(2 HDR+6*
VALMHDR(3 HDR+7*, HDR+8*
VALMY EXIT+2!, GETAPPT+6
VALMY(0 GETAPPT+8
X HDR+1~, HDR+3*, HDR+4*, HDR+5*, HDR+6, INIT+4~, INIT+15*, HELP+1*, GETAPPT+2~, GETAPPT+8*
, GETAPPT+12, FINDUSR+1~, FINDUSR+7*, FINDUSR+8, FINDUSR+9, GETVST+1~, GETVST+3*, GETVST+4*, GETVST+5*, GETVST+6
, GETVST+7
>> XQORNOD(0 GETAPPT+5
Y GETAPPT+2~, GETAPPT+9*, GETAPPT+10, GETAPPT+11, GETAPPT+12, FINDUSR+1~, FINDUSR+3*, FINDUSR+4, FINDUSR+7!, FINDUSR+9*
, FINDUSR+10, FINDUSR+11
Z GETAPPT+2~, GETAPPT+10*, GETAPPT+11, GETAPPT+12
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 |  Local Variables |  All