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

Package: Scheduling

Routine: SDTMPUT2


Information

SDTMPUT2 ;MS/SJA - VISTA-BULK DEFAULT PROVIDER UPDATE ;May 15, 2022

Source Information

Source file <SDTMPUT2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
C ; clinic
C1
S ; stop codes
S1
P ; provider selection
P1
ST(STIEN) ; stop codes search
EXIT ; kill and exit
ASK ; selection options
ACTIVE(LOC) ;determine if clinic is active
; Output X:1=ACTIVE,
; X:0=INACTIVE
PRU(PRIEN) ; call for provider call
PRC(CLIEN,STCODE) ; call for clinic search
SC(CLIEN) ; call to return clinic stop codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?20,"Bulk update for Default Provider field",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL
  • Line Location: C1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: S1+7
Function Call: WRITE
  • Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: S1+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !,"Total number of clinics updated ",TOT," out of ",TOTAL
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,CLN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+8
Function Call: WRITE
  • Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update"
  • Line Location: PRU+9
Function Call: WRITE
  • Prompt: !,CLN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+13
Function Call: WRITE
  • Prompt: !,?8,"--- Provider update on inactive clinics is not allowed.",!
  • Line Location: PRU+13
Function Call: WRITE
  • Prompt: !,CLN,?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP
  • Line Location: PRU+15
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, default provider is already set.",!
  • Line Location: PRU+15
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),STOP
  • Line Location: PRU+16
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, multiple providers assigned.",!
  • Line Location: PRU+16
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+19
Function Call: WRITE
  • Prompt: !,?8,">>> Default Provider set to: ",$$GET1^DIQ(200,+VAL,.01),!
  • Line Location: PRU+19
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+20
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no default provider found.",!
  • Line Location: PRU+20
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLN,.01),STOP
  • Line Location: PRU+21
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no Providers found.",!
  • Line Location: PRU+21
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),$$SC(CLIEN)
  • Line Location: PRC+5
Function Call: WRITE
  • Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update"
  • Line Location: PRC+6
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+10
Function Call: WRITE
  • Prompt: !,?8,"--- Telehealth Patient Site Stop Codes are not allowed for Bulk",!,?12,"Default Provider Update"
  • Line Location: PRC+11
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+15
Function Call: WRITE
  • Prompt: !,?8,"--- Provider update on inactive clinics is not allowed.",!
  • Line Location: PRC+15
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+17
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, default provider is already set.",!
  • Line Location: PRC+17
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,$P(VAL,U,2),.01),$$SC($P(VAL,U,2))
  • Line Location: PRC+18
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, multiple providers assigned.",!
  • Line Location: PRC+18
Function Call: WRITE
  • Prompt: !,$P(VAL,U,2),?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+21
Function Call: WRITE
  • Prompt: !,?8,">>> Default Provider is set to: ",$$GET1^DIQ(200,+VAL,.01),!
  • Line Location: PRC+21
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+22
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no default provider found.",!
  • Line Location: PRC+22
Function Call: WRITE
  • Prompt: !,CLIEN,?12,$$GET1^DIQ(44,CLIEN,.01),STOP
  • Line Location: PRC+23
Function Call: WRITE
  • Prompt: !,?8,"--- No action taken, no Providers found.",!
  • Line Location: PRC+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^SD(40.6 - [#40.6] Classic Fileman Calls
^DIC(40.7 - [#40.7] GET1^DIQ
^SC - [#44] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call