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

Package: Scheduling

Routine: SCRPW10


Information

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

Source Information

Source file <SCRPW10.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 7 NOW^%DTC  ^DIC  FILE^DICN  FIELD^DID  ^DIE  ^DIK  ^DIR  
Kernel 2 $$S^%ZTLOAD  EN^XUTMDEVQ  
Scheduling 2 DISP0^SCRPW23  ($$XY,END,TITL)^SCRPW50  
Registration 1 KVA^VADPT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC HINI+1
$$S^%ZTLOAD STOP+1
^DIC EG, DG1, E, A+1, CL1
FILE^DICN MCGR+2
FIELD^DID MCGR+2
^DIE EG, E, S1, EDIT
^DIK DG1+3
^DIR ASK+2, PGP+3, DG1+3, EA, PA+1, PA+2, PA+3, PAP+10, HDR+1
DISP0^SCRPW23 PGP, PAP+8
$$XY^SCRPW50 HDR+2
END^SCRPW50 END, EXIT
TITL^SCRPW50 ASK
KVA^VADPT EXIT
EN^XUTMDEVQ PG, PA+4

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
Routine Call
  • DIE
  • Line Location:
    • EG
    • E
    • S1
    • EDIT
Routine Call
  • DIC
  • Line Location:
    • EG
    • DG1
    • E
    • A+1
    • CL1
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • PGP+3
    • DG1+3
    • EA
    • PA+1
    • PA+2
    • PA+3
    • PAP+10
    • HDR+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HINI+1
^SC - [#44] L2, PAP+6, OK+2, OK+3, OK+5, CLP
^SC("ASCRPW" DG1+1
^SC("B" L, L1+1, PAP+4, PAP+6
^SD(409.67 - [#409.67] EG, PGP+1, PGP+2, PAP+6, OK+4, CLP
^TMP("SCRPW" PAP!, PAP+6*, PAP+8, PAP+9, CLP

Label References

Name Line Occurrences
$$OK PAP+6
@( ASK+2, EA+1
ASK ASK+2
CGH PAP+9
CL1 CL1
CLIN S1, L
CLP PAP+9
DG1 DG1+1, DG1+3
E E
EDIT L2
END ASK+2
EXIT EG+1, PGP+1, PGP+4, EA+1
HDR PGP, PGP+2, PAP+8, CGH, CLP
HINI PGP, PAP
L1 L
L2 L1+1
MCGR EG
S1 A+1
STOP PAP+5, HDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, HINI+1
%H EXIT!
%I EXIT!
A CLIN~, EXIT!
DA EG*, DG~, DG1*, E~*, A!, S1*, EDIT~, EXIT!
DA(1 MCGR+2*
DIC EG~*, DG~, DG1*, DG1+3, E~*, A!*, S1~, CLIN!*, EXIT!, MCGR+2~*
DIC("A" A*, CLIN*
DIC("P" MCGR+2*
DIC(0 EG*, DG1*, E*, A*, CLIN*, MCGR+2*
DIE EG~*, E~*, A!, S1!*, EDIT~*, EXIT!
DIK DG~, DG1+3*
DINUM MCGR+2~
DIR SCRPW10+2~, PGP+3~, DG~, EA!, PA~, PAP+10~, EXIT!, HDR+1~
DIR("?" DG1+2*, PA+2*, PA+3*
DIR("A" ASK+1*, DG1+2*, EA*, PA+1*, PA+2*, PA+3*
DIR("B" DG1+2*, PA+2*
DIR(0 ASK+1*, PGP+3*, DG1+2*, EA*, PA+1*, PA+2*, PAP+10*, HDR+1*
DLAYGO EG~*
DR EG*, E~*, A!, S1*, EDIT~*, EXIT!
DT OK+5
DTOUT ASK+2, EG, DG1, DG1+3, EA, E, A+1, CL1, L1+1, L1+3!
, PA+1, PA+2, PA+3, EXIT!
DUOUT ASK+2, EG, DG1, DG1+3, EA, E, A+1, CL1, L1+1, L1+3!
, PA+1, PA+2, PA+3, EXIT!
IOF HDR+2
IOM HINI+1, HDR+3, HDR+4
IOSL PGP+2, CGH, CLP
IOST PGP, PGP+3, PAP+8, PAP+10, HDR+1, HDR+2
SDA MCGR+2~
SDA("SPECIFIER" MCGR+2
SDC L1~*, L1+2, L2*
SDCG PGP~*, PGP+2*, A+1*, PAP+6*, PAP+9*, EXIT!, CGH, CLP
SDCGN PGP~, PGP+2*
SDCGNA A+1*, S1, EXIT!
SDCL A!, S1, CLIN!, CL1+1*, L, L1+1*, L1+3!, L2, PAP+6*, OK+2
, OK+3, OK+5, CLP*
SDCLN CL1+1*, L*, L1+1*, L1+3!, L2, PAP*, PAP+4*, PAP+6, PAP+9*, EXIT!
, CLP
SDCLNA A!, EXIT!
SDI L1~, L2*, EXIT!, HDR+3*
SDINAC PA~, PA+2*, PAP+1, PAP+2, PAP+3, EXIT!, OK+4
SDLINE EXIT!, HINI+1*, HDR+3, HDR+4
SDN MCGR~, MCGR+2
SDORD PA~, PA+1*, PAP+6, PAP+9, EXIT!, CLP
SDOUT PGP~*, PGP+2, PGP+3, PAP*, PAP+4, PAP+5, PAP+8, PAP+9, PAP+10, EXIT!
, CGH, CLP, HDR+1*, HDR+2, STOP+1*
SDPAGE EXIT!, HINI+1*, HDR+1, HDR+2, HDR+4*
SDPNOW EXIT!, HINI+1*, HDR+4
SDSTOP PAP*, PAP+5*, EXIT!
SDTITL PGP*, PAP*, EXIT!, HDR+3
SDTITL( HDR+3
SDTITL(1 PAP+1*, PAP+2*, PAP+3*
SDTITLX PAP*, EXIT!, HDR+4
SDUNAS PA~, PA+3*, PAP+1, PAP+2, PAP+3, EXIT!, OK+4
SDX OK+3~*, OK+4, OK+5*
U A+1, CL1, CL1+1, L2, PAP+6, OK+2, OK+3, OK+5, CLP
X ASK+2, EA, PA+1, EXIT!, MCGR+2~*
Y ASK+2, EG, DG1, DG1+1, DG1+3, EA+1, E, A+1, CL1!, CL1+1
, L1~, L1+1, PA+1, PA+2, PA+3, EXIT!, HINI+1*, HDR+1, MCGR+2~
Y(0 CL1
>> ZTQUEUED STOP+1
ZTSAVE PG~, PA~, PA+4, EXIT!
ZTSAVE("SDINAC" PA+2*
ZTSAVE("SDORD" PA+1*
ZTSAVE("SDUNAS" PA+3*
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All