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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BSDCHKIN

Package: IHS Changes To Scheduling

Routine: BSDCHKIN


Information

BSDCHKIN ;cmi/anch/maw - BSD CheckIn Auto Refresh 1/25/2007 1:06:21 PM

Source Information

Source file <BSDCHKIN.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA Fileman 5 ^%DT  C^%DTC  EN^DDIOL  ^DIC  ^DIR  
Registration 4 (KVA,PID)^VADPT  (EN,REFRESH)^VALM  TERM^VALM0  ($$FDATE,$$SETSTR,CLEAR,PAUSE)^VALM1  
Scheduling 4 (INIT,LARGE,NUL)^SDAM10  $$VALID^SDAM2  EN^SDAMEP  ASK2^SDDIV  
IHS Changes To Scheduling 2 (BLD1,SET)^BSDCHKI1  ($$ACTV,$$DIVNM,$$INACTMSG,$$INACTVDT,EXPNDPC)^BSDU  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
FUT ; -- change date range
HELPTXT ; -- help text
INIT1 ; added line label
LIST ; -- find and build
; input: X := status group
; output: SDAMLIST := array of status'
GETCLN ;-- get clinics
HLPQ
HLPS ; -- short help
GROUPQ
MCLN(BSDCLNM) ;-- loop through array and call BLD1
FUTQ
FNL ; -- what to do after action
DR ;-- select date range
HDR ; -- screen head
REFRESH(BSDDT,BSDCLNA) ;-- lets build the date/time order array
EN1 ;PEP; entry point when clinic or clinic array is known - see technical documentation
RF ;-- refresh the screen now
GUI(BSDCLN,BSDDT) ;-- future GUI entry point for display
GROUP(GROUP,SDAMLIST) ; -- find list
BLD1 ; -- scan apts
CLN ;-- lets get the clinic
EN ;EP; -- main entry point for BSDAM CHECKIN LIST
; variables already set coming into this routine:
; SDCLN = clinic ien in file
; BSDDT = date of clinic appointments to list
HDRC ;-- clinic header
; input: SDCLN := ifn of pat
; output: VALMHDR() := hdr array
BLD ; -- entry point to bld list
; input: SDAMLIST := list to build
BLDQ
TOFF ;-- toggle off auto refresh
LISTQ
HLP ; -- help for list
EXIT ; -- exit action for protocol
INITQ
TON ;-- toggle on auto refresh
EX ;-- expand the entry

External References

Name Field # of Occurrence
^%DT DR+2
C^%DTC FUT+1
KILL^AUPNPAT EN1+3
BLD1^BSDCHKI1 BLD1+19
SET^BSDCHKI1 MCLN+10, MCLN+17
$$ACTV^BSDU GETCLN+8
$$DIVNM^BSDU CLN+5
$$INACTMSG^BSDU GETCLN+3
$$INACTVDT^BSDU GETCLN+9
EXPNDPC^BSDU GETCLN+13
EN^DDIOL GETCLN+10
^DIC GETCLN+4
^DIR RF+9
INIT^SDAM10 MCLN+2
LARGE^SDAM10 BLD1+20
NUL^SDAM10 BLD1+20
$$VALID^SDAM2 BLD1+19
EN^SDAMEP EX+2
ASK2^SDDIV CLN+6
KVA^VADPT EN1+3
PID^VADPT BLD1+19
EN^VALM EN1+2
REFRESH^VALM EXIT+1
TERM^VALM0 EN1+1
$$FDATE^VALM1 HDR+7
$$SETSTR^VALM1 HDR+7
CLEAR^VALM1 EN1+3, INIT1+1, HLP+2, HLP+8
PAUSE^VALM1 LIST+4, HLP+1, HLP+3
$$FMTE^XLFDT DR+1
DISP^XQORM1 HLPS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You must be viewing a patient to list cancelled appointments."
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !,$S(SDX["$PAUSE":"",1:SDX)
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HLPS+1
Routine Call
  • VALM
  • Line Location:
    • EN1+2
Routine Call
  • DIC
  • Line Location:
    • GETCLN+4
Routine Call
  • DIR
  • Line Location:
    • RF+9
Routine Call
  • VALM
  • Line Location:
    • EXIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BSDTMP("BSDCHK" FNL+1!
^DPT - [#2] BLD1+19
^SC - [#44] REFRESH+5, REFRESH+7, REFRESH+8, REFRESH+10, REFRESH+11, HDRC+8, MCLN+13, BLD1+4, BLD1+5, BLD1+6
, BLD1+7, BLD1+8, BLD1+19
^SD(409.62 - [#409.62] GROUP+2, GROUP+3, GROUP+4
^SD(409.63 - [#409.63] GROUP+5
^TMP("BSDCHK" EN+5!, BLD1+9*, BLD1+11, BLD1+12, BLD1+14
^TMP("SDAM" EN+6!, REFRESH+12*, FNL+1!, BLD1+21*
^TMP("SDAMIDX" FNL+1!
^TMP("VALMIDX" FNL+1!

Label References

Name Line Occurrences
BLD LIST+5
BLD1 MCLN+19
CLN EN+8
DR EN+11
EN1 EN+13
EXIT RF+3
GETCLN CLN+7, GETCLN+14
GROUP BLD+2, LIST+5
GROUPQ GROUP+3
HLPQ HLP+1
HLPS HLP+1
LIST INIT1+2, FUT+3, RF+1
LISTQ LIST+4
MCLN BLD+4
RF TOFF+2, TON+3
TOFF RF+11

Naked Globals

Name Field # of Occurrence
^(0 GROUP+3, BLD1+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DR+1*
>> %DT("A" DR+1*
>> %DT("B" DR+1*
AC MCLN+1~
AW MCLN+1~
BL MCLN+1~
BSDA REFRESH+1~, REFRESH+3*, REFRESH+5, REFRESH+7, REFRESH+8, REFRESH+10, REFRESH+11, REFRESH+12
>> BSDACNT MCLN+8*, MCLN+11, MCLN+15*, MCLN+18
BSDB REFRESH+1~, REFRESH+2*, REFRESH+5
BSDCHK REFRESH+9~, REFRESH+11*, REFRESH+12, BLD1+3~, BLD1+7*, BLD1+9
>> BSDCHKIN BLD1+18*
BSDCLN EN+10, GUI~, GETCLN+5!, FNL+3!, BLD+4
BSDCLN( GETCLN+11*, HDRC+6
BSDCLNA REFRESH~, HDRC+4~, HDRC+5*, HDRC+9*, HDRC+11, FNL+3!
BSDCLNA( REFRESH+3
BSDCLNE HDRC+7~, HDRC+8*, HDRC+9, MCLN+6~, MCLN+13*, MCLN+14
BSDCLNM MCLN~
BSDCLNM( MCLN+5
>> BSDCNT TON+1*
BSDDA REFRESH+6~, REFRESH+7*, REFRESH+8, REFRESH+10, REFRESH+11, HDRC+4~, HDRC+6*, HDRC+8, MCLN+4~, MCLN+5*
, MCLN+12
BSDDFN BLD1+3~, BLD1+8*, BLD1+9
>> BSDDIV CLN+2
BSDDT EN+12, GUI~, DR+3!, DR+4*, DR+5, DR+6, REFRESH~, REFRESH+2
BSDDTA REFRESH+4~, REFRESH+5*, REFRESH+7, REFRESH+8, REFRESH+10, REFRESH+11
BSDE REFRESH+1~, REFRESH+2*, REFRESH+5
BSDLN MCLN+6~, MCLN+7*, MCLN+10, MCLN+14*, MCLN+17
BSDPAT REFRESH+9~, REFRESH+10*, REFRESH+12
>> BSDQ CLN+6*
>> BSDRF HDR+9, TOFF+1*, TON+2*, TON+3, RF+4
BSDTDA BLD1+10~, BLD1+11*, BLD1+12, BLD1+14, BLD1+18
BSDTDTA BLD1+13~, BLD1+14*, BLD1+15, BLD1+16
BSDTIEN BLD1+10~, BLD1+12*, BLD1+14, BLD1+17
DFN FNL+2!, MCLN+1~, BLD1+17*, BLD1+19*
>> DIC GETCLN+1*
>> DIC("A" GETCLN+1*
>> DIC("S" GETCLN+2*
>> DIC("W" GETCLN+3*
>> DIC(0 GETCLN+1*
DIR RF+10!
DIR("A" RF+6*
DIR("B" RF+7*
DIR("T" RF+8*
DIR(0 RF+5*
>> DIV CLN+3, CLN+4, CLN+5
DT GETCLN+8, DR+1, FUT+1, FUT+2
>> DUOUT GETCLN+5
GROUP GROUP~, GROUP+2*, GROUP+3, GROUP+4, GROUP+5
>> I GROUP+1*, GROUP+4*, GROUP+5*, HLP+3*
>> IORVOFF HDR+9
>> IORVON HDR+9
NC MCLN+1~
NW MCLN+1~
SC MCLN+1~
SDACNT FNL+2!, MCLN+8, MCLN+9*, MCLN+11*, MCLN+15, MCLN+16*, MCLN+18*
SDAMCNT FNL+2!
SDAMDD MCLN+1~
SDAMLIST HDR+4, FNL+2!, BLD+2, LIST+5, GROUP~, GROUP+1*, GROUP+3*
SDAMLIST( GROUP+1!, GROUP+5*
SDAMLIST("SCR" GROUP+4*
SDAMTYP EN+7*, FNL+2!, BLD+4, LIST+4
SDATA FNL+2!, BLD1+19*
SDBEG DR+5*, HDR+7, FNL+2!, BLD1+4
SDCL FNL+2!, MCLN+1~, BLD1+19*
SDCLN FNL+2!, MCLN+12*, MCLN+13, BLD1+4, BLD1+5, BLD1+6, BLD1+7, BLD1+8, BLD1+9, BLD1+11
, BLD1+12, BLD1+14, BLD1+19
SDDA FNL+2!, MCLN+1~, BLD1+5*, BLD1+6, BLD1+7, BLD1+8, BLD1+9, BLD1+15*, BLD1+19
>> SDEBG FUT+2*
SDEND DR+6*, HDR+7, FNL+2!, FUT+2*, BLD1+4
SDFLDD FNL+2!
SDFN FNL+2!
SDLARGE MCLN+1~, BLD1+20
SDLNX HDR+1~*, HDR+2*, HDR+5, HDR+7, HDR+8*, HDR+10
SDMAX MCLN+1~
SDNAME MCLN+1~, BLD1+19*
SDPRD FNL+2!
SDT FNL+2!, MCLN+1~, BLD1+4*, BLD1+5, BLD1+6, BLD1+7, BLD1+8, BLD1+9, BLD1+16*, BLD1+19
SDX HDR+1~, HLP+3*, HLPQ!
SDY FNL+2!
SW MCLN+1~
TC MCLN+1~
TW MCLN+1~
U REFRESH+8, REFRESH+10, REFRESH+11, HDRC+8, MCLN+13, BLD1+6, BLD1+7, BLD1+8, BLD1+9, BLD1+15
, BLD1+16, BLD1+19, BLD1+21
VA MCLN+1~
VA("BID" BLD1+19
>> VALMBCK LIST+4*, LIST+6*, RF+2*, EXIT+1*
>> VALMBG MCLN+3*, EX+1*, EX+3*
VALMCNT EN1+2~, BLD1+21
VALMHCNT FNL+2!
VALMHDR FUT+2!
VALMHDR( HDR+5*, HDR+7*, HDR+10*
VALMHDR(1 HDRC+11*
VALMY FNL+2!
VAUTD CLN+1!, CLN+4*, CLN+5*, CLN+6
VAUTD( CLN+5*
X GETCLN+9*, GETCLN+10, INIT1+2*, HDR+1~, HDR+4*, HDR+5, HDR+9*, HDR+10, FNL+2!, LIST+4
, LIST+5, FUT+2*, RF+1*, HLP+1, HLPS+1*
>> X1 FUT+1*
>> X2 FUT+1*
XC MCLN+1~
XW MCLN+1~
Y CLN+6, GETCLN+6, GETCLN+8, GETCLN+9, GETCLN+11, GETCLN+13, DR+3, DR+4, FNL+2!, RF+11
, HLP+3, HLPQ!

Marked Items

Name Field # of Occurrence
$T(HELPTXT+I HLP+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All