Routine: SD53227P

Package	Total	Call Graph
Scheduling	2	(STREEVNT,XMITFLAG)^SCDXFU01 NOFIND^SD53227
VA Fileman	2	(,DD)^%DT FILE^DIE
Kernel	1	$$S^%ZTLOAD

Package	Total	Caller Graph
Scheduling	1	SD53P227

Entry Points

Name	Comments	DBIA/ICR reference
ADD(STR,X,Z)	; Setup file entry ; Setup either error node(1) or fix node(2) or sent node("SENT") ; STR = string of ien pointers, patient info, original date/time ; X = the new date/time or error message. ; Z = node subscript to setup data ; ERRPTR - IEN for Transmitted Outpatient Encounter error file ; (#409.75) ; XMITPTR - Pointer to Transmitted Outpatient Encounter file ; (#409.73) ; ENCPTR - Pointer to entry in Outpatient Encounter file ; (#409.68)
TIME(TIM)	; Break out hours and minutes
FIX(ENCPTR,XMITPTR,VSITPTR,NEWENDT,ERR)	; Fix #409.68 & #9000010 files
FILE(IEN,VDT,ERR)	; Update #9000010 VISIT File - .01 Visit/Admit d/t field ; input - IEN = visit internal entry number to ^AUPNVSIT(#) ; - VDT = new date and time (FM internal d/t format) ; - ERR = check for Filing OK ; output - ERR = 0 = Filing complete ; 1 = Filing error
DATE(DAT)	; Validate FileMan date only
CKTIME(SDDT,NEWENDT,ERR)	; check and validate new date/time ; we are dropping all seconds before trying to validate hour/min
CKDATE(SDDT,ERR)	; Check Encounter and Visit Date
FIND	; Search file for error pointer (ie...30 = 421)

External References

Name	Field # of Occurrence
^%DT	DATE+2, CKTIME+7, CKTIME+12
DD^%DT	CKTIME+7, CKTIME+12
$$S^%ZTLOAD	FIND+10
FILE^DIE	FIX+24, FILE+13
STREEVNT^SCDXFU01	FIX+37
XMITFLAG^SCDXFU01	FIX+38
NOFIND^SD53227	FIND+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	FIND+51, FILE+8, FILE+10, FILE+14
^DPT - [#2]	FIND+29
^SC - [#44]	FIND+30
^SCE - [#409.68]	FIND+24, FIX+18, FIX+27, FIX+34, FIX+40
^SD(409.73 - [#409.73]	FIND+16, FIND+17
^SD(409.75 - [#409.75]	FIND+9, FIND+11, FIND+15
^SD(409.76 - [#409.76]	FIND+4

Label References

Name	Line Occurrences
$$DATE	CKDATE+3
$$TIME	CKTIME+10
ADD	FIND+38, FIND+42, FIND+45, FIND+57, FIND+63, FIX+20, FIX+26, FIX+33, FIX+42
CKDATE	FIND+36
CKTIME	FIND+40
FILE	FIX+31
FIX	FIND+61

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, DATE+2, CKTIME+2~, CKTIME+7, CKTIME+12*
CKDATE	CKDATE+1~, CKDATE+2*, CKDATE+3
CKTIME	CKTIME+2~, CKTIME+3, CKTIME+4, CKTIME+6, CKTIME+9*, CKTIME+10
CODE421	FIND+1~, FIND+4*, FIND+5, FIND+13
DAT	DATE~, DATE+2
DATE	DATE+1~, DATE+2*
ENCPTR	FIND+1~, FIND+19*, FIND+21, FIND+24, FIND+61, ADD+11, FIX~, FIX+15, FIX+18, FIX+27 , FIX+34, FIX+40
ERR	FIX~, CKDATE~, CKDATE+2, CKDATE+3, CKTIME~, CKTIME+3, CKTIME+13, FILE~, FILE+7, FILE+8 , FILE+9, FILE+10, FILE+15*
ERRNODE	FIND+1~, FIND+11*, FIND+12
ERRPTR	FIND+1~, FIND+3, FIND+9, FIND+11, FIND+15, FIND+21, ADD+11
>> EXIT	FIND+3, FIND+7, FIND+9, FIND+10*
>> FIX	FIND+61, FIX+12
HR	TIME+1~, TIME+2, TIME+3, TIME+6
IEN	FILE~, FILE+8, FILE+10, FILE+11, FILE+14
IENS	FIX+14~, FIX+15, FIX+16, FILE+6~, FILE+11, FILE+12
MIN	TIME+1~, TIME+2, TIME+3, TIME+4*, TIME+6
NEWENDT	FIND+1~, FIND+35, FIND+40, FIND+44, FIND+61, FIND+63, FIX~, FIX+16, FIX+31, FIX+42 , CKTIME~, CKTIME+3, CKTIME+11, CKTIME+12, CKTIME+14
NEWTIME	CKTIME+2~, CKTIME+3, CKTIME+10, CKTIME+11
OK	FIND+1~, FIND+35, FIND+36, FIND+37, FIND+40, FIND+41, FIND+61, FIND+62, FIX+21
OK1	FIND+1~, FIND+35, FIND+47, FIND+56, FIND+60
OK2	FIND+1~, FIND+35, FIND+53, FIND+56, FIND+60
SCEDATE	FIND+1~, FIND+27*, FIND+31, FIND+36, FIND+40, FIND+44, FIND+53
SCEDFN	FIND+1~, FIND+27*, FIND+29, FIND+31
SCENODE	FIND+1~, FIND+24*, FIND+25, FIND+27, FIND+30
SCERR	FIX+14~, FIX+25, FIX+30*, FIX+31, FIX+32
SCFDA	FIX+14~
SCFDA(	FIX+16*
SDCLN	FIND+2~, FIND+30*, FIND+31
SDDT	FIND+1~, CKDATE~, CKDATE+2, CKTIME~, CKTIME+3, CKTIME+6, CKTIME+11
SDERR	FILE+6~, FILE+15
SDFDA	FILE+6~
SDFDA(9000010	FILE+12*
SDPNAM	FIND+1~, FIND+29*, FIND+31
SDSSN	FIND+2~, FIND+29*, FIND+31
>> SDTEMP	FIND+8, FIND+21, FIND+65*, ADD+11, ADD+12
SEC	TIME+1~, TIME+2, TIME+3, TIME+5*, TIME+6
STR	ADD~, ADD+11
STRING	FIND+2~, FIND+31*, FIND+38, FIND+42, FIND+45, FIND+57, FIND+63, FIX+20, FIX+26, FIX+33 , FIX+42
TIM	TIME~, TIME+2
TIME	TIME+1~, TIME+6*, TIME+7, TIME+9
TOTALS	FIND+2~, FIND+3, FIND+8, FIND+32, FIND+65, ADD+13
U	FIND+8, FIND+12, FIND+19, FIND+27, FIND+29, FIND+30, FIND+31, FIND+32, FIND+57, FIND+65 , ADD+11, ADD+13
VDT	FILE~, FILE+9, FILE+12
VSITDATE	FIND+2~, FIND+51*, FIND+53, FIND+57
VSITPTR	FIND+2~, FIND+27*, FIND+31, FIND+51, FIND+61, FIX~, FIX+31
X	FIND+2~, FIND+12, FIND+13, ADD~, ADD+11, DATE+1~, DATE+2, CKTIME+2~, CKTIME+7, CKTIME+12 , FILE+6~
XMITNODE	FIND+2~, FIND+17*, FIND+19
XMITPTR	FIND+2~, FIND+15*, FIND+16, FIND+17, FIND+21, FIND+61, ADD+11, FIX~, FIX+37, FIX+38
Y	FIND+2~, DATE+1~, DATE+3, CKTIME+2~, CKTIME+6, CKTIME+7, CKTIME+8, CKTIME+12, CKTIME+13, CKTIME+14 , FILE+6~
Z	FIND+2~, ADD~, ADD+11, ADD+12, ADD+13

Customize PDF page

Package: Scheduling

Routine: SD53227P

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: