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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJPRE43

Package: Inpatient Medications

Routine: PSJPRE43


Information

PSJPRE43 ; B'ham ISC/CML3 - MOVE PICK LIST PARAMETERS ;9/4/91 18:30

Source Information

Source file <PSJPRE43.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Inpatient Medications 1 ENKV^PSGSETU  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
IS ;
BWL ; build ward list
ENWE ;
WH ;

External References

Name Field # of Occurrence
^DIC IS+1, ENWE+1
YN^DICN PSJPRE43+7, IS+7
^DIE ENWE+1
^DIR IS+4
ENKV^PSGSETU DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?18,"MOVE PICK LIST PARAMETERS TO WARD GROUP FILE"
  • Line Location: PSJPRE43+3
Function Call: WRITE
  • Prompt: !!?2,"This option is designed to allow you to seed the Inpatient Ward Group file",!,"with the PICK LIST data from the Inpatient Site Parameter file. After the ward",!,"group list is built, select the Inpatient site from which you want to"
  • Line Location: PSJPRE43+4
Function Call: WRITE
  • Prompt: " move the",!,"pick list data. Then select the ward group(s) which you want to seed with the",!,"pick list data. The pick list data from the selected Inpatient site will then",!,"be moved to each ward group selected."
  • Line Location: PSJPRE43+5
Function Call: WRITE
  • Prompt: !!,"BUILDING the ward group list..."
  • Line Location: PSJPRE43+6
Function Call: WRITE
  • Prompt: !!,"The data move has already been completed.",!,"Would you like to edit any of the entries in the Ward Group file"
  • Line Location: PSJPRE43+7
Function Call: WRITE
  • Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option."
  • Line Location: PSJPRE43+7
Function Call: WRITE
  • Prompt: !!,"Working..."
  • Line Location: IS+5
Function Call: WRITE
  • Prompt: !!,"The data move has been completed to all wards.",!,"Would you like to edit any of the ward groups"
  • Line Location: IS+7
Function Call: WRITE
  • Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option."
  • Line Location: IS+7
Function Call: WRITE
  • Prompt: !,"Working..."
  • Line Location: IS+9
Function Call: WRITE
  • Prompt: !!?2,"Select the ward group(s) to which you want to move the pick list data from",!,"the selected Inpatient site. Choose, by number, from the following ward",!,"groups:"
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: !,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENWE+1
Routine Call
  • DIE
  • Line Location:
    • ENWE+1
Routine Call
  • DIC
  • Line Location:
    • IS+1
    • ENWE+1
Routine Call
  • DIR
  • Line Location:
    • IS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.5 - [#57.5] Classic Fileman Calls
^PS(59.4 - [#59.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(57.5 - [#57.5] IS+6*, BWL+2
^PS(59.4 - [#59.4] IS+2

Label References

Name Line Occurrences
BWL PSJPRE43+6, IS+7
DONE PSJPRE43+8, IS+1, IS+8
ENWE PSJPRE43+8, IS+8
IS IS+4, IS+7

Naked Globals

Name Field # of Occurrence
^( BWL+2
^(5 BWL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSJPRE43+7*, PSJPRE43+8, IS+7*, IS+8
>> DA ENWE+1*
DIC IS+1!*, ENWE+1*
DIC("S" IS+1*, ENWE+1*
DIC(0 IS+1*, ENWE+1*
>> DIE ENWE+1*
>> DIR("?" IS+4*
>> DIR("A" IS+4*
>> DIR(0 IS+4*
>> DR ENWE+1*
IOF PSJPRE43+3
IS IS+2*, DONE+1!
ISND IS+2*, IS+6, DONE+1!
PSG PSJPRE43+7, PSJPRE43+8, IS+4, IS+7, BWL+1!*, BWL+2*, WH+2, DONE+1!
PSG( IS+6, BWL+2*, WH+2
>> Q BWL+1*, BWL+2*, WH+2*
Q1 IS+6*, DONE+1!
Q2 IS+6*, DONE+1!
>> X IS+6*, BWL+2*
>> Y IS+1, IS+2, IS+4, ENWE+1
>> Y( IS+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All