Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 ^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SD INSTITUTION DISCREPANCY  

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

External References

Name Field # of Occurrence
^%ZIS IO+1
^DIC DIV+4
$$GET1^DIQ LINE+4
^DIR ACT+4, ASKTYPE+4, DISC+4, CLINIC+5, STOPCODE+5

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
Routine Call
  • %ZIS
  • Line Location:
    • IO+1
Routine Call
  • DIC
  • Line Location:
    • DIV+4
Routine Call
  • DIR
  • Line Location:
    • ACT+4
    • ASKTYPE+4
    • DISC+4
    • CLINIC+5
    • STOPCODE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^DG(40.8 - [#40.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] LOOP+11, HEADER+7
^DIC(40.7 - [#40.7] HEADER+5, STOPCODE+10
^SC - [#44] LOOP+4, LOOP+8, STOPCODE+13, STOPCODE+14
^SC("ACST" STOPCODE+11, STOPCODE+14
^SC("AST" STOPCODE+11, STOPCODE+13
^SC("B" CLINIC+12, CLINIC+14, CLINIC+15, CLINIC+16
^TMP("SDTMPUT3" BEGIN+2!, LOOP+2, LOOP+3, END+1!, CLINIC+14*, CLINIC+15*, CLINIC+16*, STOPCODE+13*, STOPCODE+14*

Label References

Name Line Occurrences
ACT BEGIN+3
ASKTYPE BEGIN+4
CLINIC ASKTYPE+7, CLINIC+7, STOPCODE+7
DISC BEGIN+6
DIV BEGIN+5, DIV+4
END IO+1, LOOP+17
HEADER LOOP+15, LINE+2
LINE LOOP+14
STOPCODE ASKTYPE+8, STOPCODE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS IO+1*, END+2!
ACT LOOP+5, LOOP+6, HEADER+4, END+2!, ACT+5*
ASKTYPE HEADER+5, END+2!, ASKTYPE+5*, ASKTYPE+6, ASKTYPE+7, ASKTYPE+8
C CLINIC+1~, CLINIC+14*, CLINIC+15*, CLINIC+16*, STOPCODE+1~, STOPCODE+13*, STOPCODE+14*
CL LOOP+3*, LOOP+4, LOOP+8, LINE+4, END+2!
CLCRSC LOOP+8*, LOOP+10*, LINE+4, END+2!
CLNAM LOOP+2*, LOOP+3, LINE+4, END+2!, STOPCODE+1~, STOPCODE+13*, STOPCODE+14*
CLSTC LOOP+8*, LOOP+9*, LINE+4, END+2!
CRIT HEADER+5, END+2!, CLINIC+9*, STOPCODE+9*
D CLINIC+1~, CLINIC+11*, CLINIC+12, CLINIC+16, STOPCODE+1~, STOPCODE+9*, STOPCODE+10, STOPCODE+11, STOPCODE+13, STOPCODE+14
DIC END+2!, DIV+1!, DIV+3*, DIV+7!
DIC("A" DIV+4*!
DIC("S" DIV+4!
DIC(0 DIV+3*
DIR END+2!, ACT+1!, ASKTYPE+1!, DISC+1!, CLINIC+2!, STOPCODE+2!
DIR("?" CLINIC+4*, STOPCODE+4*
DIR("A" ACT+3*, ASKTYPE+3*, DISC+3*, CLINIC+3*, STOPCODE+3*
DIR("B" ACT+2*, ASKTYPE+2*, DISC+2*
DIR(0 ACT+2*, ASKTYPE+2*, DISC+2*, CLINIC+3*, STOPCODE+3*
DISC LOOP+13, HEADER+6, END+2!, DISC+5*
DIV LOOP+7*, LOOP+8*, LOOP+11, LOOP+12, END+2!
DT HEADER+3
FND LOOP+1*, LOOP+15, LINE+1*, LINE+2, END+2!, CLINIC+1~, CLINIC+12*, CLINIC+14*, CLINIC+15*, CLINIC+16*
, STOPCODE+1~, STOPCODE+11*, STOPCODE+12
I END+2!, CLINIC+14*, CLINIC+15*, CLINIC+16*, STOPCODE+13*, STOPCODE+14*
IN LOOP+4*, LOOP+5, LOOP+6, LINE+3, END+2!
INST LOOP+7*, LOOP+11*, LOOP+13, LINE+4, END+2!
INSTD LOOP+7*, LOOP+11*, LOOP+13, LINE+4, END+2!
MCD LOOP+7*, LOOP+11*, LINE+4, END+2!
NODE0 LOOP+8*, LOOP+11, END+2!
PGNO LOOP+1*, HEADER+2*, HEADER+3, END+2!
POP IO+1, END+2!
SDIV LOOP+12, HEADER+7, END+2!, DIV+2*, DIV+6*
U LOOP+5, LOOP+6, LOOP+8, LOOP+11, HEADER+5, HEADER+7, LINE+3, LINE+4, DIV+6, STOPCODE+10
, STOPCODE+13, STOPCODE+14
X BEGIN+5, END+2!, ACT+1!, ASKTYPE+1!, DIV+1!, DIV+4, DIV+5, DISC+1!, CLINIC+1~, CLINIC+7
, CLINIC+8, CLINIC+9, CLINIC+10*, CLINIC+11, CLINIC+14, CLINIC+15, CLINIC+16, STOPCODE+1~, STOPCODE+7, STOPCODE+8
, STOPCODE+9
Y BEGIN+3, BEGIN+4, BEGIN+6, END+2!, ACT+5, ASKTYPE+5, DIV+4, DIV+6, DISC+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All