Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGFILD3

Package: Inpatient Medications

Routine: PSGFILD3


Information

PSGFILD3 ;BIR/CML - RETURN OF VARIOUS FILES UPKEEP ; Sep 14, 2023@10:14:49

Source Information

Source file <PSGFILD3.m>

Entry Points

Name Comments DBIA/ICR reference
ENRBLU ;
ENRBQ ;
ENATC ;
ATCED ;
ATCCNS ;
ATCH ;
ENIU ; mark/unmark drugs for Unit Dose use
ENIUH ;
ENCD ;edit Clinic Definitions file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?3,"NOTE: No PHARMACY ward groups are found. You will not be able to enter",!?9,"canister numbers for selected drugs.",!
  • Line Location: ENATC+3
Function Call: WRITE
  • Prompt: !,"...working..."
  • Line Location: ATCED+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ATCCNS+1
Function Call: WRITE
  • Prompt: !!?2,"Enter 'M' to set up your drugs for use with multiple ATC Dispensing machines,",!,"for which you will have to enter a canister number for each ward group. Enter",!,"'O' to set up your drugs for use with one ATC Dispensing machine"
  • Line Location: ATCH+1
Function Call: WRITE
  • Prompt: ", for which",!,"the ward groups will be automatically set up for each canister number.",!,"CHOOSE FROM:",!?5,"O - ONE ATC",!?5,"M - MULTIPLE ATCS"
  • Line Location: ATCH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENIU+2
Function Call: WRITE
  • Prompt: "..."
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: "UN"
  • Condition for execution: PSGY="U"
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: "MARKED..."
  • Line Location: ENIU+4
Function Call: WRITE
  • Prompt: !!?2,"Enter 'M' to mark items for use by the Unit Dose Medications package. (You",!,"will only be shown items that have not been marked for Unit Dose.)",!?2,"Enter 'U' to unmark items that have previously been marked for use with Unit"
  • Line Location: ENIUH+1
Function Call: WRITE
  • Prompt: !,"Dose. (You will be shown only items that have already been marked for Unit",!,"Dose.)",!!,"Choose from:",!?3,"M MARK ITEMS FOR UNIT DOSE",!?3,"U UNMARK ITEMS FOR UNIT DOSE"
  • Line Location: ENIUH+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(405.4 - [#405.4] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls
^PS(53.46 - [#53.46] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call