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 |  Local Variables |  All
Print Page as PDF
Routine: BDGSPTR

Package: IHS Changes To ADT

Routine: BDGSPTR


Information

BDGSPTR ;cmi/anch/maw - BDG Sensitive Patient Tracking Report 6/3/2009 2:17:08 PM

Source Information

Source file <BDGSPTR.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SORT() ;-- ask the sort for the report
EOJ ;-- kill variables
XHDR(ID)
PRINT(IDX) ;-- print the report
LOOP(IDX) ;-- loop through the new person file
S() ;-- get service section
MAIN ;-- this is the main routine driver
HDR(ID) ;-- do the charge header

External References

Name Field # of Occurrence
^%ZIS PRINT+1
^%ZISC EOJ+1
^DIC S+2
$$GET1^DIQ LOOP+8, LOOP+10
^DIR SORT+2, HDR+2
$$FMTE^XLFDT XHDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,BDGTIEN,?35,BDGTDA,?55,BDGTMC
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: XHDR+0
Function Call: WRITE
  • Prompt: "Sensitive Patient Tracking - Users Access by "_BDGSPTSE,?60,"Date: "_$$FMTE^XLFDT(DT)
  • Line Location: XHDR+1
Function Call: WRITE
  • Prompt: !!,"Name",?35,$S(ID="S":"Service Section",1:"Mail Code"),?55,$S(ID="S":"Mail Code",1:"Service/Section")
  • Line Location: XHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: XHDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: XHDR+4
Routine Call
  • DIC
  • Line Location:
    • S+2
Routine Call
  • DIR
  • Line Location:
    • SORT+2
    • HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGSPT - [#9009018.1] LOOP+6
^BDGSPT("B" LOOP+2, LOOP+4
^TMP("BDGSPT" LOOP+12*, PRINT+6, PRINT+8, PRINT+10, EOJ+3!
^VA(200 - [#200] LOOP+7

Label References

Name Line Occurrences
$$S MAIN+4
$$SORT MAIN+2
EOJ MAIN+8
HDR PRINT+12
LOOP MAIN+6
PRINT MAIN+7
XHDR PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGDA LOOP+1~, LOOP+2*, LOOP+4
BDGDATA PRINT+9~, PRINT+10*, PRINT+11
BDGI LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+10
BDGIEN LOOP+3~, LOOP+4*, LOOP+6
BDGINDX MAIN+1~
BDGMC LOOP+5~, LOOP+10*, LOOP+11*, LOOP+12
BDGNM LOOP+5~, LOOP+7*, LOOP+12
BDGSPTS MAIN+1~, MAIN+2*, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7
BDGSPTSE SORT+4*, XHDR+1, EOJ+2!
>> BDGSS MAIN+4*, MAIN+5
BDGSSE LOOP+5~, LOOP+8*, LOOP+9*, LOOP+12
BDGTDA PRINT+5~, PRINT+6*, PRINT+8, PRINT+10, PRINT+13
BDGTIEN PRINT+7~, PRINT+8*, PRINT+10, PRINT+13
BDGTMC PRINT+9~, PRINT+11*, PRINT+13
BDGTSS PRINT+9~
>> DIC S+1*
>> DIC("A" S+1*
>> DIC(0 S+1*
>> DIR("A" SORT+1*
>> DIR("B" SORT+1*
>> DIR(0 SORT+1*, HDR+2*
DIRUT PRINT+12, HDR+1!, HDR+2*
DT XHDR+1
>> I XHDR+4*
ID HDR~, XHDR~, XHDR+2
IDX LOOP~, LOOP+12, PRINT~, PRINT+4, PRINT+12
IO PRINT+3
IOF XHDR
IOSL PRINT+12
IOST HDR+2
>> POP PRINT+2
U SORT+3, LOOP+6, LOOP+7, PRINT+11
>> Y SORT+3, SORT+5, S+3, S+4, HDR+2
>> Y(0 SORT+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All