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

Package: Scheduling

Routine: SDWLBACC


Information

SDWLBACC ;;IOFO BAY PINES/OG - BATCH CHANGE EWL CLINIC ; Compiled August 14, 2007 11:20:57

Source Information

Source file <SDWLBACC.m>

Entry Points

Name Comments DBIA/ICR reference
P1 ; Source Institution
P2 ; Source Clinic
P3 ; Destination Institution
P4 ; Destination Clinic
P5 ; Comment
P6 ; Confirmation and processing
CHNGCL ;
CLIN(CL) ;identify clinic institution through DIVISON ----> INSTITUTION path.
; function to return:
; - Institution pointer to ^DIC(4 _U_ STATION number (# 99) _U_ Inst Name _U_ Div Pointer to ^DG(40.8 _U_N/L_U_Message
; ( INST^STA NUM^SNAM^DIV^N/L^MESS )
; N/L - N -National/L -Local
; with Message:
; - if STA="" INST^^SNAM^DIV^^N/L^' - No Station Number on file'
; or
; - 0^^^DIV^^' - No Institution has been identified'
; - 0^^^-1^^' - no Division has been identified'
; - -1 no clinic on file'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SDWLBACC+12
Function Call: WRITE
  • Prompt: !?80-$L(SDWLHD)\2,SDWLHD,!
  • Line Location: SDWLBACC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CHNGCL+19
Function Call: WRITE
  • Prompt: "Clinics changed. "
  • Condition for execution: SDWLCNT
  • Line Location: CHNGCL+19
Function Call: WRITE
  • Prompt: SDWLCNT," entries processed."
  • Line Location: CHNGCL+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] GET1^DIQ
^SDWL(409.3 - [#409.3] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
^SDWL(409.32 - [#409.32] GET1^DIQ
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call