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

Package: Scheduling

Routine: SDAMOLP


Information

SDAMOLP ;ALB/CAW - Retroactive Encounter List (Print); 4/15/92 ; 03 Feb 99 4:20 PM

Source Information

Source file <SDAMOLP.m>

Entry Points

Name Comments DBIA/ICR reference
BLD ; Build info from ^TMP global
BLDQ ; -- send message that job finished or stopped
DV
SC
AD
DFN
TOTAL ;
INFO ; Encounter Date/Time and Patient
HDR ; Header
CHK ;Check to pause on screen

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SDASH,!!,"No Encounters found for selected date range."
  • Line Location: BLD+8
Function Call: WRITE
  • Prompt: !!!,"Total Encounters: ",SDCNT
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: !,"Encounter Date/Time:",?SDFST,$$FDTTM^VALM1(SDAD),?41,"Patient:",?SDSEC,$P(^DPT(SDDFN,0),U)
  • Line Location: INFO+3
Function Call: WRITE
  • Prompt: !,?7,"Date Entered:",?SDFST,$$FDTTM^VALM1($P(SDATA,U,2)),?46,"ID:",?SDSEC,VA("PID")
  • Line Location: INFO+6
Function Call: WRITE
  • Prompt: !,?3,"Close-Out Date :",?SDFST,$$FDTTM^VALM1($P(SDATA,U,5)),?44,"Type:",?SDSEC,$P(SDATA,U,4)
  • Line Location: INFO+9
Function Call: WRITE
  • Prompt: !,?13,"Clinic:",?SDFST,$S($P(SDATA,U,6)=0:"",1:$P(SDATA,U,6)),?44,"User:",?SDSEC,$P($G(^VA(200,+$P(SDATA,U,3),0),"UNKNOWN"),U)
  • Line Location: INFO+12
Function Call: WRITE
  • Prompt: @IOF,"Retroactive Encounter List",?70,"Page: "_SDPAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"Division: "_$P($G(^DG(40.8,SDDV,0)),U),?44,"Close-Out Check: ",$S(SDNPDB=1:"DATABASE UPDATE ONLY",1:"WORKLOAD CREDIT")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?4,"Stop Code: "_SDSC,?44,"Visit Selection: "_$S(SDSEL=1:"STOP CODE",1:"CLINIC")
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls