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

Package: IHS Changes To Scheduling

Routine: BSDAPP


Information

BSDAPP ; IHS/ANMC/LJF - IHS CALLS FROM SDAPP ; [ 08/20/2004 11:51 AM ]

Source Information

Source file <BSDAPP.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  $$NOW^XLFDT  $$REPLACE^XLFSTR  
IHS Changes To Scheduling 3 ($$DELIVER,PRINT)^BSDAPP  WISD^BSDROUT  ($$DIV,$$INACTMSG)^BSDU  
IHS Changes To ADT 2 ($$READ,$$TIME)^BDGF  $$DIV^BDGPAR  
Scheduling 1 WRT1^SDAPP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Scheduling 1 BSDAPP  

Entry Points

Name Comments DBIA/ICR reference
OKAY(PAT,DATE) ; find other appts and chart requests for date
; if any found, ask user if they still want to request chart
PRINT(CLN,ADMIT,BSDDT,BSDNOW) ; set up print job for routing slips
; called by this routine after recording chart requests
; called by admission chart request ADMIT^BSDAPP
; CLN=chart request clinic
; ADMIT (optional), if set to 1, don't use default printer
DEVP
CR ;EP;Chart Request entry; called by SDAPP
; rewrote VA code to make it less confusing
DELIVER() ; -- asks user for delivery info
ADMIT(DFN,DGQUIET,BSDCLN,BSDDELV,BSDADT) ;EP; request chart at admission
; Called by ADT Event Driver protocol
; DGQUIET = if set to 1, no user interaction
; BSDCLN = if set, ien to clinic
; BSDDELV = if set, delivery message (who, where, phone)
; BSDADT = ien of admission in file 405
; ** I $G(DGQUIET) then Chart Request Printer must be set in
; IHS Scheduling Parameter file

External References

Name Field # of Occurrence
^%ZIS DEVP
^%ZISC DEVP+21
$$READ^BDGF CR+18, CR+33, OKAY+30
$$TIME^BDGF OKAY+25
$$DIV^BDGPAR ADMIT+11
$$DELIVER^BSDAPP ADMIT+33
PRINT^BSDAPP ADMIT+61
WISD^BSDROUT DEVP+20
$$DIV^BSDU CR+28, PRINT+24
$$INACTMSG^BSDU CR+5, ADMIT+21
^DIC CR+8, CR+23, ADMIT+25
FILE^DICN CR+39, ADMIT+43, ADMIT+50
^DIE CR+46, ADMIT+58
$$GET1^DIQ CR+28, OKAY+8, OKAY+18, OKAY+19, OKAY+26, PRINT+14, PRINT+24, ADMIT+12, ADMIT+17, ADMIT+22
, ADMIT+30
^DIR DELIVER+5
WRT1^SDAPP CR+13
$$NOW^XLFDT ADMIT+56
$$REPLACE^XLFSTR DELIVER+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Problem with this date for this clinic. Notify computer department."
  • Line Location: CR+24
Function Call: WRITE
  • Prompt: !!,"Problem recording chart request for patient. Contact computer department."
  • Line Location: CR+40
Function Call: WRITE
  • Prompt: !?5,"chart request recorded...",!!
  • Line Location: CR+47
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+52
Function Call: WRITE
  • Prompt: !
  • Line Location: CR+53
Function Call: WRITE
  • Prompt: !!,"** Current "
  • Line Location: OKAY+7
Function Call: WRITE
  • Prompt: $S(X["OBSERVATION":"Observation Patient",1:"Inpatient")
  • Line Location: OKAY+9
Function Call: WRITE
  • Prompt: " on "_$G(^DPT(PAT,.1))_" ward **"
  • Line Location: OKAY+10
Function Call: WRITE
  • Prompt: !!,"Patient's chart already requested for:"
  • Line Location: OKAY+17
Function Call: WRITE
  • Prompt: !?3,"Chart Request for ",$$GET1^DIQ(44,CLN,.01),?40,"made at "
  • Line Location: OKAY+18
Function Call: WRITE
  • Prompt: $$GET1^DIQ(44.007,IEN_","_DATE_","_CLN,9999999.01)
  • Line Location: OKAY+19
Function Call: WRITE
  • Prompt: !!,"Patient's chart already requested for:"
  • Line Location: OKAY+24
Function Call: WRITE
  • Prompt: !?3,"APPT at ",$$TIME^BDGF(IEN),?25,"for "
  • Line Location: OKAY+25
Function Call: WRITE
  • Prompt: $$GET1^DIQ(44,+^DPT(PAT,"S",IEN,0),.01)
  • Line Location: OKAY+26
Function Call: WRITE
  • Prompt: !,"Exiting out prevents, the remaining chart requests from printing, please select a device"
  • Line Location: DEVP+1
Function Call: WRITE
  • Prompt: !,"You must select a device that allows queueing"
  • Line Location: DEVP+5
Function Call: WRITE
  • Prompt: !!,"Requesting Chart for new admission. Type ^ to bypass."
  • Line Location: ADMIT+20
Routine Call
  • DIE
  • Line Location:
    • CR+46
    • ADMIT+58
Routine Call
  • DIC
  • Line Location:
    • CR+8
    • CR+23
    • ADMIT+25
Routine Call
  • DIR
  • Line Location:
    • DELIVER+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVP

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^SC - [#44] Classic Fileman Calls,  GET1^DIQ
44.007 GET1^DIQ
^BDGPAR - [#9009020.1] GET1^DIQ
^BSDPAR - [#9009020.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEVP+3
^DD(44 CR+22
^DD(44.006 CR+37
^DPT - [#2] OKAY+6, OKAY+10, OKAY+23, OKAY+26
^SC - [#44] CR+11, CR+12, CR+20, CR+24, PRINT+10, DEVP+12, DEVP+13, DEVP+19, ADMIT+39, ADMIT+42
, ADMIT+43, ADMIT+49, ADMIT+50
^SC("AIHSCR" OKAY+15, OKAY+16
^TMP("BSDNOW" CR+27!, CR+42*, DEVP+17, DEVP+24!

Label References

Name Line Occurrences
$$DELIVER CR+15
$$OKAY CR+34
DEVP DEVP+1
PRINT CR+53

Naked Globals

Name Field # of Occurrence
^("I" CR+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRINT+27*
>> %ZIS("A" PRINT+27*
>> %ZIS("B" DEVP*
ADMIT PRINT~, PRINT+24
BDGQT DEVP+10~*, DEVP+23
BSDADT ADMIT~, ADMIT+30
BSDC CR+3~, CR+8*, CR+11, CR+12, CR+20, CR+21, CR+24, CR+36, CR+38, CR+53
BSDCLN ADMIT~, ADMIT+15, ADMIT+17*, ADMIT+25*, ADMIT+39, ADMIT+40, ADMIT+41, ADMIT+42, ADMIT+43, ADMIT+47
, ADMIT+48, ADMIT+49, ADMIT+50, ADMIT+54, ADMIT+55, ADMIT+61
BSDCNT CR+3~, CR+32*, CR+48*, CR+53
BSDDELV ADMIT~, ADMIT+28, ADMIT+30*, ADMIT+33*, ADMIT+57
BSDDEV DEVP+11*, DEVP+20, DEVP+22!
BSDDT CR+3~, CR+18*, CR+19, CR+20, CR+23, CR+24, CR+34, CR+36, CR+38, CR+50
, CR+53, PRINT~, PRINT+17, PRINT+24
BSDNOW CR+27~, CR+28*, CR+42, CR+50, CR+53, PRINT~, PRINT+10, DEVP+17
BSDQ CR+3~, CR+32*, CR+33*
BSDV CR+3~, CR+15*, CR+45
CLN OKAY+2~, OKAY+14*, OKAY+15*, OKAY+16, OKAY+18, OKAY+19, PRINT~, PRINT+10, PRINT+14, DEVP+12
, DEVP+13, DEVP+19
>> D0 CR+13*
DA CR+3~, CR+20!, CR+35!, CR+44*, ADMIT+36~, ADMIT+55*
DA(1 CR+21*, CR+38*, ADMIT+41*, ADMIT+48*, ADMIT+55*
DA(2 CR+38*, ADMIT+48*, ADMIT+55*
DATE OKAY~, OKAY+16, OKAY+19, OKAY+22, OKAY+23
DD ADMIT+36~, ADMIT+43!, ADMIT+50!
DEV PRINT+13~, PRINT+24*, PRINT+26, DEVP
DFN CR+3~, CR+33*, CR+34, CR+38, PRINT+13~, DEVP+19*, DEVP+20, ADMIT~, ADMIT+48
DGQUIET PRINT+26, DEVP+4, DEVP+10, DEVP+11*, DEVP+23!, ADMIT~, ADMIT+17, ADMIT+30, ADMIT+44, ADMIT+51
DIC CR+3~, CR+4*, CR+20!, CR+21*, CR+35!, CR+36*, CR+44, ADMIT+21!*, ADMIT+25!, ADMIT+36~
, ADMIT+40*, ADMIT+47*
DIC("A" CR+4*, CR+8!, ADMIT+24*
DIC("B" ADMIT+22*
DIC("P" CR+22*, CR+37*, ADMIT+41*, ADMIT+48*
DIC("S" CR+7*, CR+8!, ADMIT+23*
DIC("W" CR+5*, ADMIT+21*
DIC(0 CR+4*, CR+21*, CR+36*, ADMIT+21*, ADMIT+40*, ADMIT+47*
DIE CR+3~, CR+4*, CR+35!, CR+44*, ADMIT+36~, ADMIT+54*
DINUM ADMIT+36~, ADMIT+41*
DIR DELIVER+1~
DIR("A" DELIVER+4*
DIR(0 DELIVER+4*
DIRUT DELIVER+1~, DELIVER+5
DIV ADMIT+10~, ADMIT+11*, ADMIT+12, ADMIT+17, ADMIT+22
DLAYGO CR+3~, CR+21*, CR+36*, ADMIT+36~, ADMIT+40*, ADMIT+47*
DO ADMIT+36~, ADMIT+43!, ADMIT+50!
DR CR+3~, CR+35!, CR+45*, ADMIT+36~, ADMIT+56*, ADMIT+57*
DT CR+13, CR+18, CR+50, PRINT+10, PRINT+15, PRINT+17, PRINT+24, ADMIT+39, ADMIT+40, ADMIT+41
, ADMIT+47, ADMIT+48, ADMIT+49, ADMIT+50, ADMIT+54, ADMIT+55
DUZ ADMIT+56
DUZ(2 ADMIT+11
FIRST OKAY+2~, OKAY+3*, OKAY+11*, OKAY+17*, OKAY+24*, OKAY+28
IEN OKAY+2~, OKAY+16*, OKAY+19, OKAY+22*, OKAY+23*, OKAY+25, OKAY+26, PRINT+13~, DEVP+12*, DEVP+13
, DEVP+17, DEVP+19
ION DEVP+11
>> IOS DEVP+3
ORDER PRINT+13~, PRINT+15*
PAT OKAY~, OKAY+6, OKAY+8, OKAY+10, OKAY+15, OKAY+16, OKAY+23, OKAY+26
>> POP DEVP+1
SDATE PRINT+13~, PRINT+15*, PRINT+17*, DEVP+12, DEVP+13, DEVP+19, DEVP+20
>> SDIN CR+11*, CR+12*, CR+13
SDPARMS PRINT+13~
SDPARMS("DO N OT CLOSE" , PRINT+19*
>> SDRE CR+11*, CR+12*, CR+13
SDREP PRINT+13~, PRINT+15*
SDX PRINT+13~, PRINT+15*
U CR+22, CR+37, DEVP+3, DEVP+13
VAUTC PRINT+13~, PRINT+14*
VAUTC( PRINT+14*
X CR+3~, CR+23*, CR+38*, OKAY+8~*, OKAY+9, DELIVER+1~, DELIVER+6, ADMIT+36~, ADMIT+40*, ADMIT+48*
X(";" DELIVER+6*
Y CR+3~, CR+8, CR+13, CR+40, CR+42, CR+44, CR+47, DELIVER+1~, DELIVER+5*, DELIVER+6*
, DELIVER+7, ADMIT+25, ADMIT+36~, ADMIT+39, ADMIT+42*, ADMIT+44, ADMIT+49*, ADMIT+51, ADMIT+55
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