Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APSQSIGN

Package: IHS Changes To Pharmacy

Routine: APSQSIGN


Information

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

Source Information

Source file <APSQSIGN.m>

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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~

Marked Items

Name Field # of Occurrence
$T(LIST+I EXPL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All