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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDGSEC2

Package: IHS Changes To ADT

Routine: BDGSEC2


Information

BDGSEC2 ; IHS/ANMC/LJF - SENSITIVE PAT DISPLAY ; [ 01/16/2004 3:41 PM ]

Source Information

Source file <BDGSEC2.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 5 Q^DGSEC2  H^DGUTL  PID^VADPT6  EN^VALM  TERM^VALM0  
IHS Patient 1 KILL^AUPNPAT  
IHS VA Utilities 1 GUIR^XBLM  
VA Fileman 1 DT^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGSEC2  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for BDG SECURITY DISPLAY
HDR ; -- header code
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
EXPND ; -- expand code
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; -- print report to paper
HD ; -- print heading
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZIS PRINT+1
^%ZISC PRINT+7
KILL^AUPNPAT EXIT+2
Q^DGSEC2 EXIT+3
H^DGUTL HD+4
DT^DIQ HD+4, HD+7
PID^VADPT6 BDGSEC2+5
EN^VALM EN+2
TERM^VALM0 EN+1
GUIR^XBLM INIT+3
$$FMTE^XLFDT HDR+3
$$REPEAT^XLFSTR PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,$G(^TMP("BDGSEC2",$J,LINE,0))
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF,!,"Sensitive Patient Access Report for ",DGRNG1," to ",DGRNG2
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",DGPGE
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,DGLNE,!,"Run Date : "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?14
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?47,"Patient ID Num: ",$G(HRCN)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$S($D(DGNAM):DGNAM,1:"Unknown")
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?47,"Date of Birth : "
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,DGLNE
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,"USER",?23,"DATE ACCESSED",?46,"OPTION/PROTOCOL USED"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?70,"INPATIENT",!,DGLNE
  • Line Location: HD+10
Routine Call
  • VALM
  • Line Location:
    • EN+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("BDGSEC" INIT+2!, INIT+4, INIT+6, INIT+8!
^TMP("BDGSEC2" INIT+2!, INIT+6*, EXIT+1!, PRINT+4, PRINT+6

Label References

Name Line Occurrences
$$PAD HDR+2, HDR+3, SP+1
EXIT PRINT+7
HD PRINT+3, PRINT+5
INIT BDGSEC2+7
PRINT BDGSEC2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGION BDGSEC2+7*, PRINT+1!
D PAD~, PAD+2
DGDATE EXIT+2!
DGLNE HD+3!*, HD+8!*, HD+10
>> DGNAM HDR+2, HD+6
>> DGPGE HD+2*
>> DGRNG1 HDR+1, HD+1
>> DGRNG2 HDR+1, HD+1
DGTIME EXIT+2!, HD+4
DGUSR EXIT+2!
DIC EXIT+2!
>> DOB HDR+3, HD+7
HRCN HDR+2, EXIT+2!, HD+5
IO BDGSEC2+7, PRINT+1
IOF HD+1
>> IOP PRINT+1*
IOSL PRINT+5
IOST BDGSEC2+7
L PAD~, PAD+2
LINE PRINT+2~, PRINT+3*, PRINT+4*, PRINT+6
N SP~, SP+1
VA EXIT+2!
VAERR EXIT+2!
VALMCNT EN+1~, INIT+5*, INIT+7*, EXIT+1!
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*, HDR+3*
X INIT+1~, INIT+4*, INIT+5, INIT+6, HELP+1*
>> Y HD+4*, HD+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All