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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APSPMULT

Package: IHS Changes To Pharmacy

Routine: APSPMULT


Information

APSPMULT ;IHS/MSC/JDS - Multidivisional drug lookup support;07-Mar-2011 15:06;SM

Source Information

Source file <APSPMULT.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 8 ^%DT  ^DIC  (FILE,YN)^DICN  FILE^DIE  ^DIK  N^DIO2  EN1^DIP  ^DIR  
Toolkit 1 ($$GET,PUT)^XPAR  
VueCentric Framework 1 ($$GETVAR,GETVAR)^CIAVMEVT  

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Outpatient Pharmacy 7 PSOORCPY  PSOORNE4  PSOORNW1  PSOREF  PSOREF0  PSORENW  PSORENW4  
Inpatient Medications 5 PSGOERS  PSIVOPT2  PSIVUTL  PSJOE  PSJUTL  
Order Entry Results Reporting 4 ORCACT0  ORCACT03  ORWDXM  ORWUL  
Pharmacy Data Management 2 PSSOPKI1  PSSORUTL  
IHS Changes To Pharmacy 1 APSPESLP  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
DEQUE
ALL ;postinit make all drugs alternate care plan
OI(OI,DFN) ;screen orderable item
SITE() ; return outpatient site
EDITP ;Edit the parameter
TRANSFER ;Transfer from one division to other
PRTSCRN(DRUG,PDIV) ;EP
REPT ;
QUICK(IEN) ;EP-validate quick order
ADDIV ;Add/Remove from Division
PRATL(TRUE) ;ALTERNATE LIST
W ;
ELIG(DFN,DRUGELIG) ;
PRINT ;EP
PRINTM ;
SCREEN(IEN,NEWSITE,ALWAYS) ;EP

External References

Name Field # of Occurrence
^%DT REPT+2
$$GETVAR^CIAVMEVT SCREEN+4
GETVAR^CIAVMEVT SCREEN+4
^DIC PRINT+2, TRANSFER+2, TRANSFER+3, ADDIV+1, ADDIV+2
FILE^DICN TRANSFER+9, ADDIV+9
YN^DICN TRANSFER+5, ADDIV+5
FILE^DIE ALL+3
^DIK ADDIV+10
N^DIO2 PRINT1+3, PRINT1+5
EN1^DIP PRINT+4, PRATL+4, REPT+5
^DIR REPT+4, EDITP+6
$$GET^XPAR SCREEN+6, SCREEN+11, EDITP+2
PUT^XPAR EDITP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,CNT," Drugs put in outpatient site"
  • Line Location: TRANSFER+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: A,?42,$J($P($G(^TMP("PSMULTI",$J,I)),U),6),?58,$J($P($G(^(I)),U,2),6)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !,"No Activity During this Period",!
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: !,"This Drug is already in this division",!,"Do you wish to Delete"
  • Line Location: ADDIV+3
Function Call: WRITE
  • Prompt: !,"Add this Drug to the Divsion"
  • Line Location: ADDIV+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>45
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?45," ",$P($G(^PS(59,+I,0)),U)
  • Line Location: W+1
Routine Call
  • DIC
  • Line Location:
    • PRINT+2
    • TRANSFER+2
    • TRANSFER+3
    • ADDIV+1
    • ADDIV+2
Routine Call
  • DIE
  • Line Location:
    • ALL+3
Routine Call
  • DIR
  • Line Location:
    • REPT+4
    • EDITP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPCTRL - [#9009033] SCREEN+10
^APSPCTRL(0 SITE+3
^AUPNPAT - [#9000001] ELIG+4
^DD("DD" REPT+3
^OR(100 - [#100] OI+5, OI+6
^ORD(101.41 - [#101.41] QUICK+2, QUICK+3, QUICK+4, QUICK+5, QUICK+6
^ORD(101.43 - [#101.43] OI+2
^PS(55 - [#55] PRINTM+3, PRINTM+4, PRINTM+5
^PS(59 - [#59] SCREEN+9, W+1, SITE+3
^PSDRUG - [#50] SCREEN+10, SCREEN+12, SCREEN+13, PRTSCRN+1, ALL+2, TRANSFER+6, TRANSFER+7, TRANSFER+8, PRINTM+7, PRINTM+14
, PRINTM+16, ADDIV+3, ADDIV+7, ADDIV+8, W+1
^PSDRUG("ASP" OI+7
^PSDRUG(0 REPT+5
^PSRX - [#52] PRINTM+13
^PSRX("AC" PRINTM+12
^TMP("MSCPS" ALL+1!, ALL+2*, ALL+4!
^TMP("PSMULTI" PRINTM+2!, PRINTM+7*, PRINTM+8, PRINTM+16*, PRINTM+17, PRINT1+2, PRINT1+3, PRINT1+5

Label References

Name Line Occurrences
$$ELIG SCREEN+10
$$OI QUICK+7
$$SCREEN OI+5, OI+7, QUICK+4
ADDIV ADDIV+5, ADDIV+7, ADDIV+11
PRINT1 DEQUE+1
PRINTM DEQUE

Naked Globals

Name Field # of Occurrence
^( PRINTM+4, PRINTM+5, PRINTM+9*, PRINTM+10*, PRINTM+17*, PRINT1+3, OI+6
^(0 ADDIV+8*
^(1 OI+6
^(2 PRINTM+4, PRINTM+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TRANSFER+1~, TRANSFER+5, ADDIV+5
>> %DT REPT+2*
>> %DT("A" REPT+2*
>> A PRINT1+1*, PRINT1+2*, PRINT1+3
ALWAYS SCREEN~, SCREEN+2, SCREEN+6
>> APSPMULT SCREEN+5
>> BY PRINT+4*, PRATL+4*, REPT+5*
>> CIA("UID" SCREEN+4
CNT TRANSFER+1~, TRANSFER+4*, TRANSFER+9*, TRANSFER+10
>> D PRINTM+15*
>> DA ADDIV+6*
>> DA(1 TRANSFER+9*, ADDIV+6*
>> DATE PRINTM+4*
DFN SCREEN+4, ELIG~, ELIG+4, OI~, QUICK+7
DHD PRATL+1~, PRATL+3*, REPT+1~, REPT+5*
DIC PRINT+2*, PRINT+4*, TRANSFER+1~, TRANSFER+2*, TRANSFER+3*, TRANSFER+9*, PRATL+4*, REPT+5*, ADDIV+1~*, ADDIV+2~*
, ADDIV+6*
DIC("A" TRANSFER+2*, TRANSFER+3*
DIC("S" TRANSFER+3*
DIC("W" ADDIV+2*
DIC(0 PRINT+2*, TRANSFER+2*, TRANSFER+3*, TRANSFER+9*, ADDIV+1*, ADDIV+2*, ADDIV+9*
DICR SCREEN+1~, EDITP+1~
>> DIK ADDIV+6*
DINUM TRANSFER+1~, TRANSFER+9*, ADDIV+9*
>> DIPA("NUM" PRINT+4*, PRATL+4*
DIR EDITP+1~, EDITP+3*
DIR("A" REPT+4*, EDITP+5*
DIR("B" EDITP+4*
DIR(0 REPT+4*, EDITP+4*
>> DIRUT EDITP+6
>> DIS(1 PRINT+3*, PRATL+2*
>> DIV ADDIV+1*, ADDIV+3, ADDIV+6, ADDIV+7, ADDIV+9
DIVAL SCREEN+1~, EDITP+1~
>> DRIEN PRINTM+7*, PRINTM+8, PRINTM+9, PRINTM+10, PRINTM+14*, PRINTM+16, PRINTM+17
DRUG PRTSCRN~, PRTSCRN+1, PRINTM+7*, PRINTM+16*, OI+1~, OI+5, OI+6*, OI+7*, OI+8, QUICK+1~
, QUICK+2*, QUICK+4*, QUICK+5*
DRUGELIG ELIG~, ELIG+3, ELIG+5, ELIG+6
DUZ(2 SCREEN+9, SITE+3
ELIG ELIG+2~, ELIG+4*, ELIG+5, ELIG+6, REPT+4*, PRINTM+7, PRINTM+14
>> END PRINTM+4*
>> ENDT REPT+2*, PRINTM+3, PRINTM+4, PRINTM+6, PRINTM+12, PRINTM+15
>> FLDS PRINT+4*, PRATL+4*, REPT+5*
>> FR REPT+5*
FROM TRANSFER+1~, TRANSFER+2*, TRANSFER+7
I ALL+2*, TRANSFER+1~, TRANSFER+6*, TRANSFER+7, TRANSFER+8, TRANSFER+9~, PRINTM+3*, PRINTM+4, PRINTM+12*, PRINT1+2*
, PRINT1+3, W+1~*, OI+6~*
IEN SCREEN~, SCREEN+10, SCREEN+12, SCREEN+13, QUICK~, QUICK+4, QUICK+5, QUICK+6
>> IFN OI+5, OI+6
>> J PRINTM+3*, PRINTM+4, PRINTM+5, PRINTM+12*, PRINTM+13
>> K PRINTM+3*, PRINTM+5, PRINTM+9
>> L PRATL+4*, PRINTM+5*
>> MONTH REPT+3*
MSC EDITP+1~, EDITP+2*, EDITP+4
NEWSITE SCREEN~, SCREEN+8
OI PRINTM+4*, OI~, OI+2, QUICK+1~, QUICK+3*, QUICK+6*, QUICK+7
PAT SCREEN+1~, SCREEN+4*, SCREEN+10
PDIV PRINT+1~, PRINT+2*, PRTSCRN~, PRTSCRN+1
POI OI+1~, OI+2*, OI+3, OI+7
>> PSODFN SCREEN+4
>> PSOSITE SCREEN+7, SITE+2
SITE SCREEN+7~*, SCREEN+8*, SCREEN+9*, SCREEN+10, SCREEN+13, SITE+1~, SITE+3*
>> STDT REPT+2*, REPT+3, PRINTM+3, PRINTM+6, PRINTM+12, PRINTM+15
T PRINTM+5~, PRINTM+8*, PRINTM+9, PRINTM+10, PRINTM+17*
T( PRINTM+9*
TO TRANSFER+1~, TRANSFER+4*, TRANSFER+8, TRANSFER+9, REPT+5*
TRUE PRATL~, PRATL+2, PRATL+3
>> TWO PRINTM+13*, PRINTM+15
U SCREEN+2, SCREEN+6, SCREEN+10, ELIG+4, REPT+4, PRINTM+4, PRINTM+7, PRINTM+9, PRINTM+10, PRINTM+14
, PRINTM+15, PRINTM+16, PRINTM+17, PRINT1+3, W+1, OI+2, OI+6
X TRANSFER+9*, REPT+3*, REPT+4, ADDIV+9*, EDITP+1~
>> XQY0 SCREEN+2, SCREEN+6
Y PRINT+2, TRANSFER+2, TRANSFER+3, TRANSFER+4, REPT+2, REPT+3, REPT+4, ADDIV+1, ADDIV+2, ADDIV+3
, ADDIV+6, ADDIV+7, ADDIV+8, W+1, EDITP+1~, EDITP+7
>> ZERO PRINTM+4*, PRINTM+5*, PRINTM+6, PRINTM+7, PRINTM+10, PRINTM+13*, PRINTM+14, PRINTM+17

Marked Items

Name Field # of Occurrence
$T(GETVAR^CIAVMEVT SCREEN+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 |  Naked Globals |  Local Variables |  Marked Items |  All