Routine: QAOSSFR1

Information

QAOSSFR1 ;HISC/DAD-OCCURRENCE SCREEN / MONITORING SYSTEM AUTO ENROLL SPECIAL FUNCTIONS ROUTINE ;11/8/93 09:54

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	2	^%ZISC ^%ZTLOAD
Occurrence Screen	2	^QAOSPCL0 ^QAOSPCL1
Quality Assurance Integration	1	EN6^QAQAUTL
VA FileMan	1	^%DT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Occurrence Screen	1	QAOSSFR0

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; QUEUE PRINTING OF REPORTS
QPRINT(ZTIO,DIVISION)	; OUTPUT DEVICE , DIVISION (* = ALL)
ENTSK	; TASKED ENTRY POINT FOR PRINT
DONE	;
HEAD	;

External References

Name	Field # of Occurrence
^%DT	ENTSK+3
^%ZISC	DONE+11
^%ZTLOAD	QPRINT+12
^QAOSPCL0	DONE+7
^QAOSPCL1	DONE+7
EN6^QAQAUTL	HEAD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No patients found meeting this screen." Line Location: ENTSK+8
Function Call: WRITE	Prompt: !!,QAOSPAT,?34,$P(X,"^") Line Location: ENTSK+17
Function Call: WRITE	Prompt: ?49,$S($D(^SC(+$P(X,"^",2),0))#2:$P(^(0),"^"),1:$P(X,"^",2)) Line Location: ENTSK+18
Function Call: WRITE	Prompt: !?3,$P(X,"^",3) Line Location: ENTSK+19
Function Call: WRITE	Prompt: ?37,Y Line Location: ENTSK+19
Function Call: WRITE	Prompt: !!,"Number of occurrences: ",QAOCOUNT,!,@IOF Line Location: DONE+1
Function Call: WRITE	Prompt: !!?20,"AUTO ENROLLED OCCURRENCE SCREEN PATIENTS",?65,QAOTODAY,!?26,"OCCURRENCE DATE: ",QAOSOCDT,?65,"PAGE: ",QAOSPAGE Line Location: HEAD+2
Function Call: WRITE	Prompt: !?80-$L(X)/2,X Line Location: HEAD+4
Function Call: WRITE	Prompt: !," (* Denotes that this occurrence has already been entered into the system)" Line Location: HEAD+6
Function Call: WRITE	Prompt: !!,"Patient Name",?34,"SSN",?49,"Ward/Clinic",!?3,"Admitting Diagnosis",?37,"Previous Movement",!,QAOSUNDL Line Location: HEAD+7
Function Call: WRITE	Prompt: !!?5,"Screen: ",QAOSSCRN," ",QAOSSCRN(0),! Line Location: HEAD+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENTSK+3, ENTSK+5, ENTSK+19
^DG(40.8 - [#40.8]	ENTSK+12, HEAD+3
^QA(740 - [#740]	PRINT+3, PRINT+4, DONE+2
^QA(741.1 - [#741.1]	ENTSK+4
^SC - [#44]	ENTSK+18
^TMP("QAO"	PRINT+7!, PRINT+8!, PRINT+10, ENTSK+6, ENTSK+11, ENTSK+14, ENTSK+15, ENTSK+16, DONE+2, DONE+4 , DONE+6, DONE+7, DONE+14!

Label References

Name	Line Occurrences
DONE	ENTSK+6
HEAD	ENTSK+7, ENTSK+13, ENTSK+16
QPRINT	PRINT+6, PRINT+11, PRINT+14

Naked Globals

Name	Field # of Occurrence
^(0	ENTSK+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ENTSK+3*, DONE+12!
DIVISION	QPRINT~, QPRINT+2, QPRINT+3, QPRINT+8, QPRINT+9
IO	ENTSK+1
IOF	DONE+1, HEAD+1
IONOFF	DONE+11*, DONE+12!
IOSL	ENTSK+16
IOST	HEAD+1
QAMTODAY	ENTSK+5, DONE+12!
QAOCOUNT	ENTSK+2, ENTSK+20, DONE+1, DONE+12!
>> QAOS740	PRINT+1, PRINT+2
QAOSD0	ENTSK+15, ENTSK+16, DONE+7, DONE+12!
QAOSDATA	DONE+3*, DONE+12!
>> QAOSDFLT	PRINT+1*, PRINT+5, PRINT+11, PRINT+14
>> QAOSDIVN	PRINT+3*, PRINT+4, PRINT+6, PRINT+7, PRINT+8, HEAD+3
>> QAOSDVN	ENTSK+10, ENTSK+11, ENTSK+12, ENTSK+14, ENTSK+15, ENTSK+16, DONE+3, DONE+4, DONE+6, DONE+7
>> QAOSDVN(0	ENTSK+12*, HEAD+3
>> QAOSHOW	DONE+3*
QAOSOCDT	ENTSK+5*, DONE+12!, HEAD+2
QAOSPAGE	ENTSK+2, DONE+12!, HEAD+1, HEAD+2, HEAD+5
QAOSPAT	ENTSK+13, ENTSK+14, ENTSK+15, ENTSK+16, ENTSK+17, DONE+5, DONE+6, DONE+7, DONE+12!
QAOSQUIT	DONE+3*, DONE+13!
QAOSSCRN	ENTSK+4, DONE+13!, HEAD+8
QAOSSCRN(0	ENTSK+4*, HEAD+8
QAOSUNDL	ENTSK+2!*, DONE+13!, HEAD+7
QAOTODAY	ENTSK+3*, DONE+13!, HEAD+2
X	ENTSK+3, ENTSK+16, ENTSK+17, ENTSK+18, ENTSK+19, DONE+13!, HEAD+3, HEAD+4
Y	ENTSK+3, ENTSK+5, ENTSK+19, DONE+13!
>> ZTDESC	QPRINT+11*
ZTDTH	QPRINT+1*, DONE+13!
ZTIO	PRINT+4, PRINT+5, PRINT+6, QPRINT~, QPRINT+1, DONE+13!
>> ZTQUEUED	DONE+15
>> ZTREQ	DONE+15*
ZTRTN	QPRINT+1*, DONE+13!
ZTSAVE	DONE+13!
ZTSAVE("QAMTODAY"	QPRINT+2*
ZTSAVE("QAOSDIVN"	QPRINT+2*
ZTSAVE("QAOSSCRN"	QPRINT+2*
ZTSAVE("^TMP(""QAO"",$J,""RPT"","	QPRINT+4, QPRINT+8
ZTSAVE("^TMP(""QAO"",$J,""WKS"","	QPRINT+5, QPRINT+9
ZTSK	DONE+13!

Customize PDF page

Package: Occurrence Screen