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

Package: Scheduling

Routine: SDTMPUT3


Information

SDTMPUT3 ;BAH/DRF - INSTITUTION DISCREPANCY REPORT;Nov 9, 2023

Source Information

Source file <SDTMPUT3.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;Report Begin & Title
IO ;Ask IO device
LOOP ;Begin Report
HEADER ;Print header
LINE ;Write a single clinic record
END ;Clean up and Quit
ACT ;View active, inactive or both clinics
ASKTYPE ;Ask search type
DIV ;Ask division
DISC ;Ask DISCREPANCY or ALL
CLINIC ;Ask CLINIC
STOPCODE ;Ask STOPCODE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #,"CLINICS THAT HAVE AN INSTITUTIONAL DISCREPANCY",!!
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !!,"NO CLINICS MEETING THE CRITERIA WERE FOUND",!
  • Line Location: LOOP+15
Function Call: WRITE
  • Prompt: !,"** END **"
  • Line Location: LOOP+16
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?1,"CLINICS WITH INSTITUTIONAL DISCREPANCY",?71,"DATE: ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?122,"PAGE: ",PGNO,!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?1,$S(ACT="B":"BOTH ACTIVE AND *INACTIVE CLINICS",ACT="I":"*INACTIVE CLINICS",1:"ACTIVE CLINICS"),!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?1,$S(ASKTYPE="C"&(CRIT="ALL"):"ALL CLINICS",ASKTYPE="C"&(CRIT["["):"CLINICS CONTAINING """_$P(CRIT,"[",2)_"""",ASKTYPE="C":"CLINICS BEGINNING WITH """_CRIT_"""",1:"STOP CODE: "_CRIT_" - "_$P($G(^DIC(40.7,CRIT,0)),U,1)),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?1,$S(DISC="D":"CLINICS WITH DISCREPANCY ONLY",1:"ALL CLINICS INCLUDING DISCREPANCIES"),!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?1,"DIVISION: ",$S(SDIV="":"ALL",1:$P($G(^DG(40.8,SDIV,0)),U,1)),!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?50,"Station",?59,"Medical Center",?95,"Derived",?107,"Station",!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?1,"Clinic Name",?33,"IEN",?41,"###/###",?50,"Number",?59,"Division",?95,"Institution",?107,"Number",?118,"Institution",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?1,"------------------------------",?33,"-------",?41,"--------",?50,"--------",?59,"-----------------------------------",?95,"-----------",?107,"----------",?118,"-----------",!
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: ?1,"*"
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?2,CLNAM,?33,CL,?41,CLSTC,"/",CLCRSC,?50,$$GET1^DIQ(4,INST_",",99,"E"),?59,$P(MCD,U,1),?95,INSTD,?107,$$GET1^DIQ(4,INSTD_",",99,"E"),?118,INST,!
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLINIC+6
Function Call: WRITE
  • Prompt: "Response required. Enter ^ to Quit",!
  • Line Location: CLINIC+7
Function Call: WRITE
  • Prompt: " NOT FOUND",!
  • Line Location: CLINIC+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: STOPCODE+6
Function Call: WRITE
  • Prompt: "Response required. Enter ^ to Quit",!
  • Line Location: STOPCODE+7
Function Call: WRITE
  • Prompt: " ",$P($G(^DIC(40.7,+D,0)),U,1),!!
  • Line Location: STOPCODE+10
Function Call: WRITE
  • Prompt: " NOT FOUND IN CLINIC FILE",!
  • Line Location: STOPCODE+12

FileMan Files Accessed Via FileMan Db Call

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