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

Package: Pharmacy Data Management

Routine: PSSUTLPZ


Information

PSSUTLPZ ;BIR/RTR-Pre release report utility routine ;02/14/00

Source Information

Source file <PSSUTLPZ.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 7 DD^%DT  C^%DTC  ^DIC  FILE^DICN  ^DIE  EN^DIQ1  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
National Drug File 1 $$PSJST^PSNAPIS  
Pharmacy Data Management 1 (ADD,END)^PSSREMCH  

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

Package Total Caller Graph
Pharmacy Data Management 1 PSSORUTZ  

Entry Points

Name Comments DBIA/ICR reference
TEXT ;Text for pre-release report
INS ;Convert non-numeric Instructions to Nouns
INSQ
NOUN ;Enter/edit Nouns
NOUNA
NOUNC
NOUNQ
CHECK ;Check for running conversion
TRAC ;
TRACQ
FRE ;
FREQ
FRRP ;
ENF ;
ENFH ;
SLS ;Called from PSSORUTL
SLSQ
ADDRP ;

External References

Name Field # of Occurrence
DD^%DT TRAC+4, TRAC+5
C^%DTC ADDRP+5
^%ZIS FRRP+2, ADDRP+3
^%ZISC ENF+12
^%ZTLOAD FRRP+3, ADDRP+6
^DIC NOUN+3, NOUNAFRE+1
FILE^DICN INS+11
^DIE NOUNA+3, NOUNCFRE+2
EN^DIQ1 TRAC+6
^DIR TEXT+5, INS+4, TRACQENF+9, ENFH+1, ADDRP+1
$$PSJST^PSNAPIS SLS+6
ADD^PSSREMCH ADDRP+7
END^PSSREMCH ADDRP+6
$$DT^XLFDT ADDRP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The current Orderable Item structure keeps Additives and Solutions matched to",!,"Orderable Items flagged for IV use. All Dispense Drugs are currently matched to",!,"Orderable Items that are not flagged for IV Use. This was done"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: " to control "
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: !,"the finishing process of IV and Unit Dose orders entered through CPRS.",!,"The new Orderable Item structure will inactivate all IV flagged Orderable",!,"Items. All Additives and Solutions will be re-matched to non-IV flagged"
  • Line Location: TEXT+3
Function Call: WRITE
  • Prompt: !,"Orderable Items, based on their Dispense Drug links.",!
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+5
Function Call: WRITE
  • Prompt: !!,"This option will move all non-numeric Instructions to the Noun field in the",!,"Dosage Form file. If you do this, you will then need to review the Nouns and decide to mark them for Inpatient, Outpatient or both."
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!,"Nothing converted.",!
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !,"Converting.."
  • Line Location: INS+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: INS+11
Function Call: WRITE
  • Prompt: !,"Finished converting Instructions to Nouns!"
  • Line Location: INS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: INSQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUN+3
Function Call: WRITE
  • Prompt: !!?2,"Dosage Form => ",$P($G(^PS(50.606,+PSSDOSE,0)),"^"),!
  • Line Location: NOUNA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUNC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUNQ+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!,"Cannot use this option, Dosage conversion is currently running!",!
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,?15,"Dosage Conversion Tracker Status",!
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,?15,"Dosage Conversion Tracker Status",!
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,"The Dosage conversion has never been run!",!
  • Line Location: TRAC+8
Function Call: WRITE
  • Prompt: !,"The Dosage conversion is queued to run at "_$G(PSZSTA),!,"It was queued by "_$G(PSZWHO),!
  • Line Location: TRAC+9
Function Call: WRITE
  • Prompt: !,"The Dosage conversion is currently running.",!,"It started at "_$G(PSZSTA),!
  • Line Location: TRAC+10
Function Call: WRITE
  • Prompt: !,"The Dosage conversion was last run by "_$G(PSZWHO),!,"It started on "_$G(PSZSTA)_" and ended on "_$G(PSZSTO),!
  • Line Location: TRAC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TRACQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TRACQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FRE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FRE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FREQ+0
Function Call: WRITE
  • Prompt: !!,"This report shows the MEDICATION INSTRUCTION file entries, along with the",!,"Synonym, Frequency and Expansion. Use the Edit Medication Instruction",!,"Frequency option to enter appropriate frequencies.",!
  • Line Location: FRRP+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!!
  • Line Location: FRRP+2
Function Call: WRITE
  • Prompt: !,"Report queued to print."
  • Line Location: FRRP+3
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: ENF+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENF+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENF+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENFH+2
Function Call: WRITE
  • Prompt: !?5,"MEDICATION INSTRUCTION FREQUENCY REPORT"_$S($G(PSSCT)=1:"",1:" (cont.)"),?68,"PAGE: "_$G(PSSCT)
  • Line Location: ENFH+2
Function Call: WRITE
  • Prompt: !!,"NAME",?10,"SYNONYM",?21,"FREQUENCY",?34,"EXPANSION",!,PSSLINE,!
  • Line Location: ENFH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRP+1
Function Call: WRITE
  • Prompt: !!?3,"*** THIS REPORT IS DESIGNED FOR 132 COLUMNS ***",!
  • Line Location: ADDRP+2
Function Call: WRITE
  • Prompt: !,"Nothing queued to print.",!
  • Line Location: ADDRP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRP+3
Function Call: WRITE
  • Prompt: !,"Report queued to print."
  • Line Location: ADDRP+6
Routine Call
  • DIC
  • Line Location:
    • NOUN+3
    • NOUNA
    • FRE+1
Routine Call
  • DIE
  • Line Location:
    • NOUNA+3
    • NOUNC
    • FRE+2
Routine Call
  • DIR
  • Line Location:
    • TEXT+5
    • INS+4
    • TRACQ
    • ENF+9
    • ENFH+1
    • ADDRP+1
Routine Call
  • %ZIS
  • Line Location:
    • FRRP+2
    • ADDRP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(51 - [#51] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] INS+7, INS+8, INS+10, NOUNA
^PS(51 - [#51] ENF+5, ENF+7
^PS(59.7 - [#59.7] CHECK+2, CHECK+3, TRAC+2, TRAC+4, TRAC+5, TRAC+6
^PSDRUG - [#50] SLS+5, SLS+6

Label References

Name Line Occurrences
CHECK INS+1, NOUN+1
ENFH ENF+4, ENF+6
FRE FRE+3
FREQ FRE+1, FRE+2
INSQ INS+4
NOUN NOUNC
NOUNA NOUNA+3
NOUNC NOUNA
NOUNQ NOUN+1, NOUN+3
SLSQ SLS+8
TRACQ TRAC+8, TRAC+9, TRAC+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS FRRP+2!*, FRRP+3!, ADDRP+3!*, ADDRP+6!
DA NOUNA+3*, NOUNC*, TRAC+6*!, FRE+2*, FREQ!
DA(1 INS+11*, NOUNA*, NOUNA+3*
DD INS+11!
DIC INS+11!*, NOUN+3!*, NOUNA!*, NOUNQ!, TRAC+6*!, FRE+1!*, FREQ!
DIC("A" FRE+1*
DIC("W" NOUNA+1*
DIC(0 INS+11*, NOUN+3*, NOUNA*, FRE+1*
DIE NOUNA+3!*, NOUNC!*, NOUNQ!, FRE+2!*, FREQ!
DIQ TRAC+6*!
DIQ(0 TRAC+6*
DIR TEXT+5!, TEXT+7!, INS+4!, TRACQ!, ENF+9!, ENFH+1!, ADDRP+1!
DIR("?" TEXT+8*, TEXT+9*
DIR("A" TEXT+7*, INS+4*, TRACQ*, ENF+9*, ENFH+1*
DIR("B" TEXT+7*, INS+4*
DIR(0 TEXT+5*, TEXT+7*, INS+4*, TRACQ*, ENF+9*, ENFH+1*
>> DIRUT TEXT+5, ADDRP+1
DO INS+11!
DR NOUNA+3*, NOUNC*, NOUNQ!, TRAC+6*!, FRE+2*, FREQ!
DT ADDRP+4*, ADDRP+5
>> DTOUT NOUN+3, NOUNANOUNA+3, FRE+1, FRE+2
>> DUOUT NOUN+3, NOUNAFRE+1
IO ENF+1
IO("Q" FRRP+3, ADDRP+6
IOF TRAC+7, ENF+11, ENFH+2
IOP FRRP+2!, ADDRP+3!
IOSL ENF+6
IOST ENF+2
>> PL3 SLS+2, SLS+4, SLS+5, SLS+8, SLS+9, SLS+11, SLS+12
POP FRRP+2!, ADDRP+3!
>> PSSA SLS+2, SLS+4, SLS+5, SLS+8, SLS+9, SLS+11, SLS+12
PSSCT ENF+2*, ENF+12!, ENFH+1, ENFH+2*
PSSD INS+6~, INS+7*, INS+8, INS+10, INS+11
PSSDOSE NOUN+4*, NOUNANOUNA+3, NOUNC, NOUNQ!
PSSDV ENF+2*, ENF+9, ENF+10, ENF+12!, ENFH+1
PSSF ENF+3!, ENF+5*, ENF+12!
>> PSSFNODE ENF+7*, ENF+8
PSSFR ENF+3!, ENF+5*, ENF+7, ENF+12!
PSSI INS+6~, INS+8*, SLS+3~, SLS+4*, SLS+7, SLS+11
PSSINS INS+6~, INS+8*, INS+9, INS+10, INS+11
PSSJ SLS+3~, SLS+4*, SLS+10
PSSJ1 SLS+3~
PSSJ2 SLS+3~, SLS+10*, SLS+12
PSSJA SLS+3~, SLS+7*, SLS+10
PSSJA1 SLS+3~, SLS+7*, SLS+10
PSSJB SLS+3~, SLS+7*, SLS+9, SLS+11
PSSJB1 SLS+3~, SLS+7*, SLS+9, SLS+11
PSSJZUNT SLS+1!, SLS+11*
PSSLINE ENF+3!*, ENF+12!, ENFH+3
PSSNOCON INS+1!, INS+2!, NOUN+1!, NOUN+2!, CHECK+1*, CHECK+3*, CHECK+4
PSSNOUN NOUNA+2*, NOUNA+3, NOUNQ!
PSSOUT TEXT+5*, ENF+2*, ENF+5, ENF+6, ENF+9, ENF+12!, ENFH+1*
PSSTYPE TEXT+6!, ADDRP+1*!, ADDRP+3!
PSSWZ50 SLS+3~, SLS+5*, SLS+9
PSSWZI SLS+3~, SLS+5*, SLS+6
PSSWZND SLS+3~, SLS+6*, SLS+8, SLS+9
PSSWZSL SLS+3~, SLS+5*
PSSWZSL1 SLS+3~
PSSWZSL2 SLS+3~, SLS+9*
PSSWZSL3 SLS+3~, SLS+9*
PSSWZSL4 SLS+3~, SLS+9*, SLS+11
PSSWZSL5 SLS+3~, SLS+9*, SLS+10
>> PSSX( SLS+2*, SLS+4, SLS+5, SLS+8*, SLS+9, SLS+11*, SLS+12*
>> PSSYRX ADDRP+5*
PSSYSIEN CHECK+2*, CHECK+3, CHECK+4!
PSZSTA TRAC+1~, TRAC+4*, TRAC+9, TRAC+10, TRAC+11
PSZSTO TRAC+1~, TRAC+5*, TRAC+11
PSZWHO TRAC+1~, TRAC+6*, TRAC+9, TRAC+11
PSZWHOAR TRAC+6!
PSZWHOAR(200 TRAC+6
PSZZ TRAC+1~, TRAC+7*
PSZZ1 TRAC+1~, TRAC+2*, TRAC+4, TRAC+5, TRAC+6
PSZZ2 TRAC+1~, TRAC+2*, TRAC+3, TRAC+8, TRAC+9, TRAC+10, TRAC+11
X INS+11*, ADDRP+5!
X1 ADDRP+5*!
X2 ADDRP+5*!
Y TEXT+5!, INS+4, NOUN+3, NOUN+4, NOUNANOUNA+2, NOUNA+3, TRAC+4*, TRAC+5*, FRE+1
FRE+2, ENFH+1, ADDRP+1
>> ZTDESC FRRP+3*, ADDRP+6*
>> ZTQUEUED ENF+12
>> ZTREQ ENF+12*
>> ZTRTN FRRP+3*, ADDRP+6*
>> ZTSAVE("PSSTYPE" ADDRP+6*
>> ZTSAVE("PSSYRX" ADDRP+6*
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