Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

    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
    Info |  Source |  Entry Points |  Interaction Calls