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

Package: IHS Changes To ADT

Routine: BDGVAR


Information

BDGVAR ; IHS/ANMC/LJF - VARIABLE SET AND KILL ; [ 01/02/2004 10:27 AM ]

Source Information

Source file <BDGVAR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Changes To ADT 2 PAUSE^BDGF  $$DIV^BDGPAR  
IHS VA Utilities 2 ^XBCLS  EN^XBVK  
Kernel 1 $$VERSION^XPDUTL  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
IHS Changes To ADT 8 BDGH01  BDGH02  BDGH03  BDGH04  BDGH05  BDGH06  BDGIMPL  BDGPCCL  

Entry Points

Name Comments DBIA/ICR reference
SECQUIT
SECENTER ;EP; entry point for Security Officer Menu
MENU ;ENTRY POINT >>> entry action for all submenus
CHECK(TALK) ;PEP; check that ADT is set up and PCC link is turned on
; TALK = 1 means display mini message to screen
; TALK = 2 means display full message to screen
; TALK = 0 means no display; just return status
EXIT ;PEP; kill system wide variables
ENTER ;EP; entry point called by main menu
VAR ;PEP;***> set package variables from site parameter file

External References

Name Field # of Occurrence
PAUSE^BDGF ENTER+10, ENTER+14, CHECK+19, CHECK+56, SECENTER+11
$$DIV^BDGPAR VAR+5
$$GET1^DIQ ENTER+13, CHECK+23, CHECK+29, CHECK+36, MENU+4, SECENTER+12
^XBCLS ENTER+4, CHECK+14, SECENTER+3
EN^XBVK EXIT+2
$$VERSION^XPDUTL ENTER+7, SECENTER+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !?27
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !?27
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !?24,"** INDIAN HEALTH SERVICE **"
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !?19,"** ADMISSION/DISCHARGE/TRANSFER SYSTEM **"
  • Line Location: ENTER+6
Function Call: WRITE
  • Prompt: !?24,"** VERSION ",$$VERSION^XPDUTL("DG"),?53,"**"
  • Line Location: ENTER+7
Function Call: WRITE
  • Prompt: !?27
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: "*"
  • Line Location: ENTER+8
Function Call: WRITE
  • Prompt: !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE ADT!"
  • Line Location: ENTER+11
Function Call: WRITE
  • Prompt: !!?80-$L(X)\2,X
  • Line Location: ENTER+13
Function Call: WRITE
  • Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: !?25,"ADT-PCC LINK ENVIRONMENT"
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !?25
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: !!?10,"1) RPMS SITE file is NOT present."
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !?9,"** ADT is NOT set up properly; contact application coordinator. **"
  • Line Location: CHECK+19
Function Call: WRITE
  • Prompt: !!?10,"1) PCC is running at this site (RPMS SITE file): ",X
  • Line Location: CHECK+24
Function Call: WRITE
  • Prompt: !!?10,"2) PCC MASTER CONTROL file is defined for this site: ",$S(X:"YES",1:"NO")
  • Line Location: CHECK+27
Function Call: WRITE
  • Prompt: !!?10,"3) VISIT TYPE defined in the PCC MASTER CONTROL file: ",X
  • Line Location: CHECK+30
Function Call: WRITE
  • Prompt: !!?10,"5) PIMS package defined in the PACKAGE file: ",$S(X:"YES",1:"NO")
  • Line Location: CHECK+38
Function Call: WRITE
  • Prompt: !!?10,"6) PIMS entry exists in the PCC MASTER CONTROL file: ",Y
  • Line Location: CHECK+43
Function Call: WRITE
  • Prompt: !!?10,"7) PIMS entry has ""PASS DATA TO PCC"" set to: "
  • Line Location: CHECK+48
Function Call: WRITE
  • Prompt: $S(Y:"YES",1:"NO")
  • Line Location: CHECK+49
Function Call: WRITE
  • Prompt: !!?(80-$L(X)/2),X
  • Line Location: CHECK+55
Function Call: WRITE
  • Prompt: !?(80-$L(X)/2),X
  • Line Location: CHECK+57
Function Call: WRITE
  • Prompt: @IOF,!!?80-$L(BDG("TITLE"))/2,BDG("TITLE")
  • Line Location: MENU+3
Function Call: WRITE
  • Prompt: !!?80-$L(X)\2,"(",X,")"
  • Line Location: MENU+5
Function Call: WRITE
  • Prompt: !?18
  • Line Location: SECENTER+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: SECENTER+3
Function Call: WRITE
  • Prompt: !?18,"* INDIAN HEALTH SERVICE *"
  • Line Location: SECENTER+4
Function Call: WRITE
  • Prompt: !?18,"* SENSITIVE PATIENT TRACKING MODULE *"
  • Line Location: SECENTER+5
Function Call: WRITE
  • Prompt: !?18,"* VERSION ",$$VERSION^XPDUTL("PIMS"),?58,"*"
  • Line Location: SECENTER+6
Function Call: WRITE
  • Prompt: !?18
  • Line Location: SECENTER+7
Function Call: WRITE
  • Prompt: "*"
  • Line Location: SECENTER+7
Function Call: WRITE
  • Prompt: !!?80-$L(X)\2,X
  • Line Location: SECENTER+12
Function Call: WRITE
  • Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"
  • Line Location: SECENTER+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SECQUIT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^APCCCTRL - [#9001000] GET1^DIQ
^AUTTSITE - [#9999999.39] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] CHECK+26, CHECK+41, CHECK+45, CHECK+46
^AUTTSITE(1 CHECK+17
^BDGPAR - [#9009020.1] CHECK+32
^DG(40.8 - [#40.8] CHECK+34
^DIC(9.4 - [#9.4] CHECK+38
^XUSEC("DGZSYS" CHECK+56, CHECK+57

Label References

Name Line Occurrences
EXIT ENTER+17
SECQUIT SECENTER+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDG MENU+1~, SECQUIT!
BDG("I" SECENTER+3*, SECENTER+7*
BDG("TITLE" MENU+2*, MENU+3
BDGDIV VAR+5*, EXIT+1!
BDGMENU ENTER+3*, EXIT+1!
BDGQUIT ENTER+1!, EXIT+1!
DUZ CHECK+56, CHECK+57
DUZ(0 SECENTER+9
DUZ(2 ENTER+10, ENTER+13, VAR+5, CHECK+26, CHECK+29, CHECK+34, CHECK+41, CHECK+45, CHECK+46, MENU+4
, SECENTER+9, SECENTER+12
I ENTER+2~, ENTER+4*, ENTER+8*, CHECK+11~, CHECK+15*
IOF ENTER+4, MENU+3
STATUS CHECK+11~, CHECK+22*, CHECK+23*, CHECK+26*, CHECK+29*, CHECK+35*, CHECK+39*, CHECK+42*, CHECK+45, CHECK+46*
, CHECK+52, CHECK+53, CHECK+54, CHECK+56, CHECK+57, CHECK+59
TALK CHECK~, CHECK+13, CHECK+18, CHECK+19, CHECK+20, CHECK+24, CHECK+27, CHECK+30, CHECK+36, CHECK+38
, CHECK+43, CHECK+47, CHECK+51, CHECK+55
U CHECK+46, MENU+2
X ENTER+2~, ENTER+13*, ENTER+14, CHECK+11~, CHECK+23*, CHECK+24, CHECK+26*, CHECK+27, CHECK+29*, CHECK+30
, CHECK+32*, CHECK+34, CHECK+38*, CHECK+39, CHECK+41, CHECK+45, CHECK+46, CHECK+52*, CHECK+53*, CHECK+54*
, CHECK+55, CHECK+56, CHECK+57, MENU+4*, MENU+5, SECENTER+12*, SECENTER+13, SECQUIT!
>> XQUIT ENTER+10*, ENTER+14*, ENTER+17, VAR+1, CHECK+20*, CHECK+56*, SECENTER+11*, SECENTER+13*
>> XQY0 MENU+2
Y CHECK+11~, CHECK+32*, CHECK+34*, CHECK+35, CHECK+36, CHECK+41*, CHECK+42, CHECK+43, CHECK+46*, CHECK+49
, SECQUIT!
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