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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSONVARP

Package: Outpatient Pharmacy

Routine: PSONVARP


Information

PSONVARP ;BHM/MFR - Non-VA Med Usage Report - Input ; 5/3/10 5:57pm

Source Information

Source file <PSONVARP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZTLOAD  $$UP^XLFSTR  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Outpatient Pharmacy 2 EN^PSONVAR1  EN^PSOPATLK  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Outpatient Pharmacy 5 PSO LM NON-VA MEDS RPT  PSO NON-VA MEDS USAGE REPORT  PSOERPT1  PSOERX1E  PSONVAR1  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HID ; - Entrhy point from the Hidden Action in the Medication Profile
EN
ENDT ; - Ask for TO DATE DOCUMENTED
SORT ; - Ask for SORT BY
SORT1
DEV
END
SRT1 ; - Selection of PATIENTS to print on the Report
SRT2 ; - Selection of ORDERABLE ITEMS to print on the Report
SRT4 ; - Selection of STATUS to print on the Report
SRT5 ; - Selection of ORDER CHECKS to print on the Report
TRNS(X) ; - Translates Alpha into the corresponding Sorting Code
DEAD(DFN,DSPL) ; Check if Patient has a Date Of Death on File
HL1(S) ; - Help for the SORT BY prompt

External References

Name Field # of Occurrence
^%DT EN+5, ENDT+2
^%ZIS DEV
^%ZTLOAD DEV+7
^DIC SRT2+5
^DIR SORT1+2, SRT4+4, SRT5+7
EN^PSONVAR1 DEV+9
EN^PSOPATLK SRT1+5
DEM^VADPT DEAD+3
$$UP^XLFSTR TRNS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT1+4
Function Call: WRITE
  • Prompt: !?(C-10),$S(I=1:"SORT BY ",1:"THEN BY ")
  • Line Location: SORT1+7
Function Call: WRITE
  • Prompt: X,"???",$C(7)
  • Line Location: SORT1+8
Function Call: WRITE
  • Prompt: $P("PATIENT NAME^ORDERABLE ITEM^DATE DOCUMENTED^STATUS^ORDER CHECKS","^",X)
  • Line Location: SORT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple PATIENTS,"
  • Line Location: SRT1+2
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all PATIENTS.",!
  • Line Location: SRT1+3
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single or multiple ORDERABLE ITEMS,"
  • Line Location: SRT2+2
Function Call: WRITE
  • Prompt: !,?5,"or enter ^ALL to select all ORDERABLE ITEMS.",!
  • Line Location: SRT2+3
Function Call: WRITE
  • Prompt: !!,?5,"You may select (A)CTIVE, (D)ISCONTINUED or (B)OTH status.",!
  • Line Location: SRT4+2
Function Call: WRITE
  • Prompt: !!,?5,"You may select 'Y' to print ",OP1,","
  • Line Location: SRT5+4
Function Call: WRITE
  • Prompt: !?5,"'N' to print ",OP2," or 'B' for BOTH.",!
  • Line Location: SRT5+5
Function Call: WRITE
  • Prompt: !?10,$P($G(VADM(1)),"^")," (",$P($G(VADM(2)),"^",2),") DIED ",$P($G(VADM(6)),"^",2),$C(7)
  • Line Location: DEAD+4
Routine Call
  • DIC
  • Line Location:
    • SRT2+5
Routine Call
  • DIR
  • Line Location:
    • SORT1+2
    • SRT4+4
    • SRT5+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Label References

Name Line Occurrences
$$DEAD SRT1+5
$$TRNS SORT1+6
@( SORT1+16
DEV ENDT+6
END EN+5, ENDT+2, SORT1+2, DEV, DEV+1
HL1 SORT+1, SORT1+1
SORT1 SORT1+11, SORT1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+1~, EN+4*
%DT("A" EN+4*, ENDT+1*
%DT(0 EN+4*, ENDT+1*
%ZIS DEV!*
C EN+1~, SORT1+4*, SORT1+7*
DFN ENDT+7*, ENDT+8, DEAD~, DEAD+2
DIC SRT1+1~, SRT2+1~, SRT2+4*
DIC("A" SRT1+4*, SRT2+4*
DIC("B" SRT1+5!, SRT2+5!
DIC(0 SRT1+4*, SRT2+4*
DIR SORT+1!, SORT1+2!, SRT4+1~, SRT5+1~
DIR( HL1+1*, HL1+2*, HL1+3*, HL1+4*, HL1+5*, HL1+6*, HL1+7*, HL1+8*, HL1+9*, HL1+10*
, HL1+11*, HL1+12*, HL1+13*, HL1+14*, HL1+15*
DIR("A" SORT1+1*, SRT4+4*, SRT5+7*
DIR("B" SORT+1*, SORT1+11*, SORT1+17*, SRT4+4*, SRT5+7*
DIR(0 SORT1+1*, SRT4+3*, SRT5+6*
>> DIRUT SORT1+2, SRT4+5, SRT5+8
DSPL DEAD~, DEAD+4
DT EN+4
>> DTOUT EN+5, ENDT+2, SRT1+7, SRT2+7
DUOUT SRT1+6!, SRT1+7, SRT2+6!, SRT2+7
G DEV+2~, DEV+4*, DEV+5*
I EN~, SORT1+5*, SORT1+6, SORT1+7, SORT1+15*, SORT1+16, SRT1+1~, SRT2+1~, SRT4+1~
IO("Q" DEV+1, DEV+2!
IOP DEV!
L TRNS+1~*, TRNS+2, TRNS+3, TRNS+4, TRNS+5, TRNS+6
OK EN+1~, SORT1+4*, SORT1+8*, SORT1+11, SORT1+14*, SORT1+15, SORT1+17, SRT1+7*, SRT1+8*, SRT2+7*
, SRT2+8*, SRT4+5*, SRT5+8*
OP1 SRT5+1~, SRT5+2*, SRT5+4, SRT5+6
OP2 SRT5+1~, SRT5+3*, SRT5+5, SRT5+6
POP DEV!
PSOAOI EN~, ENDT+8*, SORT1*, SRT2+1*, SRT2+6*
PSOAPT EN~, ENDT+8*, SORT1*, SRT1+1*, SRT1+6*
>> PSODFN ENDT+7
PSOED EN~, ENDT+3*
PSOHDFLG HID+1~*, ENDT+6
PSOOC EN~, ENDT+8*, SORT1*, SRT5+1!, SRT5+9*
PSOOI DEV+6, SRT2+1!, SRT2+6!, SRT2+8
PSOOI( SRT2+5*
PSOPT DEV+6, SRT1+1!, SRT1+6!, SRT1+8
PSOPT( ENDT+8*, SRT1+5*
PSOPTLK SRT1+5!
PSOSD EN~, EN+6*, ENDT+1
PSOSRT EN~, ENDT+8*, SORT1*, SORT1+6, SORT1+10*, SORT1+12*, SORT1+15, SORT1+16
PSOST EN~, ENDT+8*, SORT1*, SRT4+1!, SRT4+6*
S HL1~, HL1+1, HL1+2, HL1+3, HL1+4, HL1+5, HL1+6, HL1+7, HL1+8, HL1+9
, HL1+10, HL1+11, HL1+12, HL1+13, HL1+14, HL1+15
UPX TRNS+1~*, TRNS+2, TRNS+3, TRNS+4, TRNS+5, TRNS+6
VADM DEAD+1~
VADM(1 DEAD+4
VADM(2 DEAD+4
VADM(6 DEAD+3, DEAD+4
X EN+1~, SORT1+6*, SORT1+8, SORT1+9, SORT1+10, SORT1+16*, SRT1+1~, SRT2+1~, SRT2+6, SRT4+1~
, SRT5+1~, TRNS~, TRNS+1, TRNS+7
Y EN~, EN+5, EN+6, ENDT+2, ENDT+3, SORT1+5, SORT1+6, SORT1+11, SRT1+5*, SRT1+6
, SRT1+8, SRT2+5, SRT2+8, SRT4+6, SRT5+9, DEAD+1~
>> ZTDESC DEV+3*
ZTDTH DEV+2!
ZTIO DEV+2!
>> ZTRTN DEV+3*
ZTSAVE DEV+2!
ZTSAVE( DEV+4*, DEV+5*
ZTSAVE("PSOOI(" DEV+6*
ZTSAVE("PSOPT(" DEV+6*
ZTSK DEV!, DEV+2!, DEV+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All