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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCRPO1

Package: Scheduling

Routine: SCRPO1


Information

SCRPO1 ;BP-CIOFO/KEITH - Historical Patient Position Assignment Listing ; 20 Aug 99 7:49 AM

Source Information

Source file <SCRPO1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Scheduling 5 $$PTTP^SCAPMC  ($$ATYPE,$$DSUM,$$DTR,$$LIST,$$PPAR,$$SORT,HDR)^SCRPO  BPTPA^SCRPO2  DISP0^SCRPW23  (END,SUBT,TITL)^SCRPW50  
Kernel 3 $$S^%ZTLOAD  $$NOW^XLFDT  EN^XUTMDEVQ  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Scheduling 2 SC PCMM HIST PAT ASSIGN LIST  SCRPO3  

Entry Points

Name Comments DBIA/ICR reference
EN ;Queue report
PROMPT(LIST,SORT,SCSP,SCRTN,SCDESC) ;Prompt for report parameters, queue report
END
RUN ;Print report
EXIT
SLINE(SCX,SCY,SCZ) ;Print summary line
SHDR(SCX) ;Print report subheader
HDRX(SCX) ;extra header line
HINI ;Initialize header variables
STOP ;Check for stop task request
BUILD(SCFMT) ;Build report data
CKPOS(SCTP,SCFMT) ;Check team position
TPCL(SCLINIC) ;Get team position associated clinic
TMDV(SCTEAM,SCDIV) ;Get team and division
BTPOS(SCTP,SCDIV,SCTEAM,SCPOS,SCLINIC,SCFMT) ;Build list of patients for a position
FOOT1 ;Detail report footer
FOOT2 ;Summary report footer

External References

Name Field # of Occurrence
$$S^%ZTLOAD STOP+1
^DIR EXIT
$$PTTP^SCAPMC BTPOS+11
$$ATYPE^SCRPO PROMPT+14
$$DSUM^SCRPO PROMPT+15
$$DTR^SCRPO PROMPT+12
$$LIST^SCRPO PROMPT+17
$$PPAR^SCRPO PROMPT+23, RUN+7
$$SORT^SCRPO PROMPT+21
HDR^SCRPO RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
BPTPA^SCRPO2 BTPOS+14
DISP0^SCRPW23 ENDRUN+6
END^SCRPW50 ENDEXIT+2
SUBT^SCRPW50 PROMPT+10, PROMPT+13, PROMPT+20, PROMPT+22
TITL^SCRPW50 PROMPT+9
$$NOW^XLFDT HINI+4
EN^XUTMDEVQ PROMPT+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column output!"
  • Line Location: PROMPT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+32
Function Call: WRITE
  • Prompt: ?($P(SCY,U,SCI)),$P(SCX,U,SCI)
  • Line Location: RUN+33
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+57
Function Call: WRITE
  • Prompt: !,$J($P(SCX,U),70)
  • Line Location: SLINE+5
Function Call: WRITE
  • Prompt: ?71,$J(SCY,10),?81,$J(SCZ,10,2)
  • Line Location: SLINE+5
Function Call: WRITE
  • Prompt: !?20,"Pat.",?27,"Primary",?38,"MT",?94,"Enrolled",!,"Patient Name"
  • Line Location: SHDR+7
Function Call: WRITE
  • Prompt: ?20,"Id.",?27,"Elig.",?38,"Cat",?43,"Team",?57,"Provider"
  • Line Location: SHDR+8
Function Call: WRITE
  • Prompt: ?73,"Team Position",?89,"PC?",?94,"Clinic",?110,"Act. Date"
  • Line Location: SHDR+9
Function Call: WRITE
  • Prompt: ?122,"Inac. Date",!
  • Line Location: SHDR+10
Function Call: WRITE
  • Prompt: "------------------ ----- --------- --- ------------ -------------- -------------- --- -------------- ---------- ----------"
  • Line Location: SHDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT1+2
Function Call: WRITE
  • Prompt: !,SCLINE
  • Line Location: FOOT1+3
Function Call: WRITE
  • Prompt: !,"NOTE: More than one provider may be associated with a single patient position assignment. This output returns a separate output"
  • Line Location: FOOT1+4
Function Call: WRITE
  • Prompt: !?6,"line for each related provider during the date range selected."
  • Line Location: FOOT1+5
Function Call: WRITE
  • Prompt: !!?6,"'PC?' represents provider type: AP = Associate provider, PCP = Primary Care Provider, NPC = Non-Primary Care Provider."
  • Line Location: FOOT1+6
Function Call: WRITE
  • Prompt: !,SCLINE
  • Line Location: FOOT1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT2+2
Function Call: WRITE
  • Prompt: !,SCLINE
  • Line Location: FOOT2+3
Function Call: WRITE
  • Prompt: !,"NOTE: More than one provider may be associated with a single patient position assignment. The sum of assignments related to"
  • Line Location: FOOT2+4
Function Call: WRITE
  • Prompt: !?6,"providers detailed in this summary is likely to be greater than the actual number of patient position assignments"
  • Line Location: FOOT2+5
Function Call: WRITE
  • Prompt: !?6,"returned by this report."
  • Line Location: FOOT2+6
Function Call: WRITE
  • Prompt: !,SCLINE
  • Line Location: FOOT2+7
Routine Call
  • DIR
  • Line Location:
    • EXIT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HINI+4
^DIC(4 - [#4] TMDV+12
^SC - [#44] TPCL+7
^SCTM(404.51 - [#404.51] TMDV+7
^SCTM(404.57 - [#404.57] BUILD+10, CKPOS+5
^TMP( EXIT+1!
^TMP("SC" END!, RUN+3, HDRX+3, BUILD+4, BUILD+5, TPCL+5, TMDV+6, TMDV+11, BTPOS+10
^TMP("SCARR" BTPOS+12, BTPOS+13
^TMP("SCRPT" RUN+5, RUN+9, RUN+17, RUN+19, RUN+21, RUN+22, RUN+23, RUN+25, RUN+27, RUN+29
RUN+30, RUN+44, RUN+46, RUN+49, RUN+50

Label References

Name Line Occurrences
$$HDRX RUN+7, RUN+15, RUN+43
$$TMDV CKPOS+8
$$TPCL CKPOS+9
BTPOS CKPOS+10
BUILD RUN+4
CKPOS BUILD+6, BUILD+11
END PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+19, PROMPT+21, PROMPT+23
EXIT RUN+9, RUN+42, RUN+43, RUN+56
FOOT1 RUN+31, RUN+40
FOOT2 RUN+47, RUN+59
HINI RUN+6
PROMPT EN+5
SHDR RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
SLINE RUN+48, RUN+53, RUN+57, RUN+58
STOP BUILD+6, BUILD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DESC EN+1~, EN+4*, EN+5
DIR EXIT~
DIR(0 EXIT*
IOSL RUN+31, RUN+47, RUN+52, FOOT1+2, FOOT2+2
IOST RUN+6, EXIT
LIST EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+16
RTN EN+1~, EN+3*, EN+5
SC PROMPT+7~, PROMPT+8*, PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+17, PROMPT+21, PROMPT+23, RUN+7, EXIT+2!
SC1 RUN+2~, RUN+16*, RUN+17*, RUN+19, RUN+21, RUN+22
SC2 RUN+2~, RUN+18*, RUN+19*, RUN+21, RUN+22
SC3 RUN+2~, RUN+20*, RUN+21*, RUN+22
SC4 RUN+2~, RUN+22*, RUN+23*, RUN+25, RUN+27, RUN+29, RUN+30
SC5 RUN+2~, RUN+24*, RUN+25*, RUN+27, RUN+29, RUN+30
SC6 RUN+2~, RUN+26*, RUN+27*, RUN+29, RUN+30
SC7 RUN+2~, RUN+28*, RUN+29*, RUN+30
SCARR BTPOS+8~, BTPOS+9*, BTPOS+11
SCASP RUN+2~, RUN+44*, RUN+51, RUN+57
SCBDT PROMPT+7~, PROMPT+12
SCBDT("B" PROMPT+11*
SCDESC PROMPT~, PROMPT+9, PROMPT+26
SCDIV PROMPT+7~, CKPOS+4~, CKPOS+8, CKPOS+10, TMDV~, TMDV+10*, TMDV+11, TMDV+12, TMDV+13*, BTPOS~
, BTPOS+14
SCDT BTPOS+8~, BTPOS+10*, BTPOS+11
SCEDT PROMPT+7~, PROMPT+12
SCEDT("B" PROMPT+11*
SCFF RUN+1~, RUN+3*
SCFMT RUN+1~, RUN+3*, RUN+4, RUN+15, BUILD~, BUILD+6, BUILD+11, CKPOS~, CKPOS+10, BTPOS~
, BTPOS+14
SCI PROMPT+7~, PROMPT+16*, RUN+2~, RUN+4*, RUN+5*, RUN+33*, RUN+45*, RUN+46, RUN+48, RUN+49
RUN+50, EXIT+1*, BTPOS+8~, BTPOS+11*, BTPOS+12*, BTPOS+13, FOOT1+1~, FOOT1+2*, FOOT2+1~, FOOT2+2*
SCLINE RUN+1~, SHDR+5, HINI+3*, FOOT1+3, FOOT1+7, FOOT2+3, FOOT2+7
SCLINIC CKPOS+4~, CKPOS+9*, CKPOS+10, TPCL~, TPCL+5, TPCL+6, TPCL+7*, BTPOS~, BTPOS+14
SCN RUN+2~, RUN+22*, RUN+23, RUN+25, RUN+27, RUN+29, RUN+30
SCOUT PROMPT+7~, PROMPT+8*, PROMPT+16, PROMPT+17*, PROMPT+19, RUN+1~, RUN+3*, RUN+4, RUN+7*, RUN+8
RUN+10, RUN+15, RUN+17, RUN+19, RUN+21, RUN+23, RUN+25, RUN+27, RUN+29, RUN+31
RUN+40, RUN+42, RUN+43, RUN+45, RUN+47, RUN+49, RUN+52, RUN+56, EXIT, SHDR+2
STOP+1*, BUILD+5, BUILD+10
SCPAGE RUN+1~, RUN+14*, HINI+3*
SCPASS BTPOS+8~, BTPOS+13*, BTPOS+14
SCPNOW RUN+2~, HINI+4*
SCPOS CKPOS+4~, CKPOS+7*, CKPOS+10, BTPOS~, BTPOS+14
SCRTN PROMPT~, PROMPT+26
SCSP EN+1~, EN+3*, EN+5, PROMPT~, PROMPT+21
SCT PROMPT+7~, PROMPT+23
SCT(1 PROMPT+22*
SCTEAM CKPOS+4~, CKPOS+8*, CKPOS+10, TMDV~, TMDV+5, TMDV+6, TMDV+7, TMDV+9*, BTPOS~, BTPOS+14
SCTITL RUN+1~, RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
SCTITL(1 HINI+2*
SCTITL(2 RUN+7*, RUN+10!, RUN+15*, RUN+43*
SCTITL2 RUN+1~
SCTM BUILD+2~
SCTM0 TMDV+4~, TMDV+7*, TMDV+8, TMDV+10
SCTP BUILD+2~, BUILD+4*, BUILD+5*, BUILD+6, BUILD+10*, BUILD+11, CKPOS~, CKPOS+5, CKPOS+7, CKPOS+10
, BTPOS~, BTPOS+11
SCTP0 CKPOS+4~, CKPOS+5*, CKPOS+6, CKPOS+8, CKPOS+9
SCUNP RUN+2~, RUN+3*, RUN+5*, RUN+58
SCX PROMPT+7~, PROMPT+16*, PROMPT+17, RUN+1~, RUN+11*, RUN+12, RUN+30*, RUN+33, RUN+48*, RUN+49*
RUN+50, RUN+53, SLINE~, SLINE+5, SHDR~, SHDR+3, HDRX~, HDRX+2, HDRX+3, CKPOS+4~
, CKPOS+6*, CKPOS+7, TMDV+4~, TMDV+8*, TMDV+9, TMDV+12*, TMDV+13
SCY RUN+32*, RUN+33, RUN+50*, RUN+51, RUN+53, SLINE~, SLINE+5
SCZ RUN+51*, RUN+53, SLINE~, SLINE+5
SORT EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+21
U RUN+33, SLINE+5, CKPOS+6, CKPOS+7, CKPOS+8, CKPOS+9, TPCL+7, TMDV+8, TMDV+9, TMDV+10
, TMDV+12, TMDV+13
Y HINI+1~, HINI+4*
>> ZTQUEUED STOP+1
ZTSAVE PROMPT+25~, PROMPT+26
ZTSAVE("SC" PROMPT+25*
ZTSAVE("^TMP(""SC"",$J," PROMPT+25*
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All