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: SDCO3

Package: Scheduling

Routine: SDCO3


Information

SDCO3 ;ALB/RMO - Provider - Check Out;08 DEC 1992 4:05 pm

Source Information

Source file <SDCO3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for SDCO PROVIDER protocol
; Input -- SDOE
ENQ
PRASK(SDOE) ;Ask Provider on Check Out
; Input -- SDOE Outpatient Encounter IEN
; Output -- 0=No, 1=Yes/Required, 2=Yes/Not Required
PRASKQ
SET(SDOE) ;Set-up Provider Array for Outpatient Encounter
; Input -- SDOE Outpatient Encounter IEN
; Output -- SDPRY Provider Array Subscripted by a Number
; SDCNT Number of Array Entries
  • ICR #403
    • Status: Retired
    • Usage: Private
    SETQ
    LIST(SDPRY) ;List Provider Array
    ; Input -- SDPRY Provider Array Subscripted by a Number
    ; Output -- List Provider Array
  • ICR #403
    • Status: Retired
    • Usage: Private
    EDITOK(SDOE,SDMODE) ; -- ok to edit?
    ; input: SDOE := ien of 409.68 [required]
    ; SDMODE := 1 -- interactive ; 0 -- silent [required]
    EDITOKQ
    OLDMSG ; -- display message to user

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: LIST+4
    Function Call: WRITE
    • Prompt: !?2,I," ",$$PR^SDCO31(+$P(SDPRY(I),"^",2))
    • Line Location: LIST+5
    Function Call: WRITE
    • Prompt: !!,">>> Editing and deleting old encounters not allowed.",!
    • Line Location: OLDMSG+1
    Info |  Source |  Entry Points |  Interaction Calls