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

Package: Scheduling

Routine: SDWLCU6


Information

SDWLCU6 ;IOFO BAY PINES/DMR - EWL FILE 409.3 CLEANUP - print ;2/15/05

Source Information

Source file <SDWLCU6.m>

Entry Points

Name Comments DBIA/ICR reference
CLINIC ;Display all clinics in file 409.32 that need to be cleaned up in file 44 in mail message
FIX ;fix corrupted Wait List Type piece 5
HD ;HDR
EOP() ;end of page check - return 1 to quit, 0 to continue

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTAL null field error EWL entries: "_CC
  • Line Location: SDWLCU6+33
Function Call: WRITE
  • Prompt: !!,"++ Missing Wait List Type and corresponding field entry (TEAM,POSITION,",!," SERVICE/SPECIALTY,CLINIC). Correct corresponding field entries",!," and running report again will correct Wait List Type field"
  • Line Location: SDWLCU6+34
Function Call: WRITE
  • Prompt: !!,"** End of Report **"
  • Line Location: SDWLCU6+36
Function Call: WRITE
  • Prompt: !,*7,$P(INSTST,U,6)
  • Line Location: CLINIC+5
Function Call: WRITE
  • Prompt: !!!,"The following clinics need to have the institution updated in file 44:",!!
  • Line Location: CLINIC+7
Function Call: WRITE
  • Prompt: !,?20,$$GET1^DIQ(44,+$G(^SDWL(409.32,CLINIC,0))_",",.01)
  • Line Location: CLINIC+8
Function Call: WRITE
  • Prompt: ?57,SDWLPD,?72,"Page: ",SDWLPG
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,?10,"Wait List Key Field 'NULL' Report for OPEN EWL entries."
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!,"STATION: "_+$$SITE^VASITE(,)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,"IEN Patient Name",?42,"Wait Date",?53,"STS",?58,"Null Fields"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^SDWL(409.3 - [#409.3] Classic Fileman Calls
^SC - [#44] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call