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
Print Page as PDF
Routine: SCMCTSK4

Package: Scheduling

Routine: SCMCTSK4


Information

SCMCTSK4 ;ALB/JDS - PCMM Inactivation Reports ; 18 Apr 2003 9:36 AM

Source Information

Source file <SCMCTSK4.m>

Entry Points

Name Comments DBIA/ICR reference
POSCHK ;
DIOBEG ;
DIOEND ;print key
DIOEND1 ;print Key
DIOEND2 ;print Key

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$G(SCDHD)
  • Line Location: DIOBEG+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-40)
  • Line Location: DIOBEG+2
Function Call: WRITE
  • Prompt: ?(IOM-40)
  • Line Location: DIOBEG+2
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DIOBEG+3
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DIOBEG+3
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DIOBEG+3
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DIOBEG+3
Function Call: WRITE
  • Prompt: ?(IOM-15),"PAGE: 1"
  • Line Location: DIOBEG+4
Function Call: WRITE
  • Prompt: !,Y,!!
  • Line Location: DIOBEG+5
Function Call: WRITE
  • Prompt: ?(IOM/2-24),"**** Report Parameters Selected ****",!
  • Line Location: DIOBEG+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DIOBEG+10
Function Call: READ
  • Variable: SCX
  • Timeout: DT
  • Line Location: DIOBEG+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIOBEG+11
Function Call: WRITE
  • Prompt: @IOF,!,$G(SCDHD)
  • Line Location: DIOEND+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-40)
  • Line Location: DIOEND+1
Function Call: WRITE
  • Prompt: ?(IOM-40)
  • Line Location: DIOEND+1
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DIOEND+2
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DIOEND+2
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DIOEND+2
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DIOEND+2
Function Call: WRITE
  • Prompt: ?(IOM-15),"PAGE: "_($G(DC)+1)
  • Line Location: DIOEND+3
Function Call: WRITE
  • Prompt: !,Y,!!
  • Line Location: DIOEND+4
Function Call: WRITE
  • Prompt: !," REPORT KEY"
  • Line Location: DIOEND+5
Function Call: WRITE
  • Prompt: !," Field Name Explanation of field name"
  • Line Location: DIOEND+6
Function Call: WRITE
  • Prompt: !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider"
  • Line Location: DIOEND+7
Function Call: WRITE
  • Prompt: !," SSN Patient SSN."
  • Line Location: DIOEND+8
Function Call: WRITE
  • Prompt: !," PC Team Patient's assigned Primary Care team in PCMM."
  • Line Location: DIOEND+9
Function Call: WRITE
  • Prompt: !," Provider Name of primary care practitioner/provider currently assigned to the patient. This will be an"
  • Line Location: DIOEND+10
Function Call: WRITE
  • Prompt: !," Associate PC Provider if the patient is assigned to an AP, or it will be a Primary Care Provider"
  • Line Location: DIOEND+11
Function Call: WRITE
  • Prompt: !," (PCP) if the patient is not assigned to an Associate PC Provider (AP.)"
  • Line Location: DIOEND+12
Function Call: WRITE
  • Prompt: !," Team Position The name of the team position to which the current practitioner/provider is assigned."
  • Line Location: DIOEND+13
Function Call: WRITE
  • Prompt: !," Institution/Division Institution name, previously called Division, in which patient receives primary care."
  • Line Location: DIOEND+14
Function Call: WRITE
  • Prompt: !," Sched Date for Inactiva Date patient will be inactivated from PCMM and their Primary Care team and provider/position"
  • Line Location: DIOEND+15
Function Call: WRITE
  • Prompt: !," panels. If the patient has a completed outpatient encounter with their current PCP or an"
  • Line Location: DIOEND+16
Function Call: WRITE
  • Prompt: !," assigned AP before this date, the patient will not be inactivated. If the patient's"
  • Line Location: DIOEND+17
Function Call: WRITE
  • Prompt: !," inactivation date is extended for 60 days, with the PCMM Extend Patient's Inactivation Date"
  • Line Location: DIOEND+18
Function Call: WRITE
  • Prompt: !," option, the patient's inactivation will not occur until the new extended date for inactivation."
  • Line Location: DIOEND+19
Function Call: WRITE
  • Prompt: !," Note: There is a patient reassignment option, which allows an inactivated patient to be"
  • Line Location: DIOEND+20
Function Call: WRITE
  • Prompt: !," reactivated to their previous Primary Care team and position if they return for care."
  • Line Location: DIOEND+21
Function Call: WRITE
  • Prompt: !," Next Appt Date Patient is scheduled for an appointment on this date."
  • Line Location: DIOEND+22
Function Call: WRITE
  • Prompt: !," May indicate patient wants to continue their assignment to their Primary Care team and provider."
  • Line Location: DIOEND+23
Function Call: WRITE
  • Prompt: !," Clinic for next Appt The clinic in which the patient has their next scheduled appointment."
  • Line Location: DIOEND+24
Function Call: WRITE
  • Prompt: @IOF,!,$G(SCDHD)
  • Line Location: DIOEND1+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-40)
  • Line Location: DIOEND1+1
Function Call: WRITE
  • Prompt: ?(IOM-40)
  • Line Location: DIOEND1+1
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DIOEND1+2
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DIOEND1+2
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DIOEND1+2
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DIOEND1+2
Function Call: WRITE
  • Prompt: ?(IOM-15),"PAGE: "_($G(DC)+1)
  • Line Location: DIOEND1+3
Function Call: WRITE
  • Prompt: !,Y,!!
  • Line Location: DIOEND1+4
Function Call: WRITE
  • Prompt: !," REPORT KEY"
  • Line Location: DIOEND1+5
Function Call: WRITE
  • Prompt: !," Field Name Explanation of field name"
  • Line Location: DIOEND1+6
Function Call: WRITE
  • Prompt: !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider."
  • Line Location: DIOEND1+7
Function Call: WRITE
  • Prompt: !," SSN Patient SSN."
  • Line Location: DIOEND1+8
Function Call: WRITE
  • Prompt: !," Institution Institution name, previously called Division, in which patient receives primary care."
  • Line Location: DIOEND1+9
Function Call: WRITE
  • Prompt: !," PC Team Patient's assigned Primary Care team in PCMM."
  • Line Location: DIOEND1+10
Function Call: WRITE
  • Prompt: !," Provider/ Name of Primary Care practitioner/provider currently assigned to the patient."
  • Line Location: DIOEND1+11
Function Call: WRITE
  • Prompt: !," This may be an Associate PC Provider (AP,) if the patient is assigned to an AP, or"
  • Line Location: DIOEND1+12
Function Call: WRITE
  • Prompt: !," it may be a Primary Care Provider (PCP) if the patient is not assigned to an"
  • Line Location: DIOEND1+13
Function Call: WRITE
  • Prompt: !," Associate PC Provider (AP.)"
  • Line Location: DIOEND1+14
Function Call: WRITE
  • Prompt: !," Team Position The name of the team position to which the current provider is assigned."
  • Line Location: DIOEND1+15
Function Call: WRITE
  • Prompt: !," Preceptor Name of Preceptor/Primary Care Provider (PCP) if the patient is assigned to an Associate Provider."
  • Line Location: DIOEND1+16
Function Call: WRITE
  • Prompt: !," If this field is blank then the patient is assigned to a PCP, who displays in the Provider field."
  • Line Location: DIOEND1+17
Function Call: WRITE
  • Prompt: !," Date Patient Date patient was inactivated from PCMM and their Primary Care team and provider/position."
  • Line Location: DIOEND1+18
Function Call: WRITE
  • Prompt: !," Inactivated Note: There is a PCMM patient re-assignment option."
  • Line Location: DIOEND1+19
Function Call: WRITE
  • Prompt: !," Reason Patient Reason for patient's automated unassignment from their Primary Care team and provider/position."
  • Line Location: DIOEND1+20
Function Call: WRITE
  • Prompt: !," Inactivated No Appt The patient has been assigned to their current Primary Care Provider (PCP) for"
  • Line Location: DIOEND1+21
Function Call: WRITE
  • Prompt: !," 12 months, and does not have a completed appointment encounter with their PCP or any assigned"
  • Line Location: DIOEND1+22
Function Call: WRITE
  • Prompt: !," Associated Primary Care Provider (AP) within those 12 months. Therefore, they are considered"
  • Line Location: DIOEND1+23
Function Call: WRITE
  • Prompt: !," an inactive patient. Alternatively, the patient has been assigned to their current PCP for at"
  • Line Location: DIOEND1+24
Function Call: WRITE
  • Prompt: !," least 12 months, and does not have a completed appointment encounter with their PCP or any"
  • Line Location: DIOEND1+25
Function Call: WRITE
  • Prompt: !," assigned Associated Primary Care Provider (AP) in the past 24 months. Therefore, they are"
  • Line Location: DIOEND1+26
Function Call: WRITE
  • Prompt: !," considered an inactive patient."
  • Line Location: DIOEND1+27
Function Call: WRITE
  • Prompt: !," Death - Patient's death, a date of death was entered in the Registration Package"
  • Line Location: DIOEND1+28
Info |  Source |  Entry Points |  Interaction Calls