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

Package: Clinical Scheduling for Windows

Routine: BSDX43


Information

BSDX43 ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING RPCS ;

Source Information

Source file <BSDX43.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  EN^XBNEW  EN^XBVK  
Kernel 3 ^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  
Clinical Scheduling for Windows 1 EP1^BSDX42  
IHS Changes To Scheduling 1 $$DIV^BSDU  
IHS Patient 1 $$AGE^AUPNPAT  
Registration 1 (CLEAR,FULL)^VALM1  
Scheduling 1 END^SDROUT1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Scheduling for Windows 1 BSDX25  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXIT1 ;
WISD(DFN,SDATE,BSDMODE,APCHPWHT,EMSG) ;PEP; print PCC health summary
; .EMSG = returned error message if error
HEAD1 ;
HEADER ;
UPDDEF ;EP - called from option to update default PWH for the site
EOJ ;
EHR(DFN,APCHPWHT)
W ;write out array
SELTYP ;
USR() ;EP - Return name of current user from ^VA(200.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EXIT ;
EN1(APCHPWHT) ;EP
ENCOMP ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;EP
SELPT ;
UPDLOG(P,T,D) ;EP - update pwh log
EN2(APCHPWHT,P) ;EP
ZIS ;EP

External References

Name Field # of Occurrence
^%ZIS WISD+18
^%ZISC W+15
$$AGE^AUPNPAT SELPT+6
$$DIV^BSDU WISD+6, WISD+16
EP1^BSDX42 PRINT+5
^DIC SELTYP+8, SELPT+3, UPDDEF+4
FILE^DICN UPDLOG+7
^DIE UPDDEF+6
$$GET1^DIQ WISD+16
^DIR W+13, HEADER+2
END^SDROUT1 WISD+18
CLEAR^VALM1 EXIT1+1
FULL^VALM1 EXIT1+2
^XBDBQUE ZIS+5
^XBFMK SELTYP+2, EXIT+3, EXIT1+4, EOJ+5, UPDLOG+8, UPDDEF+7
EN^XBNEW EHR+3
EN^XBVK EXIT+1, EOJ+3, EOJ+4
$$FMTE^XLFDT HEAD1+3, HEAD1+4
$$NOW^XLFDT UPDLOG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Patient Wellness Handout ***"),!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPT+1
Function Call: WRITE
  • Prompt: !,"Warning: This handout is designed for patients 18 and older. This",!,"patient is under 18. Please select a different patient."
  • Line Location: SELPT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: W+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"My Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: "********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !!,"This option is used to set the default Patient Wellness Handout"
  • Line Location: UPDDEF+1
Function Call: WRITE
  • Prompt: !,"for a site."
  • Line Location: UPDDEF+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDDEF+3
Routine Call
  • DIE
  • Line Location:
    • UPDDEF+6
Routine Call
  • DIC
  • Line Location:
    • SELTYP+8
    • SELPT+3
    • UPDDEF+4
Routine Call
  • DIR
  • Line Location:
    • W+13
    • HEADER+2
Routine Call
  • %ZIS
  • Line Location:
    • WISD+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCCCTRL - [#9001000] Classic Fileman Calls
^APCHPWHT - [#9001026] Classic Fileman Calls
^APCHPWHL - [#9001027] Classic Fileman Calls
^BSDPAR - [#9009020.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] SELTYP+4, EHR+1, ENCOMP+2
^APCHPWHT - [#9001026] SELTYP+5
^APCHPWHT("B" EHR+2, ENCOMP+3
^AUPNPAT - [#9000001] SELPT+5
^DIC(4 - [#4] LOC+1, UPDDEF+4
^DISV( SELTYP+5
^TMP($J PRINT+3!, W+5, W+7, W+9, EOJ+2!
^VA(200 - [#200] HEAD1+4, USR+1

Label References

Name Line Occurrences
$$CTR EN+1
EHR ENCOMP+6
EOJ W+14
EXIT SELTYP+9, SELPT+12, ZIS+2, ZIS+6
HEAD1 HEADER+1
HEADER W+3, W+8
PRINT WISD+19, EN1+2
SELPT SELPT+6
SELTYP SELPT+4
UPDLOG PRINT+4
ZIS SELPT+11, EN2+3

Naked Globals

Name Field # of Occurrence
^("^APCHPWHT(" SELTYP+5
^(0 SELTYP+4, SELTYP+5, SELPT+5, USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+8!
>> A W+7*
APCHOLD EN1+1~
>> APCHOPT ZIS+3*
>> APCHPG W+3*, HEADER+1, HEAD1+2*, HEAD1+3, HEAD1+4
APCHPWHT SELTYP+10*, EN2~, WISD~, EHR~, EHR+1*, EHR+2*, ENCOMP+1~, ENCOMP+2*, ENCOMP+3*, ENCOMP+4
, ENCOMP+6, EN1~, PRINT+4, PRINT+5
APCHQUIT W+2!, W+4, W+5, W+8, W+11, HEADER+2*
>> APCHSCVD PRINT+2*
>> APCHSPAT ENCOMP+6
>> APCHSQIT W+11*
>> APCHX W+5*, W+7, W+9
AUPNDAYS EOJ+7!
AUPNDOB EOJ+7!
AUPNDOD EOJ+7!
AUPNPAT EOJ+7!
AUPNSEX EOJ+7!
B EOJ+8!
BDGDEV WISD+16*, WISD+17!, WISD+18
BIDLLID EOJ+6!
BIDLLPRO EOJ+6!
BIDLLRUN EOJ+6!
BIRESULT EOJ+6!
BISITE EOJ+6!
BSDMODE WISD~, WISD+15, WISD+17
C W+7*, W+8, EOJ+8!
D UPDLOG~, UPDLOG+5
D0 UPDLOG+3~, UPDLOG+6!
>> DA UPDDEF+6*
DD UPDLOG+3~, UPDLOG+6!
DEV WISD+5~, WISD+15*, WISD+16
DFN SELPT+2*, SELPT+5*, SELPT+6!, EN2+1~, EN2+2*, WISD~, WISD+3, EHR~, EXIT+2!, EXIT1+3!
, PRINT+4, PRINT+5
DGPGM WISD+5~, WISD+13*
DIADD SELTYP+1!, UPDLOG+4*, UPDLOG+9!
DIC SELTYP+3!*, SELTYP+8!, SELPT+3!*, UPDLOG+3~, UPDLOG+4*, UPDDEF+4!*
DIC("A" SELTYP+3*, SELPT+3*
DIC("B" SELTYP+7*, UPDDEF+4*
DIC("DR" UPDLOG+5*
DIC(0 SELTYP+3*, SELPT+3*, UPDLOG+4*, UPDDEF+4*
>> DIE UPDDEF+6*
DIR W+13!, HEADER+2!
DIR("A" W+13*
DIR(0 W+13*, HEADER+2*
>> DIRUT ZIS+2
>> DIV WISD+6*
DLAYGO SELTYP+1!, UPDLOG+4*, UPDLOG+9!
DO UPDLOG+3~
>> DR UPDDEF+6*
DT SELPT+6, HEAD1+3, HEAD1+4, UPDLOG+5
>> DTOUT HEADER+2
DUZ SELTYP+5, PRINT+4, HEAD1+4, USR+1
DUZ(2 SELTYP+4, SELPT+5, EHR+1, ENCOMP+2, LOC+1, UPDLOG+5, UPDDEF+4
E EOJ+8!
EMSG WISD~, WISD+17*
F EOJ+8!
H EOJ+8!
IO PRINT+1, W+13, HEADER+2
IO(0 W+13, HEADER+2
IOF ENCOMP+5, HEAD1+1
IOM HEAD1+3, CTR+1
>> IOP WISD+18*
IOSL W+8
IOST W+13, HEADER+2
J EOJ+8!
L EOJ+8!
N EOJ+8!
>> ORDER WISD+6*
P EN2~, EN2+2, EOJ+8!, UPDLOG~, UPDLOG+1, UPDLOG+4
POP WISD+5~, WISD+18
SDATE WISD~
>> SDREP WISD+6*
>> SDSTART WISD+6*
>> SDX WISD+6*
ST EOJ+8!
ST0 EOJ+8!
T ENCOMP+1~, EOJ+8!, UPDLOG~, UPDLOG+2, UPDLOG+5
U SELTYP+4, SELTYP+5, SELPT+5, EHR+1, ENCOMP+2, HEAD1+4, USR+1, LOC+1, UPDDEF+4
VAR WISD+5~
VAR1 WISD+5~
W EOJ+8!
X SELTYP+4*, SELTYP+5*, SELTYP+6*, SELTYP+7, EOJ+8!, CTR~, CTR+1, UPDLOG+3~, UPDLOG+4*
>> XBNS ZIS+4*
>> XBRC ZIS+4*
>> XBRP ZIS+4*
>> XBRX ZIS+4*
Y SELTYP+5*, SELTYP+9, SELTYP+10, SELPT+4, SELPT+5, ZIS+1*, ZIS+3, EOJ+8!, HEADER+2, CTR~
, CTR+1, UPDDEF+5, UPDDEF+6
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