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 |  All
Print Page as PDF
Routine: APSPLBL1

Package: IHS Changes To Pharmacy

Routine: APSPLBL1


Information

APSPLBL1 ; IHS/DSD/ENM - PRINTS LABEL ;26-Feb-2013 13:53;DU

Source Information

Source file <APSPLBL1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Changes To Pharmacy 1 $$NDCVAL^APSPFUNC  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 $$NOW^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPLBL  
Outpatient Pharmacy 1 PSOLLLI  

Entry Points

Name Comments DBIA/ICR reference
END
EXTINF(RX,REPRINT) ;EP
SUM
ZZE ;IHS/DSD/ENM NEXT 6 LINES ADDED FOR LBL NODE 12/1/95
USRINI(IEN) ;EP
NEXT ;W !,?PSZTAB,DRUG S PSZQ="#"_$P(RXY,"^",7)_" "_APS("DISP UNITS") I $X+$L(PSZQ)+2<PSZW W " ",PSZQ S PSZQ=""
SIG1
START
SUMMARY ;IHS/BAO/JCM;FEB 15,1988
SIG ;
EXTERR
C1
Z
EP ; This IHS routine is a rewrite of and not the same as the
; VA PSOLBL1 rtn.
CON

External References

Name Field # of Occurrence
$$NDCVAL^APSPFUNC NEXT+5
$$HRN^AUPNPAT START+4, SUMMARY+14
$$GET1^DIQ START+4, SUMMARY+14, USRINI+2
$$NOW^XLFDT ZZE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,?PSZTAB,$E(PNM,1,PSZW-8),?(PSZW+PSZTAB)-6
  • Line Location: START+4
Function Call: WRITE
  • Prompt: $$HRN^AUPNPAT(DFN,$$GET1^DIQ(59,PSOSITE,100,"I"))
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: !,?PSZTAB,"**** CONTINUED ****"
  • Line Location: C1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: " ",PSZQ
  • Line Location: NEXT+0
Function Call: WRITE
  • Prompt: !,?PSZTAB,DRUG
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: " ",PSZQ
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: !,?PSZTAB,"Rx ",RXN,?$X+1,$S(VRPH:$$USRINI(VRPH),1:TECH),?(PSZTAB+16),PSZQ
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !,?PSZTAB,$E($G(PHYS),1,17),?(PSZTAB+18),+$E(FDT,4,5),"-",$E(FDT,6,7),"-",$E(FDT,2,3)
  • Line Location: NEXT+8
Function Call: WRITE
  • Prompt: !,?PSZTAB,APSPMF_" "_APSPLOT_" Exp "_APSPDY
  • Line Location: NEXT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+10
Function Call: WRITE
  • Prompt: !,?PSZTAB,X
  • Line Location: SIG1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPCTRL - [#9009033] SUM, EXTINF+7, EXTINF+8
^PSRX - [#52] NEXT+4, ZZE+3, ZZE+4, ZZE+5*, ZZE+8*, ZZE+9*

Label References

Name Line Occurrences
$$EXTINF Z+5
$$USRINI NEXT+2, NEXT+6
C1 C1+6
CON SIG+1
NEXT SIG+2, C1+2
SIG1 SIG+1, C1
START SUM+2
SUM Z+6
SUMMARY SUM

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END!
ADDR END!
>> APS("DISP UNI TS" , NEXT+1, END+3!
>> APSHRN SUMMARY+14*, SUMMARY+24
>> APSPDY NEXT+9
>> APSPLOT NEXT+9
>> APSPMAN START+2, NEXT+9
>> APSPMF NEXT+9
APSPREIS ZZE+8, END+3!
APSPZNDC NEXT+5*, NEXT+6, NEXT+7!
APSPZREF NEXT+4*, NEXT+5, NEXT+7!
>> APSPZZN SUMMARY+19*, SUMMARY+24
>> APSQDNDC NEXT+2
>> ARRAY( SUMMARY+24*
COPIES Z+5*, Z+6, START*, SUM, SUM+2, END!
DEA END!
>> DFN START+4, SUMMARY+14
DOB END+1!
DR SIG+1*, CON*, C1*, C1+1, C1+2, C1+5, C1+6, END!, SIG1
DR1 END!
DRUG NEXT+1, END!, END+1!, SUMMARY+11, SUMMARY+13
DRX END!
DUZ ZZE+8
END SUMMARY+10~, SUMMARY+11*, SUMMARY+12*, SUMMARY+13
EXT EXTINF+1~, EXTINF+2*
>> F CON*, C1+2, C1+3*
FDA ZZE+2~, ZZE+4*
FDT NEXT+8, END!, SUMMARY+24
FIND SUMMARY+10~, SUMMARY+11*
I START*, C1*, C1+1, C1+2, C1+4*, C1+5*, NEXT+10*, ZZE+2~, ZZE+3*
I1 END+1!
IEN USRINI~, USRINI+1, USRINI+2
II C1+1*, END+1!
INT END+1!
IR ZZE+2~, ZZE+4*, ZZE+5*, ZZE+8
ISD END+1!
>> L Z*, Z+2, Z+3
>> LEXDT START+1
LIM END+1!
LINE END+1!
LMI END+1!
LP SUMMARY+10~, SUMMARY+21*
MAIL END+2!
MW END+2!
>> N START*, SUMMARY+19*
PATST END+2!
>> PCOMX ZZE+8
PHYS NEXT+8, END+2!
PNM START+4, END+2!, SUMMARY+24
PRTFL END+2!
PS END+1!
PS1 END+1!
PS2 END+1!
>> PSOPAR EXTINF+4, EXTINF+5
>> PSOSITE START+4, SUM, SUMMARY+14, EXTINF+7, EXTINF+8
>> PSZB START, C1+4
PSZDRUG SUMMARY+10~, SUMMARY+13*, SUMMARY+24
>> PSZE C1+4, NEXT+10
>> PSZL START+3, C1, C1+1
PSZLA START+3*, SIG+1, C1+1, C1+2, C1+5, END+1!
PSZM C1+5*, END+1!
>> PSZQ NEXT+1*, NEXT+2, NEXT+6
>> PSZRM Z, Z+2, Z+3
>> PSZTAB START+4, C1+3, C1+5, NEXT+1, NEXT+2, NEXT+6, NEXT+8, NEXT+9, SIG1
>> PSZW Z+2, Z+3, START+4, NEXT+1, SUMMARY+24
PSZZL START+1*, START+2*, START+3, END+1!
>> QTY NEXT+1, SUMMARY+24
REPRINT Z+5, ZZE+8, EXTINF~, EXTINF+5
RET EXTINF+1~, EXTINF+2*, EXTINF+7*, EXTERR
RFL END!
RFLMSG END!
RX Z+5, NEXT+4, NEXT+5, ZZE+3, ZZE+4, ZZE+5, ZZE+8, ZZE+9, EXTINF~
RXF ZZE+2~, ZZE+3*, ZZE+8
>> RXN NEXT+2, NEXT+6, SUMMARY+24
>> RXP ZZE+8
>> RXPI ZZE+8
RXY END!
RXZ END!
RYY END!
S END+2!
SGC Z+1*, Z+2, Z+3*, SIG+1, C1+5, C1+6, END+3!, SUMMARY+21
SGY EP+3, END!
SGY( Z+2*, Z+3*, C1, C1+1, C1+2, SIG1
SGYY EP+3*, END+3!, SUMMARY+20*, SUMMARY+21*, SUMMARY+24
SGYY( SUMMARY+21
SIDE SUM+2*, END+2!
SL END+2!
SS END+2!
SSNP END+2!
ST END+2!
ST1 END+2!
STATE END+2!
>> TECH NEXT+2, NEXT+6
U SUM, EXTINF+4, EXTINF+5
>> VRPH NEXT+2, NEXT+6
X SIG1*, EXTINF+6~, EXTINF+7
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 |  All