Routine: APSSSPRO

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	2	^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
TASK	;
SETUP(FAC,APSS)	;EP - Build configuration array
GETDEV(PDIV,DEF)	;EP-
EP1(RXIEN,REPRINT,SGY,RXF,RXPI)	;PEP - Main entry point
SIG()	;
DRUGOK(DRUGIEN)	;EP
GETP(VAL,P)	;EP
GETPRI(LOCIEN)	;EP
PROCARY(CIEN,FLDS,RET)	;
ADD(VAL)	;
INIT	;EP - Build data for prescription
LOG(REC,SGY)	;
HASDRUG(DRUG)	; EP
SETRM(X)	;
ASK(PRMPT)	;EP - Prompt user for transmission to ScriptPro
EPTASK	;EP - Tasked entry point
CHKDRUG(RXIEN)	; PEP - Logic called from field 800 in APSP Control file
DATA(CMDIEN,TAGIEN,RXIENS)	;
BLDFARY(ARY,CIEN)	;

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+15
$$FIND1^DIC	EPTASK+8
$$GET1^DIQ	DATA+10
^DIR	ASK+6
$$DT^XLFDT	LOG+4
$$FMADD^XLFDT	LOG+4, DRUGOK+6
$$FMTE^XLFDT	DATA+17
$$NOW^XLFDT	LOG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$PROCARY(APSSCMD,.APSSFARY,.APSSREC) Line Location: EPTASK+13
Routine Call	DIC Line Location: EPTASK+8
Routine Call	DIR Line Location: ASK+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APSSCOMD - [#9009033.3]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	SETRM+1
^APSSCOMD - [#9009033.3]	BLDFARY+3, BLDFARY+4, PROCARY+4, DATA+2, DATA+13
^APSSDRUG - [#9009033.2]	DRUGOK+3, HASDRUG+2
^APSSPARM - [#9009033.1]	EP1+4, SETUP+3, GETPRI+2, GETDEV+2, GETDEV+4
^PSRX - [#52]	INIT+1, INIT+2, INIT+3, INIT+4, INIT+8
^XTMP("APSSSPRO"	LOG+3, LOG+4, LOG+5, LOG+6*, LOG+7

Label References

Name	Line Occurrences
$$ASK	TASK+1
$$DATA	PROCARY+5
$$DRUGOK	EPTASK+4, CHKDRUG+4
$$GETDEV	SETUP+6
$$GETP	EPTASK+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, DRUGOK+4, DRUGOK+5, DRUGOK+6 , DRUGOK+7, CHKDRUG+4, GETPRI+2
$$PROCARY	EPTASK+13
$$SETUP	EP1+5, EPTASK+1, CHKDRUG+2
ADD	PROCARY+2, PROCARY+5, PROCARY+6
BLDFARY	EPTASK+10
INIT	EPTASK+2, CHKDRUG+3
LOG	EPTASK+14
SETRM	EPTASK+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSS	EP1+1~, EP1+5, EPTASK+1, SETUP~, CHKDRUG+1~, CHKDRUG+2
APSS("ASK"	TASK+1, SETUP+9*
APSS("CHKDRG"	SETUP+8*, DRUGOK+1
APSS("DEV"	TASK+2, TASK+13, SETUP+6*
APSS("LOG"	EPTASK+14, SETUP+10*
APSS("PARM"	SETUP+3*
APSS("PFL"	SETUP+2*
APSS("SIG"	SIG+1, SIG+4, SIG+5*, SIG+6
APSS("SIGLINE"	SETUP+7*
>> APSSCMD	EPTASK+8*, EPTASK+9, EPTASK+10, EPTASK+13
>> APSSFARY	EPTASK+10, EPTASK+13
APSSNOW	LOG+1~, LOG+2*, LOG+5, LOG+6
>> APSSREC	EPTASK+7*, EPTASK+13, EPTASK+14
ARY	BLDFARY~
ARY(	BLDFARY+5*
CIEN	BLDFARY~, BLDFARY+3, BLDFARY+4, PROCARY~, PROCARY+4, PROCARY+5
CMDIEN	DATA~, DATA+2, DATA+13
CNT	SETUP+1~
DAT	SETUP+1~, SETUP+17, GETDEV+4*, GETDEV+5
DEF	GETDEV~, GETDEV+3, GETDEV+5
DEVLP	EP1+2~, SETUP+1~
DIR	ASK+1~
DIR("A"	ASK+3*
DIR("B"	ASK+4*
DIR(0	ASK+5*
DRUG	HASDRUG~, HASDRUG+1, HASDRUG+2
DRUGIEN	DRUGOK~, DRUGOK+3
DT	LOG+4, DRUGOK+6
DTOUT	ASK+1~, ASK+7
DUOUT	ASK+1~, ASK+7
DUZ(2	EP1+4, EP1+5, EPTASK+1, CHKDRUG+2, GETPRI+2
FAC	SETUP~, SETUP+3, GETDEV+2, GETDEV+4
FILE	DATA+1~, DATA+3*, DATA+9, DATA+10
FLD	DATA+1~, DATA+4*, DATA+9, DATA+10
FLDS	PROCARY~
FLDS(	PROCARY+3, PROCARY+4, PROCARY+5
>> FMT	DATA+5*, DATA+7, DATA+10, DATA+12, DATA+15, DATA+16
>> FMTD	DATA+16*, DATA+17, DATA+18
IEN	BLDFARY+1~, BLDFARY+2, BLDFARY+3, BLDFARY+4, BLDFARY+5
IO	TASK+1, EPTASK+13
IOST	ASK+2
LOCIEN	GETPRI~, GETPRI+1, GETPRI+2
LP	PROCARY+1~, PROCARY+3, PROCARY+4, PROCARY+5, LOG+1~, LOG+6
>> N	SIG+2, SIG+3, SIG+4, SIG+5
P	GETP~, GETP+1
PARAM	SETUP+1~, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, DRUGOK+2~ , DRUGOK+3, DRUGOK+4, DRUGOK+5, DRUGOK+6, DRUGOK+7
>> PARIEN	INIT+5*, INIT+8, INIT+9
PDIEN	GETDEV+1~, GETDEV+2*, GETDEV+3, GETDEV+4
PDIV	GETDEV~, GETDEV+2
PRMPT	ASK~, ASK+3
>> PSOSITE	SETUP+6
QTY	EP1+1~, INIT+8*, DRUGOK+7, CHKDRUG+1~
REC	LOG~, LOG+5
REFIEN	EP1+1~, INIT+7*, INIT+8, INIT+9, CHKDRUG+1~
REPRINT	EP1~
RET	PROCARY~, PROCARY+7, ADD+1*
RX0	EP1+1~, EPTASK+4, INIT+1*, INIT+8, CHKDRUG+1~, CHKDRUG+4
RX2	EP1+1~, INIT+2*, CHKDRUG+1~
RX3	EP1+1~, INIT+3*, CHKDRUG+1~
RXF	EP1~, INIT+7
RXIEN	EP1~, EP1+3, TASK+11, INIT+1, INIT+2, INIT+3, INIT+4, INIT+8, INIT+9, LOG+5 , LOG+6, CHKDRUG~
RXIENS	PROCARY+5, DATA~, DATA+6, DATA+7, DATA+10, INIT+9
RXPI	EP1~, INIT+5
RXSTAT	EP1+1~, INIT+4*, CHKDRUG+1~
SEQ	BLDFARY+1~, BLDFARY+4*, BLDFARY+5
SGY	EP1~, EPTASK+14, LOG~
SGY(	LOG+6, SIG+3, SIG+4, SIG+5
TAG0	DATA+1~, DATA+2*, DATA+3, DATA+4, DATA+5
TAGIEN	DATA~, DATA+2, DATA+13
U	BLDFARY+4, PROCARY+4, DATA+3, DATA+4, DATA+5, SETUP+17, INIT+8, LOG+4, GETP+1, GETDEV+5
VAL	DATA+8, DATA+10, DATA+17, DATA+18, DATA+19, ADD~, ADD+1, GETP~, GETP+1
VAR	TASK+6~, TASK+14*
VNM	PROCARY+1~, PROCARY+4*, PROCARY+5
X	SETRM~
>> Y	ASK+8
ZTDESC	TASK+6~, TASK+11*
>> ZTDTH	TASK+12*
ZTIO	TASK+6~, TASK+13*
ZTREQ	TASK+6~
ZTRTN	TASK+6~, TASK+10*
ZTSAVE	TASK+6~
ZTSAVE(	TASK+14*
ZTSK	TASK+6~, ASK+2

Customize PDF page

Package: Scriptpro Interface

Routine: APSSSPRO

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: