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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDROUT1

Package: Scheduling

Routine: SDROUT1


Information

SDROUT1 ;MAN/GRR - ROUTING SLIPS ;3/5/92 13:21

Source Information

Source file <SDROUT1.m>

Entry Points

Name Comments DBIA/ICR reference
AO
OSET ;
LIN2
SIN1
SIN
EN
EN1 ; -- main entry point
; required input: as defined in VAR above
; optional input:
; SDPARMS("START") := start date for appts
; ("DO NOT CLOSE") := [1 or 0] if 1 then device will stay open
  • ICR #405
    • Status: Retired
    • Usage: Controlled Subscription
    NOCA
    NOAP
    GOT
    SC
    END
    END1
    REP
    ALL
    DQ
    HELP

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,Y,?11,$J(X,8),?20,$S(SDI=3:"LAB",SDI=4:"XRAY",1:"EKG")
    • Line Location: LIN2+0
    Function Call: WRITE
    • Prompt: !,"PATIENT NOT FOUND"
    • Line Location: SIN+0
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: NOCA+0
    Function Call: WRITE
    • Prompt: !,@IOF
    • Line Location: NOCA+0
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: NOAP+0
    Function Call: WRITE
    • Prompt: !!,"DATE PRINTED : ",Y,!,"DATE REPRINTED: ",PRDATE
    • Line Location: NOAP+1
    Function Call: WRITE
    • Prompt: !!,"DATE PRINTED: ",PRDATE
    • Line Location: NOAP+2
    Function Call: WRITE
    • Prompt: !,@IOF
    • Line Location: NOAP+3
    Function Call: WRITE
    • Prompt: !!?2,"***FACILITY: ",$S($D(^DG(40.8,+DIV,0)):$P(^(0),"^",1),1:$P($$SITE^VASITE,U,2)),?48," PRINTED: "
    • Line Location: END1+0
    Function Call: WRITE
    • Prompt: Y
    • Line Location: END1+0
    Function Call: WRITE
    • Prompt: !!!?25,"ROUTING SLIPS PRINTED FOR ",!?32
    • Line Location: END1+1
    Function Call: WRITE
    • Prompt: Y,!!!!?20,"TOTAL NUMBER OF ROUTING SLIPS PRINTED: ",SDCNT
    • Line Location: END1+1
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !,"ENTER ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," TO BEGIN REPRINT FROM: "
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !,*7,"MUST BE 4 NUMERICS"
    • Line Location: ALL+2
    Function Call: WRITE
    • Prompt: !!,"THE REPRINT WILL BEGIN PRINTING AT THE ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," YOU SPECIFY",!
    • Line Location: HELP+0
    Function Call: WRITE
    • Prompt: "TERMINAL DIGITS MUST BE ENTERED IN TERMINAL DIGIT ORDER",!,"I.E., LAST TWO DIGITS OF SSN PRECEDING THE SIXTH AND SEVENTH DIGITS",!
    • Line Location: HELP+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call