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

Package: Scheduling

Routine: SDTMPUT4


Information

SDTMPUT4 ;BAH/DRF - ADVANCED CLINIC SEARCH REPORT;Apr 21, 2025

Source Information

Source file <SDTMPUT4.m>

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;Ask for search criteria
IO ;Ask IO device
LOOP ;Loop through selected clinics
HEADER ;Print header
LINE ;Write a single clinic record
END ;Clean up and Quit
ACT ;View active, inactive or both clinics
DIV ;Ask DIVISION
CLINIC ;Ask CLINIC
CHAR4 ;Ask CHAR4
DEFPROV ;Ask DEFAULT PROVIDER
PROVIDER ;Ask PROVIDER From provider multiple
PROVMATCH(CLINIC) ;Does clinic match search provider(s)?
PRVARR ;Create provider array
DPRVMTCH(DP) ;Does clinic match default provider(s)
SCTYPE ;Where do you want to search for STOP CODE?
SCCHK() ;Individual STOP CODE check
SCPCHK() ;Pair STOP CODE check
STOPCODEX ;Ask STOP CODE
SCLU(CODE,PAIR)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #,"ADVANCED CLINIC SEARCH",!!
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !!,"FOR PROPER FORMATTING, THIS REPORT SHOULD BE PRINTED TO A 132 COLUMN DEVICE OR TERMINAL"
  • Line Location: IO+1
Function Call: WRITE
  • Prompt: !!,"NO CLINICS MEETING THE CRITERIA WERE FOUND",!
  • Line Location: LOOP+20
Function Call: WRITE
  • Prompt: !!,CNT," CLINIC"
  • Line Location: LOOP+21
Function Call: WRITE
  • Prompt: "S"
  • Condition for execution: CNT>1
  • Line Location: LOOP+21
Function Call: WRITE
  • Prompt: " TOTAL (",INACT," INACTIVE, ",CNT-INACT," ACTIVE)",!
  • Line Location: LOOP+21
Function Call: WRITE
  • Prompt: !,"** END **"
  • Line Location: LOOP+22
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?1,"ADVANCED CLINIC SEARCH",?71,"DATE: ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?122,"PAGE: ",PGNO,!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?1,"FLAGS: *=INACTIVE CLINIC, +=DISPLAY APPT TO PATIENTS, S=INACTIVE STOP CODE, C=INACTIVE CREDIT STOP CODE",!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?1,$S($G(^TMP("SDTMPUT4",$J,"ACT"))="B":"BOTH ACTIVE AND *INACTIVE CLINICS",$G(^TMP("SDTMPUT4",$J,"ACT"))="I":"*INACTIVE CLINICS",1:"ACTIVE CLINICS")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: " "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?1,"ALL CLINICS"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: " and "
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: "CLINICS CONTAINING """_$P(CRIT,"[",2)_""""
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: "CLINICS BEGINNING WITH """_CRIT_""""
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: " DEFAULT PROVIDER: ",DP,!
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: " PROVIDER: ",P,!
  • Line Location: HEADER+17
Function Call: WRITE
  • Prompt: " STOP CODE: ",SC,!
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: " STOP CODE PAIR: ",SCPAIR,!
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: " CHAR4: ",CHAR4,!
  • Line Location: HEADER+28
Function Call: WRITE
  • Prompt: ?1,"DIVISION: ",$S(SDIV="":"ALL",1:$P($G(^DG(40.8,SDIV,0)),U,1)),!
  • Line Location: HEADER+32
Function Call: WRITE
  • Prompt: ?1,"Clinic Name",?36,"IEN",?41,"CHAR4",?47,"SC#/CS#",?55,"Station",?63,"Provider (!Default Flag)",?89,"Default Provider",?116,"Updated",?127,"Flags",!
  • Line Location: HEADER+33
Function Call: WRITE
  • Prompt: ?1,"--------------------------------",?34,"------",?41,"-----",?47,"-------",?55,"-------",?63,"-------------------------",?89,"--------------------------",?116,"----------",?127,"-----",!
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: ?1,CLNAM,?34,CLIN,?41,CLCHAR4,?47,CLSTD,"/",CLCRSD,?55,$$GET1^DIQ(4,INST_",",99,"E"),?63,$E($G(PRV(1)),1,25),?89,$E(DPR,1,25),?116,$P($$AUDIT^SDTMPUT0(+CL),"@",1),?127,SDFLG,!
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: ?63,PRV(K),!
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: CLINIC+11
Function Call: WRITE
  • Prompt: " NOT FOUND",!
  • Line Location: CLINIC+20
Function Call: WRITE
  • Prompt: " ",CNT," CLINICS FOUND"
  • Line Location: CLINIC+23
Function Call: WRITE
  • Prompt: " ",CNT," CLINICS FOUND"
  • Line Location: CLINIC+27
Function Call: WRITE
  • Prompt: " ",$P(Y(0),U,2),!
  • Line Location: CHAR4+5
Function Call: WRITE
  • Prompt: " This person is not the default provider for any existing clinic",!
  • Line Location: DEFPROV+6
Function Call: WRITE
  • Prompt: " Invalid choice"
  • Line Location: SCTYPE+11
Function Call: WRITE
  • Prompt: " INVALID STOP CODE"
  • Line Location: STOPCODEX+15
Function Call: WRITE
  • Prompt: ?34,"STOP CODE PAIRS MUST BE ENTERED ALONE",!
  • Line Location: STOPCODEX+19
Function Call: WRITE
  • Prompt: ?34,"INVALID PAIR",!
  • Line Location: STOPCODEX+25
Function Call: WRITE
  • Prompt: ?34,"NOT FOUND",!
  • Line Location: SCLU+3
Function Call: WRITE
  • Prompt: ?34,$P(SC0,U,2)," - ",$P(SC0,U,1)
  • Line Location: SCLU+6
Function Call: WRITE
  • Prompt: " (INACTIVE)"
  • Line Location: SCLU+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SCLU+9

FileMan Files Accessed Via FileMan Db Call

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