Routine: APSQSIGN

Information

APSQSIGN ;IHS/OKCAO/POC - RTN PRINTS SIGNATURE LABEL;19-Jan-2011 08:35;SM

Source Information

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS Changes To Pharmacy	1	(EN,PAT)^APSPNUM
IHS Patient	1	($$DOB,$$HRN,$$MCD,$$MCR,$$PI)^AUPNPAT
Outpatient Pharmacy	1	^PSOLSET
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPLBL

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;HEADER INFO
EOJ	;
PARM	;EP
TWO
DEV	;
UTIL	;WHAT COMES IS FOR HELP AND INPUT TRANSFORM OF NEW FIELD IN APSP CONTROL FILE NOT DONE YET****
ENL(PPL,QUIT,SKIP,WHICH,PRT,SITE,NOQ)	; EP for use when site is printing on laser labels
SIG	;
EN(APSQSTG,QUIT,SKIP,WHICH)	;EP
PARMSET(SITE)	;EP
BEGIN	;
EPAGN	;
ONE	;
EN1	;EP
EN2	;
EXPL	;THIS IS THE EXPLANATION
EMSG	;
SKIP	;LINE FEED THE NUMBER OF LABELS INDICATED IN LINESKIP
REST
DEV1
FOOT	;
EDIT	;THIS IS THE EDIT
LIST
ENLT	; Tasked entry point

External References

Name	Field # of Occurrence
^%ZIS	DEV1, DEV+4
^%ZISC	DEV+6, EN2+6
^%ZTLOAD	ENL+14, DEV+13
EN^APSPNUM	EPAGN+8
PAT^APSPNUM	EPAGN+3
$$DOB^AUPNPAT	HDR+10
$$HRN^AUPNPAT	HDR+4, HDR+5, HDR+8
$$MCD^AUPNPAT	BEGIN+4
$$MCR^AUPNPAT	BEGIN+5
$$PI^AUPNPAT	BEGIN+6
$$GET1^DIQ	PARMSET+1, PARMSET+3, PARMSET+4, PARMSET+5, PARMSET+6, PARMSET+7, PARMSET+8
^PSOLSET	PARM+1
$$FMTE^XLFDT	HDR+9, HDR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?LINESP,LASTPCE Line Location: REST+12
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?LINESP,NAMHRN Line Location: HDR+11
Function Call: WRITE	Prompt: !,?LINESP,DATE," DOB:",DOB Line Location: HDR+12
Function Call: WRITE	Prompt: !,?LINESP,"SIGNATURE:" Line Location: SIG+1
Function Call: WRITE	Prompt: ! Line Location: FOOT+1
Function Call: WRITE	Prompt: ! Line Location: FOOT+2
Function Call: WRITE	Prompt: ! Line Location: SKIP+5
Function Call: WRITE	Prompt: !!,"Sorry, you cannot queue to your screen or to a slave printer.",! Line Location: DEV+6
Function Call: WRITE	Prompt: !,"No Rx's found for this date....!" Line Location: EMSG+1
Function Call: WRITE	Prompt: !,"THE ENTRY IN THIS FIELD DETERMINES WHETHER A SIGNATURE LABEL IS PRINTED." Line Location: EXPL+1
Function Call: WRITE	Prompt: !,"A COMBINATION OF CODES CAN BE USED EXCEPT FOR 'A' OR 'N'." Line Location: EXPL+2
Function Call: WRITE	Prompt: ! Line Location: EXPL+3
Function Call: WRITE	Prompt: !,VAR Line Location: EXPL+5
Function Call: WRITE	Prompt: "GOT TO BE 1 TO 3 CHARACTERS" Line Location: EDIT+2
Function Call: WRITE	Prompt: " "_X Line Location: EDIT+6
Routine Call	%ZIS Line Location: DEV1 DEV+4

FileNo	Call Tags
^APSPCTRL - [#9009033]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HDR+3
^PSRX - [#52]	ENLT+8, ONE+6

Label References

Name	Line Occurrences
@(	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6
BEGIN	ENLT+18, EN+17, EN2+5
DEV	EPAGN+11, DEV+6
EMSG	EPAGN+9
ENLT	ENL+7
EOJ	EPAGN+9, DEV+5, DEV+8, EN2+1, EN2+7
EPAGN	EPAGN+10
FOOT	REST+9, REST+14
HDR	REST+2, REST+9
PARM	EN+17, EPAGN+1
PARMSET	ENLT+17, PARM+2, EN2+2
REST	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6
SIG	REST+9, REST+13
SKIP	REST+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
>> %ZIS("A"	DEV+3*
>> %ZIS("B"	DEV+4*
APSPBDT	EN1+5~
>> APSPEDT	EPAGN+2*
APSPFLG	EPAGN+2!
APSPID	EPAGN+7*, EOJ+1!
>> APSPQFLG	EPAGN+2*, EPAGN+3
APSPZDT	EN1+5~
APSPZZN	EN1+4~
>> APSQSGLB	DEV+4
APSQSTG	ENLT+14~, EN~, ONE+3, ONE+5, REST+1, REST+4, EN1+5~, EN2+4*
APSQSTG(	ENLT+16*, ONE+2, ONE+3, TWO+1, TWO+2
ARRAY	EPAGN+2!
D	ENLT+4~, EN+13~, HDR+2*, EN1+7~
DATE	ENLT+5~, HDR+9*, HDR+12
DFN	ENLT+2~, ENLT+9, ENLT+10, ENLT+13, ENLT+15, ENLT+16, BEGIN+4, BEGIN+5, BEGIN+6, HDR+3 , HDR+4, HDR+5, HDR+8, HDR+10
DOB	ENLT+5~, HDR+10*, HDR+12
DT	BEGIN+4, BEGIN+5, BEGIN+6, HDR+9
DUZ(2	HDR+4, HDR+5, HDR+8
>> G	DEV+11*
>> HRN	HDR+4*
I	ENLT+3~, EN+13~, ONE+5, REST+4, SKIP+3, SKIP+5, EN1+6~, EXPL+5*
IO	DEV1, BEGIN+2, REST, DEV+6
IO("Q"	DEV+6!, DEV+8
IO(0	DEV+6
ION	DEV+10
>> IOP	DEV1*
J	ENLT+3~, EN+13~, EN1+6~
K	ENLT+3~, EN+13~, FOOT+2*, EN1+6~
L	ENLT+3~, EN+13~, FOOT+1*, EN1+6~
LASTPCE	ENLT+3~, EN+13~, REST+3, REST+5, REST+6, REST+7, REST+11*, REST+12, EN1+6~
LINE	ENLT+3~, EN+13~, REST+8, REST+9, REST+12, HDR+1, HDR+11, HDR+12, SIG+1, FOOT+1 , EN1+6~
LINEBEG	ENLT+3~, EN+13~, PARMSET+3*, HDR+2, SKIP+4, EN1+6~
LINEEND	ENLT+3~, EN+13~, PARMSET+4*, FOOT+2, SKIP+4, EN1+6~
LINELEN	ENLT+4~, EN+13~, PARMSET+7*, REST+5, HDR+6, HDR+7, EN1+7~
LINEMAX	ENLT+4~, EN+13~, PARMSET+5*, REST+9, FOOT+1, SKIP+4, EN1+7~
>> LINESKIP	PARMSET+8, PARMSET+9, SKIP+3
LINESP	ENLT+4~, EN+13~, PARMSET+6*, REST+6, REST+12, HDR+11, HDR+12, SIG+1, EN1+7~
LP	ENLT+2~, ENLT+6, ENLT+14~, ENLT+15, ENLT+16
NAMDAT	ENLT+3~, EN+13~, EN1+6~
NAME	ENLT+3~, EN+13~, HDR+3, HDR+5, HDR+7, HDR+8, EN1+6~
>> NAMHRN	HDR+5, HDR+6, HDR+7, HDR+8, HDR+11
NOQ	ENL~, ENL+5*, ENL+6
NUM	ENLT+4~, EN+13~, SKIP+4*, SKIP+5, EN1+7~
>> POP	DEV1, DEV+5
PPL	ENL~, ENLT+6
PRT	ENL~, ENL+3*, ENL+4, ENL+6, ENL+12
>> PSODFN	EPAGN+4
PSOFROM	ENLT+2~, EN+15
>> PSOLAP	ENL+6, DEV1, DEV+4
PSOLIST	EN1+7~, EN2+4
PSOLIST(1	EN2+1
>> PSONUM	EPAGN+8*
>> PSOOPT	EPAGN+8*
>> PSOPAR	PARM+1
PSORX	EN1+5~
PSORX("QFLG"	EPAGN+3
PSOSD	EN1+5~
>> PSOSITE	PARM+2, EN2+2
PTYPE	ENL+1~, ENL+3*
QUIT	ENL~, EN~, EN+14, EN+16, EN+17, EN2+4
RX	ENLT+2~, ENLT+4~, ENLT+6, ENLT+8, EN+13~, ONE+5, ONE+6, EN1+5~, EN1+7~
RX0	ENLT+2~, ENLT+8*, ENLT+9
RXN	ENLT+2~, ENLT+4~, ENLT+9, ENLT+10, ENLT+14~, ENLT+15, ENLT+16, EN+13~, EN1+5~
RXSTING	ENLT+4~, EN+13~, ONE+4, ONE+6, ONE+7, EN1+5~
RXSTNG	ENLT+4~, EN+13~, ONE+1, ONE+7, TWO, TWO+2, REST+1, EN1+7~
RXSTRING	EN1+5~
SITE	ENL~, ENLT+17, PARMSET~, PARMSET+1, PARMSET+3, PARMSET+4, PARMSET+5, PARMSET+6, PARMSET+7, PARMSET+8
SITEPAR	ENLT+4~, EN+13~, PARMSET+1, PARMSET+2, BEGIN+1, BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, EN1+7~ , EN2+3*
SKIP	ENL~, EN~, EN+13~, PARMSET+10, SKIP+2, EN1+5~, EN2+4
THISPCE	ENLT+3~, EN+13~, REST+4*, REST+5, REST+7, REST+11, EN1+6~
TMP	ENLT+2~, ENLT+11
TMP(	ENLT+10*, ENLT+13, ENLT+15
U	ENL+3, ENLT+9, ENLT+16, DEV+4
VAR	ENL+2~, ENL+13, EXPL+5, LIST!
WHICH	ENL~, EN~, BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, EN2+4*
X	ENLT+4~, EN+13~, ONE+2, ONE+3, TWO+1, TWO+2, EN1+7~, EDIT+1, EDIT+2!, EDIT+3 , EDIT+4*, EDIT+5!, EDIT+6
>> Y	EPAGN+10
>> Y(1	EPAGN+9
ZTDESC	ENL+1~, ENL+10, DEV+12
>> ZTDTH	ENL+11*
ZTIO	ENL+1~, ENL+12, DEV+10
ZTREQ	ENL+1~, ENLT+1*
ZTRTN	ENL+1~, ENL+9, DEV+10
ZTSAVE	ENL+1~
ZTSAVE(	ENL+13, DEV+11
ZTSK	ENL+2~

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQSIGN

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items