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

Package: Pharmacy Data Management

Routine: PSSUTLPR


Information

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

Source Information

Source file <PSSUTLPR.m>

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

Caller Graph Total: 4

Package Total Caller Graph
Pharmacy Data Management 4 PSSDOSER  PSSOPKI1  PSSORUTL  PSSREMCH  

Entry Points

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

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, NOUNA, FRE+1
FILE^DICN INS+11
^DIE NOUNA+4, NOUNC, FRE+2
EN^DIQ1 TRAC+6
^DIR TEXT+5, INS+4, TRACQ, ENF+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
  • DIE
  • Line Location:
    • NOUNA+4
    • NOUNC
    • FRE+2
Routine Call
  • DIC
  • Line Location:
    • NOUN+3
    • NOUNA
    • FRE+1
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] NOUNA+2, 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+4
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!*, NOUNA+4!, 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, NOUNA, NOUNA+4, FRE+1, FRE+2
>> DUOUT NOUN+3, NOUNA, FRE+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*, NOUNA, NOUNA+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!
PSSOTH NOUNA+2*, NOUNA+4!, NOUNC!, 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, NOUNA, NOUNA+2, NOUNA+4, 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