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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQMGR5

Package: PCC Medical Query

Routine: AMQQMGR5


Information

AMQQMGR5 ; IHS/CMI/THL - SECURE DEVICES ;

Source Information

Source file <AMQQMGR5.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 6 ^DIC  WAIT^DICD  YN^DICN  ^DIE  ^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC Medical Query 1 AMQQMGR  

Entry Points

Name Comments DBIA/ICR reference
OLD ;
SECURE
EDIT
ED
CLEAR
CHK
STOP
M2EX
EXIT
M2
SCREEN

External References

Name Field # of Occurrence
^DIC ED+4
WAIT^DICD CLEAR
YN^DICN ED+10
^DIE SECURE+3, CLEAR+7
^DIK CLEAR+3, ED+16, SCREEN+6
^DIR M2+9, M2+18, M2EX+2, OLD+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?15,"***** IDENTIFY SECURE DEVICES FOR Q-MAN *****",!!
  • Line Location: M2+0
Function Call: WRITE
  • Prompt: !!,"You may want to define a group of ""secure devices"" for Q-Man. If you choose"
  • Line Location: M2+1
Function Call: WRITE
  • Prompt: !,"this option, Q-Man reports can only be displayed or printed on the devices you"
  • Line Location: M2+2
Function Call: WRITE
  • Prompt: !,"specify. First tell me if the set is ""inclusionary"" (all devices on your list"
  • Line Location: M2+3
Function Call: WRITE
  • Prompt: !,"are secure) or ""exclusionary"" (all devices are secure unless they appear on"
  • Line Location: M2+4
Function Call: WRITE
  • Prompt: !,"your list). You may assign ""secure status"" to all devices or just the printers."
  • Line Location: M2+5
Function Call: WRITE
  • Prompt: !,"Finally, I will ask you to enter the devices one at a time.",!
  • Line Location: M2+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: M2+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: M2EX+8
Function Call: WRITE
  • Prompt: @IOF,!!,?20,"***** DEVICE MANAGEMENT *****",!!!,"Current status =>",!!
  • Line Location: OLD+1
Function Call: WRITE
  • Prompt: !,"INCLUSIONARY PROTOCOL (All devices on the list are secure)",!
  • Line Location: OLD+3
Function Call: WRITE
  • Prompt: !,"EXCLUSIONARY PROTOCOL (All devices on the list are NOT secure)",!
  • Line Location: OLD+4
Function Call: WRITE
  • Prompt: !,"ALL DEVICES (terminals and printers) NEED SECURITY CLEARANCE",!
  • Line Location: OLD+5
Function Call: WRITE
  • Prompt: !,"ONLY PRINTERS NEED SECURITY CLEARANCE",!
  • Line Location: OLD+6
Function Call: WRITE
  • Prompt: !,"CURRENT LIST OF ",$S($P(%,U,10)="I":"",1:"NON-"),"SECURE DEVICES: ",!
  • Line Location: OLD+7
Function Call: WRITE
  • Prompt: ?3,%,?20,$P(^%ZIS(2,^%ZIS(1,Y,"SUBTYPE"),0),U),?48,$P($G(^%ZIS(1,Y,1)),U)
  • Line Location: OLD+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: CLEAR+3
Function Call: WRITE
  • Prompt: !!,"Sorry, there are no devices in the file to edit.",!!,*7
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !,?3,"This device is already in the file. Want to remove it"
  • Line Location: ED+8
Function Call: WRITE
  • Prompt: !!,"DEVICE REMOVED FROM LIST"
  • Line Location: ED+17
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+2
Function Call: READ
  • Prompt: "<>"
  • Timeout: DTIME
  • Variable: X
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: $C(13),?79,$C(13)
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !!,"SORRY...This device must be a printer!",!!,*7
  • Line Location: SCREEN+2
Routine Call
  • DIE
  • Line Location:
    • SECURE+3
    • CLEAR+7
Routine Call
  • DIC
  • Line Location:
    • ED+4
Routine Call
  • DIR
  • Line Location:
    • M2+9
    • M2+18
    • M2EX+2
    • OLD+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(8 - [#9009078] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] OLD+9, SCREEN+1
^%ZIS(2 - [#3.2] OLD+9, SCREEN+1
^AMQQ(8 - [#9009078] AMQQMGR5+3, OLD+2, OLD+9, CLEAR+3, EDIT, SCREEN
^DD(9009078 ED+1

Label References

Name Line Occurrences
CHK M2+13, M2+21, M2EX+5
CLEAR OLD+16
ED SECURE+5, ED+7, ED+12, ED+19
EDIT OLD+17
EXIT AMQQMGR5+3, OLD+15
M2 AMQQMGR5+4, M2+20, M2+22, M2EX+4, M2EX+6
M2EX M2+15
OLD AMQQMGR5+3
SCREEN ED+7
SECURE M2+25
STOP OLD+9

Naked Globals

Name Field # of Occurrence
^( OLD+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, OLD+2*, OLD+3, OLD+5, OLD+7, OLD+9*, ED+9*
%Y EXIT!, ED+12, ED+18!
>> AMQQMGRS M2+23*, M2EX+7*, SECURE
AMQQQUIT M2+14!, M2+22!, M2EX+6!, CHK*
C EXIT!
D CLEAR+8!
D0 CLEAR+8!, ED+18!, SCREEN+7!
DA SECURE+1*, SECURE+4!, CLEAR+3*, CLEAR+6*, CLEAR+8!, ED+5!, ED+13*, ED+18!, SCREEN+4*, SCREEN+7!
DA(1 CLEAR+1*, CLEAR+2, CLEAR+3, ED*, ED+2, ED+14*, ED+15, SCREEN+3*, SCREEN+5
DG EXIT!
DI CLEAR+8!, ED+18!, SCREEN+7!
DIC SECURE+4!, CLEAR+8!, ED+2*, ED+5!, ED+18!, SCREEN+7!
DIC("P" ED+1*
DIC(0 ED+3*
DIE SECURE+2*, SECURE+4!, CLEAR+5*, CLEAR+8!
DIK CLEAR+2*, CLEAR+8!, ED+15*, ED+18!, SCREEN+5*, SCREEN+7!
DIR M2+10!, M2+19!, M2EX+3!, OLD+14!
DIR("A" M2+8*, M2+17*, M2EX+1*, OLD+11*
DIR("B" OLD+12*
DIR(0 M2+7*, M2+16*, M2EX*, OLD+10*
DIRDT EXIT!
DIRUT EXIT!, OLD+15!, CHK!
DISYS EXIT!, ED+18!
DQ CLEAR+8!, SCREEN+7!
DR SECURE*, SECURE+4!, CLEAR+4*, CLEAR+8!
DTIME STOP+3
DTOUT EXIT!, OLD+15!, ED+6!, ED+11!, CHK!
DUOUT EXIT!, OLD+15!, ED+6!, ED+11!, CHK!
DUZ(2 AMQQMGR5+3, SECURE+1, OLD+2, OLD+9, CLEAR+1, CLEAR+6, EDIT, ED, ED+14, SCREEN
, SCREEN+3
IOF M2, OLD+1
>> N OLD+8*, STOP+1*, STOP+3*
U AMQQMGR5+3, M2+12, M2+20, M2EX+4, OLD+3, OLD+5, OLD+7, OLD+9, ED+1, ED+6
, ED+7, SCREEN, SCREEN+1
X EXIT!, OLD+9*, ED+6, ED+18!, STOP~, STOP+3*
Y M2+11, M2+12, M2+15, M2+20, M2+23, M2EX+4, M2EX+7, OLD+9*, OLD+15, OLD+16
, OLD+17, ED+6, ED+7, ED+13, ED+18!, CHK, SCREEN+1, SCREEN+4, SCREEN+8*
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 |  Naked Globals |  Local Variables |  All