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

Package: Scheduling

Routine: SCRPW10


Information

SCRPW10 ;RENO/KEITH - Clinic Group Maintenance functionality ; 15 Jul 98 02:38PM

Source Information

Source file <SCRPW10.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
END
EG
PG
PGP
DG
DG1
EA
E
A
S1
CLIN(A)
CL1
L
L1
L2
EDIT(DA)
PA
PAP
EXIT
OK() ;Ok to include in report?
CGH
CLP
HINI ;Initialize header variables
HDR ;Print report headers
STOP ;Check for stop task request
MCGR(SDN) ;Mark CLINIC GROUP record as type="report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+0
Function Call: WRITE
  • Prompt: !!,"No 'report' type CLINIC GROUP records identified."
  • Line Location: PGP+1
Function Call: WRITE
  • Prompt: !,SDCG
  • Line Location: PGP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DG1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"You cannot delete a clinic group that has clinics assigned to it!",!
  • Line Location: DG1+1
Function Call: WRITE
  • Prompt: " ...deleted."
  • Line Location: DG1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"Assigned to ",SDCGNA
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Only clinics can be selected!"
  • Line Location: CL1+0
Function Call: WRITE
  • Prompt: !!,"End of loop."
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"Clinic: ",SDCLN
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PA+4
Function Call: WRITE
  • Prompt: !!,"No clinic group assignments found!"
  • Line Location: PAP+8
Function Call: WRITE
  • Prompt: !!,"Clinic group: ",$S(SDCG="~":"(not assigned)",1:$P(SDCG,"~"))
  • Line Location: CGH+0
Function Call: WRITE
  • Prompt: !,$P($G(^SC(SDCL,0)),U),?40,$S(SDORD="CG":$S(SDCG="~":"(not assigned)",1:$P(SDCG,"~")),1:$P($G(^SD(409.67,+$P($G(^SC(SDCL,0)),U,31),0)),U))
  • Line Location: CLP+0
Function Call: WRITE
  • Prompt: !?(IOM-$L(SDTITL(SDI))\2),SDTITL(SDI)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SD(409.67 - [#409.67] Classic Fileman Calls,  FIELD^DID
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call