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

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

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
Info |  Source |  Entry Points |  Interaction Calls