Routine: QAOSERCR

Information

QAOSERCR ;HISC/DAD-ENTER EDIT REASONS FOR CLINICAL REFERRAL ;5/4/93 15:37

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOOP0+3
Function Call: READ	Formatting: !! Prompt: "Select REASON CODE: " Variable: X Timeout: DTIME Line Location: LOOP1+1
Function Call: WRITE	Prompt: !!," ANSWER WITH QA OCCURRENCE CLINICAL REFERRAL REASON CODE, OR" Line Location: HELP+3
Function Call: WRITE	Prompt: !," REASON - SHORT",!," YOU MAY ENTER A NEW QA OCCURRENCE CLINICAL REFERRAL, IF YOU WISH" Line Location: HELP+4
Function Call: WRITE	Prompt: !," DO YOU WANT THE ENTIRE QA OCCURRENCE CLINICAL REFERRAL LIST" Line Location: HASK+0
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)",! Line Location: HASK+2
Function Call: WRITE	Prompt: !!,"CHOOSE FROM:" Line Location: H0+1
Function Call: WRITE	Prompt: ! Line Location: H0+3
Function Call: WRITE	Prompt: !?1,^DD(741.4,.01,21,QA,0) Line Location: H0+4
Function Call: WRITE	Prompt: !?3,$P(^(0),"^") Line Location: H1+1
Function Call: WRITE	Prompt: " ",$P(^(2),"^") Condition for execution: $D(^(2))#2 Line Location: H1+1

FileNo	Call Tags
^QA(741.1 - [#741.1]	Classic Fileman Calls
^QA(741.4 - [#741.4]	Classic Fileman Calls