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

Package: Scheduling

Routine: SDPPRT


Information

SDPPRT ;ALB/CAW - Patient Profile - Print ;10/15/93

Source Information

Source file <SDPPRT.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ENS^%ZISS  ^%ZTLOAD  $$FMTE^XLFDT  
Scheduling 3 $$EXOE^SDOE  INIT1^SDPP  INIT^SDPPALL  
Registration 2 $$LST^DGMTU  PID^VADPT6  
List Manager 1 ($$NOW,PAUSE)^VALM1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Scheduling 2 SDPP  SDPP PATIENT PROFILE PRINT ALL  
Automated Medical Information Exchange 1 DVBAB82  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
PRINTQ
DIRQ
EN ;Print entire patient profile
HDRQ
LINE(STR) ; -- print line
; input: STR := text to insert
; output: none
; return: text to use
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
HDR() ; -- print header
; return: continue processing [ 1|yes 0|no ]
ENQ
PRINT ;Print actual patient profile
  • ICR #3846
    • Status: Active
    • Usage: Private
    DIR ;Ask what they want printed

    External References

    Name Field # of Occurrence
    ^%ZIS EN+5
    ^%ZISC ENQ
    ENS^%ZISS EN+2
    ^%ZTLOAD QUE+6
    $$LST^DGMTU DIR+18
    ^DIR DIR+4, DIR+8, DIR+12, DIR+16, DIR+20, DIR+24
    $$EXOE^SDOE DIR+6
    INIT1^SDPP PRINT+2, PRINTQ
    INIT^SDPPALL PRINT+2
    PID^VADPT6 HDR+5
    $$NOW^VALM1 HDR+9
    PAUSE^VALM1 PRINTQ+1, HDR+4
    $$FMTE^XLFDT HDR+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,$$LINE("Device Selection")
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,^TMP("SDPP",$J,SDWHERE,0)
    • Line Location: PRINT+4
    Function Call: WRITE
    • Prompt: !,^TMP("SDPPALL",$J,SDALL,0)
    • Line Location: PRINT+5
    Function Call: WRITE
    • Prompt: @IOF,*13,"PATIENT PROFILE: ",$P(^DPT(DFN,0),U)_" ("_VA("BID")_")",?45,$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient"),?70,"Page: ",SDPAGE
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: ?45,"Report Date: ",$P($$NOW^VALM1,":",1,2)
    • Line Location: HDR+9
    Function Call: WRITE
    • Prompt: !,SDASH
    • Line Location: HDR+10
    Routine Call
    • DIR
    • Line Location:
      • DIR+4
      • DIR+8
      • DIR+12
      • DIR+16
      • DIR+20
      • DIR+24
    Routine Call
    • %ZIS
    • Line Location:
      • EN+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] DIR+2, DIR+10, DIR+14, HDR+6
    ^TMP("SD" PRINT+1!
    ^TMP("SDAPT" PRINT+1!
    ^TMP("SDENR" PRINT+1!
    ^TMP("SDPP" PRINT+1!, PRINT+4, PRINTQ!
    ^TMP("SDPPALL" PRINT+1!, PRINT+5, PRINTQ!

    Label References

    Name Line Occurrences
    $$HDR PRINT+3, PRINT+4, PRINT+5
    $$LINE EN+4
    $$QUE EN+7
    DIR EN+3
    DIRQ DIR+2, DIR+6, DIR+10, DIR+14, DIR+18
    ENQ EN+3, EN+5, EN+6
    HDRQ HDR+4
    PRINT EN+6
    PRINTQ PRINT+3, PRINT+4, PRINT+5

    Naked Globals

    Name Field # of Occurrence
    ^( HDR+6
    ^("DIS" DIR+14
    ^(9999999 DIR+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %ZIS EN+5*
    >> DFN DIR+2, DIR+6, DIR+10, DIR+14, DIR+18, HDR+6
    DIR DIR+4!, DIR+8!, DIR+12!, DIR+16!, DIR+20!, DIR+24!
    DIR("?" DIR+3*, DIR+7*, DIR+11*, DIR+15*, DIR+19*, DIR+23*
    DIR("A" DIR+3*, DIR+7*, DIR+11*, DIR+15*, DIR+19*, DIR+23*
    DIR("B" DIR+3*, DIR+7*, DIR+11*, DIR+15*, DIR+19*, DIR+23*
    DIR(0 DIR+3*, DIR+7*, DIR+11*, DIR+15*, DIR+19*, DIR+23*
    >> DIRUT DIR+4, DIR+8, DIR+12, DIR+16, DIR+20, DIR+24
    >> GBL DIR+25*
    IO PRINT+1
    IO("Q" EN+6, QUE+3!
    IOF HDR+6
    IOM LINE+7
    IOSL PRINT+4, PRINT+5
    IOST PRINTQ+1, HDR+4
    >> POP EN+5
    >> SDACT DIR+13*
    SDALL PRINT+1~, PRINT+3*, PRINT+5*
    >> SDASH HDR+10
    >> SDBD DIR+2, DIR+6, DIR+14, HDR+8
    >> SDED DIR+6, DIR+14, HDR+8
    SDERR EN+3, ENQ+1!, DIR+1*, DIR+2, DIR+4*, DIR+6, DIR+8*, DIR+10, DIR+12*, DIR+14
    , DIR+16*, DIR+18, DIR+20*, DIR+24*
    SDGO PRINT+1~, PRINT+2*, PRINT+4*, PRINT+5*, PRINTQ+1
    >> SDLN PRINTQ*
    >> SDPAGE PRINT+2*, PRINTQ+1, HDR+4, HDR+5*, HDR+6
    >> SDPRINT DIR+1*
    >> SDRANGE DIR+14
    SDTYP ENQ+1!, PRINT+2*
    SDTYP(1 DIR+9*
    SDTYP(2 DIR+5*
    SDTYP(3 DIR+17*
    SDTYP(4 DIR+13*
    SDTYP(5 DIR+21*
    SDTYP(7 DIR+25*
    SDWHERE PRINT+1~, PRINT+3*, PRINT+4*
    SDYN DIR+1~, DIR+18*
    STR LINE~, LINE+6*, LINE+7, LINE+8
    U HDR+6
    >> VA("BID" HDR+6
    >> VALMBCK ENQ+1*
    X QUE+3~, QUE+5*, LINE+5~, LINE+7*, LINE+8
    Y EN+7*, DIR+5, DIR+9, DIR+13, DIR+17, DIR+21, DIR+25, HDR+3~, HDR+4, HDR+10*
    , HDRQ
    >> ZTDESC QUE+4*
    >> ZTQUEUED ENQ, PRINTQ
    >> ZTRTN QUE+4*
    >> ZTSAVE( QUE+5*
    ZTSK QUE+3!, QUE+6, QUE+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All