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 |  Marked Items |  All
Print Page as PDF
Routine: BSDAM

Package: IHS Changes To Scheduling

Routine: BSDAM


Information

BSDAM ; IHS/ANMC/LJF,WAR - IHS CALLS FOR APPT MGT ; [ 03/16/2004 10:01 AM ]

Source Information

Source file <BSDAM.m>

Call Graph

Call Graph Total: 29

Package Total Call Graph
Scheduling 9 (BLD,EN1)^SDAM  SET^SDAM1  SEL^SDAMEP  HDLKILL^SDAMEVT  MC^SDCO5  ORD^SDM3  $$PCLINE^SDPPTEM  DTS^SDUTL  
$$GETAPT^SDVSIT2  
VA Fileman 5 EN^DDIOL  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
IHS Changes To Scheduling 4 ^BSDHSP  CMS^BSDU1  ($$CO,$$SCIEN,PEND)^BSDU2  WLDATA^BSDWLV  
Kernel 3 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Registration 3 DEM^VADPT  (FULL,PAUSE)^VALM1  SEL^VALM2  
IHS Changes To ADT 2 ($$READ,MSG,PAUSE,ZIS)^BDGF  $$LASTREG^BDGF2  
Patient Care Component 2 (EOJ,GETVISIT)^APCDDISP  ^APCDVD  
IHS Patient 1 ($$AGE,KILL)^AUPNPAT  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Scheduling 5 SDAM1  SDAM10  SDAM2  SDAMWI1  SDM  
IHS Changes To Scheduling 2 BSDCHKI1  BSDV  
IHS View Patient Record 1 BVPSD  

Entry Points

Name Comments DBIA/ICR reference
DELTEST ; delete ancillary test from appt
OI(BSDC,BSDT,BSDN,DFN) ;EP; called by OI and by SDAMWI1
; ask user to update other info
TESTS ;EP; append or delete ancillary tests
END ; end of action; return to appt mgt menu
FU ;EP; add follow up appointment
TST(NUMBER) ; -- returns name of test by number
ADTEST ; append ancillary test to appt
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
HS ;EP; print or browse health summary
OIASK ;EP; add/edit other info
DISPTEST(PAT,DATE,SAVE) ; -- displays any ancillary tests already scheduled
AVAIL(N) ; returns 1 if user has access to print report N
RXPROF ;EP; print med or action profile
WLDIS(DFN) ;EP - display waiting list info on AM screen if by patient ;IHS/OIT/LJF 07/28/2005 PATCH 1004
; Called by BLD1^SDAM1
OTHER ;EP; called by BSDAM OTHER REPORTS protocol
; if in Clinic Mode, ask for Patient
RPT ;;IHS/OIT/LJF 01/19/2006 PATCH 1005 added lines below
SP(N) ; -- SUBRTN to pad N number of spaces
PAT(DFN) ;PEP - drop into Appt Management list template with patient defined
VST ; view pcc visits
SETPT(DFN) ;sets AUPN variables when DFN is set
PTAPPT(DFN) ;EP - display pending appts, last reg update and register membership;IHS/OIT/LJF 12/30/2005 PATCH 1005
; called when making an appt (SDAM2 and SDM)

External References

Name Field # of Occurrence
^%ZISC HS+1, OTHER+25
EOJ^APCDDISP VST+4
GETVISIT^APCDDISP VST+2
^APCDVD VST+4
$$AGE^AUPNPAT PTAPPT+2
KILL^AUPNPAT OTHER+28
$$READ^BDGF OI+11, RXPROF+6, RXPROF+9, TESTS+3, OTHER+14
MSG^BDGF OI+14, OTHER+5, OTHER+19, OTHER+23
PAUSE^BDGF ADTEST+10, DELTEST+9, DELTEST+15, OTHER+20, VST+3
ZIS^BDGF RXPROF+17, RXPROF+18
$$LASTREG^BDGF2 PTAPPT+3
^BSDHSP HS+1
CMS^BSDU1 PTAPPT+8
$$CO^BSDU2 ADTEST+8, DELTEST+7
$$SCIEN^BSDU2 OIASK+9, ADTEST+6, DELTEST+5
PEND^BSDU2 PTAPPT+9
WLDATA^BSDWLV WLDIS+3
EN^DDIOL DISPTEST+10
^DIC PAT+6, RXPROF+15, SETPT+1
^DIE OI+18, OI+20, DELTEST+21
$$GET1^DIQ PTAPPT+6
^DIR DELTEST+18
BLD^SDAM END+1
EN1^SDAM PAT+4
SET^SDAM1 WLDIS+5, WLDIS+7, WLDIS+8, WLDIS+9, WLDIS+10, WLDIS+16, WLDIS+19
SEL^SDAMEP OIASK+5, FU+5, ADTEST+2, DELTEST+2
HDLKILL^SDAMEVT PAT+1, PAT+4
MC^SDCO5 FU+13
ORD^SDM3 ADTEST+12
$$PCLINE^SDPPTEM PTAPPT+2
DTS^SDUTL ADTEST+7
$$GETAPT^SDVSIT2 FU+10
DEM^VADPT OTHER+5
FULL^VALM1 OIASK+2, FU+2, HS+1, RXPROF+2, TESTS+1, OTHER+2
PAUSE^VALM1 OIASK+7, FU+7, FU+11, ADTEST+4, DELTEST+4
SEL^VALM2 OTHER+4
$$FMTE^XLFDT DISPTEST+6
$$REPEAT^XLFSTR PTAPPT+6, WLDIS+10, PAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"Age: "_$$AGE^AUPNPAT(DFN,DT,"R")_" "_$$PCLINE^SDPPTEM(DFN,DT)
  • Line Location: PTAPPT+2
Function Call: WRITE
  • Prompt: !,"Last Registration Update: ",$$LASTREG^BDGF2(DFN)
  • Line Location: PTAPPT+3
Function Call: WRITE
  • Prompt: !!?8,$$REPEAT^XLFSTR("*",24),!?8,"** INELIGIBLE PATIENT **",!?8,$$REPEAT^XLFSTR("*",24),!
  • Line Location: PTAPPT+6
Function Call: WRITE
  • Prompt: !!,*7,">>> This is not a valid appointment."
  • Line Location: OIASK+7
Function Call: WRITE
  • Prompt: !!,*7,">>> This is not a valid appointment."
  • Line Location: FU+7
Function Call: WRITE
  • Prompt: !!,*7,">>>A followup appointment cannot be made until after the patient is checked in"
  • Line Location: FU+11
Function Call: WRITE
  • Prompt: !!,*7,">>> This is not a valid appointment."
  • Line Location: ADTEST+4
Function Call: WRITE
  • Prompt: !?5,"** Appointment already checked out; cannot add test. **"
  • Line Location: ADTEST+9
Function Call: WRITE
  • Prompt: !!,*7,">>> This is not a valid appointment."
  • Line Location: DELTEST+4
Function Call: WRITE
  • Prompt: !?5,"** Appointment already checked out; cannot delete test. **"
  • Line Location: DELTEST+8
Function Call: WRITE
  • Prompt: !,"** No tests scheduled; nothing to delete. **"
  • Line Location: DELTEST+14
Function Call: WRITE
  • Prompt: !!,"No VISIT selected!"
  • Line Location: VST+3
Routine Call
  • DIE
  • Line Location:
    • OI+18
    • OI+20
    • DELTEST+21
Routine Call
  • DIC
  • Line Location:
    • PAT+6
    • RXPROF+15
    • SETPT+1
Routine Call
  • DIR
  • Line Location:
    • DELTEST+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISPTEST+2
^SC - [#44] OI+3
^TMP("SDAMIDX" WLDIS+17*, OIASK+6, FU+6, ADTEST+3, DELTEST+3, OTHER+4

Label References

Name Line Occurrences
$$AVAIL OTHER+18
$$OI OIASK+11
$$PAD SP+1
$$SP WLDIS+5, WLDIS+8, WLDIS+19, OTHER+5
$$TST DISPTEST+6
@( TESTS+4, OTHER+25
DISPTEST ADTEST+11, DELTEST+11
END OIASK+7, OIASK+12, FU+7, FU+11, FU+15, HS+1, ADTEST+4, ADTEST+10, ADTEST+12, DELTEST+4
, DELTEST+7, DELTEST+13, DELTEST+17, DELTEST+23
OIASK OIASK+10, OIASK+11
SETPT OTHER+27, VST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCDPAT VST+2*
>> APCDVSIT VST+3
>> AUPNPAT VST+5*
BSDA OTHER+8~, OTHER+14
BSDA( OTHER+11*
BSDC OIASK+1~, OIASK+9*, OIASK+11, FU+1~, FU+10*, OI~, OI+3, OI+17
BSDN OIASK+1~, OIASK+9*, OIASK+10, OIASK+11, FU+1~, FU+10*, FU+11, FU+13, OI~, OI+3
, OI+17
BSDNEW OI+2~, OI+11*, OI+13, OI+14, OI+18, OI+19, OI+20
BSDOLD OI+2~, OI+4*, OI+18, OI+19
BSDPT OIASK+1~, OIASK+8*, OIASK+9, OIASK+11, FU+1~, FU+8*, FU+10
BSDRPT OTHER+8~, OTHER+16*, OTHER+25
BSDRR DELTEST+1~, DELTEST+13
BSDRR( DELTEST+20, DISPTEST+9*
BSDRR("" DELTEST+17
BSDSAV PAT+2~, PAT+3*, PAT+5, VST+1~, VST+2*, VST+5
BSDSRFU FU+14!
BSDT OIASK+1~, OIASK+9*, OIASK+11, FU+1~, FU+10*, OI~, OI+3, OI+17
BSDWLR WLDIS+3~
BSDWLR( WLDIS+12, WLDIS+13, WLDIS+16, WLDIS+17, WLDIS+18, WLDIS+19
BSDWLR(0 WLDIS+5, WLDIS+9
BSDX OI+2~, OI+3*, OI+4, OI+11, DELTEST+1~, DELTEST+17*, DELTEST+19
BSDXXX OTHER+8~, OTHER+16*, OTHER+18, OTHER+21*, OTHER+24*
CLN RXPROF+1~, RXPROF+11*, RXPROF+12, RXPROF+15*, RXPROF+18
CNT DISPTEST+1~, DISPTEST+5*, DISPTEST+6, DISPTEST+9
CODE AVAIL+1~, AVAIL+2*, AVAIL+3
D PAD~, PAD+2
DA OI+2~, OI+17*, DELTEST+1~, DELTEST+20*
DA(1 OI+17*, DELTEST+20*
DA(2 OI+17*
DATA DISPTEST+1~, DISPTEST+2*, DISPTEST+4, DISPTEST+6
DATE WLDIS+11~, WLDIS+12*, WLDIS+13, WLDIS+16, WLDIS+17, WLDIS+18, WLDIS+19, DISPTEST~
DFN PAT~, PAT+3, PAT+5*, PAT+6, PTAPPT~, PTAPPT+2, PTAPPT+3, PTAPPT+6, PTAPPT+8, PTAPPT+9
, WLDIS~, WLDIS+3, WLDIS+17, OI~, OI+3, RXPROF+1~, RXPROF+5*, RXPROF+6*, RXPROF+7, RXPROF+17
, RXPROF+18, ADTEST+5*, ADTEST+6, ADTEST+8, ADTEST+11, DELTEST+5*, DELTEST+7, DELTEST+11, DELTEST+20, DISPTEST+2
, OTHER+3~, OTHER+4*, OTHER+5, OTHER+27, VST+2, VST+5*, SETPT~, SETPT+1
DIC PAT+6~*, RXPROF+1~, RXPROF+13*, RXPROF+15!, SETPT+1~*
DIC("A" RXPROF+13*
DIC("S" RXPROF+14*
DIC(0 PAT+6*, RXPROF+13*, SETPT+1*
DIE OI+17*, DELTEST+1~, DELTEST+20*
DIR OI+2~, DELTEST+1~, DELTEST+18!, DELTEST+19!
DIR("A" DELTEST+18*
DIR(0 DELTEST+18*
DR OI+2~, OI+18*, OI+20*, DELTEST+1~, DELTEST+20*
DT PTAPPT+2, RXPROF+18
EKG ADTEST+1~, ADTEST+7*
I DISPTEST+1~, DISPTEST+3*, DISPTEST+4, DISPTEST+6, DISPTEST+9
L PAD~, PAD+2
LAB ADTEST+1~, ADTEST+7*
LEN OI+2~
LINE WLDIS+11~, WLDIS+13*, WLDIS+16, WLDIS+17, WLDIS+18, WLDIS+19, DISPTEST+1~, DISPTEST+10
LINE( DISPTEST+5*, DISPTEST+6*, DISPTEST+9*
LINEC WLDIS+11~, WLDIS+18*, WLDIS+19
N AVAIL~, SP~, SP+1
NUMBER TST~, TST+1
PAT DISPTEST~
SAVE DISPTEST~, DISPTEST+9
SD ADTEST+1~, ADTEST+6*, ADTEST+7, ADTEST+8, ADTEST+11, DELTEST+1~, DELTEST+5*, DELTEST+7, DELTEST+11, DELTEST+20
, DISPTEST+2
>> SDACNT WLDIS+15*, WLDIS+16, WLDIS+17
>> SDAMTYP OTHER+3, OTHER+27, OTHER+28
SDCL ADTEST+1~, ADTEST+6*, ADTEST+8, DELTEST+1~, DELTEST+5*, DELTEST+7
>> SDCLN RXPROF+11, RXPROF+12
SDCOMKF FU+12~, FU+13
>> SDCOQUIT FU+13
SDDA WLDIS+17, ADTEST+1~, ADTEST+6*, ADTEST+8, DELTEST+1~, DELTEST+5*, DELTEST+7
SDERR OIASK+1~, OIASK+5, FU+1~, FU+5, ADTEST+1~, ADTEST+2, DELTEST+1~, DELTEST+2
SDFN RXPROF+5, RXPROF+6, OTHER+3~, OTHER+4*
SDW OIASK+1~, OIASK+5, OIASK+6, FU+1~, FU+5, FU+6, ADTEST+1~, ADTEST+2, ADTEST+3, DELTEST+1~
, DELTEST+2, DELTEST+3
SDWR ADTEST+1~, ADTEST+7*
SDY PAT+2~, PAT+3*
SODT ADTEST+1~, ADTEST+7*
TYPE RXPROF+1~, RXPROF+9*, RXPROF+12, RXPROF+17, RXPROF+18
U WLDIS+16, WLDIS+17, WLDIS+19, OIASK+7, OIASK+8, OIASK+9, FU+7, FU+8, FU+10, OI+4
, OI+11, OI+13, TESTS+3, ADTEST+4, ADTEST+5, ADTEST+6, DELTEST+4, DELTEST+5, DISPTEST+4, DISPTEST+6
, OTHER+4
VA OTHER+5~
VA("BID" OTHER+5
VADM OTHER+5~
VADM(1 OTHER+5
>> VALMBCK END+2*, VST+6*
>> VALMCNT WLDIS+17
>> VALMY(0 OTHER+4
X PAT+6~*, OIASK+1~, OIASK+6*, OIASK+7, OIASK+8, OIASK+9, OIASK+11*, FU+1~, FU+6*, FU+7
, FU+8, FU+10, OI+2~, OI+9*, OI+11, RXPROF+1~, TESTS+2~, TESTS+3*, TESTS+4, ADTEST+1~
, ADTEST+3*, ADTEST+4, ADTEST+5, ADTEST+6, DELTEST+1~, DELTEST+3*, DELTEST+4, DELTEST+5, DELTEST+17, OTHER+8~
, OTHER+11*, SETPT+1~*
XRAY ADTEST+1~, ADTEST+7*
Y PAT+6~, RXPROF+1~, RXPROF+15, TESTS+2~, TESTS+4*, ADTEST+7*, DELTEST+1~, DELTEST+19, DELTEST+20, OTHER+8~
, OTHER+14*, OTHER+16, AVAIL+4, SETPT+1~

Marked Items

Name Field # of Occurrence
$T(RPT+BSDXXX OTHER+16, OTHER+19, OTHER+23
$T(RPT+N AVAIL+2
$T(RPT+X OTHER+11
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 |  Marked Items |  All