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

Package: Scheduling

Routine: SDCO4


Information

SDCO4 ;ALB/RMO - Diagnosis - Check Out;08 DEC 1992 4:05 pm

Source Information

Source file <SDCO4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for SDCO DIAGNOSIS protocol
; Input -- SDOE
ENQ
DXASK(SDOE) ;Ask Diagnosis on Check Out
; Input -- SDOE Outpatient Encounter IEN
; Output -- 0=No, 1=Yes/Required, 2=Yes/Not Required
DXASKQ
OCASN(SDOE) ;determines if this is an occasion of service.
; returns a 1 if and occasion 0 if not
SET(SDOE) ;Set-up Diagnosis Array for Outpatient Encounter
; Input -- SDOE Outpatient Encounter IEN
; Output -- SDDXY Diagnosis Array Subscripted by a Number
; SDCNT Number of Array Entries
  • ICR #404
    • Status: Retired
    • Usage: Private
    SETQ
    LIST(SDDXY) ;List Diagnosis Array
    ; Input -- SDDXY Diagnosis Array Subscripted by a Number
    ; Output -- List Diagnosis Array
  • ICR #404
    • Status: Retired
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: LIST+4
    Function Call: WRITE
    • Prompt: !?2,I," ",$P(SDDXD,"^"),?15,$P(SDDXD,"^",2)
    • Line Location: LIST+5
    Info |  Source |  Entry Points |  Interaction Calls