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 Total: 10

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  
IHS Changes To Scheduling 1 (,SHDR)^BSDSCO1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SCRPO3  

Entry Points

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

External References

Name Field # of Occurrence
$$S^%ZTLOAD STOP+1
^BSDSCO1 RUN+1
SHDR^BSDSCO1 SHDR+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, IHS+7
$$SORT^SCRPO PROMPT+21
HDR^SCRPO IHS+7, IHS+10, IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
BPTPA^SCRPO2 BTPOS+14
DISP0^SCRPW23 END, IHS+6
END^SCRPW50 END
SUBT^SCRPW50 PROMPT+10, PROMPT+13, PROMPT+20, PROMPT+22
TITL^SCRPW50 PROMPT+9
$$NOW^XLFDT HINI+4
EN^XUTMDEVQ PROMPT+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report, when printed on paper, requires wide paper or condensed print!"
  • Line Location: PROMPT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: IHS+33
Function Call: WRITE
  • Prompt: !
  • Line Location: IHS+34
Function Call: WRITE
  • Prompt: ?($P(SCY,U,SCI)),$P(SCX,U,SCI)
  • Line Location: IHS+35
Function Call: WRITE
  • Prompt: !
  • Line Location: IHS+61
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+8
Function Call: WRITE
  • Prompt: ?20,"Id.",?27,"Elig.",?38,"Cat",?43,"Team",?57,"Provider"
  • Line Location: SHDR+9
Function Call: WRITE
  • Prompt: ?73,"Team Position",?89,"PC?",?94,"Clinic",?110,"Act. Date"
  • Line Location: SHDR+10
Function Call: WRITE
  • Prompt: ?122,"Inac. Date",!
  • Line Location: SHDR+11
Function Call: WRITE
  • Prompt: "------------------ ----- --------- --- ------------ -------------- -------------- --- -------------- ---------- ----------"
  • Line Location: SHDR+12
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!, IHS+3, HDRX+3, BUILD+4, BUILD+5, TPCL+5, TMDV+6, TMDV+11, BTPOS+10
^TMP("SCARR" BTPOS+12, BTPOS+13
^TMP("SCRPT" IHS+5, IHS+9, IHS+17, IHS+19, IHS+21, IHS+22, IHS+23, IHS+25, IHS+27, IHS+29
, IHS+30, IHS+46, IHS+49, IHS+53, IHS+54

Label References

Name Line Occurrences
$$HDRX IHS+7, IHS+15, IHS+45
$$TMDV CKPOS+8
$$TPCL CKPOS+9
BTPOS CKPOS+10
BUILD IHS+4
CKPOS BUILD+6, BUILD+11
END PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+19, PROMPT+21, PROMPT+23
EXIT IHS+9, IHS+44, IHS+45, IHS+60
FOOT1 IHS+32, IHS+42
FOOT2 IHS+51, IHS+63
HINI IHS+6
PROMPT EN+5
SHDR IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
SLINE IHS+52, IHS+57, IHS+61, IHS+62
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 IHS+32, IHS+51, IHS+56, FOOT1+2, FOOT2+2
IOST RUN+1, IHS+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, IHS+7, EXIT+3!
SC1 IHS+2~, IHS+16*, IHS+17*, IHS+19, IHS+21, IHS+22
SC2 IHS+2~, IHS+18*, IHS+19*, IHS+21, IHS+22
SC3 IHS+2~, IHS+20*, IHS+21*, IHS+22
SC4 IHS+2~, IHS+22*, IHS+23*, IHS+25, IHS+27, IHS+29, IHS+30
SC5 IHS+2~, IHS+24*, IHS+25*, IHS+27, IHS+29, IHS+30
SC6 IHS+2~, IHS+26*, IHS+27*, IHS+29, IHS+30
SC7 IHS+2~, IHS+28*, IHS+29*, IHS+30
SCARR BTPOS+8~, BTPOS+9*, BTPOS+11
SCASP IHS+2~, IHS+46*, IHS+55, IHS+61
SCBDT PROMPT+7~, PROMPT+12
SCBDT("B" PROMPT+11*
SCDESC PROMPT~, PROMPT+9, PROMPT+27
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 IHS+1~, IHS+3*
SCFMT IHS+1~, IHS+3*, IHS+4, IHS+15, BUILD~, BUILD+6, BUILD+11, CKPOS~, CKPOS+10, BTPOS~
, BTPOS+14
SCI PROMPT+7~, PROMPT+16*, IHS+2~, IHS+4*, IHS+5*, IHS+35*, IHS+48*, IHS+49, IHS+52, IHS+53
, IHS+54, EXIT+1*, BTPOS+8~, BTPOS+11*, BTPOS+12*, BTPOS+13, FOOT1+1~, FOOT1+2*, FOOT2+1~, FOOT2+2*
SCLINE IHS+1~, SHDR+6, 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 IHS+2~, IHS+22*, IHS+23, IHS+25, IHS+27, IHS+29, IHS+30
SCOUT PROMPT+7~, PROMPT+8*, PROMPT+16, PROMPT+17*, PROMPT+19, IHS+1~, IHS+3*, IHS+4, IHS+7*, IHS+8
, IHS+10, IHS+15, IHS+17, IHS+19, IHS+21, IHS+23, IHS+25, IHS+27, IHS+29, IHS+32
, IHS+42, IHS+44, IHS+45, IHS+48, IHS+51, IHS+53, IHS+56, IHS+60, EXIT, SHDR+3
, STOP+1*, BUILD+5, BUILD+10
SCPAGE IHS+1~, IHS+14*, HINI+3*
SCPASS BTPOS+8~, BTPOS+13*, BTPOS+14
SCPNOW IHS+2~, HINI+4*
SCPOS CKPOS+4~, CKPOS+7*, CKPOS+10, BTPOS~, BTPOS+14
SCRTN PROMPT~, PROMPT+27
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 IHS+1~, IHS+7, IHS+10, IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
SCTITL(1 HINI+2*
SCTITL(2 IHS+7*, IHS+10!, IHS+15*, IHS+45*
SCTITL2 IHS+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 IHS+2~, IHS+3*, IHS+5*, IHS+62
SCX PROMPT+7~, PROMPT+16*, PROMPT+17, IHS+1~, IHS+11*, IHS+12, IHS+30*, IHS+35, IHS+52*, IHS+53*
, IHS+54, IHS+57, SLINE~, SLINE+5, SHDR~, SHDR+1, SHDR+4, HDRX~, HDRX+2, HDRX+3
, CKPOS+4~, CKPOS+6*, CKPOS+7, TMDV+4~, TMDV+8*, TMDV+9, TMDV+12*, TMDV+13
SCY IHS+34*, IHS+35, IHS+54*, IHS+55, IHS+57, SLINE~, SLINE+5
SCZ IHS+55*, IHS+57, SLINE~, SLINE+5
SORT EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+21
U IHS+35, SLINE+5, CKPOS+6, CKPOS+7, CKPOS+8, CKPOS+9, TPCL+7, TMDV+8, TMDV+9, TMDV+10
, TMDV+12, TMDV+13
>> VALM IHS+32, IHS+51
Y HINI+1~, HINI+4*
>> ZTQUEUED STOP+1
ZTSAVE PROMPT+26~, PROMPT+27
ZTSAVE("SC" PROMPT+26*
ZTSAVE("^TMP(""SC"",$J," PROMPT+26*
>> ZTSTOP STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All