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: APSAWP2

Package: IHS Changes To Pharmacy

Routine: APSAWP2


Information

APSAWP2 ;IHS/DSD/ENM - MATCH LOCAL NDC WITH FACTS/COMPARISONS NDC ;03-Jan-2012 19:26;PLS

Source Information

Source file <APSAWP2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 (NOW,YX)^%DTC  $$FIND1^DIC  ^DIE  ENALL^DIK  ^DIR  
Kernel 1 (EDIT,RESCH)^XUTMOPT  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSAPOS  APSAPOST  
Outpatient Pharmacy 1 PSOHELP1  

Entry Points

Name Comments DBIA/ICR reference
XMSET ;SET MAIL VARIABLES
P1 ;D NOW^%DTC S APSP("RUN DATE")=X
MSG1
MANU ;EP - ENTRY POINT FOR PHARMACIST TO USE AFTER FIXING DRUGS
ERR ;
TEXT
ZNDC ;EP - ENTRY POINT TO KILL AND RE-INDEX THE ^PSDRUG("ZNDC") X-REF
ETRAP ;
APSPGN ;GET DRUG NAME FOR EMAIL MSG
ZAAP ;KILL ALL VARIABLES ON EXIT
VSET
AUTOQ ;EP - ENTRY POINT FOR AUTO QUEUEING OF APSA AWP AUTO QUEUE OPTION
MSG ;SETUP AND SEND EMAIL MSG - LOOP ON ^TMP
RPH ;GET HOLDERS OF 'PSOMCORE' (PHARMACIST)
EP ;EP ENTRY POINT FOR NIGHTLY QUEUE
ZAP ;CLEAN AWP FIELD FROM DRUG - FOR USE DURING TESTING ONLY

External References

Name Field # of Occurrence
NOW^%DTC P1+1, P1+10
YX^%DTC TEXT+9
$$FIND1^DIC AUTOQ+1, AUTOQ+2
^DIE VSET+37, ZAP+6
ENALL^DIK ZNDC+2
^DIR MANU+3
^XMD MSG1
EDIT^XUTMOPT AUTOQ+3, AUTOQ+6
RESCH^XUTMOPT AUTOQ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Re-Indexing the 'ZNDC' x-ref in file 50..........",!
  • Line Location: ZNDC+1
Function Call: WRITE
  • Prompt: !,"Benchmark Price Update in progress, Please hold on........."
  • Line Location: MANU+6
Function Call: WRITE
  • Prompt: !,*7,"No Medi-Span database loaded......quitting!!",!
  • Line Location: MANU+7
Function Call: WRITE
  • Prompt: !,*7,"No Facts & Comparisons database loaded......quitting!!",!
  • Line Location: MANU+8
Function Call: WRITE
  • Prompt: !,"Benchmark Price Update done!! Please check your mail for any error messages",!
  • Line Location: MANU+12
Routine Call
  • DIE
  • Line Location:
    • VSET+37
    • ZAP+6
Routine Call
  • DIC
  • Line Location:
    • AUTOQ+1
    • AUTOQ+2
Routine Call
  • DIR
  • Line Location:
    • MANU+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND1^DIC
^DIC(19.2 - [#19.2] FIND1^DIC
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSAMDF - [#9009037] VSET+17, VSET+20, VSET+21
^APSAMDF("B" VSET+15, VSET+16
^APSAMDF("DATE" EP+4, EP+5, EP+7, P1+2, MANU+8
^APSPCTRL("AWP DATE" EP+5, EP+6, P1+7*, ZAP+1!
^APSPCTRL("AWP LAST U-DATE" P1+10*
^APSPCTRL("AWP UPDATE COUNT" P1+9*
^DD("DD" P1+1
^PS(59 - [#59] EP+1
^PSDRUG - [#50] VSET, VSET+2, VSET+9, ZAP+3
^PSDRUG("ZNDC" EP+3, P1+6, ZNDC+2!
^TMP($J EP+2!, ETRAP+5*, ETRAP+6*, MSG+7, APSPGN+4, APSPGN+5, ZAAP+1!, MANU+1!
^VA(200 - [#200] RPH+3
^XUSEC("PSOMCORE" RPH+3

Label References

Name Line Occurrences
APSPGN MSG+7
ERR APSPGN+6
ETRAP VSET+8, VSET+10, VSET+12, VSET+18, VSET+23, VSET+32
MSG P1+12
MSG1 MSG+8, APSPGN+7
P1 EP+5, MANU+9
RPH XMSET+3
TEXT MSG+2, APSPGN+7
VSET P1+6
XMSET MSG+1, APSPGN+7
ZAAP P1+13, MANU+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P1+10
>> %H TEXT+9*
APSA ZAAP+1!
APSA("ACC-PRICE" VSET+26*, VSET+30
APSA("AWP E-D ATE" , VSET+25*, VSET+38!
APSA("AWP-P-D-U" VSET+25*, VSET+38!
APSA("AWP-P-O-U" VSET+25*, VSET+38!
APSA("DISP U" , VSET+22*, VSET+23, ETRAP+6
APSA("MEDI-IRN" VSET+14*, VSET+16*, VSET+17, VSET+18, VSET+20, VSET+21
APSA("NODE0" VSET+20*, VSET+25, VSET+39!
APSA("NODE1" VSET+20*, VSET+22, VSET+39!
APSA("NODE2" VSET+20*, VSET+39!
APSA("NODE4" VSET+21*, VSET+26, VSET+40!
APSA("TNDC" VSET+14*, VSET+17*
APSAIRN ZAP+2*, ZAP+3*, ZAP+5, ZAP+7!
APSDNAME P1+3*, VSET+2*, ETRAP+5, ETRAP+6, ZAAP+1!
APSLNM MSG+3*, MSG+7*, APSPGN+4, APSPGN+5, ZAAP+1!
APSP ZAAP+1!
APSP("CTRL DA TE" , EP+6*, EP+8
APSP("DISP U" , VSET+11*, VSET+12, VSET+23, ETRAP+6
APSP("ERR" ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, APSPGN+4*, APSPGN+5
APSP("LOC" ERR+4, APSPGN+5*
APSP("MEDI" ERR+4, APSPGN+5*
APSP("MEDI-DATE" EP+7*, EP+8
APSP("NEW DAT E" , P1+2*, P1+7
APSP("RUN DAT E" , P1+1*, TEXT
APSP("TMPRN" MSG+3*, MSG+7*, APSPGN+4, APSPGN+5
APSP("TOTAL R EC" , P1+3*, P1+9, VSET+41*, TEXT
APSPDG ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, APSPGN+4*, ZAAP+1!
APSPERR P1+3*, VSET+8*, VSET+10*, VSET+12*, VSET+18*, VSET+23*, VSET+32*, ETRAP+5, ETRAP+6, ETRAP+7*
, MSG+5*, MSG+7*, APSPGN+4, APSPGN+5, ZAAP+1!
APSPIRN P1+3*, P1+6*, VSET, VSET+2, VSET+9, VSET+28, ETRAP+5, ETRAP+6, ZAAP+1!
APSPMSG MSG1!
APSPMSG( ERR+2*, ERR+3*, ERR+4*, ERR+5*, ERR+6*, ERR+8*
APSPMSG(1 TEXT*
APSPMSG(10 TEXT+8*
APSPMSG(2 TEXT*
APSPMSG(3 TEXT*
APSPMSG(4 TEXT+1*
APSPMSG(5 TEXT+2*
APSPMSG(6 TEXT+4*
APSPMSG(7 TEXT+5*
APSPMSG(8 TEXT+6*
APSPMSG(9 TEXT+7*
APSPNAME RPH+3*, ZAAP+1!
APSPNDC P1+3*, P1+6*, VSET+4, VSET+5, VSET+6, VSET+8, ETRAP+5, ZAAP+1!
APSPNDC2 VSET+3*, VSET+4*, VSET+6*, VSET+15, VSET+16, ZAAP+1!
APSPNOD1 P1+3*, VSET+9*, VSET+10, VSET+11, ZAAP+1!
APSPNOD2 P1+3*, ZAAP+1!
>> APSPNOD4 P1+4*
APSPZ ERR+2, ERR+3, ERR+4, ERR+5, ERR+6, ERR+8, ERR+11*, MSG+3*, APSPGN+7*, ZAAP+1!
D0 ZAP+4!, ZAP+7!
DA VSET+28*, VSET+38!, ZAP+4!, ZAP+5*, ZAP+7!
DIE VSET+28*, VSET+38!, ZAP+2*, ZAP+7!
DIK ZNDC+2*, ZNDC+3!
DIK(1 ZNDC+2*
DIR MANU+2~
DIR("A" MANU+3*
DIR("B" MANU+3*
DIR(0 MANU+3*
DR VSET+28*, VSET+30*, VSET+38!, ZAP+5*, ZAP+7!
DUZ(2 EP+1
J RPH+2*, RPH+3*, ZAAP+1!
>> PSOSITE EP+1*
U VSET+26
X P1+1, ZAAP+1!
XMDUZ XMSET+2*, ZAAP+1!
XMSUB XMSET+2*, ZAAP+1!
XMTEXT TEXT+9*, ZAAP+1!
XMY XMSET+2!
XMY( RPH+3*
>> Y P1+1*, MANU+4
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