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

Package: Scheduling

Routine: SCRPW18


Information

SCRPW18 ;RENO/KEITH/MRY - ACRP encounter consistency checker ; 21 JUL 2000 2:17 PM

Source Information

Source file <SCRPW18.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 5 SEGMENTS^SCDXMSG1  STOP^SCRPW16  $$ERRSUB^SCRPW17  $$XY^SCRPW50  $$GETOE^SDOE  
VA FileMan 2 NOW^%DTC  ^DIR  
Health Level Seven 1 INIT^HLFNC2  

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

Package Total Caller Graph
Scheduling 1 SCRPW16  

Entry Points

Name Comments DBIA/ICR reference
CHEK(ENCPTR,SDARY,SDSTR) ;Consistency checker for outpatient encounter transactions
VER(SEG,VAFSTR,SDARY,SDERR) ;Verify a segment
STR(SDSTR) ;Create segment string
SEGS(SDARY) ;Return segments to validate
DET ;Print detail
TPRT
PPRT
PP1
PP2
ETCO
ETDIS
ETAP
ETAE
T2()
HD1
HDR(SDT,SDR) ;Print header
STAT ;Print statistics
ST1
REASON
DEF(SDX,SDL) ;Produce deficiency external value

External References

Name Field # of Occurrence
NOW^%DTC HD1
^DIR HDR+4
INIT^HLFNC2 CHEK+19
SEGMENTS^SCDXMSG1 STR+4
STOP^SCRPW16 HDR+3
$$ERRSUB^SCRPW17 DEF+4
$$XY^SCRPW50 HDR+5
$$GETOE^SDOE CHEK+18, PP1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?8,"Clinic: ",SDCLN
  • Line Location: TPRT+0
Function Call: WRITE
  • Prompt: !!,$E(SDPTNA,1,24),?26,SDSN
  • Line Location: PP2+1
Function Call: WRITE
  • Prompt: ?39,$P(Y,":",1,2),?58,SDTY,?81,$E(SDCI,1,25),?107,$E(SDCO,1,25),!,?26,"Status: ",$P($G(^SD(409.63,+$P(SDOE0,U,12),0)),U)
  • Line Location: PP2+1
Function Call: WRITE
  • Prompt: ?27,$$DEF(SDX,104)
  • Line Location: PP2+3
Function Call: WRITE
  • Prompt:
  • Condition for execution: SDPAGE'=1!($E(IOST)="C") $$XY^SCRPW50(IOF,1,0) W:$X $$XY^SCRPW50("",0,0) W SDLINE S SDI=0 F S SDI=$O(SDT(SDI)) Q:'SDI
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?(132-$L(SDT(SDI))\2),SDT(SDI)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,SDLINE,!,"For date range: ",SDBDAY," to ",SDEDAY,!,"Date printed: ",SDPNOW,?(126-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient:",?26,"SSN:",?39,"Date/time:",?58,"Type:",?81,"Check-in user:",?107,"Check-out user:",!,SDLINE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?35,$S(SDIV:"DIVISION",1:"TOTAL")," 'ACTION REQUIRED' ENCOUNTERS IDENTIFIED: ",SDFCT(SDIV)
  • Line Location: STAT+2
Function Call: WRITE
  • Prompt: !!?(132-$L(SDX)\2),SDX,!
  • Line Location: ST1+0
Function Call: WRITE
  • Prompt: !!?35,"Clinic:"
  • Line Location: ST1+1
Function Call: WRITE
  • Prompt: !?35,SDCLN,?89,$J(^TMP("SCRPW",$J,SDIV,1,SDCG,SDCLN),6)
  • Line Location: ST1+2
Function Call: WRITE
  • Prompt: !!?(132-$L(SDX)\2),SDX,!?35,$E(SDLINE,1,60),!
  • Line Location: ST1+3
Function Call: WRITE
  • Prompt: !?35,"Reason:"
  • Line Location: REASON+0
Function Call: WRITE
  • Prompt: !?35,$$DEF(SDI,52),?89,$J(^TMP("SCRPW",$J,SDIV,2,SDCG,SDI),6)
  • Line Location: REASON+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REASON+2
Routine Call
  • DIR
  • Line Location:
    • HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] ETAE
^DD("DD" PP2+1, HD1
^DPT - [#2] ETDIS, ETAP
^ORD(101 - [#101] CHEK+19
^SC - [#44] ETAP+2, ETAP+3, ETAP+4
^SD(409.63 - [#409.63] PP2+1
^SD(409.76 - [#409.76] VER+8, DEF+3, DEF+5
^TMP("SCRPW" DET+1, TPRT, PPRT, PP1, PP1+1, PP2, PP2+2, PP2+3, STAT+1, ST1+2
, ST1+3, REASON+1
^TMP("SCRPWVER" VER+7!, VER+8!
^VA(200 - [#200] ETDIS, ETAP+3, ETAP+4, ETAP+5, ETAE

Label References

Name Line Occurrences
$$DEF PP2+3, REASON+1
@( VER+7
ETAE ETCO
ETAP ETCO
ETCO PP1+1
ETDIS ETCO
HDR DET+1, TPRT, PP2+1, STAT+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3, REASON
, REASON+1
PP1 PPRT
PP2 PP1+1
PPRT TPRT
REASON ST1+1
ST1 STAT+1
STR CHEK+17
TPRT DET+1
VER CHEK+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HD1
DELPTR CHEK+16~, CHEK+19*
DFN CHEK+16~, CHEK+18*, PPRT*, PP1, PP1+1, PP2, PP2+2, PP2+3, ETDIS, ETAP
, ETAP+2
DIR HDR+4~
DIR(0 HDR+4*
ENCDT CHEK+16~, CHEK+19*
ENCNDT CHEK+16~, CHEK+19*
ENCPTR CHEK~, CHEK+18
ERROR VER+6~, VER+7*, VER+8
ERRSUB VER+6~
EVNTDATE CHEK+16~, CHEK+19*
EVNTHL7 CHEK+16~, CHEK+19*
HL CHEK+16~, CHEK+19
HLEID CHEK+16~, CHEK+19*
IOF HDR+5
IOSL TPRT, PP2+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3, REASON, REASON+1
IOST HDR+4, HDR+5
NODE CHEK+16~, CHEK+18*, CHEK+19
SD SEGS+3~, SEGS+5*
SD("BDT" HD1
SD("CLINIC" T2+1
SD("EDT" HD1
SD("FORMAT" DET+1, T2, T2+1, T2+2, T2+7, T2+8, ST1, ST1+3
SD("GROUP" T2+8
SD("PAGE" TPRT
SD("STOPCODE" T2+3, T2+7
>> SDAP0 ETAP*, ETAP+1
SDARY CHEK~, CHEK+17, CHEK+20, VER~, SEGS~, SEGS+5!
SDARY( CHEK+17*, CHEK+20, VER+6*, VER+8*, SEGS+5*
>> SDBDAY HD1*, HDR+6
SDC T2+1~*
>> SDCG DET+1*, TPRT, PPRT, PP1+1, PP2, PP2+2, PP2+3, STAT+1*, ST1, ST1+2
, ST1+3, REASON+1
>> SDCI PP2+1, ETCO*, ETDIS*, ETAP+3*, ETAP+4*
>> SDCL ETAP*, ETAP+2, ETAP+3, ETAP+4
>> SDCLN TPRT*, PPRT, PP1+1, PP2, PP2+2, PP2+3, ST1+2*
>> SDCLPT ETAP+2*, ETAP+3, ETAP+4
>> SDCLPTC ETAP+4*, ETAP+5
>> SDCO PP2+1, ETCO*, ETDIS*, ETAP+5*, ETAE*
>> SDCT PP2*, PP2+1, PP2+2*, PP2+3*
>> SDDIS ETDIS*
SDE1 CHEK+16~
SDE1( VER+8
>> SDEDAY HD1*, HDR+6
SDERR CHEK+16~, CHEK+19*, CHEK+20, CHEK+21, VER~, VER+8*, DEF+4~*
>> SDFCT( STAT+2
>> SDFF DET+1*, TPRT*
SDI CHEK+16~, VER+8*, STR+3~, STR+4*, PP2*, PP2+2*, PP2+3, T2+2~, T2+3*, T2+4*
, T2+5, T2+7~*, HDR+5~*, REASON*, REASON+1*
>> SDIV DET+1, TPRT, PPRT, PP1, PP1+1, PP2, PP2+2, PP2+3, STAT+1, STAT+2
, ST1+2, ST1+3, REASON+1
SDL SEGS+3~, SEGS+5*, DEF~, DEF+3, DEF+4, DEF+6
>> SDLINE HD1*, HDR+5, HDR+6, HDR+7, ST1+3
>> SDOE PP1+1*, PP2, PP2+2, PP2+3
>> SDOE0 PP1+1*, PP2+1, ETCO, ETDIS, ETAP, ETAP+2, ETAP+3, ETAP+4, ETAE
>> SDORD PPRT*, PP1+1, PP2, PP2+2, PP2+3
>> SDOUT DET+1, TPRT, PPRT, PP1+1, PP2+1, PP2+2, HDR+3, HDR+4*
>> SDPAGE HD1*, HDR+4, HDR+5, HDR+6*
>> SDPNOW HD1*, HDR+6
>> SDPT0 PP1*
>> SDPTNA PP1*, PP2+1
SDR HDR~, HDR+7
SDS SEGS+3~, SEGS+4*, SEGS+5, SEGS+6
SDSEG STR+3~, STR+4*
>> SDSN PP1*, PP2+1
SDSTR CHEK~, CHEK+17, STR~
SDSTR( CHEK+17, CHEK+20, STR+4*!
SDT DET+1, TPRT, PP2+1, HDR~, STAT+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3
, REASON, REASON+1
SDT( HDR+5
SDT(1 DET+1*, STAT+1*
>> SDTY PP2+1, ETCO*, ETDIS*, ETAP+1*, ETAP+3, ETAE*
SDV ETAE*, DEF+5~*, DEF+6
SDX CHEK+16~, VER+8*, PP2+3*, T2+1~*, T2+2~*, T2+3*, T2+4, T2+5*, T2+7~*, ST1*
, ST1+3*, DEF~, DEF+3, DEF+4, DEF+5, DEF+6
SEG CHEK+16~, CHEK+17*, CHEK+20*, VER~, VER+6, VER+7, VER+8
TAG VER+6~, VER+7*
U CHEK+18, CHEK+19, VER+8, SEGS+5, PP1, PP2+1, ETCO, ETDIS, ETAP, ETAP+1
, ETAP+2, ETAP+3, ETAP+4, ETAP+5, ETAE, T2+8, DEF+5
VAFARRY VER+6~, VER+7*
VAFSTR CHEK+16~, CHEK+20*, VER~
VALERR CHEK+16~*
>> X ETAP+1*
XMITPTR CHEK+16~*
>> Y PP2+1*, HD1*, HDR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All