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

Package: Medicine

Routine: MCARPAL


Information

MCARPAL ;WISC/TJK-PACEMAKER ACTIVE PATIENT LIST ;5/7/96 13:35

Source Information

Source file <MCARPAL.m>

Entry Points

Name Comments DBIA/ICR reference
CALC
CALC1
PRINT
PRINT1
EXIT ;
LEAD
PR
MANUF
HEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"ACTIVE PATIENT LIST"
  • Line Location: MCARPAL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: MCARPAL+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MCARPAL+3
Function Call: WRITE
  • Prompt: !,"*",?37,"NOTICE",?79,"*"
  • Line Location: MCARPAL+4
Function Call: WRITE
  • Prompt: !,"*",?79,"*",!,"*",?10,"This report has been set up to print with a line length of 132",?79,"*",!,"*",?10,"characters. Select a device that uses a 132 character line length.",?79,"*"
  • Line Location: MCARPAL+5
Function Call: WRITE
  • Prompt: !,"*",?79,"*",!
  • Line Location: MCARPAL+6
Function Call: WRITE
  • Prompt: "*"
  • Line Location: MCARPAL+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MCARPAL+7
Function Call: WRITE
  • Prompt: !!,MCARNM
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !,$E(Y,1,3),"-",$E(Y,4,5),"-",$E(Y,6,9)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: ?17
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?29,$S(Y=1:"EAST PSC FOLLOW-UP",Y=4:"REGISTRY ONLY",Y=7:"WEST PSC FOLLOW-UP",1:"")
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?51,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: ?60,Y,?64,Z,?77,$P(X,U,4)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: ?90,$S($P(X,U,5)=698.1:"V: ",1:"A: "),$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: ?102,Y,?106,Z,?119,$P(X,U,4)
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: @IOF,!!,?47,"VETERANS ADMINISTRATION MEDICAL CENTER",?120,"Pg.",PG
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,?132-$L($$GET1^DIQ(4.3,1,217))/2,$$GET1^DIQ(4.3,1,217)
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,?52,"PACEMAKER ACTIVE PATIENT LIST"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,"PATIENT",?51,"GENERATOR IMPLANT DATA",?93,"V AND A LEAD IMPLANT DATA"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"SSN",?17,"DOB",?29,"STATUS",?51,"DATE",?60,"MFR MODEL",?77,"SER. NO.",?93,"DATE",?102,"MFR MODEL",?119,"SER. NO."
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?51,LN,?93,LN
  • Line Location: HEAD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(1 - [#4.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call