Routine: SDAMOLP

Information

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

Package	Total	Call Graph
Registration	2	PID^VADPT6 ($$FDATE,$$FDTTM,$$FTIME,PAUSE)^VALM1
Kernel	1	$$S^%ZTLOAD
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Scheduling	1	SDAMOL1

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

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	HDR+6
^DPT - [#2]	INFO+3
^TMP("SDRAL"	BLD+8, DV, SC, AD, DFN, INFO+14, HDR+5
^VA(200 - [#200]	INFO+12

Name	Field # of Occurrence
^(	DFN

Name	Field # of Occurrence
>> %	HDR+5
>> DFN	DFN*
IO	BLD+7
IOF	HDR+4
IOM	BLD+6
IOSL	CHK+1, CHK+6
IOST	HDR+3, CHK+1, CHK+6
>> SDAD	BLD+5, AD, DFN, INFO+3, INFO+14
>> SDASH	BLD+6*, BLD+8, INFO+2
>> SDATA	DFN*, INFO+6, INFO+9, INFO+12
>> SDBD	HDR+5
>> SDCNT	BLD+5, BLD+14, DFN, TOTAL+1
>> SDDFN	BLD+5, DFN, INFO+3
>> SDDV	BLD+5, DV, SC, AD, DFN, INFO+14, HDR+6
>> SDED	HDR+5
>> SDFLEN	BLD+5*
>> SDFST	BLD+5*, INFO+3, INFO+6, INFO+9, INFO+12
>> SDMORE	BLD+5, INFO+14, HDR+3, CHK+3, CHK+4, CHK+6
>> SDNPDB	HDR+6
>> SDPAGE	BLD+5, HDR+2, HDR+4
>> SDSC	BLD+5, SC, AD, DFN, INFO+14, HDR+7
>> SDSEC	BLD+5*, INFO+3, INFO+6, INFO+9, INFO+12
>> SDSEL	HDR+7
>> SDSLEN	BLD+5*
>> SDSTOP	BLD+3, BLD+5, BLD+12, BLDQ+2, DV, SC, AD, DFN, INFO+18, HDR+3 , CHK+5*
>> SDY	CHK+2*, CHK+3, CHK+5
U	INFO+3, INFO+6, INFO+9, INFO+12, HDR+6
>> VA("PID"	INFO+6
X	BLDQ+1~, BLDQ+2, BLDQ+3
>> Y	HDR+3, CHK+2
>> ZTSTOP	BLD+3, INFO+18