Routine: PSODACT

Name	Comments	DBIA/ICR reference
SET	;This code is not being executed at this time.
NARATV
ENSTUFF	;Enter here from PSOSD Action Profile	ICR #1998 Status: Active Usage: Controlled Subscription
MOVE
ENSAVE	;Enter here from PSOSD0 to store info about each DUE RX
QOUT	;Enter here from ^PSODUE to print questions for Questionaire
LOOP
PRINT	;prints DUE Questionnaire
NEW	;laygo into the DUE Answer file
STORE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,@$S($G(PSORM)=0:"?25",1:"?52"),"*** Due Answer Sheet ***" Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"SEQ. Number: _______________",?($X+3),"Questionnaire: "_$P(^PS(50.073,PSOQ,0),"^"),@$S($G(PSORM)=0:"!",1:"?$X+3"),"Drug: "_$P(^PSDRUG(PSOQDRG,0),"^"),@$S($G(PSORM)=0:"?45",1:"?109"),"Rx #: "_$P(^PSRX(RXN,0),"^") Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"Rx Provider: ",$E(PSOQPHYS,1,20) Line Location: PRINT+4
Function Call: WRITE	Prompt: ?($X+3),"Patient: ",$P(^DPT(PSOQDFN,0),"^"),@$S($G(PSORM)=0:"!",1:"?$X+3"),?($X+3),"Section: ______________" Line Location: PRINT+6
Function Call: WRITE	Prompt: @$S($G(PSORM)=0:"?$X+3",1:"?109"),"Date: " Line Location: PRINT+7
Function Call: WRITE	Prompt: !,PSOQL Line Location: QOUT+1
Function Call: WRITE	Prompt: !?($L(PSQNUM)+2),"Answer: ",! Line Location: QOUT+5
Function Call: WRITE	Prompt: @IOF Line Location: QOUT+5

FileNo	Call Tags
^PS(50.0731 - [#50.0731]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+6
^PS(50.073 - [#50.073]	ENSAVE+3, ENSAVE+4, MOVE+1, MOVE+2*, PRINT+2, QOUT+2, QOUT+4, NARATV
^PS(50.0731 - [#50.0731]	SET+2, SET+3, MOVE+1, MOVE+2, NEW+1, NEW+2, LOOP, LOOP+3
^PS(50.0732 - [#50.0732]	MOVE+1*, QOUT+5
^PSDRUG - [#50]	PRINT+2
^PSRX - [#52]	PRINT+2, PRINT+3
^TMP("PSOD"	STORE, STORE+1, ENSTUFF+3, ENSTUFF+4, ENSTUFF+5!, SET+3, PRINT+5
^UTILITY($J	NARATV!
^VA(200 - [#200]	PRINT+3

Name	Field # of Occurrence
^(	MOVE+1, QOUT+4, NARATV
^(0	ENSAVE+4, MOVE+1

Name	Field # of Occurrence
DA	MOVE+3*!
DD	LOOP+1!
DFN	ENSTUFF+6!
DIC	LOOP+1!*, LOOP+2!
DIC("DR"	LOOP+1*
DIC(0	LOOP+1*
DIK	MOVE+3*!
DINUM	LOOP+1*, LOOP+2!
DIV	ENSAVE+4*, ENSAVE+5!
DIWF	QOUT+2!, NARATV*
DIWL	QOUT+2!, NARATV*
DIWR	QOUT+2!, NARATV*
DLAYGO	LOOP+1*, LOOP+2!
DO	LOOP+1!
DT	PRINT+8
FLAG	ENSTUFF+6!, MOVE, MOVE+1, MOVE+2
I	ENSTUFF+2~, ENSTUFF+6!, MOVE+1*
IOF	ENSTUFF+5, PRINT+1, QOUT+5
IOM	QOUT+1, QOUT+6, NARATV
IOSL	QOUT+5
PIECE	ENSTUFF+6!, SET+3*
PSA	ENSTUFF+6!, SET+1*, SET+2, SET+3, MOVE+1, MOVE+2, MOVE+3
PSIGN	ENSTUFF+6!, QOUT+3, QOUT+4, QOUT+6
PSMARG	ENSTUFF+7!
>> PSONOPG	ENSTUFF+5
PSOQ	ENSAVE+3, ENSAVE+4, ENSAVE+5!, STORE, STORE+1, ENSTUFF+4, ENSTUFF+6!, SET+2, SET+3, MOVE+1 , MOVE+2, PRINT+2, PRINT+5, QOUT+2, QOUT+4, NARATV
PSOQDFN	ENSAVE+2, ENSAVE+5!, STORE+1, ENSTUFF+7!, PRINT+5, PRINT+6
PSOQDRG	ENSAVE+2, ENSAVE+3, ENSAVE+5!, STORE, STORE+1, ENSTUFF+4, ENSTUFF+6!, SET+2, SET+3, PRINT+2 , PRINT+5
PSOQL	ENSTUFF+6!, QOUT+1!*
PSOQM	ENSTUFF+7!, QOUT+4*, QOUT+5
PSOQN	ENSTUFF+7!, QOUT+4, NARATV
PSOQNUM	ENSTUFF+7!
PSOQPHYS	ENSTUFF+6!, PRINT+3*, PRINT+4
PSOQSSN	ENSTUFF+7!
>> PSORM	PRINT+1, PRINT+2, PRINT+6, PRINT+7, QOUT+1, NARATV
>> PSOSITE	ENSAVE+4
PSQ	ENSTUFF+7!, QOUT+5*
PSQNUM	ENSTUFF+7!, QOUT+5*
PSTXT	ENSTUFF+7!
PSWRAP	ENSTUFF+7!
RXN	STORE, STORE+1, ENSTUFF+2~, ENSTUFF+4*, SET+2, SET+3, PRINT+2, PRINT+3, PRINT+5
>> RXNODE	ENSAVE+2, ENSAVE+3, STORE
SSN	ENSTUFF+6!
>> X	NEW+2, LOOP, LOOP+1, NARATV*
>> Y	SET+1, LOOP+4, PRINT+8*

Information